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