write-array-header ( n -- )

Vocabulary

msgpack.private

Inputs

n

an object

Outputs

None

Definition

USING: combinators endian io kernel math msgpack ;

IN: msgpack.private

: write-array-header ( n -- )
    {
        { [ dup 15 <= ] [ 144 bitor write1 ] }
        { [ dup 65535 <= ] [ 220 write1 2 >be write ] }
        { [ dup 4294967295 <= ] [ 221 write1 4 >be write ] }
        [ cannot-convert ]
    } cond ;