stream-read-edn-object ( stream elt -- object/f )

Vocabulary

edn.private

Inputs

stream	an object
elt	an object

Outputs

object/f

an object

Definition

USING: ascii combinators edn io kernel sequences ;

IN: edn.private

: stream-read-edn-object ( stream elt -- object/f )
    {
        { f [ drop edn-eof ] }
        { 58 [ stream-read-edn-keyword ] }
        { 35 [ stream-read-edn-ident ] }
        { 123 [ stream-read-edn-map ] }
        { 40 [ stream-read-edn-list ] }
        { 91 [ stream-read-edn-vector ] }
        {
            59
            [
                [ stream-readln drop ]
                [ stream-read-edn-unsafe ] bi
            ]
        }
        { 92 [ stream-read-edn-char ] }
        { 34 [ stream-read-edn-string ] }
        { 32 [ stream-read-edn-unsafe ] }
        { 9 [ stream-read-edn-unsafe ] }
        { 13 [ stream-read-edn-unsafe ] }
        { 10 [ stream-read-edn-unsafe ] }
        { 110 [ "il" swap edn-expect null ] }
        { 116 [ "rue" swap edn-expect t ] }
        { 102 [ "alse" swap edn-expect f ] }
        [
            [ stream-read-token ] dip
            [ prefix ] [ [ digit? ] [ "+-" member? ] bi or ] bi
            [ edn-number ] [ symbol boa ] if
        ]
    } case ;