steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cbor: support write of bignums.

clean-linux-x86-64
John Benediktsson 2019-08-20 09:13:26 -07:00
parent a7447cd783
commit 56fbf4643d
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/cbor/cbor.factor
View File

@ -111,6 +111,11 @@ M: +cbor-undefined+ write-cbor drop 0xf7 write1 ;
{ [ over 0xffff <= ] [ 25 bitor write1 2 >be write ] } { [ over 0xffff <= ] [ 25 bitor write1 2 >be write ] }
{ [ over 0xffffffff <= ] [ 26 bitor write1 4 >be write ] } { [ over 0xffffffff <= ] [ 26 bitor write1 4 >be write ] }
{ [ over 0xffffffffffffffff <= ] [ 27 bitor write1 8 >be write ] } { [ over 0xffffffffffffffff <= ] [ 27 bitor write1 8 >be write ] }
[
-5 shift 2 + 0xc0 bitor write1
dup bit-length 8 /mod zero? [ 1 + ] unless
>be write-cbor
]
} cond ; } cond ;
M: integer write-cbor M: integer write-cbor