(parse-interpolate) ( str -- )

Vocabulary

functors.private

Inputs

str

an object

Outputs

None

Definition

USING: io kernel make present sequences splitting strings
vocabs.parser ;

IN: functors.private

: (parse-interpolate) ( str -- )
    [
        "${" split1-slice
        [ [ >string [ write ] curry , ] unless-empty ] [
            [
                "}" split1-slice [
                    >string
                    [ search ] [ ~quotation~ ] [ ~quotation~ ]
                    ?if curry [ present write ] compose ,
                ] [ (parse-interpolate) ] bi*
            ] when*
        ] bi*
    ] unless-empty ;