stream-read-edn-char ( stream -- char )

Vocabulary

edn.private

Inputs

stream

an object

Outputs

char

an object

Definition

USING: combinators kernel math.parser sequences splitting ;

IN: edn.private

: stream-read-edn-char ( stream -- char )
    stream-read-token {
        { "newline" [ 10 ] }
        { "return" [ 13 ] }
        { "space" [ 32 ] }
        { "tab" [ 9 ] }
        [ "u" ?head [ hex> ] [ first ] if ]
    } case ;