send-header ( request -- )

Vocabulary

memcached.private

Inputs

request

an object

Outputs

None

Definition

USING: accessors combinators io kernel math pack sequences ;

IN: memcached.private

: send-header ( request -- )
    {
        [ cmd>> ]
        [ key>> length ]
        [ extra>> length ]
        [
            [ key>> length ] [ extra>> length ] [ val>> length ]
            tri + +
        ]
        [ opaque>> ]
        [ cas>> ]
    } cleave '[ 128 _ _ _ 0 0 _ _ _ ] "CCSCCSIIQ" pack-be write
    ;