unicode-escape ( str -- ch str' )

Vocabulary

strings.parser.private

Inputs

str

an object

Outputs

ch	an object
str'	an object

Definition

USING: combinators kernel math.parser namespaces sequences
splitting strings strings.parser ;

IN: strings.parser.private

: unicode-escape ( str -- ch str' )
    "{" ?head-slice [
        125 over index cut-slice [
            dup hex>
            [ nip ] [
                >string name>char-hook get ( name -- char )
                call-effect
            ] if*
        ] dip rest-slice
    ] [ 6 cut-slice [ hex> ] dip ] if ;