| awkgram.y (170332) | awkgram.y (224731) |
|---|---|
| 1/**************************************************************** 2Copyright (C) Lucent Technologies 1997 3All Rights Reserved 4 5Permission to use, copy, modify, and distribute this software and 6its documentation for any purpose and without fee is hereby 7granted, provided that the above copyright notice appear in all 8copies and that both that the copyright notice and this --- 160 unchanged lines hidden (view full) --- 169 170pa_pat: 171 pattern { $$ = notnull($1); } 172 ; 173 174pa_stat: 175 pa_pat { $$ = stat2(PASTAT, $1, stat2(PRINT, rectonode(), NIL)); } 176 | pa_pat lbrace stmtlist '}' { $$ = stat2(PASTAT, $1, $3); } | 1/**************************************************************** 2Copyright (C) Lucent Technologies 1997 3All Rights Reserved 4 5Permission to use, copy, modify, and distribute this software and 6its documentation for any purpose and without fee is hereby 7granted, provided that the above copyright notice appear in all 8copies and that both that the copyright notice and this --- 160 unchanged lines hidden (view full) --- 169 170pa_pat: 171 pattern { $$ = notnull($1); } 172 ; 173 174pa_stat: 175 pa_pat { $$ = stat2(PASTAT, $1, stat2(PRINT, rectonode(), NIL)); } 176 | pa_pat lbrace stmtlist '}' { $$ = stat2(PASTAT, $1, $3); } |
| 177 | pa_pat ',' pa_pat { $$ = pa2stat($1, $3, stat2(PRINT, rectonode(), NIL)); } 178 | pa_pat ',' pa_pat lbrace stmtlist '}' { $$ = pa2stat($1, $3, $5); } | 177 | pa_pat ',' opt_nl pa_pat { $$ = pa2stat($1, $4, stat2(PRINT, rectonode(), NIL)); } 178 | pa_pat ',' opt_nl pa_pat lbrace stmtlist '}' { $$ = pa2stat($1, $4, $6); } |
| 179 | lbrace stmtlist '}' { $$ = stat2(PASTAT, NIL, $2); } 180 | XBEGIN lbrace stmtlist '}' 181 { beginloc = linkum(beginloc, $3); $$ = 0; } 182 | XEND lbrace stmtlist '}' 183 { endloc = linkum(endloc, $3); $$ = 0; } 184 | FUNC funcname '(' varlist rparen {infunc++;} lbrace stmtlist '}' 185 { infunc--; curfname=0; defn((Cell *)$2, $4, $8); $$ = 0; } 186 ; --- 300 unchanged lines hidden --- | 179 | lbrace stmtlist '}' { $$ = stat2(PASTAT, NIL, $2); } 180 | XBEGIN lbrace stmtlist '}' 181 { beginloc = linkum(beginloc, $3); $$ = 0; } 182 | XEND lbrace stmtlist '}' 183 { endloc = linkum(endloc, $3); $$ = 0; } 184 | FUNC funcname '(' varlist rparen {infunc++;} lbrace stmtlist '}' 185 { infunc--; curfname=0; defn((Cell *)$2, $4, $8); $$ = 0; } 186 ; --- 300 unchanged lines hidden --- |