read-message ( -- message )

Vocabulary

bittorrent

Inputs

None

Outputs

message

an object

Definition

USING: combinators io kernel ;

IN: bittorrent

: read-message ( -- message )
    read-int {
        { f [ f ] }
        { 0 [ keep-alive boa ] }
        [ read [ parse-message ] [ f ] if* ]
    } case ;