write-json-generic-escape-surrogate-pair ( stream char -- stream )

Vocabulary

json.private

Inputs

stream	an object
char	an object

Outputs

stream

an object

Definition

USING: formatting io io.encodings.utf16.private kernel math ;

IN: json.private

: write-json-generic-escape-surrogate-pair
    ( stream char -- stream )
    65536 - [ encode-first ] [ encode-second ] bi
    "\\u%02x%02x\\u%02x%02x" sprintf over stream-write ;