forked from glen/fostr
10 lines
244 B
Plaintext
10 lines
244 B
Plaintext
module util
|
|
imports libstrategolib
|
|
|
|
rules
|
|
join(|infix) : [] -> ""
|
|
join(|infix) : [x | xs] -> <conc-strings>(x, <prejoin(|infix)>xs)
|
|
|
|
prejoin(|infix) : [] -> ""
|
|
prejoin(|infix) : [x | xs] -> <concat-strings>[infix,x,<prejoin(|infix)>xs]
|