1 ! Copyright (C) 2011 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
4 USING: accessors destructors fry io.binary io.sockets kernel
7 IN: benchmark.udp-echo0
9 : send/recv ( packet server client -- )
10 [ 2dup addr>> ] [ send ] bi* receive drop assert= ;
12 : udp-echo ( #times #bytes -- )
15 "127.0.0.1" 0 <inet4> <datagram> &dispose
16 "127.0.0.1" 0 <inet4> <datagram> &dispose
17 [ send/recv ] 2curry each
21 : udp-echo0-benchmark ( -- ) 10,000 1 udp-echo ;
23 MAIN: udp-echo0-benchmark