xref: /aosp_15_r20/external/antlr/runtime/Python/tests/t022scopes.g (revision 16467b971bd3e2009fad32dd79016f2c7e421deb)
1*16467b97STreehugger Robotgrammar t022scopes;
2*16467b97STreehugger Robot
3*16467b97STreehugger Robotoptions {
4*16467b97STreehugger Robot    language=Python;
5*16467b97STreehugger Robot}
6*16467b97STreehugger Robot
7*16467b97STreehugger Robot/* global scopes */
8*16467b97STreehugger Robot
9*16467b97STreehugger Robotscope aScope {
10*16467b97STreehugger Robotnames
11*16467b97STreehugger Robot}
12*16467b97STreehugger Robot
13*16467b97STreehugger Robota
14*16467b97STreehugger Robotscope aScope;
15*16467b97STreehugger Robot    :   {$aScope::names = [];} ID*
16*16467b97STreehugger Robot    ;
17*16467b97STreehugger Robot
18*16467b97STreehugger Robot
19*16467b97STreehugger Robot/* rule scopes, from the book, final beta, p.147 */
20*16467b97STreehugger Robot
21*16467b97STreehugger Robotb[v]
22*16467b97STreehugger Robotscope {x}
23*16467b97STreehugger Robot    : {$b::x = v;} b2
24*16467b97STreehugger Robot    ;
25*16467b97STreehugger Robot
26*16467b97STreehugger Robotb2
27*16467b97STreehugger Robot    : b3
28*16467b97STreehugger Robot    ;
29*16467b97STreehugger Robot
30*16467b97STreehugger Robotb3
31*16467b97STreehugger Robot    : {$b::x}?=> ID // only visible, if b was called with True
32*16467b97STreehugger Robot    | NUM
33*16467b97STreehugger Robot    ;
34*16467b97STreehugger Robot
35*16467b97STreehugger Robot
36*16467b97STreehugger Robot/* rule scopes, from the book, final beta, p.148 */
37*16467b97STreehugger Robot
38*16467b97STreehugger Robotc returns [res]
39*16467b97STreehugger Robotscope {
40*16467b97STreehugger Robot    symbols
41*16467b97STreehugger Robot}
42*16467b97STreehugger Robot@init {
43*16467b97STreehugger Robot    $c::symbols = set();
44*16467b97STreehugger Robot}
45*16467b97STreehugger Robot    : '{' c1* c2+ '}'
46*16467b97STreehugger Robot        { $res = $c::symbols; }
47*16467b97STreehugger Robot    ;
48*16467b97STreehugger Robot
49*16467b97STreehugger Robotc1
50*16467b97STreehugger Robot    : 'int' ID {$c::symbols.add($ID.text)} ';'
51*16467b97STreehugger Robot    ;
52*16467b97STreehugger Robot
53*16467b97STreehugger Robotc2
54*16467b97STreehugger Robot    : ID '=' NUM ';'
55*16467b97STreehugger Robot        {
56*16467b97STreehugger Robot            if $ID.text not in $c::symbols:
57*16467b97STreehugger Robot                raise RuntimeError($ID.text)
58*16467b97STreehugger Robot        }
59*16467b97STreehugger Robot    ;
60*16467b97STreehugger Robot
61*16467b97STreehugger Robot/* recursive rule scopes, from the book, final beta, p.150 */
62*16467b97STreehugger Robot
63*16467b97STreehugger Robotd returns [res]
64*16467b97STreehugger Robotscope {
65*16467b97STreehugger Robot    symbols
66*16467b97STreehugger Robot}
67*16467b97STreehugger Robot@init {
68*16467b97STreehugger Robot    $d::symbols = set();
69*16467b97STreehugger Robot}
70*16467b97STreehugger Robot    : '{' d1* d2* '}'
71*16467b97STreehugger Robot        { $res = $d::symbols; }
72*16467b97STreehugger Robot    ;
73*16467b97STreehugger Robot
74*16467b97STreehugger Robotd1
75*16467b97STreehugger Robot    : 'int' ID {$d::symbols.add($ID.text)} ';'
76*16467b97STreehugger Robot    ;
77*16467b97STreehugger Robot
78*16467b97STreehugger Robotd2
79*16467b97STreehugger Robot    : ID '=' NUM ';'
80*16467b97STreehugger Robot        {
81*16467b97STreehugger Robot            for s in reversed(range(len($d))):
82*16467b97STreehugger Robot                if $ID.text in $d[s]::symbols:
83*16467b97STreehugger Robot                    break
84*16467b97STreehugger Robot            else:
85*16467b97STreehugger Robot                raise RuntimeError($ID.text)
86*16467b97STreehugger Robot        }
87*16467b97STreehugger Robot    | d
88*16467b97STreehugger Robot    ;
89*16467b97STreehugger Robot
90*16467b97STreehugger Robot/* recursive rule scopes, access bottom-most scope */
91*16467b97STreehugger Robot
92*16467b97STreehugger Robote returns [res]
93*16467b97STreehugger Robotscope {
94*16467b97STreehugger Robot    a
95*16467b97STreehugger Robot}
96*16467b97STreehugger Robot@after {
97*16467b97STreehugger Robot    $res = $e::a;
98*16467b97STreehugger Robot}
99*16467b97STreehugger Robot    : NUM { $e[0]::a = int($NUM.text); }
100*16467b97STreehugger Robot    | '{' e '}'
101*16467b97STreehugger Robot    ;
102*16467b97STreehugger Robot
103*16467b97STreehugger Robot
104*16467b97STreehugger Robot/* recursive rule scopes, access with negative index */
105*16467b97STreehugger Robot
106*16467b97STreehugger Robotf returns [res]
107*16467b97STreehugger Robotscope {
108*16467b97STreehugger Robot    a
109*16467b97STreehugger Robot}
110*16467b97STreehugger Robot@after {
111*16467b97STreehugger Robot    $res = $f::a;
112*16467b97STreehugger Robot}
113*16467b97STreehugger Robot    : NUM { $f[-2]::a = int($NUM.text); }
114*16467b97STreehugger Robot    | '{' f '}'
115*16467b97STreehugger Robot    ;
116*16467b97STreehugger Robot
117*16467b97STreehugger Robot
118*16467b97STreehugger Robot/* tokens */
119*16467b97STreehugger Robot
120*16467b97STreehugger RobotID  :   ('a'..'z')+
121*16467b97STreehugger Robot    ;
122*16467b97STreehugger Robot
123*16467b97STreehugger RobotNUM :   ('0'..'9')+
124*16467b97STreehugger Robot    ;
125*16467b97STreehugger Robot
126*16467b97STreehugger RobotWS  :   (' '|'\n'|'\r')+ {$channel=HIDDEN}
127*16467b97STreehugger Robot    ;
128