summaryrefslogtreecommitdiff
path: root/perly.act
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2022-10-25 19:29:25 +0200
committerYves Orton <demerphq@gmail.com>2022-10-31 07:57:25 +0100
commitc06746dce9294ecbcea2fe5971680a2eee46ed0a (patch)
tree0ec7a21bb5afd9642e53d30215a8cbb208c6e390 /perly.act
parentd91f67a32206bcc68108d3870c4864475d1f863b (diff)
downloadperl-c06746dce9294ecbcea2fe5971680a2eee46ed0a.tar.gz
perly.* - update perly files with more recent bison
I want to modify perly with a comment. But that would leave us with output files that are out of date in comparison with the input files. My bison is later than the last used for perl, so running it without my patch makes large changes. Therefore I have separated the change into two pieces, the first just updates everything using my more modern bison, the second runs bison again with the change I actually made. This is the first of the pair, nothing changes here except that which bison changed.
Diffstat (limited to 'perly.act')
-rw-r--r--perly.act513
1 files changed, 257 insertions, 256 deletions
diff --git a/perly.act b/perly.act
index d3b095d2cf..dfea9baf07 100644
--- a/perly.act
+++ b/perly.act
@@ -6,7 +6,7 @@
case 2:
#line 153 "perly.y"
- {
+ {
parser->expect = XSTATE;
(yyval.ival) = 0;
}
@@ -15,7 +15,7 @@ case 2:
case 3:
#line 158 "perly.y"
- {
+ {
newPROG(block_end((ps[-1].val.ival),(ps[0].val.opval)));
PL_compiling.cop_seq = 0;
(yyval.ival) = 0;
@@ -25,7 +25,7 @@ case 2:
case 4:
#line 164 "perly.y"
- {
+ {
parser->expect = XTERM;
(yyval.ival) = 0;
}
@@ -34,7 +34,7 @@ case 2:
case 5:
#line 169 "perly.y"
- {
+ {
PL_eval_root = (ps[0].val.opval);
(yyval.ival) = 0;
}
@@ -43,7 +43,7 @@ case 2:
case 6:
#line 174 "perly.y"
- {
+ {
parser->expect = XBLOCK;
(yyval.ival) = 0;
}
@@ -52,7 +52,7 @@ case 2:
case 7:
#line 179 "perly.y"
- {
+ {
PL_pad_reset_pending = TRUE;
PL_eval_root = (ps[0].val.opval);
(yyval.ival) = 0;
@@ -64,7 +64,7 @@ case 2:
case 8:
#line 187 "perly.y"
- {
+ {
parser->expect = XSTATE;
(yyval.ival) = 0;
}
@@ -73,7 +73,7 @@ case 2:
case 9:
#line 192 "perly.y"
- {
+ {
PL_pad_reset_pending = TRUE;
PL_eval_root = (ps[0].val.opval);
(yyval.ival) = 0;
@@ -85,7 +85,7 @@ case 2:
case 10:
#line 200 "perly.y"
- {
+ {
parser->expect = XSTATE;
(yyval.ival) = 0;
}
@@ -94,7 +94,7 @@ case 2:
case 11:
#line 205 "perly.y"
- {
+ {
PL_pad_reset_pending = TRUE;
PL_eval_root = (ps[0].val.opval);
(yyval.ival) = 0;
@@ -106,7 +106,7 @@ case 2:
case 12:
#line 213 "perly.y"
- {
+ {
parser->expect = XSTATE;
(yyval.ival) = 0;
}
@@ -115,7 +115,7 @@ case 2:
case 13:
#line 218 "perly.y"
- {
+ {
PL_eval_root = (ps[0].val.opval);
(yyval.ival) = 0;
}
@@ -124,7 +124,7 @@ case 2:
case 14:
#line 223 "perly.y"
- {
+ {
parser->expect = XSTATE;
(yyval.ival) = 0;
}
@@ -133,7 +133,7 @@ case 2:
case 15:
#line 228 "perly.y"
- {
+ {
PL_eval_root = (ps[0].val.opval);
(yyval.ival) = 0;
}
@@ -142,7 +142,7 @@ case 2:
case 16:
#line 236 "perly.y"
- { if (parser->copline > (line_t)(ps[-3].val.ival))
+ { if (parser->copline > (line_t)(ps[-3].val.ival))
parser->copline = (line_t)(ps[-3].val.ival);
(yyval.opval) = block_end((ps[-2].val.ival), (ps[-1].val.opval));
}
@@ -151,13 +151,13 @@ case 2:
case 17:
#line 243 "perly.y"
- { (yyval.opval) = NULL; }
+ { (yyval.opval) = NULL; }
break;
case 18:
#line 248 "perly.y"
- { if (parser->copline > (line_t)(ps[-6].val.ival))
+ { if (parser->copline > (line_t)(ps[-6].val.ival))
parser->copline = (line_t)(ps[-6].val.ival);
(yyval.opval) = block_end((ps[-5].val.ival), (ps[-2].val.opval));
}
@@ -166,14 +166,14 @@ case 2:
case 19:
#line 255 "perly.y"
- { (yyval.ival) = block_start(TRUE);
+ { (yyval.ival) = block_start(TRUE);
parser->parsed_sub = 0; }
break;
case 20:
#line 260 "perly.y"
- { if (parser->copline > (line_t)(ps[-3].val.ival))
+ { if (parser->copline > (line_t)(ps[-3].val.ival))
parser->copline = (line_t)(ps[-3].val.ival);
(yyval.opval) = block_end((ps[-2].val.ival), (ps[-1].val.opval));
}
@@ -182,32 +182,32 @@ case 2:
case 21:
#line 267 "perly.y"
- { (yyval.ival) = block_start(FALSE);
+ { (yyval.ival) = block_start(FALSE);
parser->parsed_sub = 0; }
break;
case 23:
#line 276 "perly.y"
- { parser->in_my = 1; }
+ { parser->in_my = 1; }
break;
case 24:
#line 278 "perly.y"
- { parser->in_my = 0; intro_my(); }
+ { parser->in_my = 0; intro_my(); }
break;
case 25:
#line 280 "perly.y"
- { (yyval.opval) = (ps[-2].val.opval); }
+ { (yyval.opval) = (ps[-2].val.opval); }
break;
case 27:
#line 287 "perly.y"
- { (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval), (ps[0].val.opval));
+ { (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval), (ps[0].val.opval));
PL_pad_reset_pending = TRUE;
if ((ps[-1].val.opval) && (ps[0].val.opval))
PL_hints |= HINT_BLOCK_SCOPE;
@@ -217,7 +217,7 @@ case 2:
case 29:
#line 298 "perly.y"
- { (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval), (ps[0].val.opval));
+ { (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval), (ps[0].val.opval));
PL_pad_reset_pending = TRUE;
if ((ps[-1].val.opval) && (ps[0].val.opval))
PL_hints |= HINT_BLOCK_SCOPE;
@@ -227,7 +227,7 @@ case 2:
case 30:
#line 307 "perly.y"
- {
+ {
(yyval.opval) = (ps[0].val.opval) ? newSTATEOP(0, NULL, (ps[0].val.opval)) : NULL;
}
@@ -235,13 +235,13 @@ case 2:
case 31:
#line 311 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 32:
#line 315 "perly.y"
- {
+ {
SV *label = cSVOPx_sv((ps[-1].val.opval));
(yyval.opval) = newSTATEOP(SvFLAGS(label) & SVf_UTF8,
savepv(SvPVX_const(label)), (ps[0].val.opval));
@@ -252,7 +252,7 @@ case 2:
case 33:
#line 322 "perly.y"
- {
+ {
SV *label = cSVOPx_sv((ps[-1].val.opval));
(yyval.opval) = newSTATEOP(SvFLAGS(label) & SVf_UTF8,
savepv(SvPVX_const(label)), (ps[0].val.opval));
@@ -263,13 +263,13 @@ case 2:
case 34:
#line 332 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 35:
#line 334 "perly.y"
- {
+ {
CV *fmtcv = PL_compcv;
newFORM((ps[-2].val.ival), (ps[-1].val.opval), (ps[0].val.opval));
(yyval.opval) = NULL;
@@ -283,7 +283,7 @@ case 2:
case 36:
#line 346 "perly.y"
- {
+ {
init_named_cv(PL_compcv, (ps[-1].val.opval));
parser->in_my = 0;
parser->in_my_stash = NULL;
@@ -293,7 +293,7 @@ case 2:
case 37:
#line 352 "perly.y"
- {
+ {
SvREFCNT_inc_simple_void(PL_compcv);
(ps[-5].val.opval)->op_type == OP_CONST
? newATTRSUB((ps[-4].val.ival), (ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), (ps[0].val.opval))
@@ -308,7 +308,7 @@ case 2:
case 38:
#line 367 "perly.y"
- {
+ {
init_named_cv(PL_compcv, (ps[-1].val.opval));
parser->in_my = 0;
parser->in_my_stash = NULL;
@@ -318,7 +318,7 @@ case 2:
case 39:
#line 373 "perly.y"
- {
+ {
SvREFCNT_inc_simple_void(PL_compcv);
(ps[-4].val.opval)->op_type == OP_CONST
? newATTRSUB((ps[-3].val.ival), (ps[-4].val.opval), NULL, (ps[-1].val.opval), (ps[0].val.opval))
@@ -333,7 +333,7 @@ case 2:
case 40:
#line 388 "perly.y"
- {
+ {
package((ps[-1].val.opval));
if ((ps[-2].val.opval))
package_version((ps[-2].val.opval));
@@ -344,13 +344,13 @@ case 2:
case 41:
#line 395 "perly.y"
- { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ }
+ { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ }
break;
case 42:
#line 399 "perly.y"
- {
+ {
SvREFCNT_inc_simple_void(PL_compcv);
utilize((ps[-6].val.ival), (ps[-5].val.ival), (ps[-3].val.opval), (ps[-2].val.opval), (ps[-1].val.opval));
parser->parsed_sub = 1;
@@ -361,7 +361,7 @@ case 2:
case 43:
#line 406 "perly.y"
- {
+ {
(yyval.opval) = block_end((ps[-4].val.ival),
newCONDOP(0, (ps[-3].val.opval), op_scope((ps[-1].val.opval)), (ps[0].val.opval)));
parser->copline = (line_t)(ps[-6].val.ival);
@@ -371,7 +371,7 @@ case 2:
case 44:
#line 412 "perly.y"
- {
+ {
(yyval.opval) = block_end((ps[-4].val.ival),
newCONDOP(0, (ps[-3].val.opval), (ps[0].val.opval), op_scope((ps[-1].val.opval))));
parser->copline = (line_t)(ps[-6].val.ival);
@@ -381,7 +381,7 @@ case 2:
case 45:
#line 418 "perly.y"
- {
+ {
(yyval.opval) = block_end((ps[-3].val.ival), newGIVENOP((ps[-2].val.opval), op_scope((ps[0].val.opval)), 0));
parser->copline = (line_t)(ps[-5].val.ival);
}
@@ -390,19 +390,19 @@ case 2:
case 46:
#line 423 "perly.y"
- { (yyval.opval) = block_end((ps[-3].val.ival), newWHENOP((ps[-2].val.opval), op_scope((ps[0].val.opval)))); }
+ { (yyval.opval) = block_end((ps[-3].val.ival), newWHENOP((ps[-2].val.opval), op_scope((ps[0].val.opval)))); }
break;
case 47:
#line 425 "perly.y"
- { (yyval.opval) = newWHENOP(0, op_scope((ps[0].val.opval))); }
+ { (yyval.opval) = newWHENOP(0, op_scope((ps[0].val.opval))); }
break;
case 48:
#line 427 "perly.y"
- {
+ {
(yyval.opval) = block_end((ps[-5].val.ival),
newWHILEOP(0, 1, NULL,
(ps[-4].val.opval), (ps[-1].val.opval), (ps[0].val.opval), (ps[-2].val.ival)));
@@ -413,7 +413,7 @@ case 2:
case 49:
#line 434 "perly.y"
- {
+ {
(yyval.opval) = block_end((ps[-5].val.ival),
newWHILEOP(0, 1, NULL,
(ps[-4].val.opval), (ps[-1].val.opval), (ps[0].val.opval), (ps[-2].val.ival)));
@@ -424,19 +424,19 @@ case 2:
case 50:
#line 441 "perly.y"
- { parser->expect = XTERM; }
+ { parser->expect = XTERM; }
break;
case 51:
#line 443 "perly.y"
- { parser->expect = XTERM; }
+ { parser->expect = XTERM; }
break;
case 52:
#line 446 "perly.y"
- {
+ {
OP *initop = (ps[-9].val.opval);
OP *forop = newWHILEOP(0, 1, NULL,
scalar((ps[-6].val.opval)), (ps[0].val.opval), (ps[-2].val.opval), (ps[-3].val.ival));
@@ -455,7 +455,7 @@ case 2:
case 53:
#line 461 "perly.y"
- {
+ {
(yyval.opval) = block_end((ps[-6].val.ival), newFOROP(0, (ps[-5].val.opval), (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval)));
parser->copline = (line_t)(ps[-8].val.ival);
}
@@ -464,7 +464,7 @@ case 2:
case 54:
#line 466 "perly.y"
- {
+ {
if ((ps[-6].val.opval)->op_type == OP_PADSV)
/* degenerate case of 1 var: for my ($x) ....
Flag it so it can be special-cased in newFOROP */
@@ -477,7 +477,7 @@ case 2:
case 55:
#line 475 "perly.y"
- {
+ {
(yyval.opval) = block_end((ps[-4].val.ival), newFOROP(0,
op_lvalue((ps[-6].val.opval), OP_ENTERLOOP), (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval)));
parser->copline = (line_t)(ps[-7].val.ival);
@@ -487,13 +487,13 @@ case 2:
case 56:
#line 481 "perly.y"
- { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); }
+ { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); }
break;
case 57:
#line 483 "perly.y"
- {
+ {
(yyval.opval) = block_end(
(ps[-7].val.ival),
newFOROP(0,
@@ -510,7 +510,7 @@ case 2:
case 58:
#line 496 "perly.y"
- {
+ {
(yyval.opval) = block_end((ps[-4].val.ival), newFOROP(
0, op_lvalue(newUNOP(OP_REFGEN, 0,
(ps[-6].val.opval)),
@@ -522,7 +522,7 @@ case 2:
case 59:
#line 504 "perly.y"
- {
+ {
(yyval.opval) = block_end((ps[-4].val.ival),
newFOROP(0, NULL, (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval)));
parser->copline = (line_t)(ps[-6].val.ival);
@@ -532,7 +532,7 @@ case 2:
case 60:
#line 510 "perly.y"
- {
+ {
if(!(ps[0].val.opval)) {
yyerror("catch block requires a (VAR)");
YYERROR;
@@ -543,7 +543,7 @@ case 2:
case 61:
#line 517 "perly.y"
- {
+ {
(yyval.opval) = newTRYCATCHOP(0,
(ps[-6].val.opval), (ps[-3].val.opval), block_end((ps[-4].val.ival), op_scope((ps[-1].val.opval))));
if((ps[0].val.opval))
@@ -555,7 +555,7 @@ case 2:
case 62:
#line 525 "perly.y"
- {
+ {
/* a block is a loop that happens once */
(yyval.opval) = newWHILEOP(0, 1, NULL,
NULL, (ps[-1].val.opval), (ps[0].val.opval), 0);
@@ -565,7 +565,7 @@ case 2:
case 63:
#line 531 "perly.y"
- {
+ {
package((ps[-2].val.opval));
if ((ps[-3].val.opval)) {
package_version((ps[-3].val.opval));
@@ -576,7 +576,7 @@ case 2:
case 64:
#line 538 "perly.y"
- {
+ {
/* a block is a loop that happens once */
(yyval.opval) = newWHILEOP(0, 1, NULL,
NULL, block_end((ps[-3].val.ival), (ps[-1].val.opval)), NULL, 0);
@@ -588,7 +588,7 @@ case 2:
case 65:
#line 546 "perly.y"
- {
+ {
(yyval.opval) = (ps[-1].val.opval);
}
@@ -596,7 +596,7 @@ case 2:
case 66:
#line 550 "perly.y"
- {
+ {
(yyval.opval) = newDEFEROP(0, op_scope((ps[0].val.opval)));
}
@@ -604,7 +604,7 @@ case 2:
case 67:
#line 554 "perly.y"
- {
+ {
(yyval.opval) = newLISTOP(OP_DIE, 0, newOP(OP_PUSHMARK, 0),
newSVOP(OP_CONST, 0, newSVpvs("Unimplemented")));
}
@@ -613,7 +613,7 @@ case 2:
case 68:
#line 559 "perly.y"
- {
+ {
(yyval.opval) = NULL;
parser->copline = NOLINE;
}
@@ -622,7 +622,7 @@ case 2:
case 69:
#line 567 "perly.y"
- { OP *list;
+ { OP *list;
if ((ps[0].val.opval)) {
OP *term = (ps[0].val.opval);
list = op_append_elem(OP_LIST, (ps[-1].val.opval), term);
@@ -641,62 +641,62 @@ case 2:
case 71:
#line 586 "perly.y"
- { (yyval.opval) = op_unscope((ps[-1].val.opval)); }
+ { (yyval.opval) = op_unscope((ps[-1].val.opval)); }
break;
case 73:
#line 594 "perly.y"
- { (yyval.opval) = NULL; }
+ { (yyval.opval) = NULL; }
break;
case 74:
#line 596 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 75:
#line 598 "perly.y"
- { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
+ { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
break;
case 76:
#line 600 "perly.y"
- { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
+ { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
break;
case 77:
#line 602 "perly.y"
- { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((ps[0].val.opval)), (ps[-2].val.opval)); }
+ { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((ps[0].val.opval)), (ps[-2].val.opval)); }
break;
case 78:
#line 604 "perly.y"
- { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (ps[0].val.opval), (ps[-2].val.opval)); }
+ { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (ps[0].val.opval), (ps[-2].val.opval)); }
break;
case 79:
#line 606 "perly.y"
- { (yyval.opval) = newFOROP(0, NULL, (ps[0].val.opval), (ps[-2].val.opval), NULL);
+ { (yyval.opval) = newFOROP(0, NULL, (ps[0].val.opval), (ps[-2].val.opval), NULL);
parser->copline = (line_t)(ps[-1].val.ival); }
break;
case 80:
#line 609 "perly.y"
- { (yyval.opval) = newWHENOP((ps[0].val.opval), op_scope((ps[-2].val.opval))); }
+ { (yyval.opval) = newWHENOP((ps[0].val.opval), op_scope((ps[-2].val.opval))); }
break;
case 82:
#line 616 "perly.y"
- {
+ {
((ps[0].val.opval))->op_flags |= OPf_PARENS;
(yyval.opval) = op_scope((ps[0].val.opval));
}
@@ -705,7 +705,7 @@ case 2:
case 83:
#line 621 "perly.y"
- { parser->copline = (line_t)(ps[-5].val.ival);
+ { parser->copline = (line_t)(ps[-5].val.ival);
(yyval.opval) = newCONDOP(0,
newSTATEOP(OPf_SPECIAL,NULL,(ps[-3].val.opval)),
op_scope((ps[-1].val.opval)), (ps[0].val.opval));
@@ -716,25 +716,25 @@ case 2:
case 85:
#line 633 "perly.y"
- { (yyval.opval) = op_scope((ps[0].val.opval)); }
+ { (yyval.opval) = op_scope((ps[0].val.opval)); }
break;
case 86:
#line 638 "perly.y"
- { (yyval.opval) = NULL; }
+ { (yyval.opval) = NULL; }
break;
case 87:
#line 640 "perly.y"
- { (yyval.opval) = op_scope((ps[0].val.opval)); }
+ { (yyval.opval) = op_scope((ps[0].val.opval)); }
break;
case 88:
#line 645 "perly.y"
- { (yyval.ival) = (PL_min_intro_pending &&
+ { (yyval.ival) = (PL_min_intro_pending &&
PL_max_intro_pending >= PL_min_intro_pending);
intro_my(); }
@@ -742,7 +742,7 @@ case 2:
case 91:
#line 657 "perly.y"
- { YYSTYPE tmplval;
+ { YYSTYPE tmplval;
(void)scan_num("1", &tmplval);
(yyval.opval) = tmplval.opval; }
@@ -750,52 +750,52 @@ case 2:
case 93:
#line 665 "perly.y"
- { (yyval.opval) = invert(scalar((ps[0].val.opval))); }
+ { (yyval.opval) = invert(scalar((ps[0].val.opval))); }
break;
case 94:
#line 670 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); intro_my(); }
+ { (yyval.opval) = (ps[0].val.opval); intro_my(); }
break;
case 95:
#line 674 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); intro_my(); }
+ { (yyval.opval) = (ps[0].val.opval); intro_my(); }
break;
case 96:
#line 677 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 98:
#line 682 "perly.y"
- { (yyval.ival) = start_subparse(FALSE, 0);
+ { (yyval.ival) = start_subparse(FALSE, 0);
SAVEFREESV(PL_compcv); }
break;
case 99:
#line 688 "perly.y"
- { (yyval.ival) = start_subparse(FALSE, CVf_ANON);
+ { (yyval.ival) = start_subparse(FALSE, CVf_ANON);
SAVEFREESV(PL_compcv); }
break;
case 100:
#line 693 "perly.y"
- { (yyval.ival) = start_subparse(TRUE, 0);
+ { (yyval.ival) = start_subparse(TRUE, 0);
SAVEFREESV(PL_compcv); }
break;
case 106:
#line 712 "perly.y"
- {
+ {
OP *attrlist = (ps[0].val.opval);
if(attrlist && !PL_parser->sig_seen)
attrlist = apply_builtin_cv_attributes(PL_compcv, attrlist);
@@ -806,49 +806,49 @@ case 2:
case 107:
#line 719 "perly.y"
- { (yyval.opval) = NULL; }
+ { (yyval.opval) = NULL; }
break;
case 108:
#line 724 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 109:
#line 726 "perly.y"
- { (yyval.opval) = NULL; }
+ { (yyval.opval) = NULL; }
break;
case 110:
#line 737 "perly.y"
- { parser->in_my = 0; (yyval.opval) = NULL; }
+ { parser->in_my = 0; (yyval.opval) = NULL; }
break;
case 111:
#line 739 "perly.y"
- { parser->in_my = 0; (yyval.opval) = (ps[0].val.opval); }
+ { parser->in_my = 0; (yyval.opval) = (ps[0].val.opval); }
break;
case 112:
#line 744 "perly.y"
- { (yyval.ival) = '@'; }
+ { (yyval.ival) = '@'; }
break;
case 113:
#line 746 "perly.y"
- { (yyval.ival) = '%'; }
+ { (yyval.ival) = '%'; }
break;
case 114:
#line 750 "perly.y"
- {
+ {
I32 sigil = (ps[-2].val.ival);
OP *var = (ps[-1].val.opval);
OP *defexpr = (ps[0].val.opval);
@@ -868,19 +868,19 @@ case 2:
case 116:
#line 771 "perly.y"
- { (yyval.opval) = newOP(OP_NULL, 0); }
+ { (yyval.opval) = newOP(OP_NULL, 0); }
break;
case 117:
#line 773 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 118:
#line 779 "perly.y"
- {
+ {
OP *var = (ps[-1].val.opval);
OP *defexpr = (ps[0].val.opval);
@@ -945,25 +945,25 @@ case 2:
case 119:
#line 844 "perly.y"
- { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); }
+ { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); }
break;
case 120:
#line 846 "perly.y"
- { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); }
+ { parser->in_my = KEY_sigvar; (yyval.opval) = (ps[0].val.opval); }
break;
case 121:
#line 852 "perly.y"
- { (yyval.opval) = (ps[-1].val.opval); }
+ { (yyval.opval) = (ps[-1].val.opval); }
break;
case 122:
#line 854 "perly.y"
- {
+ {
(yyval.opval) = op_append_list(OP_LINESEQ, (ps[-2].val.opval), (ps[0].val.opval));
}
@@ -971,19 +971,19 @@ case 2:
case 123:
#line 858 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 128:
#line 875 "perly.y"
- { (yyval.opval) = (ps[-1].val.opval); }
+ { (yyval.opval) = (ps[-1].val.opval); }
break;
case 129:
#line 878 "perly.y"
- {
+ {
ENTER;
SAVEIV(parser->sig_elems);
SAVEIV(parser->sig_optelems);
@@ -998,7 +998,7 @@ case 2:
case 130:
#line 889 "perly.y"
- {
+ {
OP *sigops = (ps[0].val.opval);
struct op_argcheck_aux *aux;
OP *check;
@@ -1055,13 +1055,13 @@ case 2:
case 132:
#line 946 "perly.y"
- { (yyval.opval) = NULL; }
+ { (yyval.opval) = NULL; }
break;
case 133:
#line 952 "perly.y"
- {
+ {
if (parser->copline > (line_t)(ps[-2].val.ival))
parser->copline = (line_t)(ps[-2].val.ival);
(yyval.opval) = block_end((ps[-3].val.ival), (ps[-1].val.opval));
@@ -1071,13 +1071,13 @@ case 2:
case 135:
#line 964 "perly.y"
- { (yyval.opval) = NULL; }
+ { (yyval.opval) = NULL; }
break;
case 136:
#line 969 "perly.y"
- {
+ {
if (parser->copline > (line_t)(ps[-2].val.ival))
parser->copline = (line_t)(ps[-2].val.ival);
(yyval.opval) = block_end((ps[-4].val.ival),
@@ -1088,25 +1088,25 @@ case 2:
case 137:
#line 980 "perly.y"
- { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
+ { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
break;
case 138:
#line 982 "perly.y"
- { (yyval.opval) = newLOGOP((ps[-1].val.ival), 0, (ps[-2].val.opval), (ps[0].val.opval)); }
+ { (yyval.opval) = newLOGOP((ps[-1].val.ival), 0, (ps[-2].val.opval), (ps[0].val.opval)); }
break;
case 140:
#line 988 "perly.y"
- { (yyval.opval) = (ps[-1].val.opval); }
+ { (yyval.opval) = (ps[-1].val.opval); }
break;
case 141:
#line 990 "perly.y"
- {
+ {
OP* term = (ps[0].val.opval);
(yyval.opval) = op_append_elem(OP_LIST, (ps[-2].val.opval), term);
}
@@ -1115,7 +1115,7 @@ case 2:
case 143:
#line 999 "perly.y"
- { (yyval.opval) = op_convert_list((ps[-2].val.ival), OPf_STACKED,
+ { (yyval.opval) = op_convert_list((ps[-2].val.ival), OPf_STACKED,
op_prepend_elem(OP_LIST, newGVREF((ps[-2].val.ival),(ps[-1].val.opval)), (ps[0].val.opval)) );
}
@@ -1123,7 +1123,7 @@ case 2:
case 144:
#line 1003 "perly.y"
- { (yyval.opval) = op_convert_list((ps[-4].val.ival), OPf_STACKED,
+ { (yyval.opval) = op_convert_list((ps[-4].val.ival), OPf_STACKED,
op_prepend_elem(OP_LIST, newGVREF((ps[-4].val.ival),(ps[-2].val.opval)), (ps[-1].val.opval)) );
}
@@ -1131,7 +1131,7 @@ case 2:
case 145:
#line 1007 "perly.y"
- { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
+ { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
op_append_elem(OP_LIST,
op_prepend_elem(OP_LIST, scalar((ps[-5].val.opval)), (ps[-1].val.opval)),
newMETHOP(OP_METHOD, 0, (ps[-3].val.opval))));
@@ -1141,7 +1141,7 @@ case 2:
case 146:
#line 1013 "perly.y"
- { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
+ { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
op_append_elem(OP_LIST, scalar((ps[-2].val.opval)),
newMETHOP(OP_METHOD, 0, (ps[0].val.opval))));
}
@@ -1150,7 +1150,7 @@ case 2:
case 147:
#line 1018 "perly.y"
- { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
+ { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
op_append_elem(OP_LIST,
op_prepend_elem(OP_LIST, (ps[-1].val.opval), (ps[0].val.opval)),
newMETHOP(OP_METHOD, 0, (ps[-2].val.opval))));
@@ -1160,7 +1160,7 @@ case 2:
case 148:
#line 1024 "perly.y"
- { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
+ { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
op_append_elem(OP_LIST,
op_prepend_elem(OP_LIST, (ps[-3].val.opval), (ps[-1].val.opval)),
newMETHOP(OP_METHOD, 0, (ps[-4].val.opval))));
@@ -1170,32 +1170,32 @@ case 2:
case 149:
#line 1030 "perly.y"
- { (yyval.opval) = op_convert_list((ps[-1].val.ival), 0, (ps[0].val.opval)); }
+ { (yyval.opval) = op_convert_list((ps[-1].val.ival), 0, (ps[0].val.opval)); }
break;
case 150:
#line 1032 "perly.y"
- { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
+ { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
break;
case 151:
#line 1034 "perly.y"
- { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
+ { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
break;
case 152:
#line 1036 "perly.y"
- { SvREFCNT_inc_simple_void(PL_compcv);
+ { SvREFCNT_inc_simple_void(PL_compcv);
(yyval.opval) = newANONATTRSUB((ps[-1].val.ival), 0, NULL, (ps[0].val.opval)); }
break;
case 153:
#line 1039 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+ { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
op_append_elem(OP_LIST,
op_prepend_elem(OP_LIST, (ps[-1].val.opval), (ps[0].val.opval)), (ps[-4].val.opval)));
}
@@ -1204,20 +1204,20 @@ case 2:
case 156:
#line 1054 "perly.y"
- { (yyval.opval) = newBINOP(OP_GELEM, 0, (ps[-4].val.opval), scalar((ps[-2].val.opval))); }
+ { (yyval.opval) = newBINOP(OP_GELEM, 0, (ps[-4].val.opval), scalar((ps[-2].val.opval))); }
break;
case 157:
#line 1056 "perly.y"
- { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((ps[-3].val.opval)), scalar((ps[-1].val.opval)));
+ { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((ps[-3].val.opval)), scalar((ps[-1].val.opval)));
}
break;
case 158:
#line 1059 "perly.y"
- { (yyval.opval) = newBINOP(OP_AELEM, 0,
+ { (yyval.opval) = newBINOP(OP_AELEM, 0,
ref(newAVREF((ps[-4].val.opval)),OP_RV2AV),
scalar((ps[-1].val.opval)));
}
@@ -1226,7 +1226,7 @@ case 2:
case 159:
#line 1064 "perly.y"
- { (yyval.opval) = newBINOP(OP_AELEM, 0,
+ { (yyval.opval) = newBINOP(OP_AELEM, 0,
ref(newAVREF((ps[-3].val.opval)),OP_RV2AV),
scalar((ps[-1].val.opval)));
}
@@ -1235,14 +1235,14 @@ case 2:
case 160:
#line 1069 "perly.y"
- { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((ps[-4].val.opval)), jmaybe((ps[-2].val.opval)));
+ { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((ps[-4].val.opval)), jmaybe((ps[-2].val.opval)));
}
break;
case 161:
#line 1072 "perly.y"
- { (yyval.opval) = newBINOP(OP_HELEM, 0,
+ { (yyval.opval) = newBINOP(OP_HELEM, 0,
ref(newHVREF((ps[-5].val.opval)),OP_RV2HV),
jmaybe((ps[-2].val.opval))); }
@@ -1250,7 +1250,7 @@ case 2:
case 162:
#line 1076 "perly.y"
- { (yyval.opval) = newBINOP(OP_HELEM, 0,
+ { (yyval.opval) = newBINOP(OP_HELEM, 0,
ref(newHVREF((ps[-4].val.opval)),OP_RV2HV),
jmaybe((ps[-2].val.opval))); }
@@ -1258,7 +1258,7 @@ case 2:
case 163:
#line 1080 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+ { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
newCVREF(0, scalar((ps[-3].val.opval))));
if (parser->expect == XBLOCK)
parser->expect = XOPERATOR;
@@ -1268,7 +1268,7 @@ case 2:
case 164:
#line 1086 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+ { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
op_append_elem(OP_LIST, (ps[-1].val.opval),
newCVREF(0, scalar((ps[-4].val.opval)))));
if (parser->expect == XBLOCK)
@@ -1279,7 +1279,7 @@ case 2:
case 165:
#line 1094 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+ { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
op_append_elem(OP_LIST, (ps[-1].val.opval),
newCVREF(0, scalar((ps[-3].val.opval)))));
if (parser->expect == XBLOCK)
@@ -1290,7 +1290,7 @@ case 2:
case 166:
#line 1101 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+ { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
newCVREF(0, scalar((ps[-2].val.opval))));
if (parser->expect == XBLOCK)
parser->expect = XOPERATOR;
@@ -1300,37 +1300,37 @@ case 2:
case 167:
#line 1107 "perly.y"
- { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-4].val.opval)); }
+ { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-4].val.opval)); }
break;
case 168:
#line 1109 "perly.y"
- { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-3].val.opval)); }
+ { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-3].val.opval)); }
break;
case 169:
#line 1111 "perly.y"
- { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), NULL); }
+ { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), NULL); }
break;
case 170:
#line 1116 "perly.y"
- { (yyval.opval) = newASSIGNOP(OPf_STACKED, (ps[-2].val.opval), (ps[-1].val.ival), (ps[0].val.opval)); }
+ { (yyval.opval) = newASSIGNOP(OPf_STACKED, (ps[-2].val.opval), (ps[-1].val.ival), (ps[0].val.opval)); }
break;
case 171:
#line 1118 "perly.y"
- { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
break;
case 172:
#line 1120 "perly.y"
- { if ((ps[-1].val.ival) != OP_REPEAT)
+ { if ((ps[-1].val.ival) != OP_REPEAT)
scalar((ps[-2].val.opval));
(yyval.opval) = newBINOP((ps[-1].val.ival), 0, (ps[-2].val.opval), scalar((ps[0].val.opval)));
}
@@ -1339,183 +1339,183 @@ case 2:
case 173:
#line 1125 "perly.y"
- { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
break;
case 174:
#line 1127 "perly.y"
- { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
break;
case 175:
#line 1129 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 176:
#line 1131 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 177:
#line 1133 "perly.y"
- { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
break;
case 178:
#line 1135 "perly.y"
- { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
break;
case 179:
#line 1137 "perly.y"
- { (yyval.opval) = newRANGE((ps[-1].val.ival), scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newRANGE((ps[-1].val.ival), scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
break;
case 180:
#line 1139 "perly.y"
- { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
+ { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
break;
case 181:
#line 1141 "perly.y"
- { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
+ { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
break;
case 182:
#line 1143 "perly.y"
- { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
+ { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
break;
case 183:
#line 1145 "perly.y"
- { (yyval.opval) = bind_match((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
+ { (yyval.opval) = bind_match((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
break;
case 184:
#line 1149 "perly.y"
- { (yyval.opval) = cmpchain_finish((ps[0].val.opval)); }
+ { (yyval.opval) = cmpchain_finish((ps[0].val.opval)); }
break;
case 185:
#line 1151 "perly.y"
- { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
break;
case 186:
#line 1153 "perly.y"
- { yyerror("syntax error"); YYERROR; }
+ { yyerror("syntax error"); YYERROR; }
break;
case 187:
#line 1155 "perly.y"
- { yyerror("syntax error"); YYERROR; }
+ { yyerror("syntax error"); YYERROR; }
break;
case 188:
#line 1159 "perly.y"
- { (yyval.opval) = cmpchain_start((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
+ { (yyval.opval) = cmpchain_start((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
break;
case 189:
#line 1161 "perly.y"
- { (yyval.opval) = cmpchain_extend((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
+ { (yyval.opval) = cmpchain_extend((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
break;
case 190:
#line 1165 "perly.y"
- { (yyval.opval) = cmpchain_finish((ps[0].val.opval)); }
+ { (yyval.opval) = cmpchain_finish((ps[0].val.opval)); }
break;
case 191:
#line 1167 "perly.y"
- { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
break;
case 192:
#line 1169 "perly.y"
- { yyerror("syntax error"); YYERROR; }
+ { yyerror("syntax error"); YYERROR; }
break;
case 193:
#line 1171 "perly.y"
- { yyerror("syntax error"); YYERROR; }
+ { yyerror("syntax error"); YYERROR; }
break;
case 194:
#line 1175 "perly.y"
- { (yyval.opval) = cmpchain_start((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
+ { (yyval.opval) = cmpchain_start((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
break;
case 195:
#line 1177 "perly.y"
- { (yyval.opval) = cmpchain_extend((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
+ { (yyval.opval) = cmpchain_extend((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
break;
case 196:
#line 1182 "perly.y"
- { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((ps[0].val.opval))); }
break;
case 197:
#line 1184 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 198:
#line 1187 "perly.y"
- { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
break;
case 199:
#line 1189 "perly.y"
- { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, scalar((ps[0].val.opval))); }
break;
case 200:
#line 1191 "perly.y"
- { (yyval.opval) = newUNOP(OP_POSTINC, 0,
+ { (yyval.opval) = newUNOP(OP_POSTINC, 0,
op_lvalue(scalar((ps[-1].val.opval)), OP_POSTINC)); }
break;
case 201:
#line 1194 "perly.y"
- { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
+ { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
op_lvalue(scalar((ps[-1].val.opval)), OP_POSTDEC));}
break;
case 202:
#line 1197 "perly.y"
- { (yyval.opval) = op_convert_list(OP_JOIN, 0,
+ { (yyval.opval) = op_convert_list(OP_JOIN, 0,
op_append_elem(
OP_LIST,
newSVREF(scalar(
@@ -1530,137 +1530,137 @@ case 2:
case 203:
#line 1208 "perly.y"
- { (yyval.opval) = newUNOP(OP_PREINC, 0,
+ { (yyval.opval) = newUNOP(OP_PREINC, 0,
op_lvalue(scalar((ps[0].val.opval)), OP_PREINC)); }
break;
case 204:
#line 1211 "perly.y"
- { (yyval.opval) = newUNOP(OP_PREDEC, 0,
+ { (yyval.opval) = newUNOP(OP_PREDEC, 0,
op_lvalue(scalar((ps[0].val.opval)), OP_PREDEC)); }
break;
case 205:
#line 1219 "perly.y"
- { (yyval.opval) = newANONLIST((ps[-1].val.opval)); }
+ { (yyval.opval) = newANONLIST((ps[-1].val.opval)); }
break;
case 206:
#line 1221 "perly.y"
- { (yyval.opval) = newANONHASH((ps[-2].val.opval)); }
+ { (yyval.opval) = newANONHASH((ps[-2].val.opval)); }
break;
case 207:
#line 1223 "perly.y"
- { SvREFCNT_inc_simple_void(PL_compcv);
+ { SvREFCNT_inc_simple_void(PL_compcv);
(yyval.opval) = newANONATTRSUB((ps[-3].val.ival), (ps[-2].val.opval), (ps[-1].val.opval), (ps[0].val.opval)); }
break;
case 208:
#line 1226 "perly.y"
- { SvREFCNT_inc_simple_void(PL_compcv);
+ { SvREFCNT_inc_simple_void(PL_compcv);
(yyval.opval) = newANONATTRSUB((ps[-2].val.ival), NULL, (ps[-1].val.opval), (ps[0].val.opval)); }
break;
case 209:
#line 1232 "perly.y"
- { (yyval.opval) = dofile((ps[0].val.opval), (ps[-1].val.ival));}
+ { (yyval.opval) = dofile((ps[0].val.opval), (ps[-1].val.ival));}
break;
case 210:
#line 1234 "perly.y"
- { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, op_scope((ps[0].val.opval)));}
+ { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, op_scope((ps[0].val.opval)));}
break;
case 215:
#line 1242 "perly.y"
- { (yyval.opval) = newCONDOP(0, (ps[-4].val.opval), (ps[-2].val.opval), (ps[0].val.opval)); }
+ { (yyval.opval) = newCONDOP(0, (ps[-4].val.opval), (ps[-2].val.opval), (ps[0].val.opval)); }
break;
case 216:
#line 1244 "perly.y"
- { (yyval.opval) = newUNOP(OP_REFGEN, 0, (ps[0].val.opval)); }
+ { (yyval.opval) = newUNOP(OP_REFGEN, 0, (ps[0].val.opval)); }
break;
case 217:
#line 1246 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 218:
#line 1248 "perly.y"
- { (yyval.opval) = localize((ps[0].val.opval),0); }
+ { (yyval.opval) = localize((ps[0].val.opval),0); }
break;
case 219:
#line 1250 "perly.y"
- { (yyval.opval) = sawparens((ps[-1].val.opval)); }
+ { (yyval.opval) = sawparens((ps[-1].val.opval)); }
break;
case 220:
#line 1252 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 221:
#line 1254 "perly.y"
- { (yyval.opval) = sawparens(newNULLLIST()); }
+ { (yyval.opval) = sawparens(newNULLLIST()); }
break;
case 222:
#line 1256 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 223:
#line 1258 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 224:
#line 1260 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 225:
#line 1262 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 226:
#line 1264 "perly.y"
- { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((ps[0].val.opval), OP_AV2ARYLEN));}
+ { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((ps[0].val.opval), OP_AV2ARYLEN));}
break;
case 227:
#line 1266 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 228:
#line 1268 "perly.y"
- { (yyval.opval) = op_prepend_elem(OP_ASLICE,
+ { (yyval.opval) = op_prepend_elem(OP_ASLICE,
newOP(OP_PUSHMARK, 0),
newLISTOP(OP_ASLICE, 0,
list((ps[-1].val.opval)),
@@ -1674,7 +1674,7 @@ case 2:
case 229:
#line 1278 "perly.y"
- { (yyval.opval) = op_prepend_elem(OP_KVASLICE,
+ { (yyval.opval) = op_prepend_elem(OP_KVASLICE,
newOP(OP_PUSHMARK, 0),
newLISTOP(OP_KVASLICE, 0,
list((ps[-1].val.opval)),
@@ -1688,7 +1688,7 @@ case 2:
case 230:
#line 1288 "perly.y"
- { (yyval.opval) = op_prepend_elem(OP_HSLICE,
+ { (yyval.opval) = op_prepend_elem(OP_HSLICE,
newOP(OP_PUSHMARK, 0),
newLISTOP(OP_HSLICE, 0,
list((ps[-2].val.opval)),
@@ -1702,7 +1702,7 @@ case 2:
case 231:
#line 1298 "perly.y"
- { (yyval.opval) = op_prepend_elem(OP_KVHSLICE,
+ { (yyval.opval) = op_prepend_elem(OP_KVHSLICE,
newOP(OP_PUSHMARK, 0),
newLISTOP(OP_KVHSLICE, 0,
list((ps[-2].val.opval)),
@@ -1716,26 +1716,26 @@ case 2:
case 232:
#line 1308 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 233:
#line 1310 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((ps[0].val.opval))); }
break;
case 234:
#line 1312 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[-2].val.opval)));
+ { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[-2].val.opval)));
}
break;
case 235:
#line 1315 "perly.y"
- {
+ {
(yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
op_append_elem(OP_LIST, (ps[-1].val.opval), scalar((ps[-3].val.opval))));
}
@@ -1744,7 +1744,7 @@ case 2:
case 236:
#line 1320 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+ { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval))));
}
@@ -1752,130 +1752,130 @@ case 2:
case 237:
#line 1324 "perly.y"
- { (yyval.opval) = newSVREF((ps[-3].val.opval)); }
+ { (yyval.opval) = newSVREF((ps[-3].val.opval)); }
break;
case 238:
#line 1326 "perly.y"
- { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
+ { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
break;
case 239:
#line 1328 "perly.y"
- { (yyval.opval) = newHVREF((ps[-3].val.opval)); }
+ { (yyval.opval) = newHVREF((ps[-3].val.opval)); }
break;
case 240:
#line 1330 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB, 0,
+ { (yyval.opval) = newUNOP(OP_ENTERSUB, 0,
scalar(newCVREF((ps[-1].val.ival),(ps[-3].val.opval)))); }
break;
case 241:
#line 1333 "perly.y"
- { (yyval.opval) = newGVREF(0,(ps[-3].val.opval)); }
+ { (yyval.opval) = newGVREF(0,(ps[-3].val.opval)); }
break;
case 242:
#line 1335 "perly.y"
- { (yyval.opval) = newOP((ps[0].val.ival), OPf_SPECIAL);
+ { (yyval.opval) = newOP((ps[0].val.ival), OPf_SPECIAL);
PL_hints |= HINT_BLOCK_SCOPE; }
break;
case 243:
#line 1338 "perly.y"
- { (yyval.opval) = newLOOPEX((ps[-1].val.ival),(ps[0].val.opval)); }
+ { (yyval.opval) = newLOOPEX((ps[-1].val.ival),(ps[0].val.opval)); }
break;
case 244:
#line 1340 "perly.y"
- { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
break;
case 245:
#line 1342 "perly.y"
- { (yyval.opval) = newOP((ps[0].val.ival), 0); }
+ { (yyval.opval) = newOP((ps[0].val.ival), 0); }
break;
case 246:
#line 1344 "perly.y"
- { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
+ { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
break;
case 247:
#line 1346 "perly.y"
- { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
+ { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
break;
case 248:
#line 1348 "perly.y"
- { (yyval.opval) = newOP(OP_REQUIRE, (ps[0].val.ival) ? OPf_SPECIAL : 0); }
+ { (yyval.opval) = newOP(OP_REQUIRE, (ps[0].val.ival) ? OPf_SPECIAL : 0); }
break;
case 249:
#line 1350 "perly.y"
- { (yyval.opval) = newUNOP(OP_REQUIRE, (ps[-1].val.ival) ? OPf_SPECIAL : 0, (ps[0].val.opval)); }
+ { (yyval.opval) = newUNOP(OP_REQUIRE, (ps[-1].val.ival) ? OPf_SPECIAL : 0, (ps[0].val.opval)); }
break;
case 250:
#line 1352 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
break;
case 251:
#line 1354 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+ { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval)))); }
break;
case 252:
#line 1357 "perly.y"
- { (yyval.opval) = newOP((ps[0].val.ival), 0); }
+ { (yyval.opval) = newOP((ps[0].val.ival), 0); }
break;
case 253:
#line 1359 "perly.y"
- { (yyval.opval) = newOP((ps[-2].val.ival), 0);}
+ { (yyval.opval) = newOP((ps[-2].val.ival), 0);}
break;
case 254:
#line 1361 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 255:
#line 1363 "perly.y"
- { (yyval.opval) = (ps[-2].val.opval); }
+ { (yyval.opval) = (ps[-2].val.opval); }
break;
case 256:
#line 1365 "perly.y"
- { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
+ { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
break;
case 257:
#line 1367 "perly.y"
- { (yyval.opval) = ((ps[-2].val.ival) == OP_NOT)
+ { (yyval.opval) = ((ps[-2].val.ival) == OP_NOT)
? newUNOP((ps[-2].val.ival), 0, newSVOP(OP_CONST, 0, newSViv(0)))
: newOP((ps[-2].val.ival), OPf_SPECIAL); }
@@ -1883,13 +1883,13 @@ case 2:
case 258:
#line 1371 "perly.y"
- { (yyval.opval) = newUNOP((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
+ { (yyval.opval) = newUNOP((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
break;
case 259:
#line 1373 "perly.y"
- {
+ {
if ( (ps[0].val.opval)->op_type != OP_TRANS
&& (ps[0].val.opval)->op_type != OP_TRANSR
&& (((PMOP*)(ps[0].val.opval))->op_pmflags & PMf_HAS_CV))
@@ -1904,85 +1904,85 @@ case 2:
case 260:
#line 1384 "perly.y"
- { (yyval.opval) = pmruntime((ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), 1, (ps[-4].val.ival)); }
+ { (yyval.opval) = pmruntime((ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), 1, (ps[-4].val.ival)); }
break;
case 264:
#line 1393 "perly.y"
- { (yyval.opval) = my_attrs((ps[-1].val.opval),(ps[0].val.opval)); }
+ { (yyval.opval) = my_attrs((ps[-1].val.opval),(ps[0].val.opval)); }
break;
case 265:
#line 1395 "perly.y"
- { (yyval.opval) = localize((ps[0].val.opval),1); }
+ { (yyval.opval) = localize((ps[0].val.opval),1); }
break;
case 266:
#line 1397 "perly.y"
- { (yyval.opval) = newUNOP(OP_REFGEN, 0, my_attrs((ps[-1].val.opval),(ps[0].val.opval))); }
+ { (yyval.opval) = newUNOP(OP_REFGEN, 0, my_attrs((ps[-1].val.opval),(ps[0].val.opval))); }
break;
case 267:
#line 1399 "perly.y"
- { (yyval.opval) = newUNOP(OP_REFGEN, 0, localize((ps[0].val.opval),1)); }
+ { (yyval.opval) = newUNOP(OP_REFGEN, 0, localize((ps[0].val.opval),1)); }
break;
case 268:
#line 1404 "perly.y"
- { (yyval.opval) = sawparens((ps[-1].val.opval)); }
+ { (yyval.opval) = sawparens((ps[-1].val.opval)); }
break;
case 269:
#line 1406 "perly.y"
- { (yyval.opval) = sawparens(newNULLLIST()); }
+ { (yyval.opval) = sawparens(newNULLLIST()); }
break;
case 270:
#line 1409 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 271:
#line 1411 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 272:
#line 1413 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 278:
#line 1429 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
case 279:
#line 1435 "perly.y"
- { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); }
+ { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); }
break;
case 280:
#line 1440 "perly.y"
- { (yyval.opval) = (ps[-1].val.opval); }
+ { (yyval.opval) = (ps[-1].val.opval); }
break;
case 281:
#line 1442 "perly.y"
- {
+ {
(yyval.opval) = op_append_elem(OP_LIST, (ps[-2].val.opval), (ps[0].val.opval));
}
@@ -1990,25 +1990,25 @@ case 2:
case 283:
#line 1449 "perly.y"
- { parser->in_my = 0; (yyval.opval) = (ps[0].val.opval); }
+ { parser->in_my = 0; (yyval.opval) = (ps[0].val.opval); }
break;
case 291:
#line 1466 "perly.y"
- { (yyval.opval) = newCVREF((ps[-1].val.ival),(ps[0].val.opval)); }
+ { (yyval.opval) = newCVREF((ps[-1].val.ival),(ps[0].val.opval)); }
break;
case 292:
#line 1470 "perly.y"
- { (yyval.opval) = newSVREF((ps[0].val.opval)); }
+ { (yyval.opval) = newSVREF((ps[0].val.opval)); }
break;
case 293:
#line 1474 "perly.y"
- { (yyval.opval) = newAVREF((ps[0].val.opval));
+ { (yyval.opval) = newAVREF((ps[0].val.opval));
if ((yyval.opval)) (yyval.opval)->op_private |= (ps[-1].val.ival);
}
@@ -2016,7 +2016,7 @@ case 2:
case 294:
#line 1480 "perly.y"
- { (yyval.opval) = newHVREF((ps[0].val.opval));
+ { (yyval.opval) = newHVREF((ps[0].val.opval));
if ((yyval.opval)) (yyval.opval)->op_private |= (ps[-1].val.ival);
}
@@ -2024,66 +2024,67 @@ case 2:
case 295:
#line 1486 "perly.y"
- { (yyval.opval) = newAVREF((ps[0].val.opval)); }
+ { (yyval.opval) = newAVREF((ps[0].val.opval)); }
break;
case 296:
#line 1488 "perly.y"
- { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
+ { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
break;
case 297:
#line 1492 "perly.y"
- { (yyval.opval) = newGVREF(0,(ps[0].val.opval)); }
+ { (yyval.opval) = newGVREF(0,(ps[0].val.opval)); }
break;
case 299:
#line 1497 "perly.y"
- { (yyval.opval) = newAVREF((ps[-2].val.opval)); }
+ { (yyval.opval) = newAVREF((ps[-2].val.opval)); }
break;
case 301:
#line 1502 "perly.y"
- { (yyval.opval) = newHVREF((ps[-2].val.opval)); }
+ { (yyval.opval) = newHVREF((ps[-2].val.opval)); }
break;
case 303:
#line 1507 "perly.y"
- { (yyval.opval) = newGVREF(0,(ps[-2].val.opval)); }
+ { (yyval.opval) = newGVREF(0,(ps[-2].val.opval)); }
break;
case 304:
#line 1512 "perly.y"
- { (yyval.opval) = scalar((ps[0].val.opval)); }
+ { (yyval.opval) = scalar((ps[0].val.opval)); }
break;
case 305:
#line 1514 "perly.y"
- { (yyval.opval) = scalar((ps[0].val.opval)); }
+ { (yyval.opval) = scalar((ps[0].val.opval)); }
break;
case 306:
#line 1516 "perly.y"
- { (yyval.opval) = op_scope((ps[0].val.opval)); }
+ { (yyval.opval) = op_scope((ps[0].val.opval)); }
break;
case 307:
#line 1519 "perly.y"
- { (yyval.opval) = (ps[0].val.opval); }
+ { (yyval.opval) = (ps[0].val.opval); }
break;
+
default: break;
View Lorry Controller Status