steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix errno numbers across platforms, some UI work

cvs
Slava Pestov 2005-06-26 21:48:05 +00:00
parent 49769678d1
commit a5c67414d8
5 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/unix/io.factor
View File

@ -76,9 +76,6 @@ M: port set-timeout ( timeout port -- )
: pending-error ( port -- ) : pending-error ( port -- )
dup port-error f rot set-port-error throw ; dup port-error f rot set-port-error throw ;
: EAGAIN 11 ;
: EINTR 4 ;
: defer-error ( port -- ? ) : defer-error ( port -- ? )
#! Return t if it is an unrecoverable error. #! Return t if it is an unrecoverable error.
err_no dup EAGAIN = over EINTR = or [ err_no dup EAGAIN = over EINTR = or [

4
library/unix/syscalls-freebsd.factor
View File

@ -31,3 +31,7 @@ BEGIN-STRUCT: sockaddr-in
FIELD: in_addr_t addr FIELD: in_addr_t addr
FIELD: longlong unused FIELD: longlong unused
END-STRUCT END-STRUCT
: EINTR HEX: 4 ;
: EAGAIN HEX: 23 ;
: EINPROGRESS HEX: 24 ;

4
library/unix/syscalls-linux.factor
View File

@ -31,3 +31,7 @@ BEGIN-STRUCT: sockaddr-in
FIELD: in_addr_t addr FIELD: in_addr_t addr
FIELD: longlong unused FIELD: longlong unused
END-STRUCT END-STRUCT
: EINTR HEX: 4 ;
: EAGAIN HEX: b ;
: EINPROGRESS HEX: 73 ;

4
library/unix/syscalls-macosx.factor
View File

@ -31,3 +31,7 @@ BEGIN-STRUCT: sockaddr-in
FIELD: in_addr_t addr FIELD: in_addr_t addr
FIELD: longlong unused FIELD: longlong unused
END-STRUCT END-STRUCT
: EINTR HEX: 4 ;
: EAGAIN HEX: 23 ;
: EINPROGRESS HEX: 24 ;

2
library/unix/syscalls.factor
View File

@ -5,8 +5,6 @@ USING: alien errors kernel math namespaces ;
! Alien wrappers for various Unix libc functions. ! Alien wrappers for various Unix libc functions.
: EINPROGRESS 36 ;
LIBRARY: factor LIBRARY: factor
FUNCTION: int err_no ( ) ; FUNCTION: int err_no ( ) ;