read-json-string ( stream -- str ) - Factor Documentation

read-json-string ( stream -- str )

Vocabulary
json .private

Inputs

stream an object

Outputs

str an object

Definition

USING: io kernel sbufs sequences ;

IN: json.private

: read-json-string ( stream -- str )
"\\\"" over stream-read-until 34 =
[ nip ] [ >sbuf (read-json-escape) "" like ] if ;