write-query-message ( message -- )

Vocabulary

mongodb.operations.private

Inputs

message

an object

Outputs

None

Definition

USING: accessors bson bson.private combinators kernel ;

IN: mongodb.operations.private

: write-query-message ( message -- )
    [
        {
            [ flags>> write-int32 ]
            [ collection>> write-cstring ]
            [ skip#>> write-int32 ]
            [ return#>> write-int32 ]
            [ build-query-object assoc>stream ]
            [ returnfields>> [ assoc>stream ] when* ]
        } cleave
    ] (write-message) ; inline