<tcp-echo> ( #times #bytes -- obj )


Vocabulary
benchmark.tcp-echo0

Inputs
#timesan object
#bytesan object


Outputs
objan object


Definition
USING: accessors io.encodings.binary io.servers io.sockets
kernel ;

IN: benchmark.tcp-echo0

: <tcp-echo> ( #times #bytes -- obj )
binary \ tcp-echo new-threaded-server swap >>#bytes
swap >>#times <any-port-local-inet4> >>insecure ;