(read-json-escape) ( stream accum -- accum )

Vocabulary

json.private

Inputs

stream	an object
accum	an object

Outputs

accum

an object

Definition

USING: combinators io json kernel kernel.private sbufs sequences
;

IN: json.private

: (read-json-escape) ( stream accum -- accum )
    { sbuf } declare over stream-read1 {
        { 34 [ 34 ] }
        { 92 [ 92 ] }
        { 47 [ 47 ] }
        { 98 [ 8 ] }
        { 102 [ 12 ] }
        { 110 [ 10 ] }
        { 114 [ 13 ] }
        { 116 [ 9 ] }
        { 117 [ over read-json-escape-unicode ] }
        [ ]
    } case [ suffix! (read-json-string) ] [ json-error ] if* ;