handle-data ( data inet4 broadcast-server -- )

Vocabulary

broadcast-server

Inputs

data	an object
inet4	an object
broadcast-server	an object

Outputs

None

Definition

USING: accessors assocs combinators io kernel prettyprint
sequences ;

IN: broadcast-server

: handle-data ( data inet4 broadcast-server -- )
    [ received>> push-at ] [
        [ . ] dip swap dup ... first unclip-last {
            { data [ 2drop ] }
            { command [ run-command swap send-broadcast-data ] }
            [ unparse "unknown command: " prepend print 2drop ]
        } case nl
    ] 3bi ;