m/getseq ( keys -- vals )

Vocabulary

memcached

Inputs

keys

an object

Outputs

vals

an object

Definition

USING: accessors assocs kernel math memcached.private sequences
;

IN: memcached

: m/getseq ( keys -- vals )
    [ H{ } clone ] dip
    [ <enumerated> [ m/getq ] assoc-each ]
    [ length 10 + NOOP <request> swap >>opaque send-request ] [
        <enumerated> [
            assoc-size 10 +
            [ read-header [ check-opaque ] 1check ] curry
        ] [
            [ [ [ 7 ] dip nth ] ] dip [ at ] curry compose
            [ [ [ read-body drop 4 tail ] ] ] dip
            [ bi pick set-at ] curry compose
        ] bi until drop
    ] tri ;