test/reor2.lm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

##### LM #####
context undo

	lex
		ignore /[ ]+/
		literal `;
		token NL /'\n'/
		token id /[a-zA-Z_]+/
	end

	def item 
		[id]

	def start 
		[item* `; NL]
end

cons Undo: undo[]
parse Input: undo::start( Undo )[ stdin ]
print( Input )
##### IN #####
a b;
##### EXP #####
a b;