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

fixed signed number decoding problem

db4
Sascha Matzke 2009-07-06 09:05:20 +02:00
parent 097487a9f3
commit ce9406ea86
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
extra/bson/reader/reader.factor
View File

@ -1,6 +1,6 @@
USING: accessors assocs bson.constants byte-arrays byte-vectors fry io USING: accessors assocs bson.constants calendar fry io io.binary
io.binary io.encodings.string io.encodings.utf8 kernel math namespaces io.encodings io.encodings.utf8 kernel math math.bitwise namespaces
sequences serialize arrays calendar io.encodings ; sequences serialize ;
FROM: kernel.private => declare ; FROM: kernel.private => declare ;
FROM: io.encodings.private => (read-until) ; FROM: io.encodings.private => (read-until) ;
@ -44,20 +44,17 @@ GENERIC: element-read ( type -- cont? )
GENERIC: element-data-read ( type -- object ) GENERIC: element-data-read ( type -- object )
GENERIC: element-binary-read ( length type -- object ) GENERIC: element-binary-read ( length type -- object )
: byte-array>number ( seq -- number )
byte-array>bignum >integer ; inline
: get-state ( -- state ) : get-state ( -- state )
state get ; inline state get ; inline
: read-int32 ( -- int32 ) : read-int32 ( -- int32 )
4 read byte-array>number ; inline 4 read signed-le> ; inline
: read-longlong ( -- longlong ) : read-longlong ( -- longlong )
8 read byte-array>number ; inline 8 read signed-le> ; inline
: read-double ( -- double ) : read-double ( -- double )
8 read byte-array>number bits>double ; inline 8 read le> bits>double ; inline
: read-byte-raw ( -- byte-raw ) : read-byte-raw ( -- byte-raw )
1 read ; inline 1 read ; inline