receive-loop ( broadcast-server -- )

Vocabulary

broadcast-server

Inputs

broadcast-server

an object

Outputs

None

Definition

USING: accessors destructors io.encodings.string
io.encodings.utf8 io.sockets kernel parser splitting threads ;

IN: broadcast-server

: receive-loop ( broadcast-server -- )
    [
        dup should-stop?>>
        [ dispose f ] [
            [
                receive-socket>> receive
                [ utf8 decode split-lines parse-lines ] dip
            ] keep handle-data t
        ] if
    ] curry [ loop ] curry in-thread ;