reply-read-message ( msg-stub -- message )


Vocabulary
mongodb.operations.private

Inputs
msg-stuban object


Outputs
messagean object


Definition
USING: accessors bson kernel math mongodb.msg sequences ;

IN: mongodb.operations.private

: reply-read-message ( msg-stub -- message )
[ <mdb-reply-msg> ] dip copy-header read-longlong >>cursor
read-int32 >>start# read-int32 [ >>returned# ] keep
[ H{ } clone stream>assoc ] collector [ times ] dip
>>objects ;