1 # test for parser
2 
3 a
4 a b
5 a|b
6 a | b
7 {a; b; c}
8 x=y a && b || c
9 x=y a | b | c
10 x=y for(i) a | b
11 >x for(i) a | b
12 >x a || b && c
13 a >x || b && c
14 a | for(i) b | c
15 fn x {y; z} | b && c
16 if (x) y
17 if not z
18 `{} >x >[1=2]y >[3=] z <w
19 ~ x y && z
20 x | y && z
21 x | y || z
22 ! x | y | z
23 @ x | y | z
24 x | ! y | z
25 x | @y | z
26 ! x | if(y) z
27 @ x | if(y) z
28 x=1 y | if(z) w
29 a'b' c
30 a^'b'^ c
31 a^'b' c
32 $$x
33 $x($y)
34 $"x
35 $#x
36 $#$x
37 -$x-
38 `{a;b;c}
39 <{a;b}
40 x for in while if not ~ ! @ switch fn
41 x not$y
42 a;b;c
43 if(x)
44 y
45 if(x)
46 {
47 y
48 }
49 if not
50 z
51 for(x)
52 y
53 for(x in y)
54 z
55 while(x)
56 y
57 # yacc doesn't accept a newline before the brace
58 # even though the rule is written as if it would
59 switch x {
60 }
61 switch (x) {
62 }
63 z
64 x &&
65 y
66 x ||
67 y
68 x |
69 y
70 switch x {y} && z
71 switch x {} | y
72 
73 OPTIONS=$OPTIONS' /axescount '^`{echo $1 | sed s/-a//}^' def'
74 
75 # bug in old printfont script - expected more free carats
76 # OPTIONS=$OPTIONS' /axescount '`{echo $1 | sed s/-a//}' def'
77 
78 (x) = y
79 x=y
80 x = y
81 
82 # works now!
83 # x y=z
84 # x =y
85 # x -flag=y
86 
87 >z x | y
88 
89 # rejected now, was like parens were spaces before.
90 # echo Formatting Venti arenas and indices (this takes a while).
91 
92 
93 # echo $STATLINE(1)^$STATLINE(3)'	'$STATLINE(2)'	'$STATLINE(4)'	'$LSLINE(6)