summaryrefslogtreecommitdiff
path: root/perly.act
diff options
context:
space:
mode:
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