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

Tweak: don't put UDP receive buffer in image

db4
Slava Pestov 2008-07-03 20:50:01 -05:00
parent cc008e6c2c
commit d93851cc96
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/io/unix/sockets/sockets.factor
View File

@ -5,7 +5,7 @@ namespaces threads sequences byte-arrays io.ports
io.binary io.unix.backend io.streams.duplex io.binary io.unix.backend io.streams.duplex
io.backend io.ports io.files io.files.private io.backend io.ports io.files io.files.private
io.encodings.utf8 math.parser continuations libc combinators io.encodings.utf8 math.parser continuations libc combinators
system accessors qualified destructors unix locals ; system accessors qualified destructors unix locals init ;
EXCLUDE: io => read write close ; EXCLUDE: io => read write close ;
EXCLUDE: io.sockets => accept ; EXCLUDE: io.sockets => accept ;
@ -96,7 +96,7 @@ SYMBOL: receive-buffer
: packet-size 65536 ; inline : packet-size 65536 ; inline
packet-size <byte-array> receive-buffer set-global [ packet-size malloc receive-buffer set-global ] "io.unix.sockets" add-init-hook
:: do-receive ( port -- packet sockaddr ) :: do-receive ( port -- packet sockaddr )
port addr>> empty-sockaddr/size [| sockaddr len | port addr>> empty-sockaddr/size [| sockaddr len |
@ -107,7 +107,7 @@ packet-size <byte-array> receive-buffer set-global
sockaddr ! from sockaddr ! from
len <int> ! fromlen len <int> ! fromlen
recvfrom dup 0 >= [ recvfrom dup 0 >= [
receive-buffer get-global swap head sockaddr receive-buffer get-global swap memory>byte-array sockaddr
] [ ] [
drop f f drop f f
] if ] if