get-read-payload-length ( -- length masked? )

Vocabulary

http.websockets

Inputs

None

Outputs

length	an object
masked?	an object

Definition

USING: combinators endian io kernel math math.bitwise ;

IN: http.websockets

: get-read-payload-length ( -- length masked? )
    read1 [
        {
            { [ dup 125 <= ] [ ] }
            { [ dup 126 = ] [ drop 2 read be> ] }
            { [ dup 127 = ] [ drop 8 read be> ] }
        } cond
    ] [ 128 mask? ] bi ;