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