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

io.sockets.unix: using getsockopt doesn't need to recurse.

db4
John Benediktsson 2016-03-14 08:42:54 -07:00
parent 82d4b1d67e
commit ebfa9402d4
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/io/sockets/unix/unix.factor
View File

@ -50,18 +50,10 @@ M: object (get-remote-address)
: init-client-socket ( fd -- )
SOL_SOCKET SO_OOBINLINE set-socket-option ;
DEFER: wait-to-connect
: wait-for-output ( port -- )
dup +output+ wait-for-port wait-to-connect ; inline
: wait-to-connect ( port -- )
dup handle>> SOL_SOCKET SO_ERROR get-socket-option {
{ 0 [ drop ] }
{ EAGAIN [ wait-for-output ] }
{ EINTR [ wait-to-connect ] }
[ (throw-errno) ]
} case ;
dup +output+ wait-for-port
dup handle>> SOL_SOCKET SO_ERROR get-socket-option
[ drop ] [ (throw-errno) ] if-zero ; inline
M: object establish-connection
2dup
@ -69,7 +61,7 @@ M: object establish-connection
connect 0 = [ 2drop ] [
errno {
{ EINTR [ establish-connection ] }
{ EINPROGRESS [ drop wait-for-output ] }
{ EINPROGRESS [ drop wait-to-connect ] }
[ (throw-errno) ]
} case
] if ;