read-frame ( -- frame/f )

Vocabulary

stomp

Inputs

None

Outputs

frame/f

an object

Definition

USING: assocs combinators kernel math.parser sequences ;

IN: stomp

: read-frame ( -- frame/f )
    read-command {
        { [ dup not ] [ ] }
        { [ dup empty? ] [ drop read-frame ] }
        [
            read-headers dup "content-length" of
            string>number read-body frame boa stomp-debug
        ]
    } cond ;