io.sockets: rename (receive) to (receive-unsafe)
parent
9a812cc5c9
commit
90e1002349
|
@ -287,7 +287,7 @@ TUPLE: raw-port < port addr ;
|
||||||
|
|
||||||
HOOK: (raw) io-backend ( addr -- raw )
|
HOOK: (raw) io-backend ( addr -- raw )
|
||||||
|
|
||||||
HOOK: (receive) io-backend ( n buf datagram -- size addrspec )
|
HOOK: (receive-unsafe) io-backend ( n buf datagram -- size addrspec )
|
||||||
|
|
||||||
ERROR: invalid-port object ;
|
ERROR: invalid-port object ;
|
||||||
|
|
||||||
|
@ -371,7 +371,7 @@ SYMBOL: remote-address
|
||||||
|
|
||||||
: receive-unsafe ( n buf datagram -- count addrspec )
|
: receive-unsafe ( n buf datagram -- count addrspec )
|
||||||
check-receive
|
check-receive
|
||||||
[ (receive) ] [ addr>> ] bi parse-sockaddr ; inline
|
[ (receive-unsafe) ] [ addr>> ] bi parse-sockaddr ; inline
|
||||||
|
|
||||||
CONSTANT: datagram-size 65536
|
CONSTANT: datagram-size 65536
|
||||||
|
|
||||||
|
|
|
@ -140,7 +140,7 @@ M: unix (raw)
|
||||||
2drop [ +input+ wait-for-port ] [ (receive-loop) ] bi
|
2drop [ +input+ wait-for-port ] [ (receive-loop) ] bi
|
||||||
] if ; inline recursive
|
] if ; inline recursive
|
||||||
|
|
||||||
M: unix (receive) ( n buf datagram -- count sockaddr )
|
M: unix (receive-unsafe) ( n buf datagram -- count sockaddr )
|
||||||
(receive-loop) ;
|
(receive-loop) ;
|
||||||
|
|
||||||
:: do-send ( packet sockaddr len socket datagram -- )
|
:: do-send ( packet sockaddr len socket datagram -- )
|
||||||
|
|
|
@ -258,7 +258,7 @@ TUPLE: WSARecvFrom-args port
|
||||||
[ lpFromLen>> int deref ]
|
[ lpFromLen>> int deref ]
|
||||||
tri memcpy ; inline
|
tri memcpy ; inline
|
||||||
|
|
||||||
M: windows (receive) ( n buf datagram -- count addrspec )
|
M: windows (receive-unsafe) ( n buf datagram -- count addrspec )
|
||||||
[
|
[
|
||||||
<WSARecvFrom-args>
|
<WSARecvFrom-args>
|
||||||
[ call-WSARecvFrom ]
|
[ call-WSARecvFrom ]
|
||||||
|
|
Loading…
Reference in New Issue