read-websocket ( -- obj opcode loop? )

Vocabulary

http.websockets

Inputs

None

Outputs

obj	an object
opcode	an object
loop?	an object

Definition

USING: combinators continuations io kernel math.bitwise ;

IN: http.websockets

: read-websocket ( -- obj opcode loop? )
    [
        read1 [
            7 clear-bit [
                {
                    { f ~quotation~ }
                    { 0 ~quotation~ }
                    { 1 ~quotation~ }
                    { 2 ~quotation~ }
                    { 8 ~quotation~ }
                    { 9 ~quotation~ }
                    { 10 ~quotation~ }
                    [ "fall-through" unimplemented-opcode ]
                } case
            ] keep swap
        ] [ f f f ] if*
    ] [ drop f f f ] recover ;