parse-value ( string -- remain value )

Vocabulary

txon.private

Inputs

string

an object

Outputs

remain	an object
value	an object

Definition

USING: kernel math sequences unicode ;

IN: txon.private

: parse-value ( string -- remain value )
    dup find-` [
        dup 1 - pick ?nth 58 =
        [ drop name/values ] [ cut swap (parse-value) ] if
        [ rest [ blank? ] trim-head ] dip
    ] [ f swap ] if* ;