summaryrefslogtreecommitdiff
path: root/test/treecmp1.lm
blob: 016beed39ade0c588e570acd297eb412898fb4b1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
rl ident_pattern /[a-zA-Z_][a-zA-Z_0-9]*/
rl number_pattern /[0-9]+/

lex start
{
	ignore /[ \t\n]+/
	token id /ident_pattern/
	token number /number_pattern/
}

def four_ids
	[id id id id]

B: id = construct id "b"
Input: four_ids = parse four_ids( stdin )

for Id: id in Input {
	if ( Id == B )
		print( B, '\n' )
}