read-response ( -- response )

Vocabulary

redis.response-parser

Inputs

None

Outputs

response

an object

Definition

USING: combinators io.encodings.string io.encodings.utf8 kernel
redis.response-parser.private sequences ;

IN: redis.response-parser

: read-response ( -- response )
    read-line unclip {
        { 43 [ utf8 decode <redis-response> ] }
        { 45 [ utf8 decode redis-error ] }
        { 58 [ line>number ] }
        { 36 [ line>number read-bulk ] }
        { 42 [ line>number read-aggregate ] }
        { 95 [ drop f ] }
        { 35 [ utf8 decode "t" = ] }
        { 44 [ utf8 decode parse-double ] }
        { 40 [ line>number ] }
        { 61 [ line>number read-verbatim ] }
        { 33 [ line>number read-blob-error ] }
        { 37 [ line>number read-map ] }
        { 126 [ line>number read-aggregate ] }
        { 62 [ line>number read-aggregate ] }
        { 124 [ line>number read-attribute ] }
    } case ;