projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
perl 3.0 patch #3 Patch #2 continued
[p5sagit/p5-mst-13.2.git] / perl.y
CommitLineData
03a14243 1/* $Header: perl.y,v 3.0.1.1 89/10/26 23:20:41 lwall Locked $
a687059c 2 *
3 * Copyright (c) 1989, Larry Wall
4 *
5 * You may distribute under the terms of the GNU General Public License
6 * as specified in the README file that comes with the perl 3.0 kit.
8d063cd8 7 *
8 * $Log: perl.y,v $
03a14243 9 * Revision 3.0.1.1 89/10/26 23:20:41 lwall
10 * patch1: grandfathered "format stdout"
11 * patch1: operator(); is now normally equivalent to operator;
12 *
a687059c 13 * Revision 3.0 89/10/18 15:22:04 lwall
14 * 3.0 baseline
8d063cd8 15 *
16 */
17
18%{
8d063cd8 19#include "INTERN.h"
20#include "perl.h"
378cc40b 21
378cc40b 22STAB *scrstab;
a687059c 23ARG *arg4; /* rarely used arguments to make_op() */
24ARG *arg5;
378cc40b 25
8d063cd8 26%}
27
28%start prog
29
30%union {
31 int ival;
32 char *cval;
33 ARG *arg;
34 CMD *cmdval;
35 struct compcmd compval;
36 STAB *stabval;
37 FCMD *formval;
38}
39
40%token <cval> WORD
a687059c 41%token <ival> APPEND OPEN SELECT LOOPEX
378cc40b 42%token <ival> USING FORMAT DO SHIFT PUSH POP LVALFUN
a687059c 43%token <ival> WHILE UNTIL IF UNLESS ELSE ELSIF CONTINUE SPLIT FLIST
44%token <ival> FOR FILOP FILOP2 FILOP3 FILOP4 FILOP22 FILOP25
45%token <ival> FUNC0 FUNC1 FUNC2 FUNC3 HSHFUN HSHFUN3
46%token <ival> FLIST2 SUB FILETEST LOCAL DELETE
47%token <ival> RELOP EQOP MULOP ADDOP PACKAGE AMPER LFUNC4
8d063cd8 48%token <formval> FORMLIST
a687059c 49%token <stabval> REG ARYLEN ARY HSH STAR
8d063cd8 50%token <arg> SUBST PATTERN
51%token <arg> RSTRING TRANS
52
a687059c 53%type <ival> prog decl format remember
8d063cd8 54%type <stabval>
55%type <cmdval> block lineseq line loop cond sideff nexpr else
a687059c 56%type <arg> expr sexpr cexpr csexpr term handle aryword hshword
378cc40b 57%type <arg> texpr listop
8d063cd8 58%type <cval> label
59%type <compval> compblock
60
378cc40b 61%nonassoc <ival> LISTOP
8d063cd8 62%left ','
8d063cd8 63%right '='
64%right '?' ':'
65%nonassoc DOTDOT
66%left OROR
67%left ANDAND
68%left '|' '^'
69%left '&'
a687059c 70%nonassoc EQOP
71%nonassoc RELOP
378cc40b 72%nonassoc <ival> UNIOP
73%nonassoc FILETEST
8d063cd8 74%left LS RS
a687059c 75%left ADDOP
76%left MULOP
8d063cd8 77%left MATCH NMATCH
78%right '!' '~' UMINUS
a687059c 79%right POW
8d063cd8 80%nonassoc INC DEC
81%left '('
82
83%% /* RULES */
84
85prog : lineseq
a559c259 86 { if (in_eval)
87 eval_root = block_head($1);
88 else
89 main_root = block_head($1); }
8d063cd8 90 ;
91
92compblock: block CONTINUE block
93 { $$.comp_true = $1; $$.comp_alt = $3; }
94 | block else
95 { $$.comp_true = $1; $$.comp_alt = $2; }
96 ;
97
98else : /* NULL */
99 { $$ = Nullcmd; }
100 | ELSE block
101 { $$ = $2; }
102 | ELSIF '(' expr ')' compblock
378cc40b 103 { cmdline = $1;
a687059c 104 $$ = make_ccmd(C_ELSIF,$3,$5); }
8d063cd8 105 ;
106
a687059c 107block : '{' remember lineseq '}'
108 { $$ = block_head($3);
109 if (savestack->ary_fill > $2)
110 restorelist($2); }
111 ;
112
113remember: /* NULL */ /* in case they push a package name */
114 { $$ = savestack->ary_fill; }
8d063cd8 115 ;
116
117lineseq : /* NULL */
118 { $$ = Nullcmd; }
119 | lineseq line
120 { $$ = append_line($1,$2); }
121 ;
122
123line : decl
124 { $$ = Nullcmd; }
125 | label cond
126 { $$ = add_label($1,$2); }
127 | loop /* loops add their own labels */
128 | label ';'
129 { if ($1 != Nullch) {
378cc40b 130 $$ = add_label($1, make_acmd(C_EXPR, Nullstab,
8d063cd8 131 Nullarg, Nullarg) );
132 } else
133 $$ = Nullcmd; }
134 | label sideff ';'
135 { $$ = add_label($1,$2); }
136 ;
137
a687059c 138sideff : error
139 { $$ = Nullcmd; }
140 | expr
8d063cd8 141 { $$ = make_acmd(C_EXPR, Nullstab, $1, Nullarg); }
a687059c 142 | expr IF expr
8d063cd8 143 { $$ = addcond(
a687059c 144 make_acmd(C_EXPR, Nullstab, Nullarg, $1), $3); }
145 | expr UNLESS expr
146 { $$ = addcond(invert(
147 make_acmd(C_EXPR, Nullstab, Nullarg, $1)), $3); }
148 | expr WHILE expr
8d063cd8 149 { $$ = addloop(
a687059c 150 make_acmd(C_EXPR, Nullstab, Nullarg, $1), $3); }
151 | expr UNTIL expr
152 { $$ = addloop(invert(
153 make_acmd(C_EXPR, Nullstab, Nullarg, $1)), $3); }
8d063cd8 154 ;
155
156cond : IF '(' expr ')' compblock
378cc40b 157 { cmdline = $1;
a687059c 158 $$ = make_icmd(C_IF,$3,$5); }
8d063cd8 159 | UNLESS '(' expr ')' compblock
378cc40b 160 { cmdline = $1;
a687059c 161 $$ = invert(make_icmd(C_IF,$3,$5)); }
8d063cd8 162 | IF block compblock
378cc40b 163 { cmdline = $1;
164 $$ = make_ccmd(C_IF,cmd_to_arg($2),$3); }
8d063cd8 165 | UNLESS block compblock
378cc40b 166 { cmdline = $1;
167 $$ = invert(make_ccmd(C_IF,cmd_to_arg($2),$3)); }
8d063cd8 168 ;
169
170loop : label WHILE '(' texpr ')' compblock
378cc40b 171 { cmdline = $2;
172 $$ = wopt(add_label($1,
8d063cd8 173 make_ccmd(C_WHILE,$4,$6) )); }
174 | label UNTIL '(' expr ')' compblock
378cc40b 175 { cmdline = $2;
176 $$ = wopt(add_label($1,
8d063cd8 177 invert(make_ccmd(C_WHILE,$4,$6)) )); }
178 | label WHILE block compblock
378cc40b 179 { cmdline = $2;
180 $$ = wopt(add_label($1,
8d063cd8 181 make_ccmd(C_WHILE, cmd_to_arg($3),$4) )); }
182 | label UNTIL block compblock
378cc40b 183 { cmdline = $2;
184 $$ = wopt(add_label($1,
8d063cd8 185 invert(make_ccmd(C_WHILE, cmd_to_arg($3),$4)) )); }
378cc40b 186 | label FOR REG '(' expr ')' compblock
187 { cmdline = $2;
188 /*
189 * The following gobbledygook catches EXPRs that
190 * aren't explicit array refs and translates
191 * foreach VAR (EXPR) {
192 * into
193 * @ary = EXPR;
194 * foreach VAR (@ary) {
195 * where @ary is a hidden array made by genstab().
a687059c 196 * (Note that @ary may become a local array if
197 * it is determined that it might be called
198 * recursively. See cmd_tosave().)
378cc40b 199 */
200 if ($5->arg_type != O_ARRAY) {
201 scrstab = aadd(genstab());
202 $$ = append_line(
203 make_acmd(C_EXPR, Nullstab,
204 l(make_op(O_ASSIGN,2,
205 listish(make_op(O_ARRAY, 1,
206 stab2arg(A_STAB,scrstab),
207 Nullarg,Nullarg, 1)),
a687059c 208 listish(make_list($5)),
209 Nullarg)),
378cc40b 210 Nullarg),
211 wopt(over($3,add_label($1,
212 make_ccmd(C_WHILE,
213 make_op(O_ARRAY, 1,
214 stab2arg(A_STAB,scrstab),
a687059c 215 Nullarg,Nullarg ),
378cc40b 216 $7)))));
217 }
218 else {
219 $$ = wopt(over($3,add_label($1,
220 make_ccmd(C_WHILE,$5,$7) )));
221 }
222 }
223 | label FOR '(' expr ')' compblock
224 { cmdline = $2;
225 if ($4->arg_type != O_ARRAY) {
226 scrstab = aadd(genstab());
227 $$ = append_line(
228 make_acmd(C_EXPR, Nullstab,
229 l(make_op(O_ASSIGN,2,
230 listish(make_op(O_ARRAY, 1,
231 stab2arg(A_STAB,scrstab),
232 Nullarg,Nullarg, 1 )),
a687059c 233 listish(make_list($4)),
234 Nullarg)),
378cc40b 235 Nullarg),
236 wopt(over(defstab,add_label($1,
237 make_ccmd(C_WHILE,
238 make_op(O_ARRAY, 1,
239 stab2arg(A_STAB,scrstab),
a687059c 240 Nullarg,Nullarg ),
378cc40b 241 $6)))));
242 }
243 else { /* lisp, anyone? */
244 $$ = wopt(over(defstab,add_label($1,
245 make_ccmd(C_WHILE,$4,$6) )));
246 }
247 }
8d063cd8 248 | label FOR '(' nexpr ';' texpr ';' nexpr ')' block
249 /* basically fake up an initialize-while lineseq */
250 { yyval.compval.comp_true = $10;
251 yyval.compval.comp_alt = $8;
378cc40b 252 cmdline = $2;
8d063cd8 253 $$ = append_line($4,wopt(add_label($1,
254 make_ccmd(C_WHILE,$6,yyval.compval) ))); }
255 | label compblock /* a block is a loop that happens once */
256 { $$ = add_label($1,make_ccmd(C_BLOCK,Nullarg,$2)); }
257 ;
258
259nexpr : /* NULL */
260 { $$ = Nullcmd; }
261 | sideff
262 ;
263
264texpr : /* NULL means true */
a687059c 265 { (void)scanstr("1"); $$ = yylval.arg; }
8d063cd8 266 | expr
267 ;
268
269label : /* empty */
270 { $$ = Nullch; }
271 | WORD ':'
272 ;
273
8d063cd8 274decl : format
275 { $$ = 0; }
276 | subrout
277 { $$ = 0; }
a687059c 278 | package
279 { $$ = 0; }
8d063cd8 280 ;
281
a687059c 282format : FORMAT WORD '=' FORMLIST
03a14243 283 { if (strEQ($2,"stdout"))
284 stab_form(stabent("STDOUT",TRUE)) = $4;
285 else if (strEQ($2,"stderr"))
286 stab_form(stabent("STDERR",TRUE)) = $4;
287 else
288 stab_form(stabent($2,TRUE)) = $4;
289 Safefree($2);}
a687059c 290 | FORMAT '=' FORMLIST
291 { stab_form(stabent("STDOUT",TRUE)) = $3; }
8d063cd8 292 ;
293
294subrout : SUB WORD block
378cc40b 295 { make_sub($2,$3); }
8d063cd8 296 ;
297
a687059c 298package : PACKAGE WORD ';'
299 { char tmpbuf[256];
300
301 savehptr(&curstash);
302 saveitem(curstname);
303 str_set(curstname,$2);
304 sprintf(tmpbuf,"'_%s",$2);
305 curstash = stab_xhash(hadd(stabent(tmpbuf,TRUE)));
306 curstash->tbl_coeffsize = 0;
307 Safefree($2);
308 }
309 ;
310
311cexpr : ',' expr
312 { $$ = $2; }
313 ;
314
315expr : expr ',' sexpr
316 { $$ = make_op(O_COMMA, 2, $1, $3, Nullarg); }
8d063cd8 317 | sexpr
318 ;
319
a687059c 320csexpr : ',' sexpr
321 { $$ = $2; }
322 ;
323
8d063cd8 324sexpr : sexpr '=' sexpr
325 { $1 = listish($1);
a687059c 326 if ($1->arg_type == O_ASSIGN && $1->arg_len == 1)
327 $1->arg_type = O_ITEM; /* a local() */
8d063cd8 328 if ($1->arg_type == O_LIST)
329 $3 = listish($3);
a687059c 330 $$ = l(make_op(O_ASSIGN, 2, $1, $3, Nullarg)); }
331 | sexpr POW '=' sexpr
332 { $$ = l(make_op(O_POW, 2, $1, $4, Nullarg)); }
333 | sexpr MULOP '=' sexpr
334 { $$ = l(make_op($2, 2, $1, $4, Nullarg)); }
335 | sexpr ADDOP '=' sexpr
336 { $$ = rcatmaybe(l(make_op($2, 2, $1, $4, Nullarg)));}
8d063cd8 337 | sexpr LS '=' sexpr
a687059c 338 { $$ = l(make_op(O_LEFT_SHIFT, 2, $1, $4, Nullarg)); }
8d063cd8 339 | sexpr RS '=' sexpr
a687059c 340 { $$ = l(make_op(O_RIGHT_SHIFT, 2, $1, $4, Nullarg)); }
8d063cd8 341 | sexpr '&' '=' sexpr
a687059c 342 { $$ = l(make_op(O_BIT_AND, 2, $1, $4, Nullarg)); }
8d063cd8 343 | sexpr '^' '=' sexpr
a687059c 344 { $$ = l(make_op(O_XOR, 2, $1, $4, Nullarg)); }
8d063cd8 345 | sexpr '|' '=' sexpr
a687059c 346 { $$ = l(make_op(O_BIT_OR, 2, $1, $4, Nullarg)); }
347
348
349 | sexpr POW sexpr
350 { $$ = make_op(O_POW, 2, $1, $3, Nullarg); }
351 | sexpr MULOP sexpr
352 { $$ = make_op($2, 2, $1, $3, Nullarg); }
353 | sexpr ADDOP sexpr
354 { $$ = make_op($2, 2, $1, $3, Nullarg); }
8d063cd8 355 | sexpr LS sexpr
a687059c 356 { $$ = make_op(O_LEFT_SHIFT, 2, $1, $3, Nullarg); }
8d063cd8 357 | sexpr RS sexpr
a687059c 358 { $$ = make_op(O_RIGHT_SHIFT, 2, $1, $3, Nullarg); }
359 | sexpr RELOP sexpr
360 { $$ = make_op($2, 2, $1, $3, Nullarg); }
361 | sexpr EQOP sexpr
362 { $$ = make_op($2, 2, $1, $3, Nullarg); }
8d063cd8 363 | sexpr '&' sexpr
a687059c 364 { $$ = make_op(O_BIT_AND, 2, $1, $3, Nullarg); }
8d063cd8 365 | sexpr '^' sexpr
a687059c 366 { $$ = make_op(O_XOR, 2, $1, $3, Nullarg); }
8d063cd8 367 | sexpr '|' sexpr
a687059c 368 { $$ = make_op(O_BIT_OR, 2, $1, $3, Nullarg); }
8d063cd8 369 | sexpr DOTDOT sexpr
a687059c 370 { arg4 = Nullarg;
371 $$ = make_op(O_F_OR_R, 4, $1, $3, Nullarg); }
8d063cd8 372 | sexpr ANDAND sexpr
a687059c 373 { $$ = make_op(O_AND, 2, $1, $3, Nullarg); }
8d063cd8 374 | sexpr OROR sexpr
a687059c 375 { $$ = make_op(O_OR, 2, $1, $3, Nullarg); }
8d063cd8 376 | sexpr '?' sexpr ':' sexpr
a687059c 377 { $$ = make_op(O_COND_EXPR, 3, $1, $3, $5); }
8d063cd8 378 | sexpr MATCH sexpr
379 { $$ = mod_match(O_MATCH, $1, $3); }
380 | sexpr NMATCH sexpr
381 { $$ = mod_match(O_NMATCH, $1, $3); }
382 | term INC
383 { $$ = addflags(1, AF_POST|AF_UP,
a687059c 384 l(make_op(O_ITEM,1,$1,Nullarg,Nullarg))); }
8d063cd8 385 | term DEC
386 { $$ = addflags(1, AF_POST,
a687059c 387 l(make_op(O_ITEM,1,$1,Nullarg,Nullarg))); }
8d063cd8 388 | INC term
389 { $$ = addflags(1, AF_PRE|AF_UP,
a687059c 390 l(make_op(O_ITEM,1,$2,Nullarg,Nullarg))); }
8d063cd8 391 | DEC term
392 { $$ = addflags(1, AF_PRE,
a687059c 393 l(make_op(O_ITEM,1,$2,Nullarg,Nullarg))); }
8d063cd8 394 | term
395 { $$ = $1; }
396 ;
397
398term : '-' term %prec UMINUS
a687059c 399 { $$ = make_op(O_NEGATE, 1, $2, Nullarg, Nullarg); }
400 | '+' term %prec UMINUS
401 { $$ = $2; }
8d063cd8 402 | '!' term
a687059c 403 { $$ = make_op(O_NOT, 1, $2, Nullarg, Nullarg); }
8d063cd8 404 | '~' term
a687059c 405 { $$ = make_op(O_COMPLEMENT, 1, $2, Nullarg, Nullarg);}
378cc40b 406 | FILETEST WORD
407 { opargs[$1] = 0; /* force it special */
408 $$ = make_op($1, 1,
409 stab2arg(A_STAB,stabent($2,TRUE)),
a687059c 410 Nullarg, Nullarg);
378cc40b 411 }
412 | FILETEST sexpr
413 { opargs[$1] = 1;
a687059c 414 $$ = make_op($1, 1, $2, Nullarg, Nullarg); }
378cc40b 415 | FILETEST
416 { opargs[$1] = ($1 != O_FTTTY);
417 $$ = make_op($1, 1,
418 stab2arg(A_STAB,
a687059c 419 $1 == O_FTTTY?stabent("STDIN",TRUE):defstab),
420 Nullarg, Nullarg); }
378cc40b 421 | LOCAL '(' expr ')'
a687059c 422 { $$ = l(make_op(O_ITEM, 1,
423 localize(listish(make_list($3))),
424 Nullarg,Nullarg)); }
8d063cd8 425 | '(' expr ')'
426 { $$ = make_list(hide_ary($2)); }
427 | '(' ')'
428 { $$ = make_list(Nullarg); }
378cc40b 429 | DO sexpr %prec FILETEST
a687059c 430 { $$ = fixeval(
431 make_op(O_DOFILE,2,$2,Nullarg,Nullarg) );
432 allstabs = TRUE;}
8d063cd8 433 | DO block %prec '('
434 { $$ = cmd_to_arg($2); }
435 | REG %prec '('
378cc40b 436 { $$ = stab2arg(A_STAB,$1); }
a687059c 437 | STAR %prec '('
438 { $$ = stab2arg(A_STAR,$1); }
8d063cd8 439 | REG '[' expr ']' %prec '('
a687059c 440 { $$ = make_op(O_AELEM, 2,
441 stab2arg(A_STAB,aadd($1)), $3, Nullarg); }
442 | HSH %prec '('
443 { $$ = make_op(O_HASH, 1,
444 stab2arg(A_STAB,$1),
445 Nullarg, Nullarg); }
8d063cd8 446 | ARY %prec '('
447 { $$ = make_op(O_ARRAY, 1,
378cc40b 448 stab2arg(A_STAB,$1),
a687059c 449 Nullarg, Nullarg); }
8d063cd8 450 | REG '{' expr '}' %prec '('
a687059c 451 { $$ = make_op(O_HELEM, 2,
452 stab2arg(A_STAB,hadd($1)),
453 jmaybe($3),
454 Nullarg); }
455 | ARY '[' expr ']' %prec '('
456 { $$ = make_op(O_ASLICE, 2,
457 stab2arg(A_STAB,aadd($1)),
458 listish(make_list($3)),
459 Nullarg); }
460 | ARY '{' expr '}' %prec '('
461 { $$ = make_op(O_HSLICE, 2,
462 stab2arg(A_STAB,hadd($1)),
463 listish(make_list($3)),
464 Nullarg); }
378cc40b 465 | DELETE REG '{' expr '}' %prec '('
466 { $$ = make_op(O_DELETE, 2,
a687059c 467 stab2arg(A_STAB,hadd($2)),
468 jmaybe($4),
469 Nullarg); }
8d063cd8 470 | ARYLEN %prec '('
378cc40b 471 { $$ = stab2arg(A_ARYLEN,$1); }
8d063cd8 472 | RSTRING %prec '('
473 { $$ = $1; }
474 | PATTERN %prec '('
475 { $$ = $1; }
476 | SUBST %prec '('
477 { $$ = $1; }
478 | TRANS %prec '('
479 { $$ = $1; }
480 | DO WORD '(' expr ')'
a687059c 481 { $$ = make_op((perldb ? O_DBSUBR : O_SUBR), 2,
482 stab2arg(A_WORD,stabent($2,TRUE)),
8d063cd8 483 make_list($4),
a687059c 484 Nullarg); Safefree($2); }
485 | AMPER WORD '(' expr ')'
486 { $$ = make_op((perldb ? O_DBSUBR : O_SUBR), 2,
378cc40b 487 stab2arg(A_WORD,stabent($2,TRUE)),
a687059c 488 make_list($4),
489 Nullarg); Safefree($2); }
8d063cd8 490 | DO WORD '(' ')'
a687059c 491 { $$ = make_op((perldb ? O_DBSUBR : O_SUBR), 2,
492 stab2arg(A_WORD,stabent($2,TRUE)),
8d063cd8 493 make_list(Nullarg),
a687059c 494 Nullarg); }
495 | AMPER WORD '(' ')'
496 { $$ = make_op((perldb ? O_DBSUBR : O_SUBR), 2,
378cc40b 497 stab2arg(A_WORD,stabent($2,TRUE)),
a687059c 498 make_list(Nullarg),
499 Nullarg); }
500 | AMPER WORD
501 { $$ = make_op((perldb ? O_DBSUBR : O_SUBR), 2,
502 stab2arg(A_WORD,stabent($2,TRUE)),
503 Nullarg,
504 Nullarg); }
378cc40b 505 | DO REG '(' expr ')'
a687059c 506 { $$ = make_op((perldb ? O_DBSUBR : O_SUBR), 2,
507 stab2arg(A_STAB,$2),
378cc40b 508 make_list($4),
a687059c 509 Nullarg); }
510 | AMPER REG '(' expr ')'
511 { $$ = make_op((perldb ? O_DBSUBR : O_SUBR), 2,
378cc40b 512 stab2arg(A_STAB,$2),
a687059c 513 make_list($4),
514 Nullarg); }
378cc40b 515 | DO REG '(' ')'
a687059c 516 { $$ = make_op((perldb ? O_DBSUBR : O_SUBR), 2,
517 stab2arg(A_STAB,$2),
378cc40b 518 make_list(Nullarg),
a687059c 519 Nullarg); }
520 | AMPER REG '(' ')'
521 { $$ = make_op((perldb ? O_DBSUBR : O_SUBR), 2,
378cc40b 522 stab2arg(A_STAB,$2),
a687059c 523 make_list(Nullarg),
524 Nullarg); }
525 | AMPER REG
526 { $$ = make_op((perldb ? O_DBSUBR : O_SUBR), 2,
527 stab2arg(A_STAB,$2),
528 Nullarg,
529 Nullarg); }
8d063cd8 530 | LOOPEX
a687059c 531 { $$ = make_op($1,0,Nullarg,Nullarg,Nullarg); }
8d063cd8 532 | LOOPEX WORD
533 { $$ = make_op($1,1,cval_to_arg($2),
a687059c 534 Nullarg,Nullarg); }
8d063cd8 535 | UNIOP
a687059c 536 { $$ = make_op($1,1,Nullarg,Nullarg,Nullarg);
537 if ($1 == O_EVAL || $1 == O_RESET)
538 $$ = fixeval($$); }
8d063cd8 539 | UNIOP sexpr
a687059c 540 { $$ = make_op($1,1,$2,Nullarg,Nullarg);
541 if ($1 == O_EVAL || $1 == O_RESET)
542 $$ = fixeval($$); }
543 | SELECT
544 { $$ = make_op(O_SELECT, 0, Nullarg, Nullarg, Nullarg);}
545 | SELECT '(' handle ')'
546 { $$ = make_op(O_SELECT, 1, $3, Nullarg, Nullarg); }
547 | SELECT '(' sexpr csexpr csexpr csexpr ')'
548 { arg4 = $6;
549 $$ = make_op(O_SSELECT, 4, $3, $4, $5); }
8d063cd8 550 | OPEN WORD %prec '('
551 { $$ = make_op(O_OPEN, 2,
378cc40b 552 stab2arg(A_WORD,stabent($2,TRUE)),
553 stab2arg(A_STAB,stabent($2,TRUE)),
a687059c 554 Nullarg); }
8d063cd8 555 | OPEN '(' WORD ')'
556 { $$ = make_op(O_OPEN, 2,
378cc40b 557 stab2arg(A_WORD,stabent($3,TRUE)),
558 stab2arg(A_STAB,stabent($3,TRUE)),
a687059c 559 Nullarg); }
560 | OPEN '(' handle cexpr ')'
378cc40b 561 { $$ = make_op(O_OPEN, 2,
562 $3,
a687059c 563 $4, Nullarg); }
564 | FILOP '(' handle ')'
565 { $$ = make_op($1, 1,
378cc40b 566 $3,
a687059c 567 Nullarg, Nullarg); }
568 | FILOP WORD
569 { $$ = make_op($1, 1,
378cc40b 570 stab2arg(A_WORD,stabent($2,TRUE)),
a687059c 571 Nullarg, Nullarg);
572 Safefree($2); }
573 | FILOP REG
574 { $$ = make_op($1, 1,
575 stab2arg(A_STAB,$2),
576 Nullarg, Nullarg); }
577 | FILOP '(' ')'
578 { $$ = make_op($1, 1,
378cc40b 579 stab2arg(A_WORD,Nullstab),
a687059c 580 Nullarg, Nullarg); }
581 | FILOP %prec '('
582 { $$ = make_op($1, 0,
583 Nullarg, Nullarg, Nullarg); }
584 | FILOP2 '(' handle cexpr ')'
585 { $$ = make_op($1, 2, $3, $4, Nullarg); }
586 | FILOP3 '(' handle csexpr cexpr ')'
587 { $$ = make_op($1, 3, $3, $4, $5); }
588 | FILOP22 '(' handle ',' handle ')'
589 { $$ = make_op($1, 2, $3, $5, Nullarg); }
590 | FILOP4 '(' handle csexpr csexpr cexpr ')'
591 { arg4 = $6; $$ = make_op($1, 4, $3, $4, $5); }
592 | FILOP25 '(' handle ',' handle csexpr csexpr cexpr ')'
593 { arg4 = $7; arg5 = $8;
594 $$ = make_op($1, 5, $3, $5, $6); }
595 | PUSH '(' aryword cexpr ')'
8d063cd8 596 { $$ = make_op($1, 2,
a687059c 597 $3,
598 make_list($4),
599 Nullarg); }
600 | POP aryword %prec '('
601 { $$ = make_op(O_POP, 1, $2, Nullarg, Nullarg); }
602 | POP '(' aryword ')'
603 { $$ = make_op(O_POP, 1, $3, Nullarg, Nullarg); }
604 | SHIFT aryword %prec '('
605 { $$ = make_op(O_SHIFT, 1, $2, Nullarg, Nullarg); }
606 | SHIFT '(' aryword ')'
607 { $$ = make_op(O_SHIFT, 1, $3, Nullarg, Nullarg); }
8d063cd8 608 | SHIFT %prec '('
609 { $$ = make_op(O_SHIFT, 1,
a687059c 610 stab2arg(A_STAB,
611 aadd(stabent(subline ? "_" : "ARGV", TRUE))),
612 Nullarg, Nullarg); }
8d063cd8 613 | SPLIT %prec '('
a687059c 614 { (void)scanpat("/\\s+/");
615 $$ = make_split(defstab,yylval.arg,Nullarg); }
616 | SPLIT '(' sexpr csexpr csexpr ')'
617 { $$ = mod_match(O_MATCH, $4,
618 make_split(defstab,$3,$5));}
619 | SPLIT '(' sexpr csexpr ')'
620 { $$ = mod_match(O_MATCH, $4,
621 make_split(defstab,$3,Nullarg) ); }
8d063cd8 622 | SPLIT '(' sexpr ')'
623 { $$ = mod_match(O_MATCH,
378cc40b 624 stab2arg(A_STAB,defstab),
a687059c 625 make_split(defstab,$3,Nullarg) ); }
626 | FLIST2 '(' sexpr cexpr ')'
627 { $$ = make_op($1, 2,
8d063cd8 628 $3,
a687059c 629 listish(make_list($4)),
630 Nullarg); }
631 | FLIST '(' expr ')'
632 { $$ = make_op($1, 1,
8d063cd8 633 make_list($3),
634 Nullarg,
a687059c 635 Nullarg); }
636 | LVALFUN sexpr %prec '('
637 { $$ = l(make_op($1, 1, fixl($1,$2),
638 Nullarg, Nullarg)); }
378cc40b 639 | LVALFUN
640 { $$ = l(make_op($1, 1,
641 stab2arg(A_STAB,defstab),
a687059c 642 Nullarg, Nullarg)); }
8d063cd8 643 | FUNC0
a687059c 644 { $$ = make_op($1, 0, Nullarg, Nullarg, Nullarg); }
03a14243 645 | FUNC1 '(' ')'
646 { $$ = make_op($1, 1, Nullarg, Nullarg, Nullarg);
647 if ($1 == O_EVAL || $1 == O_RESET)
648 $$ = fixeval($$); }
8d063cd8 649 | FUNC1 '(' expr ')'
a687059c 650 { $$ = make_op($1, 1, $3, Nullarg, Nullarg);
651 if ($1 == O_EVAL || $1 == O_RESET)
652 $$ = fixeval($$); }
653 | FUNC2 '(' sexpr cexpr ')'
654 { $$ = make_op($1, 2, $3, $4, Nullarg);
378cc40b 655 if ($1 == O_INDEX && $$[2].arg_type == A_SINGLE)
a687059c 656 fbmcompile($$[2].arg_ptr.arg_str,0); }
657 | FUNC3 '(' sexpr csexpr cexpr ')'
658 { $$ = make_op($1, 3, $3, $4, $5); }
659 | LFUNC4 '(' sexpr csexpr csexpr cexpr ')'
660 { arg4 = $6; $$ = make_op($1, 4, l($3), $4, $5); }
661 | HSHFUN '(' hshword ')'
662 { $$ = make_op($1, 1,
663 $3,
664 Nullarg,
665 Nullarg); }
666 | HSHFUN hshword
8d063cd8 667 { $$ = make_op($1, 1,
a687059c 668 $2,
8d063cd8 669 Nullarg,
a687059c 670 Nullarg); }
671 | HSHFUN3 '(' hshword csexpr cexpr ')'
672 { $$ = make_op($1, 3, $3, $4, $5); }
378cc40b 673 | listop
8d063cd8 674 ;
675
378cc40b 676listop : LISTOP
8d063cd8 677 { $$ = make_op($1,2,
378cc40b 678 stab2arg(A_WORD,Nullstab),
a687059c 679 stab2arg(A_STAB,defstab),
680 Nullarg); }
378cc40b 681 | LISTOP expr
a687059c 682 { $$ = make_op($1,2,
378cc40b 683 stab2arg(A_WORD,Nullstab),
a687059c 684 maybelistish($1,make_list($2)),
685 Nullarg); }
378cc40b 686 | LISTOP WORD
8d063cd8 687 { $$ = make_op($1,2,
378cc40b 688 stab2arg(A_WORD,stabent($2,TRUE)),
a687059c 689 stab2arg(A_STAB,defstab),
690 Nullarg); }
378cc40b 691 | LISTOP WORD expr
a687059c 692 { $$ = make_op($1,2,
378cc40b 693 stab2arg(A_WORD,stabent($2,TRUE)),
a687059c 694 maybelistish($1,make_list($3)),
695 Nullarg); Safefree($2); }
378cc40b 696 | LISTOP REG expr
a687059c 697 { $$ = make_op($1,2,
378cc40b 698 stab2arg(A_STAB,$2),
a687059c 699 maybelistish($1,make_list($3)),
700 Nullarg); }
701 ;
702
703handle : WORD
704 { $$ = stab2arg(A_WORD,stabent($1,TRUE)); Safefree($1);}
705 | sexpr
706 ;
707
708aryword : WORD
709 { $$ = stab2arg(A_WORD,aadd(stabent($1,TRUE)));
710 Safefree($1); }
711 | ARY
712 { $$ = stab2arg(A_STAB,$1); }
713 ;
714
715hshword : WORD
716 { $$ = stab2arg(A_WORD,hadd(stabent($1,TRUE)));
717 Safefree($1); }
718 | HSH
719 { $$ = stab2arg(A_STAB,$1); }
8d063cd8 720 ;
721
722%% /* PROGRAM */
Unnamed repository; edit this file to name it for gitweb.