2011-08-26 21:02:22 -04:00
|
|
|
! Copyright (C) 2011 John Benediktsson
|
2011-08-26 20:18:08 -04:00
|
|
|
! See http://factorcode.org/license.txt for BSD license
|
|
|
|
|
|
2011-10-15 13:52:07 -04:00
|
|
|
USING: accessors destructors fry io.binary io.sockets kernel
|
2011-08-26 20:18:08 -04:00
|
|
|
sequences ;
|
|
|
|
|
|
2011-10-15 13:52:07 -04:00
|
|
|
IN: benchmark.udp-echo0
|
2011-08-26 20:18:08 -04:00
|
|
|
|
|
|
|
|
: send/recv ( packet server client -- )
|
|
|
|
|
[ over over addr>> ] [ send ] bi* receive drop assert= ;
|
|
|
|
|
|
2011-10-15 13:52:07 -04:00
|
|
|
: udp-echo ( #times #bytes -- )
|
|
|
|
|
'[
|
|
|
|
|
_ iota [ _ >be ] map
|
2011-11-11 20:58:45 -05:00
|
|
|
"127.0.0.1" 0 <inet4> <datagram> &dispose
|
|
|
|
|
"127.0.0.1" 0 <inet4> <datagram> &dispose
|
2011-08-26 20:18:08 -04:00
|
|
|
[ send/recv ] 2curry each
|
|
|
|
|
] with-destructors ;
|
|
|
|
|
|
2011-10-15 13:52:07 -04:00
|
|
|
|
2011-10-17 20:47:28 -04:00
|
|
|
: udp-echo0 ( -- ) 10,000 1 udp-echo ;
|
2011-10-15 13:52:07 -04:00
|
|
|
|
|
|
|
|
MAIN: udp-echo0
|
