38 lines
677 B
Factor
38 lines
677 B
Factor
! Copyright (C) 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: unix-internals
|
|
USING: alien ;
|
|
|
|
! Linux.
|
|
|
|
: O_RDONLY HEX: 0000 ;
|
|
: O_WRONLY HEX: 0001 ;
|
|
: O_RDWR HEX: 0002 ;
|
|
: O_CREAT HEX: 0040 ;
|
|
: O_TRUNC HEX: 0200 ;
|
|
|
|
: SOL_SOCKET 1 ;
|
|
|
|
: FD_SETSIZE 1024 ;
|
|
|
|
: SO_REUSEADDR 2 ;
|
|
: SO_OOBINLINE 10 ;
|
|
: SO_SNDTIMEO HEX: 15 ;
|
|
: SO_RCVTIMEO HEX: 14 ;
|
|
|
|
: INADDR_ANY 0 ;
|
|
|
|
: F_SETFL 4 ; ! set file status flags
|
|
: O_NONBLOCK HEX: 800 ; ! no delay
|
|
|
|
BEGIN-STRUCT: sockaddr-in
|
|
FIELD: ushort family
|
|
FIELD: ushort port
|
|
FIELD: in_addr_t addr
|
|
FIELD: longlong unused
|
|
END-STRUCT
|
|
|
|
: EINTR HEX: 4 ;
|
|
: EAGAIN HEX: b ;
|
|
: EINPROGRESS HEX: 73 ;
|