1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: io kernel macros make multiline namespaces parser
4 peg.ebnf present sequences strings ;
7 MACRO: interpolate ( string -- )
9 var = "${" [^}]+ "}" => [[ second >string [ get present write ] curry ]]
10 text = [^$]+ => [[ >string [ write ] curry ]]
11 interpolate = (var|text)* => [[ [ ] join ]]
14 EBNF: interpolate-locals
15 var = "${" [^}]+ "}" => [[ [ second >string search , [ present write ] % ] [ ] make ]]
16 text = [^$]+ => [[ [ >string , [ write ] % ] [ ] make ]]
17 interpolate = (var|text)* => [[ [ ] join ]]
20 : I[ "]I" parse-multiline-string
21 interpolate-locals parsed \ call parsed ; parsing