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
	ignore /space+/
	literal '*', '(', ')'
	token id /[a-zA-Z_]+/ 
end

def foo [id]

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

def start 
	[item*]

end ctx


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