(parse-interpolate) ( str -- )

Vocabulary

interpolate.private

Inputs

str

an object

Outputs

None

Definition

USING: arrays kernel make sequences splitting strings ;

IN: interpolate.private

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