read-json-escape-unicode ( stream -- char )

Vocabulary

json.private

Inputs

stream

an object

Outputs

char

an object

Definition

USING: kernel ;

IN: json.private

: read-json-escape-unicode ( stream -- char )
    [ stream-read-4hex ] keep over first-surrogate?
    [ read-second-surrogate decode-utf16-surrogate-pair ]
    [ drop ] if ;