Commit | Line | Data |
---|---|---|
8d063cd8 | 1 | %{ |
79072805 | 2 | /* $RCSfile: a2p.y,v $$Revision: 4.1 $$Date: 92/08/07 18:29:12 $ |
a687059c | 3 | * |
4bb101f2 JH |
4 | * Copyright (C) 1991, 1992, 1993, 1994, 1996, 1997, 1999, 2000, |
5 | * by Larry Wall and others | |
a687059c | 6 | * |
2b317908 LW |
7 | * You may distribute under the terms of either the GNU General Public |
8 | * License or the Artistic License, as specified in the README file. | |
8d063cd8 LW |
9 | * |
10 | * $Log: a2p.y,v $ | |
8d063cd8 LW |
11 | */ |
12 | ||
13 | #include "INTERN.h" | |
14 | #include "a2p.h" | |
15 | ||
16 | int root; | |
a687059c LW |
17 | int begins = Nullop; |
18 | int ends = Nullop; | |
8d063cd8 LW |
19 | |
20 | %} | |
21 | %token BEGIN END | |
22 | %token REGEX | |
23 | %token SEMINEW NEWLINE COMMENT | |
a687059c | 24 | %token FUN1 FUNN GRGR |
2efaeb47 | 25 | %token PRINT PRINTF SPRINTF_OLD SPRINTF_NEW SPLIT |
8d063cd8 | 26 | %token IF ELSE WHILE FOR IN |
a687059c LW |
27 | %token EXIT NEXT BREAK CONTINUE RET |
28 | %token GETLINE DO SUB GSUB MATCH | |
29 | %token FUNCTION USERFUN DELETE | |
8d063cd8 LW |
30 | |
31 | %right ASGNOP | |
a687059c | 32 | %right '?' ':' |
8d063cd8 LW |
33 | %left OROR |
34 | %left ANDAND | |
a687059c | 35 | %left IN |
8d063cd8 | 36 | %left NUMBER VAR SUBSTR INDEX |
a687059c LW |
37 | %left MATCHOP |
38 | %left RELOP '<' '>' | |
8d063cd8 LW |
39 | %left OR |
40 | %left STRING | |
41 | %left '+' '-' | |
42 | %left '*' '/' '%' | |
43 | %right UMINUS | |
a687059c LW |
44 | %left NOT |
45 | %right '^' | |
8d063cd8 | 46 | %left INCR DECR |
4cec2b33 | 47 | %left FIELD VFIELD SVFIELD |
8d063cd8 LW |
48 | |
49 | %% | |
50 | ||
a687059c LW |
51 | program : junk hunks |
52 | { root = oper4(OPROG,$1,begins,$2,ends); } | |
8d063cd8 LW |
53 | ; |
54 | ||
378cc40b | 55 | begin : BEGIN '{' maybe states '}' junk |
a687059c LW |
56 | { begins = oper4(OJUNK,begins,$3,$4,$6); in_begin = FALSE; |
57 | $$ = Nullop; } | |
8d063cd8 LW |
58 | ; |
59 | ||
378cc40b | 60 | end : END '{' maybe states '}' |
a687059c | 61 | { ends = oper3(OJUNK,ends,$3,$4); $$ = Nullop; } |
8d063cd8 LW |
62 | | end NEWLINE |
63 | { $$ = $1; } | |
8d063cd8 LW |
64 | ; |
65 | ||
66 | hunks : hunks hunk junk | |
67 | { $$ = oper3(OHUNKS,$1,$2,$3); } | |
68 | | /* NULL */ | |
69 | { $$ = Nullop; } | |
70 | ; | |
71 | ||
72 | hunk : patpat | |
73 | { $$ = oper1(OHUNK,$1); need_entire = TRUE; } | |
378cc40b LW |
74 | | patpat '{' maybe states '}' |
75 | { $$ = oper2(OHUNK,$1,oper2(OJUNK,$3,$4)); } | |
a687059c LW |
76 | | FUNCTION USERFUN '(' arg_list ')' maybe '{' maybe states '}' |
77 | { fixfargs($2,$4,0); $$ = oper5(OUSERDEF,$2,$4,$6,$8,$9); } | |
378cc40b LW |
78 | | '{' maybe states '}' |
79 | { $$ = oper2(OHUNK,Nullop,oper2(OJUNK,$2,$3)); } | |
a687059c LW |
80 | | begin |
81 | | end | |
82 | ; | |
83 | ||
84 | arg_list: expr_list | |
85 | { $$ = rememberargs($$); } | |
8d063cd8 LW |
86 | ; |
87 | ||
449aadca | 88 | patpat : cond |
8d063cd8 | 89 | { $$ = oper1(OPAT,$1); } |
449aadca | 90 | | cond ',' cond |
8d063cd8 LW |
91 | { $$ = oper2(ORANGE,$1,$3); } |
92 | ; | |
93 | ||
8d063cd8 LW |
94 | cond : expr |
95 | | match | |
96 | | rel | |
97 | | compound_cond | |
2304df62 AD |
98 | | cond '?' expr ':' expr |
99 | { $$ = oper3(OCOND,$1,$3,$5); } | |
8d063cd8 LW |
100 | ; |
101 | ||
102 | compound_cond | |
103 | : '(' compound_cond ')' | |
104 | { $$ = oper1(OCPAREN,$2); } | |
a687059c LW |
105 | | cond ANDAND maybe cond |
106 | { $$ = oper3(OCANDAND,$1,$3,$4); } | |
107 | | cond OROR maybe cond | |
108 | { $$ = oper3(OCOROR,$1,$3,$4); } | |
8d063cd8 LW |
109 | | NOT cond |
110 | { $$ = oper1(OCNOT,$2); } | |
111 | ; | |
112 | ||
113 | rel : expr RELOP expr | |
114 | { $$ = oper3(ORELOP,$2,$1,$3); } | |
a687059c LW |
115 | | expr '>' expr |
116 | { $$ = oper3(ORELOP,string(">",1),$1,$3); } | |
117 | | expr '<' expr | |
118 | { $$ = oper3(ORELOP,string("<",1),$1,$3); } | |
8d063cd8 LW |
119 | | '(' rel ')' |
120 | { $$ = oper1(ORPAREN,$2); } | |
121 | ; | |
122 | ||
a687059c LW |
123 | match : expr MATCHOP expr |
124 | { $$ = oper3(OMATCHOP,$2,$1,$3); } | |
125 | | expr MATCHOP REGEX | |
378cc40b | 126 | { $$ = oper3(OMATCHOP,$2,$1,oper1(OREGEX,$3)); } |
a687059c LW |
127 | | REGEX %prec MATCHOP |
128 | { $$ = oper1(OREGEX,$1); } | |
8d063cd8 LW |
129 | | '(' match ')' |
130 | { $$ = oper1(OMPAREN,$2); } | |
131 | ; | |
132 | ||
133 | expr : term | |
134 | { $$ = $1; } | |
135 | | expr term | |
136 | { $$ = oper2(OCONCAT,$1,$2); } | |
c822f08a CS |
137 | | expr '?' expr ':' expr |
138 | { $$ = oper3(OCOND,$1,$3,$5); } | |
87250799 | 139 | | variable ASGNOP cond |
4cec2b33 BD |
140 | { |
141 | $$ = oper3(OASSIGN,$2,$1,$3); | |
142 | if ((ops[$1].ival & 255) == OFLD) | |
143 | lval_field = TRUE; | |
144 | else if ((ops[$1].ival & 255) == OVFLD) | |
145 | lval_field = TRUE; | |
8d063cd8 LW |
146 | } |
147 | ; | |
148 | ||
2efaeb47 AD |
149 | sprintf : SPRINTF_NEW |
150 | | SPRINTF_OLD ; | |
151 | ||
8d063cd8 LW |
152 | term : variable |
153 | { $$ = $1; } | |
a687059c LW |
154 | | NUMBER |
155 | { $$ = oper1(ONUM,$1); } | |
156 | | STRING | |
157 | { $$ = oper1(OSTR,$1); } | |
8d063cd8 LW |
158 | | term '+' term |
159 | { $$ = oper2(OADD,$1,$3); } | |
160 | | term '-' term | |
a687059c | 161 | { $$ = oper2(OSUBTRACT,$1,$3); } |
8d063cd8 LW |
162 | | term '*' term |
163 | { $$ = oper2(OMULT,$1,$3); } | |
164 | | term '/' term | |
165 | { $$ = oper2(ODIV,$1,$3); } | |
166 | | term '%' term | |
167 | { $$ = oper2(OMOD,$1,$3); } | |
a687059c LW |
168 | | term '^' term |
169 | { $$ = oper2(OPOW,$1,$3); } | |
170 | | term IN VAR | |
171 | { $$ = oper2(ODEFINED,aryrefarg($3),$1); } | |
8d063cd8 | 172 | | variable INCR |
4cec2b33 BD |
173 | { |
174 | $$ = oper1(OPOSTINCR,$1); | |
175 | if ((ops[$1].ival & 255) == OFLD) | |
176 | lval_field = TRUE; | |
177 | else if ((ops[$1].ival & 255) == OVFLD) | |
178 | lval_field = TRUE; | |
179 | } | |
8d063cd8 | 180 | | variable DECR |
4cec2b33 BD |
181 | { |
182 | $$ = oper1(OPOSTDECR,$1); | |
183 | if ((ops[$1].ival & 255) == OFLD) | |
184 | lval_field = TRUE; | |
185 | else if ((ops[$1].ival & 255) == OVFLD) | |
186 | lval_field = TRUE; | |
187 | } | |
8d063cd8 | 188 | | INCR variable |
4cec2b33 BD |
189 | { |
190 | $$ = oper1(OPREINCR,$2); | |
191 | if ((ops[$2].ival & 255) == OFLD) | |
192 | lval_field = TRUE; | |
193 | else if ((ops[$2].ival & 255) == OVFLD) | |
194 | lval_field = TRUE; | |
195 | } | |
8d063cd8 | 196 | | DECR variable |
4cec2b33 BD |
197 | { |
198 | $$ = oper1(OPREDECR,$2); | |
199 | if ((ops[$2].ival & 255) == OFLD) | |
200 | lval_field = TRUE; | |
201 | else if ((ops[$2].ival & 255) == OVFLD) | |
202 | lval_field = TRUE; | |
203 | } | |
8d063cd8 LW |
204 | | '-' term %prec UMINUS |
205 | { $$ = oper1(OUMINUS,$2); } | |
206 | | '+' term %prec UMINUS | |
207 | { $$ = oper1(OUPLUS,$2); } | |
449aadca | 208 | | '(' cond ')' |
8d063cd8 LW |
209 | { $$ = oper1(OPAREN,$2); } |
210 | | GETLINE | |
211 | { $$ = oper0(OGETLINE); } | |
bf10efe7 | 212 | | GETLINE variable |
a687059c LW |
213 | { $$ = oper1(OGETLINE,$2); } |
214 | | GETLINE '<' expr | |
215 | { $$ = oper3(OGETLINE,Nullop,string("<",1),$3); | |
216 | if (ops[$3].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; } | |
bf10efe7 | 217 | | GETLINE variable '<' expr |
a687059c LW |
218 | { $$ = oper3(OGETLINE,$2,string("<",1),$4); |
219 | if (ops[$4].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; } | |
220 | | term 'p' GETLINE | |
221 | { $$ = oper3(OGETLINE,Nullop,string("|",1),$1); | |
222 | if (ops[$1].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; } | |
bf10efe7 | 223 | | term 'p' GETLINE variable |
a687059c LW |
224 | { $$ = oper3(OGETLINE,$4,string("|",1),$1); |
225 | if (ops[$1].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; } | |
8d063cd8 LW |
226 | | FUN1 |
227 | { $$ = oper0($1); need_entire = do_chop = TRUE; } | |
228 | | FUN1 '(' ')' | |
229 | { $$ = oper1($1,Nullop); need_entire = do_chop = TRUE; } | |
230 | | FUN1 '(' expr ')' | |
231 | { $$ = oper1($1,$3); } | |
a687059c LW |
232 | | FUNN '(' expr_list ')' |
233 | { $$ = oper1($1,$3); } | |
234 | | USERFUN '(' expr_list ')' | |
235 | { $$ = oper2(OUSERFUN,$1,$3); } | |
2efaeb47 AD |
236 | | SPRINTF_NEW '(' expr_list ')' |
237 | { $$ = oper1(OSPRINTF,$3); } | |
238 | | sprintf expr_list | |
8d063cd8 LW |
239 | { $$ = oper1(OSPRINTF,$2); } |
240 | | SUBSTR '(' expr ',' expr ',' expr ')' | |
241 | { $$ = oper3(OSUBSTR,$3,$5,$7); } | |
242 | | SUBSTR '(' expr ',' expr ')' | |
243 | { $$ = oper2(OSUBSTR,$3,$5); } | |
244 | | SPLIT '(' expr ',' VAR ',' expr ')' | |
a687059c | 245 | { $$ = oper3(OSPLIT,$3,aryrefarg(numary($5)),$7); } |
7e1cf235 LW |
246 | | SPLIT '(' expr ',' VAR ',' REGEX ')' |
247 | { $$ = oper3(OSPLIT,$3,aryrefarg(numary($5)),oper1(OREGEX,$7));} | |
8d063cd8 | 248 | | SPLIT '(' expr ',' VAR ')' |
a687059c | 249 | { $$ = oper2(OSPLIT,$3,aryrefarg(numary($5))); } |
8d063cd8 LW |
250 | | INDEX '(' expr ',' expr ')' |
251 | { $$ = oper2(OINDEX,$3,$5); } | |
a687059c LW |
252 | | MATCH '(' expr ',' REGEX ')' |
253 | { $$ = oper2(OMATCH,$3,oper1(OREGEX,$5)); } | |
254 | | MATCH '(' expr ',' expr ')' | |
255 | { $$ = oper2(OMATCH,$3,$5); } | |
256 | | SUB '(' expr ',' expr ')' | |
257 | { $$ = oper2(OSUB,$3,$5); } | |
258 | | SUB '(' REGEX ',' expr ')' | |
259 | { $$ = oper2(OSUB,oper1(OREGEX,$3),$5); } | |
260 | | GSUB '(' expr ',' expr ')' | |
261 | { $$ = oper2(OGSUB,$3,$5); } | |
262 | | GSUB '(' REGEX ',' expr ')' | |
263 | { $$ = oper2(OGSUB,oper1(OREGEX,$3),$5); } | |
264 | | SUB '(' expr ',' expr ',' expr ')' | |
265 | { $$ = oper3(OSUB,$3,$5,$7); } | |
266 | | SUB '(' REGEX ',' expr ',' expr ')' | |
267 | { $$ = oper3(OSUB,oper1(OREGEX,$3),$5,$7); } | |
268 | | GSUB '(' expr ',' expr ',' expr ')' | |
269 | { $$ = oper3(OGSUB,$3,$5,$7); } | |
270 | | GSUB '(' REGEX ',' expr ',' expr ')' | |
271 | { $$ = oper3(OGSUB,oper1(OREGEX,$3),$5,$7); } | |
8d063cd8 LW |
272 | ; |
273 | ||
a687059c | 274 | variable: VAR |
8d063cd8 | 275 | { $$ = oper1(OVAR,$1); } |
a687059c LW |
276 | | VAR '[' expr_list ']' |
277 | { $$ = oper2(OVAR,aryrefarg($1),$3); } | |
8d063cd8 LW |
278 | | FIELD |
279 | { $$ = oper1(OFLD,$1); } | |
4cec2b33 BD |
280 | | SVFIELD |
281 | { $$ = oper1(OVFLD,oper1(OVAR,$1)); } | |
8d063cd8 LW |
282 | | VFIELD term |
283 | { $$ = oper1(OVFLD,$2); } | |
284 | ; | |
285 | ||
a687059c | 286 | expr_list |
8d063cd8 LW |
287 | : expr |
288 | | clist | |
289 | | /* NULL */ | |
290 | { $$ = Nullop; } | |
291 | ; | |
292 | ||
a687059c LW |
293 | clist : expr ',' maybe expr |
294 | { $$ = oper3(OCOMMA,$1,$3,$4); } | |
295 | | clist ',' maybe expr | |
296 | { $$ = oper3(OCOMMA,$1,$3,$4); } | |
8d063cd8 LW |
297 | | '(' clist ')' /* these parens are invisible */ |
298 | { $$ = $2; } | |
299 | ; | |
300 | ||
301 | junk : junk hunksep | |
302 | { $$ = oper2(OJUNK,$1,$2); } | |
303 | | /* NULL */ | |
304 | { $$ = Nullop; } | |
305 | ; | |
306 | ||
307 | hunksep : ';' | |
a687059c | 308 | { $$ = oper2(OJUNK,oper0(OSEMICOLON),oper0(ONEWLINE)); } |
8d063cd8 | 309 | | SEMINEW |
a687059c | 310 | { $$ = oper2(OJUNK,oper0(OSEMICOLON),oper0(ONEWLINE)); } |
8d063cd8 LW |
311 | | NEWLINE |
312 | { $$ = oper0(ONEWLINE); } | |
313 | | COMMENT | |
314 | { $$ = oper1(OCOMMENT,$1); } | |
315 | ; | |
316 | ||
378cc40b LW |
317 | maybe : maybe nlstuff |
318 | { $$ = oper2(OJUNK,$1,$2); } | |
319 | | /* NULL */ | |
320 | { $$ = Nullop; } | |
321 | ; | |
322 | ||
323 | nlstuff : NEWLINE | |
324 | { $$ = oper0(ONEWLINE); } | |
8d063cd8 | 325 | | COMMENT |
378cc40b LW |
326 | { $$ = oper1(OCOMMENT,$1); } |
327 | ; | |
328 | ||
329 | separator | |
330 | : ';' maybe | |
331 | { $$ = oper2(OJUNK,oper0(OSEMICOLON),$2); } | |
332 | | SEMINEW maybe | |
333 | { $$ = oper2(OJUNK,oper0(OSNEWLINE),$2); } | |
334 | | NEWLINE maybe | |
335 | { $$ = oper2(OJUNK,oper0(OSNEWLINE),$2); } | |
336 | | COMMENT maybe | |
337 | { $$ = oper2(OJUNK,oper1(OSCOMMENT,$1),$2); } | |
8d063cd8 LW |
338 | ; |
339 | ||
340 | states : states statement | |
341 | { $$ = oper2(OSTATES,$1,$2); } | |
342 | | /* NULL */ | |
343 | { $$ = Nullop; } | |
344 | ; | |
345 | ||
346 | statement | |
378cc40b LW |
347 | : simple separator maybe |
348 | { $$ = oper2(OJUNK,oper2(OSTATE,$1,$2),$3); } | |
349 | | ';' maybe | |
350 | { $$ = oper2(OSTATE,Nullop,oper2(OJUNK,oper0(OSEMICOLON),$2)); } | |
351 | | SEMINEW maybe | |
352 | { $$ = oper2(OSTATE,Nullop,oper2(OJUNK,oper0(OSNEWLINE),$2)); } | |
8d063cd8 LW |
353 | | compound |
354 | ; | |
355 | ||
378cc40b LW |
356 | simpnull: simple |
357 | | /* NULL */ | |
358 | { $$ = Nullop; } | |
359 | ; | |
360 | ||
8d063cd8 LW |
361 | simple |
362 | : expr | |
a687059c | 363 | | PRINT expr_list redir expr |
8d063cd8 LW |
364 | { $$ = oper3(OPRINT,$2,$3,$4); |
365 | do_opens = TRUE; | |
366 | saw_ORS = saw_OFS = TRUE; | |
367 | if (!$2) need_entire = TRUE; | |
368 | if (ops[$4].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; } | |
a687059c | 369 | | PRINT expr_list |
8d063cd8 LW |
370 | { $$ = oper1(OPRINT,$2); |
371 | if (!$2) need_entire = TRUE; | |
372 | saw_ORS = saw_OFS = TRUE; | |
373 | } | |
a687059c | 374 | | PRINTF expr_list redir expr |
8d063cd8 LW |
375 | { $$ = oper3(OPRINTF,$2,$3,$4); |
376 | do_opens = TRUE; | |
377 | if (!$2) need_entire = TRUE; | |
378 | if (ops[$4].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; } | |
a687059c | 379 | | PRINTF expr_list |
8d063cd8 LW |
380 | { $$ = oper1(OPRINTF,$2); |
381 | if (!$2) need_entire = TRUE; | |
382 | } | |
383 | | BREAK | |
384 | { $$ = oper0(OBREAK); } | |
385 | | NEXT | |
386 | { $$ = oper0(ONEXT); } | |
387 | | EXIT | |
388 | { $$ = oper0(OEXIT); } | |
389 | | EXIT expr | |
390 | { $$ = oper1(OEXIT,$2); } | |
391 | | CONTINUE | |
392 | { $$ = oper0(OCONTINUE); } | |
a687059c LW |
393 | | RET |
394 | { $$ = oper0(ORETURN); } | |
395 | | RET expr | |
396 | { $$ = oper1(ORETURN,$2); } | |
2304df62 | 397 | | DELETE VAR '[' expr_list ']' |
a687059c | 398 | { $$ = oper2(ODELETE,aryrefarg($2),$4); } |
8d063cd8 LW |
399 | ; |
400 | ||
a687059c | 401 | redir : '>' %prec FIELD |
7e1cf235 | 402 | { $$ = oper1(OREDIR,string(">",1)); } |
8d063cd8 LW |
403 | | GRGR |
404 | { $$ = oper1(OREDIR,string(">>",2)); } | |
405 | | '|' | |
406 | { $$ = oper1(OREDIR,string("|",1)); } | |
407 | ; | |
408 | ||
409 | compound | |
410 | : IF '(' cond ')' maybe statement | |
411 | { $$ = oper2(OIF,$3,bl($6,$5)); } | |
412 | | IF '(' cond ')' maybe statement ELSE maybe statement | |
413 | { $$ = oper3(OIF,$3,bl($6,$5),bl($9,$8)); } | |
414 | | WHILE '(' cond ')' maybe statement | |
415 | { $$ = oper2(OWHILE,$3,bl($6,$5)); } | |
a687059c LW |
416 | | DO maybe statement WHILE '(' cond ')' |
417 | { $$ = oper2(ODO,bl($3,$2),$6); } | |
378cc40b | 418 | | FOR '(' simpnull ';' cond ';' simpnull ')' maybe statement |
8d063cd8 | 419 | { $$ = oper4(OFOR,$3,$5,$7,bl($10,$9)); } |
378cc40b | 420 | | FOR '(' simpnull ';' ';' simpnull ')' maybe statement |
8d063cd8 | 421 | { $$ = oper4(OFOR,$3,string("",0),$6,bl($9,$8)); } |
a687059c LW |
422 | | FOR '(' expr ')' maybe statement |
423 | { $$ = oper2(OFORIN,$3,bl($6,$5)); } | |
378cc40b LW |
424 | | '{' maybe states '}' maybe |
425 | { $$ = oper3(OBLOCK,oper2(OJUNK,$2,$3),Nullop,$5); } | |
8d063cd8 LW |
426 | ; |
427 | ||
428 | %% | |
ff0cee69 | 429 | |
20ce7b12 | 430 | int yyparse (void); |
ff0cee69 | 431 | |
8d063cd8 | 432 | #include "a2py.c" |