bson-binary-read ( -- binary )

Vocabulary

bson.private

Inputs

None

Outputs

binary

an object

Definition

USING: bson bson.constants combinators io kernel serialize
strings ;

IN: bson.private

: bson-binary-read ( -- binary )
    read-int32 read-byte {
        { T_Binary_Default [ read ] }
        { T_Binary_Bytes_Deprecated [ drop read-int32 read ] }
        { T_Binary_Custom [ read bytes>object ] }
        { T_Binary_Function [ read-sized-string ] }
        { T_Binary_MD5 [ read >string ] }
        { T_Binary_UUID [ read >string ] }
        [ "unknown binary sub-type" unknown-bson-type ]
    } case ; inline