write-integer ( n type -- ) - Factor Documentation

USING: cbor combinators endian io kernel math ;

IN: cbor.private

: write-integer ( n type -- )
5 shift {
{ [ over 24 < ] [ bitor write1 ] }
{ [ over 255 <= ] [ 24 bitor write1 write1 ] }
{ [ over 65535 <= ] [ 25 bitor write1 2 >be write ] }
{
[ over 4294967295 <= ]
[ 26 bitor write1 4 >be write ]
}
{
[ over 18446744073709551615 <= ]
[ 27 bitor write1 8 >be write ]
}
[
-5 shift 2 + 192 bitor write1
dup bit-length 8 /mod zero? [ 1 + ] unless >be
write-cbor
]
} cond ;