io.servers.packet: nothing was using it and it had a stack effect error. nuked
parent
473cc7db4a
commit
2557ce1010
|
@ -1 +0,0 @@
|
||||||
Slava Pestov
|
|
|
@ -1,23 +0,0 @@
|
||||||
USING: concurrency.combinators destructors fry
|
|
||||||
io.sockets kernel logging ;
|
|
||||||
IN: io.servers.packet
|
|
||||||
|
|
||||||
<PRIVATE
|
|
||||||
|
|
||||||
LOG: received-datagram NOTICE
|
|
||||||
|
|
||||||
: datagram-loop ( quot datagram -- )
|
|
||||||
[
|
|
||||||
[ receive dup received-datagram [ swap call ] dip ] keep
|
|
||||||
pick [ send ] [ 3drop ] if
|
|
||||||
] 2keep datagram-loop ; inline
|
|
||||||
|
|
||||||
: spawn-datagrams ( quot addrspec -- )
|
|
||||||
<datagram> [ datagram-loop ] with-disposal ; inline
|
|
||||||
|
|
||||||
\ spawn-datagrams NOTICE add-input-logging
|
|
||||||
|
|
||||||
PRIVATE>
|
|
||||||
|
|
||||||
: with-datagrams ( seq service quot -- )
|
|
||||||
'[ [ [ _ ] dip spawn-datagrams ] parallel-each ] with-logging ; inline
|
|
|
@ -1 +0,0 @@
|
||||||
Multi-threaded UDP/IP servers
|
|
|
@ -1 +0,0 @@
|
||||||
network
|
|
Loading…
Reference in New Issue