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