Handbook
Glossary
(parse-interpolate) ( str -- )
Vocabulary
interpolate.private
Inputs
str
an
object
Outputs
None
Definition
USING:
kernel
make
math
math.parser
sequences
splitting
strings
;
IN:
interpolate.private
:
(parse-interpolate)
( str -- )
[
"${"
split1-slice
[
[
>string
,
]
unless-empty
]
[
[
"}"
split1-slice
[
>string
[
string>number
]
[
1
+
stack-var
boa
]
[
~quotation~ ~quotation~
if-empty
]
?if
,
]
[
(parse-interpolate)
]
bi*
]
when*
]
bi*
]
unless-empty
;