test/accum2.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
25
26
27
28
29
30
31
32
33

context ctx
{
	i: int
	j: int
	k: int

	lex start
	{
		ignore /space+/
		literal '*', '(', ')'
		token id /[a-zA-Z_]+/ 
	}

	def foo [id]

	def item 
		[id]
	|	[foo]
	|	['(' item* ')']
		{
			i = 0
		}

	def start 
		[item*]
}


cons SP: parser<ctx::start> []
SP.ctx = cons ctx []
send SP stdin
Input: ctx::start = SP()
print( Input '\n' )