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 [
        [
            [
                [ [ ~quotation~ dip ] dip ] dip [ 0 0 ] 3curry
                compose
            ] dip
        ] dip
    ] dip [ ] 3curry compose "CCSCCSIIQ" pack-be write ;