write-map-header ( n -- ) - Factor Documentation

USING: combinators endian io kernel math msgpack ;

IN: msgpack.private

: write-map-header ( n -- )
{
{ [ dup 15 <= ] [ 128 bitor write1 ] }
{ [ dup 65535 <= ] [ 222 write1 2 >be write ] }
{ [ dup 4294967295 <= ] [ 223 write1 4 >be write ] }
[ cannot-convert ]
} cond ;