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

Vocabulary

mongodb.operations.private

Inputs

msg-stub

an object

Outputs

message

an 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 ;