next-escape ( str -- ch str' )

Vocabulary

pickle.private

Inputs

str

an object

Outputs

ch	an object
str'	an object

Definition

USING: combinators kernel math.parser sequences ;

IN: pickle.private

: next-escape ( str -- ch str' )
    oct-escape over [
        nip unclip-slice {
            { 120 [ 2 cut-slice [ hex> ] dip ] }
            { 117 [ 4 cut-slice [ hex> ] dip ] }
            { 85 [ 8 cut-slice [ hex> ] dip ] }
            { 10 [ f swap ] }
            [ escape swap ]
        } case
    ] unless ;