Merge branch 'master' of git://factorcode.org/git/factor
commit
ffa5d82ed3
|
@ -48,15 +48,31 @@ IN: builder
|
|||
|
||||
: record-git-id ( -- ) git-id "../git-id" utf8 [ . ] with-file-writer ;
|
||||
|
||||
: do-make-clean ( -- ) { "make" "clean" } try-process ;
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
: gnu-make ( -- string )
|
||||
os { "freebsd" "openbsd" "netbsd" } member?
|
||||
[ "gmake" ]
|
||||
[ "make" ]
|
||||
if ;
|
||||
|
||||
! : do-make-clean ( -- ) { "make" "clean" } try-process ;
|
||||
|
||||
: do-make-clean ( -- ) { gnu-make "clean" } to-strings try-process ;
|
||||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
! : make-vm ( -- desc )
|
||||
! <process>
|
||||
! { "make" } >>command
|
||||
! "../compile-log" >>stdout
|
||||
! +stdout+ >>stderr ;
|
||||
|
||||
: make-vm ( -- desc )
|
||||
<process>
|
||||
{ "make" } >>command
|
||||
"../compile-log" >>stdout
|
||||
+stdout+ >>stderr ;
|
||||
{ gnu-make } to-strings >>command
|
||||
"../compile-log" >>stdout
|
||||
+stdout+ >>stderr ;
|
||||
|
||||
: do-make-vm ( -- )
|
||||
make-vm [ "vm compile error" print "../compile-log" cat ] run-or-bail ;
|
||||
|
|
|
@ -0,0 +1,4 @@
|
|||
IN: io.sockets.tests
|
||||
USING: io.sockets sequences math tools.test ;
|
||||
|
||||
[ t ] [ "localhost" 80 f resolve-host length 1 >= ] unit-test
|
|
@ -26,11 +26,14 @@ M: pair make-disassemble-cmd
|
|||
M: method-spec make-disassemble-cmd
|
||||
first2 method make-disassemble-cmd ;
|
||||
|
||||
: gdb-binary ( -- string )
|
||||
os "freebsd" = "gdb66" "gdb" ? ;
|
||||
|
||||
: run-gdb ( -- lines )
|
||||
<process>
|
||||
+closed+ >>stdin
|
||||
out-file >>stdout
|
||||
[ "gdb" , "-x" , in-file , "-batch" , ] { } make >>command
|
||||
[ gdb-binary , "-x" , in-file , "-batch" , ] { } make >>command
|
||||
try-process
|
||||
out-file ascii file-lines ;
|
||||
|
||||
|
|
|
@ -24,16 +24,6 @@ IN: unix
|
|||
: F_SETFL 4 ; inline
|
||||
: O_NONBLOCK 4 ; inline
|
||||
|
||||
C-STRUCT: addrinfo
|
||||
{ "int" "flags" }
|
||||
{ "int" "family" }
|
||||
{ "int" "socktype" }
|
||||
{ "int" "protocol" }
|
||||
{ "socklen_t" "addrlen" }
|
||||
{ "char*" "canonname" }
|
||||
{ "void*" "addr" }
|
||||
{ "addrinfo*" "next" } ;
|
||||
|
||||
C-STRUCT: sockaddr-in
|
||||
{ "uchar" "len" }
|
||||
{ "uchar" "family" }
|
||||
|
|
|
@ -1,3 +1,14 @@
|
|||
USING: alien.syntax ;
|
||||
IN: unix
|
||||
|
||||
: FD_SETSIZE 1024 ;
|
||||
|
||||
C-STRUCT: addrinfo
|
||||
{ "int" "flags" }
|
||||
{ "int" "family" }
|
||||
{ "int" "socktype" }
|
||||
{ "int" "protocol" }
|
||||
{ "socklen_t" "addrlen" }
|
||||
{ "char*" "canonname" }
|
||||
{ "void*" "addr" }
|
||||
{ "addrinfo*" "next" } ;
|
||||
|
|
|
@ -1,3 +1,14 @@
|
|||
USING: alien.syntax ;
|
||||
IN: unix
|
||||
|
||||
: FD_SETSIZE 1024 ; inline
|
||||
|
||||
C-STRUCT: addrinfo
|
||||
{ "int" "flags" }
|
||||
{ "int" "family" }
|
||||
{ "int" "socktype" }
|
||||
{ "int" "protocol" }
|
||||
{ "socklen_t" "addrlen" }
|
||||
{ "char*" "canonname" }
|
||||
{ "void*" "addr" }
|
||||
{ "addrinfo*" "next" } ;
|
||||
|
|
|
@ -1,3 +1,14 @@
|
|||
USING: alien.syntax ;
|
||||
IN: unix
|
||||
|
||||
: FD_SETSIZE 256 ; inline
|
||||
|
||||
C-STRUCT: addrinfo
|
||||
{ "int" "flags" }
|
||||
{ "int" "family" }
|
||||
{ "int" "socktype" }
|
||||
{ "int" "protocol" }
|
||||
{ "socklen_t" "addrlen" }
|
||||
{ "char*" "canonname" }
|
||||
{ "void*" "addr" }
|
||||
{ "addrinfo*" "next" } ;
|
||||
|
|
|
@ -1,3 +1,14 @@
|
|||
USING: alien.syntax ;
|
||||
IN: unix
|
||||
|
||||
: FD_SETSIZE 1024 ; inline
|
||||
|
||||
C-STRUCT: addrinfo
|
||||
{ "int" "flags" }
|
||||
{ "int" "family" }
|
||||
{ "int" "socktype" }
|
||||
{ "int" "protocol" }
|
||||
{ "socklen_t" "addrlen" }
|
||||
{ "void*" "addr" }
|
||||
{ "char*" "canonname" }
|
||||
{ "addrinfo*" "next" } ;
|
||||
|
|
Loading…
Reference in New Issue