parse-tnetstring ( data -- remain value )

Vocabulary

tnetstrings.private

Inputs

data

an object

Outputs

remain	an object
value	an object

Definition

USING: combinators formatting kernel math.parser ;

IN: tnetstrings.private

: parse-tnetstring ( data -- remain value )
    parse-payload {
        { 35 [ string>number ] }
        { 34 [ ] }
        { 125 [ parse-dict ] }
        { 93 [ parse-list ] }
        { 33 [ parse-bool ] }
        { 126 [ parse-null ] }
        { 44 [ ] }
        [ "Invalid payload type: %c" sprintf throw ]
    } case ;