(unescape-string) ( accum str i/f -- accum )

Vocabulary

strings.parser.private

Inputs

accum	an object
str	an object
i/f	an object

Outputs

accum

an object

Definition

USING: kernel kernel.private sbufs sequences ;

IN: strings.parser.private

: (unescape-string) ( accum str i/f -- accum )
    { sbuf object object } declare [
        cut-slice [ append! ] dip rest-slice next-escape
        [ [ suffix! ] when* ] dip 92 over index
        (unescape-string)
    ] [ append! ] if* ;