next-escape ( str -- ch str' )

Vocabulary

strings.parser.private

Inputs

str

an object

Outputs

ch	an object
str'	an object

Definition

USING: combinators kernel sequences strings.parser ;

IN: strings.parser.private

: next-escape ( str -- ch str' )
    oct-escape over [
        nip unclip-slice {
            { 117 [ unicode-escape ] }
            { 120 [ hex-escape ] }
            { 10 [ f swap ] }
            [ escape swap ]
        } case
    ] unless ;