decode-utf16-surrogate-pair ( hex1 hex2 -- char )


Vocabulary
json.private

Inputs
hex1an object
hex2an object


Outputs
charan object


Definition
USING: kernel math ;

IN: json.private

: decode-utf16-surrogate-pair ( hex1 hex2 -- char )
[ 1023 bitand ] bi@ [ 10 shift ] dip bitor 65536 + ;