28 lines
832 B
Factor
28 lines
832 B
Factor
|
! Copyright (C) 2009 Bruno Deferrari
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: combinators io kernel math math.parser sequences ;
|
||
|
|
IN: redis.response-parser
|
||
|
|
|
||
|
|
<PRIVATE
|
||
|
|
|
||
|
|
: read-bulk ( n -- bytes ) dup 0 < [ drop f ] [ read 2 read drop ] if ;
|
||
|
|
: (read-multi-bulk) ( -- bytes ) readln rest string>number read-bulk ;
|
||
|
|
: read-multi-bulk ( n -- seq/f )
|
||
|
|
dup 0 < [ drop f ] [
|
||
|
|
iota [ drop (read-multi-bulk) ] map
|
||
|
|
] if ;
|
||
|
|
|
||
|
|
: handle-response ( string -- string ) ; ! TODO
|
||
|
|
: handle-error ( string -- string ) ; ! TODO
|
||
|
|
|
||
|
|
PRIVATE>
|
||
|
|
|
||
|
|
: read-response ( -- response )
|
||
|
|
readln unclip {
|
||
|
|
{ CHAR: : [ string>number ] }
|
||
|
|
{ CHAR: + [ handle-response ] }
|
||
|
|
{ CHAR: $ [ string>number read-bulk ] }
|
||
|
|
{ CHAR: * [ string>number read-multi-bulk ] }
|
||
|
|
{ CHAR: - [ handle-error ] }
|
||
|
|
} case ;
|