find-escapes ( str -- set )

Vocabulary

escape-strings

Inputs

str

an object

Outputs

set

an object

Definition

USING: combinators kernel math sequences sets ;

IN: escape-strings

: find-escapes ( str -- set )
    [ HS{ } clone 0 0 ] dip [
        {
            { 93 [ 1 + dup 2 = [ drop over adjoin 0 1 ] when ] }
            { 61 [ dup 1 = [ ~quotation~ dip ] when ] }
            [ 3drop 0 0 ]
        } case
    ] each 0 > [ over adjoin ] [ drop ] if ;