server-loop ( server -- )

Vocabulary

benchmark.sockets

Inputs

server

an object

Outputs

None

Definition

USING: destructors io io.sockets io.streams.duplex kernel math
namespaces threads ;

IN: benchmark.sockets

: server-loop ( server -- )
    dup accept drop [
        [
            read1 120 =
            [ server get dispose ]
            [ number-of-requests [ read1 write1 flush ] times ]
            if
        ] with-stream
    ] curry "Client handler" spawn drop server-loop ;