check-status ( header -- )

Vocabulary

memcached.private

Inputs

header

an object

Outputs

None

Definition

USING: combinators kernel memcached sequences ;

IN: memcached.private

: check-status ( header -- )
    [ 5 ] dip nth {
        { NOT_FOUND [ key-not-found ] }
        { EXISTS [ key-exists ] }
        { TOO_LARGE [ value-too-large ] }
        { INVALID_ARGS [ invalid-arguments ] }
        { NOT_STORED [ item-not-stored ] }
        { NOT_NUMERIC [ value-not-numeric ] }
        { UNKNOWN_CMD [ unknown-command ] }
        { MEMORY [ out-of-memory ] }
        [ drop ]
    } case ;