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


Vocabulary
json.private

Inputs
streaman object
accuman object


Outputs
accuman 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* ;