3 { (yyval.ival) = (yyvsp[(1) - (2)].ival); newPROG(block_end((yyvsp[(1) - (2)].ival),(yyvsp[(2) - (2)].opval))); ;}
8 { if (PL_copline > (line_t)IVAL((yyvsp[(1) - (4)].i_tkval)))
9 PL_copline = (line_t)IVAL((yyvsp[(1) - (4)].i_tkval));
10 (yyval.opval) = block_end((yyvsp[(2) - (4)].ival), (yyvsp[(3) - (4)].opval));
11 TOKEN_GETMAD((yyvsp[(1) - (4)].i_tkval),(yyval.opval),'{');
12 TOKEN_GETMAD((yyvsp[(4) - (4)].i_tkval),(yyval.opval),'}');
18 { (yyval.ival) = block_start(TRUE); ;}
23 { (yyval.ival) = (I32) allocmy("$_"); ;}
29 PL_expect = XSTATE; (yyval.ival) = block_start(TRUE);
35 { if (PL_copline > (line_t)IVAL((yyvsp[(1) - (4)].i_tkval)))
36 PL_copline = (line_t)IVAL((yyvsp[(1) - (4)].i_tkval));
37 (yyval.opval) = block_end((yyvsp[(2) - (4)].ival), (yyvsp[(3) - (4)].opval));
38 TOKEN_GETMAD((yyvsp[(1) - (4)].i_tkval),(yyval.opval),'{');
39 TOKEN_GETMAD((yyvsp[(4) - (4)].i_tkval),(yyval.opval),'}');
45 { (yyval.ival) = block_start(FALSE); ;}
50 { (yyval.ival) = PL_savestack_ix; ;}
55 { (yyval.opval) = Nullop; ;}
61 (yyval.opval) = IF_MAD(
62 append_list(OP_LINESEQ,
63 (LISTOP*)(yyvsp[(1) - (2)].opval), (LISTOP*)(yyvsp[(2) - (2)].opval)),
64 (yyvsp[(1) - (2)].opval));
70 { LEAVE_SCOPE((yyvsp[(2) - (3)].ival));
71 (yyval.opval) = append_list(OP_LINESEQ,
72 (LISTOP*)(yyvsp[(1) - (3)].opval), (LISTOP*)(yyvsp[(3) - (3)].opval));
73 PL_pad_reset_pending = TRUE;
74 if ((yyvsp[(1) - (3)].opval) && (yyvsp[(3) - (3)].opval)) PL_hints |= HINT_BLOCK_SCOPE; ;}
79 { (yyval.opval) = newSTATEOP(0, PVAL((yyvsp[(1) - (2)].p_tkval)), (yyvsp[(2) - (2)].opval));
80 TOKEN_GETMAD((yyvsp[(1) - (2)].p_tkval),((LISTOP*)(yyval.opval))->op_first,'L'); ;}
85 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
90 { (yyval.opval) = newSTATEOP(0, PVAL((yyvsp[(1) - (2)].p_tkval)), (yyvsp[(2) - (2)].opval)); ;}
96 if (PVAL((yyvsp[(1) - (2)].p_tkval))) {
97 (yyval.opval) = newSTATEOP(0, PVAL((yyvsp[(1) - (2)].p_tkval)), newOP(OP_NULL, 0));
98 TOKEN_GETMAD((yyvsp[(1) - (2)].p_tkval),(yyval.opval),'L');
99 TOKEN_GETMAD((yyvsp[(2) - (2)].i_tkval),((LISTOP*)(yyval.opval))->op_first,';');
102 (yyval.opval) = IF_MAD(
106 TOKEN_FREE((yyvsp[(1) - (2)].p_tkval));
107 TOKEN_GETMAD((yyvsp[(2) - (2)].i_tkval),(yyval.opval),';');
116 (yyval.opval) = newSTATEOP(0, PVAL((yyvsp[(1) - (3)].p_tkval)), (yyvsp[(2) - (3)].opval));
119 /* sideff might already have a nexstate */
120 OP* op = ((LISTOP*)(yyval.opval))->op_first;
122 while (op->op_sibling &&
123 op->op_sibling->op_type == OP_NEXTSTATE)
125 token_getmad((yyvsp[(1) - (3)].p_tkval),op,'L');
126 token_getmad((yyvsp[(3) - (3)].i_tkval),op,';');
134 { (yyval.opval) = Nullop; ;}
139 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
144 { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[(3) - (3)].opval), (yyvsp[(1) - (3)].opval));
145 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'i');
151 { (yyval.opval) = newLOGOP(OP_OR, 0, (yyvsp[(3) - (3)].opval), (yyvsp[(1) - (3)].opval));
152 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'i');
158 { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((yyvsp[(3) - (3)].opval)), (yyvsp[(1) - (3)].opval));
159 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'w');
165 { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (yyvsp[(3) - (3)].opval), (yyvsp[(1) - (3)].opval));
166 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'w');
172 { (yyval.opval) = newFOROP(0, Nullch, (line_t)IVAL((yyvsp[(2) - (3)].i_tkval)),
173 Nullop, (yyvsp[(3) - (3)].opval), (yyvsp[(1) - (3)].opval), Nullop);
174 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),((LISTOP*)(yyval.opval))->op_first->op_sibling,'w');
180 { (yyval.opval) = Nullop; ;}
185 { ((yyvsp[(2) - (2)].opval))->op_flags |= OPf_PARENS; (yyval.opval) = scope((yyvsp[(2) - (2)].opval));
186 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'o');
192 { PL_copline = (line_t)IVAL((yyvsp[(1) - (6)].i_tkval));
193 (yyval.opval) = newCONDOP(0, (yyvsp[(3) - (6)].opval), scope((yyvsp[(5) - (6)].opval)), (yyvsp[(6) - (6)].opval));
194 PL_hints |= HINT_BLOCK_SCOPE;
195 TOKEN_GETMAD((yyvsp[(1) - (6)].i_tkval),(yyval.opval),'I');
196 TOKEN_GETMAD((yyvsp[(2) - (6)].i_tkval),(yyval.opval),'(');
197 TOKEN_GETMAD((yyvsp[(4) - (6)].i_tkval),(yyval.opval),')');
203 { PL_copline = (line_t)IVAL((yyvsp[(1) - (7)].i_tkval));
204 (yyval.opval) = block_end((yyvsp[(3) - (7)].ival),
205 newCONDOP(0, (yyvsp[(4) - (7)].opval), scope((yyvsp[(6) - (7)].opval)), (yyvsp[(7) - (7)].opval)));
206 TOKEN_GETMAD((yyvsp[(1) - (7)].i_tkval),(yyval.opval),'I');
207 TOKEN_GETMAD((yyvsp[(2) - (7)].i_tkval),(yyval.opval),'(');
208 TOKEN_GETMAD((yyvsp[(5) - (7)].i_tkval),(yyval.opval),')');
214 { PL_copline = (line_t)IVAL((yyvsp[(1) - (7)].i_tkval));
215 (yyval.opval) = block_end((yyvsp[(3) - (7)].ival),
216 newCONDOP(0, (yyvsp[(4) - (7)].opval), scope((yyvsp[(6) - (7)].opval)), (yyvsp[(7) - (7)].opval)));
217 TOKEN_GETMAD((yyvsp[(1) - (7)].i_tkval),(yyval.opval),'I');
218 TOKEN_GETMAD((yyvsp[(2) - (7)].i_tkval),(yyval.opval),'(');
219 TOKEN_GETMAD((yyvsp[(5) - (7)].i_tkval),(yyval.opval),')');
225 { (yyval.opval) = block_end((yyvsp[(3) - (6)].ival),
226 newWHENOP((yyvsp[(4) - (6)].opval), scope((yyvsp[(6) - (6)].opval)))); ;}
231 { (yyval.opval) = newWHENOP(0, scope((yyvsp[(2) - (2)].opval))); ;}
236 { (yyval.opval) = Nullop; ;}
241 { (yyval.opval) = scope((yyvsp[(2) - (2)].opval));
242 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'o');
249 PL_copline = (line_t)(yyvsp[(2) - (9)].i_tkval);
250 (yyval.opval) = block_end((yyvsp[(4) - (9)].ival),
251 newSTATEOP(0, PVAL((yyvsp[(1) - (9)].p_tkval)),
252 innerop = newWHILEOP(0, 1, (LOOP*)Nullop,
253 IVAL((yyvsp[(2) - (9)].i_tkval)), (yyvsp[(5) - (9)].opval), (yyvsp[(8) - (9)].opval), (yyvsp[(9) - (9)].opval), (yyvsp[(7) - (9)].ival))));
254 TOKEN_GETMAD((yyvsp[(1) - (9)].p_tkval),innerop,'L');
255 TOKEN_GETMAD((yyvsp[(2) - (9)].i_tkval),innerop,'W');
256 TOKEN_GETMAD((yyvsp[(3) - (9)].i_tkval),innerop,'(');
257 TOKEN_GETMAD((yyvsp[(6) - (9)].i_tkval),innerop,')');
264 PL_copline = (line_t)(yyvsp[(2) - (9)].i_tkval);
265 (yyval.opval) = block_end((yyvsp[(4) - (9)].ival),
266 newSTATEOP(0, PVAL((yyvsp[(1) - (9)].p_tkval)),
267 innerop = newWHILEOP(0, 1, (LOOP*)Nullop,
268 IVAL((yyvsp[(2) - (9)].i_tkval)), (yyvsp[(5) - (9)].opval), (yyvsp[(8) - (9)].opval), (yyvsp[(9) - (9)].opval), (yyvsp[(7) - (9)].ival))));
269 TOKEN_GETMAD((yyvsp[(1) - (9)].p_tkval),innerop,'L');
270 TOKEN_GETMAD((yyvsp[(2) - (9)].i_tkval),innerop,'W');
271 TOKEN_GETMAD((yyvsp[(3) - (9)].i_tkval),innerop,'(');
272 TOKEN_GETMAD((yyvsp[(6) - (9)].i_tkval),innerop,')');
279 (yyval.opval) = block_end((yyvsp[(4) - (10)].ival),
280 innerop = newFOROP(0, PVAL((yyvsp[(1) - (10)].p_tkval)), (line_t)IVAL((yyvsp[(2) - (10)].i_tkval)),
281 (yyvsp[(5) - (10)].opval), (yyvsp[(7) - (10)].opval), (yyvsp[(9) - (10)].opval), (yyvsp[(10) - (10)].opval)));
282 TOKEN_GETMAD((yyvsp[(1) - (10)].p_tkval),((LISTOP*)innerop)->op_first,'L');
283 TOKEN_GETMAD((yyvsp[(2) - (10)].i_tkval),((LISTOP*)innerop)->op_first->op_sibling,'W');
284 TOKEN_GETMAD((yyvsp[(3) - (10)].i_tkval),((LISTOP*)innerop)->op_first->op_sibling,'d');
285 TOKEN_GETMAD((yyvsp[(6) - (10)].i_tkval),((LISTOP*)innerop)->op_first->op_sibling,'(');
286 TOKEN_GETMAD((yyvsp[(8) - (10)].i_tkval),((LISTOP*)innerop)->op_first->op_sibling,')');
293 (yyval.opval) = block_end((yyvsp[(5) - (9)].ival),
294 innerop = newFOROP(0, PVAL((yyvsp[(1) - (9)].p_tkval)), (line_t)IVAL((yyvsp[(2) - (9)].i_tkval)),
295 mod((yyvsp[(3) - (9)].opval), OP_ENTERLOOP), (yyvsp[(6) - (9)].opval), (yyvsp[(8) - (9)].opval), (yyvsp[(9) - (9)].opval)));
296 TOKEN_GETMAD((yyvsp[(1) - (9)].p_tkval),((LISTOP*)innerop)->op_first,'L');
297 TOKEN_GETMAD((yyvsp[(2) - (9)].i_tkval),((LISTOP*)innerop)->op_first->op_sibling,'W');
298 TOKEN_GETMAD((yyvsp[(4) - (9)].i_tkval),((LISTOP*)innerop)->op_first->op_sibling,'(');
299 TOKEN_GETMAD((yyvsp[(7) - (9)].i_tkval),((LISTOP*)innerop)->op_first->op_sibling,')');
306 (yyval.opval) = block_end((yyvsp[(4) - (8)].ival),
307 innerop = newFOROP(0, PVAL((yyvsp[(1) - (8)].p_tkval)), (line_t)IVAL((yyvsp[(2) - (8)].i_tkval)),
308 Nullop, (yyvsp[(5) - (8)].opval), (yyvsp[(7) - (8)].opval), (yyvsp[(8) - (8)].opval)));
309 TOKEN_GETMAD((yyvsp[(1) - (8)].p_tkval),((LISTOP*)innerop)->op_first,'L');
310 TOKEN_GETMAD((yyvsp[(2) - (8)].i_tkval),((LISTOP*)innerop)->op_first->op_sibling,'W');
311 TOKEN_GETMAD((yyvsp[(3) - (8)].i_tkval),((LISTOP*)innerop)->op_first->op_sibling,'(');
312 TOKEN_GETMAD((yyvsp[(6) - (8)].i_tkval),((LISTOP*)innerop)->op_first->op_sibling,')');
319 PL_copline = (line_t)IVAL((yyvsp[(2) - (12)].i_tkval));
320 forop = newSTATEOP(0, PVAL((yyvsp[(1) - (12)].p_tkval)),
321 newWHILEOP(0, 1, (LOOP*)Nullop,
322 IVAL((yyvsp[(2) - (12)].i_tkval)), scalar((yyvsp[(7) - (12)].opval)),
323 (yyvsp[(12) - (12)].opval), (yyvsp[(10) - (12)].opval), (yyvsp[(9) - (12)].ival)));
325 if (!(yyvsp[(5) - (12)].opval))
326 (yyvsp[(5) - (12)].opval) = newOP(OP_NULL, 0);
327 forop = newUNOP(OP_NULL, 0, append_elem(OP_LINESEQ,
329 (((yyvsp[(1) - (12)].p_tkval))->tk_lval.pval
330 ?savepv(((yyvsp[(1) - (12)].p_tkval))->tk_lval.pval):Nullch),
331 (yyvsp[(5) - (12)].opval)),
334 token_getmad((yyvsp[(2) - (12)].i_tkval),forop,'3');
335 token_getmad((yyvsp[(3) - (12)].i_tkval),forop,'(');
336 token_getmad((yyvsp[(6) - (12)].i_tkval),forop,'1');
337 token_getmad((yyvsp[(8) - (12)].i_tkval),forop,'2');
338 token_getmad((yyvsp[(11) - (12)].i_tkval),forop,')');
339 token_getmad((yyvsp[(1) - (12)].p_tkval),forop,'L');
341 if ((yyvsp[(5) - (12)].opval)) {
342 forop = append_elem(OP_LINESEQ,
343 newSTATEOP(0, ((yyvsp[(1) - (12)].p_tkval)?savepv((yyvsp[(1) - (12)].p_tkval)):Nullch),
344 (yyvsp[(5) - (12)].opval)),
350 (yyval.opval) = block_end((yyvsp[(4) - (12)].ival), forop); ;}
355 { (yyval.opval) = newSTATEOP(0, PVAL((yyvsp[(1) - (3)].p_tkval)),
356 newWHILEOP(0, 1, (LOOP*)Nullop,
357 NOLINE, Nullop, (yyvsp[(2) - (3)].opval), (yyvsp[(3) - (3)].opval), 0));
358 TOKEN_GETMAD((yyvsp[(1) - (3)].p_tkval),((LISTOP*)(yyval.opval))->op_first,'L'); ;}
363 { PL_copline = (line_t) (yyvsp[(2) - (8)].i_tkval);
364 (yyval.opval) = block_end((yyvsp[(4) - (8)].ival),
365 newSTATEOP(0, PVAL((yyvsp[(1) - (8)].p_tkval)),
366 newGIVENOP((yyvsp[(6) - (8)].opval), scope((yyvsp[(8) - (8)].opval)),
367 (PADOFFSET) (yyvsp[(5) - (8)].ival)) )); ;}
372 { (yyval.ival) = (PL_min_intro_pending &&
373 PL_max_intro_pending >= PL_min_intro_pending);
379 { (yyval.opval) = Nullop; ;}
385 (void)scan_num("1", &tmplval);
386 (yyval.opval) = tmplval.opval; ;}
391 { (yyval.opval) = invert(scalar((yyvsp[(1) - (1)].opval))); ;}
396 { (yyval.opval) = (yyvsp[(1) - (1)].opval); intro_my(); ;}
401 { (yyval.opval) = (yyvsp[(1) - (1)].opval); intro_my(); ;}
406 { (yyval.opval) = (yyvsp[(1) - (1)].opval); intro_my(); ;}
414 tmplval.pval = Nullch;
415 (yyval.p_tkval) = newTOKEN(OP_NULL, tmplval, 0);
417 (yyval.p_tkval) = Nullch;
424 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
429 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
434 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
439 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
444 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
449 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
454 { (yyval.opval) = newOP(OP_NULL,0);
455 TOKEN_GETMAD((yyvsp[(1) - (1)].i_tkval),(yyval.opval),'p');
461 { SvREFCNT_inc(PL_compcv);
463 (yyval.opval) = newFORM((yyvsp[(2) - (4)].ival), (yyvsp[(3) - (4)].opval), (yyvsp[(4) - (4)].opval));
464 prepend_madprops((yyvsp[(1) - (4)].i_tkval)->tk_mad, (yyval.opval), 'F');
465 (yyvsp[(1) - (4)].i_tkval)->tk_mad = 0;
466 token_free((yyvsp[(1) - (4)].i_tkval));
468 newFORM((yyvsp[(2) - (4)].ival), (yyvsp[(3) - (4)].opval), (yyvsp[(4) - (4)].opval));
469 (yyval.opval) = Nullop;
476 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
481 { (yyval.opval) = Nullop; ;}
486 { SvREFCNT_inc(PL_compcv);
488 (yyval.opval) = newMYSUB((yyvsp[(2) - (6)].ival), (yyvsp[(3) - (6)].opval), (yyvsp[(4) - (6)].opval), (yyvsp[(5) - (6)].opval), (yyvsp[(6) - (6)].opval));
489 token_getmad((yyvsp[(1) - (6)].i_tkval),(yyval.opval),'d');
491 newMYSUB((yyvsp[(2) - (6)].ival), (yyvsp[(3) - (6)].opval), (yyvsp[(4) - (6)].opval), (yyvsp[(5) - (6)].opval), (yyvsp[(6) - (6)].opval));
492 (yyval.opval) = Nullop;
499 { SvREFCNT_inc(PL_compcv);
501 OP* o = newSVOP(OP_ANONCODE, 0,
502 (SV*)newATTRSUB((yyvsp[(2) - (6)].ival), (yyvsp[(3) - (6)].opval), (yyvsp[(4) - (6)].opval), (yyvsp[(5) - (6)].opval), (yyvsp[(6) - (6)].opval)));
503 (yyval.opval) = newOP(OP_NULL,0);
504 op_getmad(o,(yyval.opval),'&');
505 op_getmad((yyvsp[(3) - (6)].opval),(yyval.opval),'n');
506 op_getmad((yyvsp[(4) - (6)].opval),(yyval.opval),'s');
507 op_getmad((yyvsp[(5) - (6)].opval),(yyval.opval),'a');
508 token_getmad((yyvsp[(1) - (6)].i_tkval),(yyval.opval),'d');
509 append_madprops((yyvsp[(6) - (6)].opval)->op_madprop, (yyval.opval), 0);
510 (yyvsp[(6) - (6)].opval)->op_madprop = 0;
512 newATTRSUB((yyvsp[(2) - (6)].ival), (yyvsp[(3) - (6)].opval), (yyvsp[(4) - (6)].opval), (yyvsp[(5) - (6)].opval), (yyvsp[(6) - (6)].opval));
513 (yyval.opval) = Nullop;
520 { (yyval.ival) = start_subparse(FALSE, 0);
521 SAVEFREESV(PL_compcv); ;}
526 { (yyval.ival) = start_subparse(FALSE, CVf_ANON);
527 SAVEFREESV(PL_compcv); ;}
532 { (yyval.ival) = start_subparse(TRUE, 0);
533 SAVEFREESV(PL_compcv); ;}
538 { const char *const name = SvPV_nolen_const(((SVOP*)(yyvsp[(1) - (1)].opval))->op_sv);
539 if (strEQ(name, "BEGIN") || strEQ(name, "END")
540 || strEQ(name, "INIT") || strEQ(name, "CHECK")
541 || strEQ(name, "UNITCHECK"))
542 CvSPECIAL_on(PL_compcv);
543 (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
548 { (yyval.opval) = Nullop; ;}
553 { (yyval.opval) = Nullop; ;}
558 { (yyval.opval) = (yyvsp[(2) - (2)].opval);
559 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),':');
565 { (yyval.opval) = IF_MAD(
569 TOKEN_GETMAD((yyvsp[(1) - (1)].i_tkval),(yyval.opval),':');
575 { (yyval.opval) = (yyvsp[(2) - (2)].opval);
576 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),':');
582 { (yyval.opval) = IF_MAD(
586 TOKEN_GETMAD((yyvsp[(1) - (1)].i_tkval),(yyval.opval),':');
592 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
597 { (yyval.opval) = IF_MAD(
602 TOKEN_GETMAD((yyvsp[(1) - (1)].i_tkval),(yyval.opval),';');
610 (yyval.opval) = package((yyvsp[(2) - (3)].opval));
611 token_getmad((yyvsp[(1) - (3)].i_tkval),(yyval.opval),'o');
612 token_getmad((yyvsp[(3) - (3)].i_tkval),(yyval.opval),';');
614 package((yyvsp[(2) - (3)].opval));
615 (yyval.opval) = Nullop;
622 { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ ;}
627 { SvREFCNT_inc(PL_compcv);
629 (yyval.opval) = utilize(IVAL((yyvsp[(1) - (7)].i_tkval)), (yyvsp[(2) - (7)].ival), (yyvsp[(4) - (7)].opval), (yyvsp[(5) - (7)].opval), (yyvsp[(6) - (7)].opval));
630 token_getmad((yyvsp[(1) - (7)].i_tkval),(yyval.opval),'o');
631 token_getmad((yyvsp[(7) - (7)].i_tkval),(yyval.opval),';');
632 if (PL_rsfp_filters && AvFILLp(PL_rsfp_filters) >= 0)
633 append_madprops(newMADPROP('!', MAD_PV, "", 0), (yyval.opval), 0);
635 utilize(IVAL((yyvsp[(1) - (7)].i_tkval)), (yyvsp[(2) - (7)].ival), (yyvsp[(4) - (7)].opval), (yyvsp[(5) - (7)].opval), (yyvsp[(6) - (7)].opval));
636 (yyval.opval) = Nullop;
643 { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
644 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
650 { (yyval.opval) = newLOGOP(IVAL((yyvsp[(2) - (3)].i_tkval)), 0, (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
651 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
657 { (yyval.opval) = newLOGOP(OP_DOR, 0, (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
658 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
666 OP* op = newNULLLIST();
667 token_getmad((yyvsp[(2) - (2)].i_tkval),op,',');
668 (yyval.opval) = append_elem(OP_LIST, (yyvsp[(1) - (2)].opval), op);
670 (yyval.opval) = (yyvsp[(1) - (2)].opval);
679 (yyvsp[(3) - (3)].opval) = newUNOP(OP_NULL, 0, (yyvsp[(3) - (3)].opval));
680 token_getmad((yyvsp[(2) - (3)].i_tkval),(yyvsp[(3) - (3)].opval),',');
682 (yyval.opval) = append_elem(OP_LIST, (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
688 { (yyval.opval) = convert(IVAL((yyvsp[(1) - (3)].i_tkval)), OPf_STACKED,
689 prepend_elem(OP_LIST, newGVREF(IVAL((yyvsp[(1) - (3)].i_tkval)),(yyvsp[(2) - (3)].opval)), (yyvsp[(3) - (3)].opval)) );
690 TOKEN_GETMAD((yyvsp[(1) - (3)].i_tkval),(yyval.opval),'o');
696 { (yyval.opval) = convert(IVAL((yyvsp[(1) - (5)].i_tkval)), OPf_STACKED,
697 prepend_elem(OP_LIST, newGVREF(IVAL((yyvsp[(1) - (5)].i_tkval)),(yyvsp[(3) - (5)].opval)), (yyvsp[(4) - (5)].opval)) );
698 TOKEN_GETMAD((yyvsp[(1) - (5)].i_tkval),(yyval.opval),'o');
699 TOKEN_GETMAD((yyvsp[(2) - (5)].i_tkval),(yyval.opval),'(');
700 TOKEN_GETMAD((yyvsp[(5) - (5)].i_tkval),(yyval.opval),')');
706 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
708 prepend_elem(OP_LIST, scalar((yyvsp[(1) - (6)].opval)), (yyvsp[(5) - (6)].opval)),
709 newUNOP(OP_METHOD, 0, (yyvsp[(3) - (6)].opval))));
710 TOKEN_GETMAD((yyvsp[(2) - (6)].i_tkval),(yyval.opval),'A');
711 TOKEN_GETMAD((yyvsp[(4) - (6)].i_tkval),(yyval.opval),'(');
712 TOKEN_GETMAD((yyvsp[(6) - (6)].i_tkval),(yyval.opval),')');
718 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
719 append_elem(OP_LIST, scalar((yyvsp[(1) - (3)].opval)),
720 newUNOP(OP_METHOD, 0, (yyvsp[(3) - (3)].opval))));
721 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'A');
727 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
729 prepend_elem(OP_LIST, (yyvsp[(2) - (3)].opval), (yyvsp[(3) - (3)].opval)),
730 newUNOP(OP_METHOD, 0, (yyvsp[(1) - (3)].opval))));
736 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
738 prepend_elem(OP_LIST, (yyvsp[(2) - (5)].opval), (yyvsp[(4) - (5)].opval)),
739 newUNOP(OP_METHOD, 0, (yyvsp[(1) - (5)].opval))));
740 TOKEN_GETMAD((yyvsp[(3) - (5)].i_tkval),(yyval.opval),'(');
741 TOKEN_GETMAD((yyvsp[(5) - (5)].i_tkval),(yyval.opval),')');
747 { (yyval.opval) = convert(IVAL((yyvsp[(1) - (2)].i_tkval)), 0, (yyvsp[(2) - (2)].opval));
748 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'o');
754 { (yyval.opval) = convert(IVAL((yyvsp[(1) - (4)].i_tkval)), 0, (yyvsp[(3) - (4)].opval));
755 TOKEN_GETMAD((yyvsp[(1) - (4)].i_tkval),(yyval.opval),'o');
756 TOKEN_GETMAD((yyvsp[(2) - (4)].i_tkval),(yyval.opval),'(');
757 TOKEN_GETMAD((yyvsp[(4) - (4)].i_tkval),(yyval.opval),')');
763 { SvREFCNT_inc(PL_compcv);
764 (yyvsp[(3) - (3)].opval) = newANONATTRSUB((yyvsp[(2) - (3)].ival), 0, Nullop, (yyvsp[(3) - (3)].opval)); ;}
769 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
771 prepend_elem(OP_LIST, (yyvsp[(3) - (5)].opval), (yyvsp[(5) - (5)].opval)), (yyvsp[(1) - (5)].opval)));
777 { (yyval.opval) = newBINOP(OP_GELEM, 0, (yyvsp[(1) - (5)].opval), scalar((yyvsp[(3) - (5)].opval)));
778 PL_expect = XOPERATOR;
779 TOKEN_GETMAD((yyvsp[(2) - (5)].i_tkval),(yyval.opval),'{');
780 TOKEN_GETMAD((yyvsp[(4) - (5)].i_tkval),(yyval.opval),';');
781 TOKEN_GETMAD((yyvsp[(5) - (5)].i_tkval),(yyval.opval),'}');
787 { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((yyvsp[(1) - (4)].opval)), scalar((yyvsp[(3) - (4)].opval)));
788 TOKEN_GETMAD((yyvsp[(2) - (4)].i_tkval),(yyval.opval),'[');
789 TOKEN_GETMAD((yyvsp[(4) - (4)].i_tkval),(yyval.opval),']');
795 { (yyval.opval) = newBINOP(OP_AELEM, 0,
796 ref(newAVREF((yyvsp[(1) - (5)].opval)),OP_RV2AV),
797 scalar((yyvsp[(4) - (5)].opval)));
798 TOKEN_GETMAD((yyvsp[(2) - (5)].i_tkval),(yyval.opval),'a');
799 TOKEN_GETMAD((yyvsp[(3) - (5)].i_tkval),(yyval.opval),'[');
800 TOKEN_GETMAD((yyvsp[(5) - (5)].i_tkval),(yyval.opval),']');
806 { (yyval.opval) = newBINOP(OP_AELEM, 0,
807 ref(newAVREF((yyvsp[(1) - (4)].opval)),OP_RV2AV),
808 scalar((yyvsp[(3) - (4)].opval)));
809 TOKEN_GETMAD((yyvsp[(2) - (4)].i_tkval),(yyval.opval),'[');
810 TOKEN_GETMAD((yyvsp[(4) - (4)].i_tkval),(yyval.opval),']');
816 { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((yyvsp[(1) - (5)].opval)), jmaybe((yyvsp[(3) - (5)].opval)));
817 PL_expect = XOPERATOR;
818 TOKEN_GETMAD((yyvsp[(2) - (5)].i_tkval),(yyval.opval),'{');
819 TOKEN_GETMAD((yyvsp[(4) - (5)].i_tkval),(yyval.opval),';');
820 TOKEN_GETMAD((yyvsp[(5) - (5)].i_tkval),(yyval.opval),'}');
826 { (yyval.opval) = newBINOP(OP_HELEM, 0,
827 ref(newHVREF((yyvsp[(1) - (6)].opval)),OP_RV2HV),
828 jmaybe((yyvsp[(4) - (6)].opval)));
829 PL_expect = XOPERATOR;
830 TOKEN_GETMAD((yyvsp[(2) - (6)].i_tkval),(yyval.opval),'a');
831 TOKEN_GETMAD((yyvsp[(3) - (6)].i_tkval),(yyval.opval),'{');
832 TOKEN_GETMAD((yyvsp[(5) - (6)].i_tkval),(yyval.opval),';');
833 TOKEN_GETMAD((yyvsp[(6) - (6)].i_tkval),(yyval.opval),'}');
839 { (yyval.opval) = newBINOP(OP_HELEM, 0,
840 ref(newHVREF((yyvsp[(1) - (5)].opval)),OP_RV2HV),
841 jmaybe((yyvsp[(3) - (5)].opval)));
842 PL_expect = XOPERATOR;
843 TOKEN_GETMAD((yyvsp[(2) - (5)].i_tkval),(yyval.opval),'{');
844 TOKEN_GETMAD((yyvsp[(4) - (5)].i_tkval),(yyval.opval),';');
845 TOKEN_GETMAD((yyvsp[(5) - (5)].i_tkval),(yyval.opval),'}');
851 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
852 newCVREF(0, scalar((yyvsp[(1) - (4)].opval))));
853 TOKEN_GETMAD((yyvsp[(2) - (4)].i_tkval),(yyval.opval),'a');
854 TOKEN_GETMAD((yyvsp[(3) - (4)].i_tkval),(yyval.opval),'(');
855 TOKEN_GETMAD((yyvsp[(4) - (4)].i_tkval),(yyval.opval),')');
861 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
862 append_elem(OP_LIST, (yyvsp[(4) - (5)].opval),
863 newCVREF(0, scalar((yyvsp[(1) - (5)].opval)))));
864 TOKEN_GETMAD((yyvsp[(2) - (5)].i_tkval),(yyval.opval),'a');
865 TOKEN_GETMAD((yyvsp[(3) - (5)].i_tkval),(yyval.opval),'(');
866 TOKEN_GETMAD((yyvsp[(5) - (5)].i_tkval),(yyval.opval),')');
872 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
873 append_elem(OP_LIST, (yyvsp[(3) - (4)].opval),
874 newCVREF(0, scalar((yyvsp[(1) - (4)].opval)))));
875 TOKEN_GETMAD((yyvsp[(2) - (4)].i_tkval),(yyval.opval),'(');
876 TOKEN_GETMAD((yyvsp[(4) - (4)].i_tkval),(yyval.opval),')');
882 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
883 newCVREF(0, scalar((yyvsp[(1) - (3)].opval))));
884 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'(');
885 TOKEN_GETMAD((yyvsp[(3) - (3)].i_tkval),(yyval.opval),')');
891 { (yyval.opval) = newSLICEOP(0, (yyvsp[(5) - (6)].opval), (yyvsp[(2) - (6)].opval));
892 TOKEN_GETMAD((yyvsp[(1) - (6)].i_tkval),(yyval.opval),'(');
893 TOKEN_GETMAD((yyvsp[(3) - (6)].i_tkval),(yyval.opval),')');
894 TOKEN_GETMAD((yyvsp[(4) - (6)].i_tkval),(yyval.opval),'[');
895 TOKEN_GETMAD((yyvsp[(6) - (6)].i_tkval),(yyval.opval),']');
901 { (yyval.opval) = newSLICEOP(0, (yyvsp[(4) - (5)].opval), Nullop);
902 TOKEN_GETMAD((yyvsp[(1) - (5)].i_tkval),(yyval.opval),'(');
903 TOKEN_GETMAD((yyvsp[(2) - (5)].i_tkval),(yyval.opval),')');
904 TOKEN_GETMAD((yyvsp[(3) - (5)].i_tkval),(yyval.opval),'[');
905 TOKEN_GETMAD((yyvsp[(5) - (5)].i_tkval),(yyval.opval),']');
911 { (yyval.opval) = newASSIGNOP(OPf_STACKED, (yyvsp[(1) - (3)].opval), IVAL((yyvsp[(2) - (3)].i_tkval)), (yyvsp[(3) - (3)].opval));
912 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
918 { (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].i_tkval)), 0, scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
919 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
925 { if (IVAL((yyvsp[(2) - (3)].i_tkval)) != OP_REPEAT)
926 scalar((yyvsp[(1) - (3)].opval));
927 (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].i_tkval)), 0, (yyvsp[(1) - (3)].opval), scalar((yyvsp[(3) - (3)].opval)));
928 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
934 { (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].i_tkval)), 0, scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
935 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
941 { (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].i_tkval)), 0, scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
942 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
948 { (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].i_tkval)), 0, scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
949 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
955 { (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].i_tkval)), 0, scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
956 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
962 { (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].i_tkval)), 0, scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
963 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
969 { (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].i_tkval)), 0, scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
970 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
977 (yyval.opval) = newRANGE(IVAL((yyvsp[(2) - (3)].i_tkval)), scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
980 op = (UNOP*)(yyval.opval);
981 op = (UNOP*)op->op_first; /* get to flop */
982 op = (UNOP*)op->op_first; /* get to flip */
983 op = (UNOP*)op->op_first; /* get to range */
984 token_getmad((yyvsp[(2) - (3)].i_tkval),(OP*)op,'o');
991 { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
992 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
998 { (yyval.opval) = newLOGOP(OP_OR, 0, (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
999 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
1005 { (yyval.opval) = newLOGOP(OP_DOR, 0, (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
1006 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'o');
1012 { (yyval.opval) = bind_match(IVAL((yyvsp[(2) - (3)].i_tkval)), (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
1013 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),
1014 ((yyval.opval)->op_type == OP_NOT
1015 ? ((UNOP*)(yyval.opval))->op_first : (yyval.opval)),
1022 { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((yyvsp[(2) - (2)].opval)));
1023 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'o');
1029 { (yyval.opval) = IF_MAD(
1030 newUNOP(OP_NULL, 0, (yyvsp[(2) - (2)].opval)),
1031 (yyvsp[(2) - (2)].opval)
1033 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'+');
1039 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((yyvsp[(2) - (2)].opval)));
1040 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'o');
1046 { (yyval.opval) = newUNOP(OP_COMPLEMENT, 0, scalar((yyvsp[(2) - (2)].opval)));
1047 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'o');
1053 { (yyval.opval) = newUNOP(OP_POSTINC, 0,
1054 mod(scalar((yyvsp[(1) - (2)].opval)), OP_POSTINC));
1055 TOKEN_GETMAD((yyvsp[(2) - (2)].i_tkval),(yyval.opval),'o');
1061 { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
1062 mod(scalar((yyvsp[(1) - (2)].opval)), OP_POSTDEC));
1063 TOKEN_GETMAD((yyvsp[(2) - (2)].i_tkval),(yyval.opval),'o');
1069 { (yyval.opval) = newUNOP(OP_PREINC, 0,
1070 mod(scalar((yyvsp[(2) - (2)].opval)), OP_PREINC));
1071 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'o');
1077 { (yyval.opval) = newUNOP(OP_PREDEC, 0,
1078 mod(scalar((yyvsp[(2) - (2)].opval)), OP_PREDEC));
1079 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'o');
1085 { (yyval.opval) = newANONLIST((yyvsp[(2) - (3)].opval));
1086 TOKEN_GETMAD((yyvsp[(1) - (3)].i_tkval),(yyval.opval),'[');
1087 TOKEN_GETMAD((yyvsp[(3) - (3)].i_tkval),(yyval.opval),']');
1093 { (yyval.opval) = newANONLIST(Nullop);
1094 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'[');
1095 TOKEN_GETMAD((yyvsp[(2) - (2)].i_tkval),(yyval.opval),']');
1101 { (yyval.opval) = newANONHASH((yyvsp[(2) - (4)].opval));
1102 TOKEN_GETMAD((yyvsp[(1) - (4)].i_tkval),(yyval.opval),'{');
1103 TOKEN_GETMAD((yyvsp[(3) - (4)].i_tkval),(yyval.opval),';');
1104 TOKEN_GETMAD((yyvsp[(4) - (4)].i_tkval),(yyval.opval),'}');
1110 { (yyval.opval) = newANONHASH(Nullop);
1111 TOKEN_GETMAD((yyvsp[(1) - (3)].i_tkval),(yyval.opval),'{');
1112 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),';');
1113 TOKEN_GETMAD((yyvsp[(3) - (3)].i_tkval),(yyval.opval),'}');
1118 #line 1004 "perly.y"
1119 { SvREFCNT_inc(PL_compcv);
1120 (yyval.opval) = newANONATTRSUB((yyvsp[(2) - (5)].ival), (yyvsp[(3) - (5)].opval), (yyvsp[(4) - (5)].opval), (yyvsp[(5) - (5)].opval));
1121 TOKEN_GETMAD((yyvsp[(1) - (5)].i_tkval),(yyval.opval),'o');
1122 OP_GETMAD((yyvsp[(3) - (5)].opval),(yyval.opval),'s');
1123 OP_GETMAD((yyvsp[(4) - (5)].opval),(yyval.opval),'a');
1128 #line 1015 "perly.y"
1129 { (yyval.opval) = dofile((yyvsp[(2) - (2)].opval), IVAL((yyvsp[(1) - (2)].i_tkval)));
1130 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'o');
1135 #line 1019 "perly.y"
1136 { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, scope((yyvsp[(2) - (2)].opval)));
1137 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'D');
1142 #line 1023 "perly.y"
1143 { (yyval.opval) = newUNOP(OP_ENTERSUB,
1144 OPf_SPECIAL|OPf_STACKED,
1145 prepend_elem(OP_LIST,
1147 (OPpENTERSUB_AMPER<<8),
1148 scalar((yyvsp[(2) - (4)].opval))
1150 TOKEN_GETMAD((yyvsp[(1) - (4)].i_tkval),(yyval.opval),'o');
1151 TOKEN_GETMAD((yyvsp[(3) - (4)].i_tkval),(yyval.opval),'(');
1152 TOKEN_GETMAD((yyvsp[(4) - (4)].i_tkval),(yyval.opval),')');
1157 #line 1035 "perly.y"
1158 { (yyval.opval) = newUNOP(OP_ENTERSUB,
1159 OPf_SPECIAL|OPf_STACKED,
1160 append_elem(OP_LIST,
1161 (yyvsp[(4) - (5)].opval),
1163 (OPpENTERSUB_AMPER<<8),
1164 scalar((yyvsp[(2) - (5)].opval))
1166 TOKEN_GETMAD((yyvsp[(1) - (5)].i_tkval),(yyval.opval),'o');
1167 TOKEN_GETMAD((yyvsp[(3) - (5)].i_tkval),(yyval.opval),'(');
1168 TOKEN_GETMAD((yyvsp[(5) - (5)].i_tkval),(yyval.opval),')');
1173 #line 1048 "perly.y"
1174 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
1175 prepend_elem(OP_LIST,
1176 scalar(newCVREF(0,scalar((yyvsp[(2) - (4)].opval)))), Nullop)); dep();
1177 TOKEN_GETMAD((yyvsp[(1) - (4)].i_tkval),(yyval.opval),'o');
1178 TOKEN_GETMAD((yyvsp[(3) - (4)].i_tkval),(yyval.opval),'(');
1179 TOKEN_GETMAD((yyvsp[(4) - (4)].i_tkval),(yyval.opval),')');
1184 #line 1056 "perly.y"
1185 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
1186 prepend_elem(OP_LIST,
1187 (yyvsp[(4) - (5)].opval),
1188 scalar(newCVREF(0,scalar((yyvsp[(2) - (5)].opval)))))); dep();
1189 TOKEN_GETMAD((yyvsp[(1) - (5)].i_tkval),(yyval.opval),'o');
1190 TOKEN_GETMAD((yyvsp[(3) - (5)].i_tkval),(yyval.opval),'(');
1191 TOKEN_GETMAD((yyvsp[(5) - (5)].i_tkval),(yyval.opval),')');
1196 #line 1072 "perly.y"
1197 { (yyval.opval) = newCONDOP(0, (yyvsp[(1) - (5)].opval), (yyvsp[(3) - (5)].opval), (yyvsp[(5) - (5)].opval));
1198 TOKEN_GETMAD((yyvsp[(2) - (5)].i_tkval),(yyval.opval),'?');
1199 TOKEN_GETMAD((yyvsp[(4) - (5)].i_tkval),(yyval.opval),':');
1204 #line 1077 "perly.y"
1205 { (yyval.opval) = newUNOP(OP_REFGEN, 0, mod((yyvsp[(2) - (2)].opval),OP_REFGEN));
1206 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'o');
1211 #line 1081 "perly.y"
1212 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1216 #line 1083 "perly.y"
1217 { (yyval.opval) = localize((yyvsp[(2) - (2)].opval),IVAL((yyvsp[(1) - (2)].i_tkval)));
1218 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'d');
1223 #line 1087 "perly.y"
1224 { (yyval.opval) = sawparens(IF_MAD(newUNOP(OP_NULL,0,(yyvsp[(2) - (3)].opval)), (yyvsp[(2) - (3)].opval)));
1225 TOKEN_GETMAD((yyvsp[(1) - (3)].i_tkval),(yyval.opval),'(');
1226 TOKEN_GETMAD((yyvsp[(3) - (3)].i_tkval),(yyval.opval),')');
1231 #line 1092 "perly.y"
1232 { (yyval.opval) = sawparens(newNULLLIST());
1233 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'(');
1234 TOKEN_GETMAD((yyvsp[(2) - (2)].i_tkval),(yyval.opval),')');
1239 #line 1097 "perly.y"
1240 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1244 #line 1099 "perly.y"
1245 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1249 #line 1101 "perly.y"
1250 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1254 #line 1103 "perly.y"
1255 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1259 #line 1105 "perly.y"
1260 { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((yyvsp[(1) - (1)].opval), OP_AV2ARYLEN));;}
1264 #line 1107 "perly.y"
1265 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1269 #line 1109 "perly.y"
1270 { (yyval.opval) = prepend_elem(OP_ASLICE,
1271 newOP(OP_PUSHMARK, 0),
1272 newLISTOP(OP_ASLICE, 0,
1273 list((yyvsp[(3) - (4)].opval)),
1274 ref((yyvsp[(1) - (4)].opval), OP_ASLICE)));
1275 TOKEN_GETMAD((yyvsp[(2) - (4)].i_tkval),(yyval.opval),'[');
1276 TOKEN_GETMAD((yyvsp[(4) - (4)].i_tkval),(yyval.opval),']');
1281 #line 1118 "perly.y"
1282 { (yyval.opval) = prepend_elem(OP_HSLICE,
1283 newOP(OP_PUSHMARK, 0),
1284 newLISTOP(OP_HSLICE, 0,
1285 list((yyvsp[(3) - (5)].opval)),
1286 ref(oopsHV((yyvsp[(1) - (5)].opval)), OP_HSLICE)));
1287 PL_expect = XOPERATOR;
1288 TOKEN_GETMAD((yyvsp[(2) - (5)].i_tkval),(yyval.opval),'{');
1289 TOKEN_GETMAD((yyvsp[(4) - (5)].i_tkval),(yyval.opval),';');
1290 TOKEN_GETMAD((yyvsp[(5) - (5)].i_tkval),(yyval.opval),'}');
1295 #line 1129 "perly.y"
1296 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1300 #line 1131 "perly.y"
1301 { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((yyvsp[(1) - (1)].opval))); ;}
1305 #line 1133 "perly.y"
1306 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((yyvsp[(1) - (3)].opval)));
1307 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'(');
1308 TOKEN_GETMAD((yyvsp[(3) - (3)].i_tkval),(yyval.opval),')');
1313 #line 1138 "perly.y"
1315 (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1316 append_elem(OP_LIST, (yyvsp[(3) - (4)].opval), scalar((yyvsp[(1) - (4)].opval))));
1318 OP* op = (yyval.opval);
1319 if (op->op_type == OP_CONST) { /* defeat const fold */
1320 op = (OP*)op->op_madprop->mad_val;
1322 token_getmad((yyvsp[(2) - (4)].i_tkval),op,'(');
1323 token_getmad((yyvsp[(4) - (4)].i_tkval),op,')');
1329 #line 1151 "perly.y"
1330 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1331 append_elem(OP_LIST, (yyvsp[(3) - (3)].opval), scalar((yyvsp[(2) - (3)].opval))));
1332 TOKEN_GETMAD((yyvsp[(1) - (3)].i_tkval),(yyval.opval),'o');
1337 #line 1156 "perly.y"
1338 { (yyval.opval) = newOP(IVAL((yyvsp[(1) - (1)].i_tkval)), OPf_SPECIAL);
1339 PL_hints |= HINT_BLOCK_SCOPE;
1340 TOKEN_GETMAD((yyvsp[(1) - (1)].i_tkval),(yyval.opval),'o');
1345 #line 1161 "perly.y"
1346 { (yyval.opval) = newLOOPEX(IVAL((yyvsp[(1) - (2)].i_tkval)),(yyvsp[(2) - (2)].opval));
1347 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'o');
1352 #line 1165 "perly.y"
1353 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((yyvsp[(2) - (2)].opval)));
1354 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'o');
1359 #line 1169 "perly.y"
1360 { (yyval.opval) = newOP(IVAL((yyvsp[(1) - (1)].i_tkval)), 0);
1361 TOKEN_GETMAD((yyvsp[(1) - (1)].i_tkval),(yyval.opval),'o');
1366 #line 1173 "perly.y"
1367 { (yyval.opval) = newUNOP(IVAL((yyvsp[(1) - (2)].i_tkval)), 0, (yyvsp[(2) - (2)].opval));
1368 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'o');
1373 #line 1177 "perly.y"
1374 { (yyval.opval) = newUNOP(IVAL((yyvsp[(1) - (2)].i_tkval)), 0, (yyvsp[(2) - (2)].opval));
1375 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'o');
1380 #line 1181 "perly.y"
1381 { (yyval.opval) = newOP(OP_REQUIRE, (yyvsp[(1) - (1)].i_tkval) ? OPf_SPECIAL : 0); ;}
1385 #line 1183 "perly.y"
1386 { (yyval.opval) = newUNOP(OP_REQUIRE, (yyvsp[(1) - (2)].i_tkval) ? OPf_SPECIAL : 0, (yyvsp[(2) - (2)].opval)); ;}
1390 #line 1185 "perly.y"
1391 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((yyvsp[(1) - (1)].opval))); ;}
1395 #line 1187 "perly.y"
1396 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1397 append_elem(OP_LIST, (yyvsp[(2) - (2)].opval), scalar((yyvsp[(1) - (2)].opval)))); ;}
1401 #line 1190 "perly.y"
1402 { (yyval.opval) = newOP(IVAL((yyvsp[(1) - (1)].i_tkval)), 0);
1403 TOKEN_GETMAD((yyvsp[(1) - (1)].i_tkval),(yyval.opval),'o');
1408 #line 1194 "perly.y"
1409 { (yyval.opval) = newOP(IVAL((yyvsp[(1) - (3)].i_tkval)), 0);
1410 TOKEN_GETMAD((yyvsp[(1) - (3)].i_tkval),(yyval.opval),'o');
1411 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'(');
1412 TOKEN_GETMAD((yyvsp[(3) - (3)].i_tkval),(yyval.opval),')');
1417 #line 1200 "perly.y"
1418 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1419 scalar((yyvsp[(1) - (1)].opval))); ;}
1423 #line 1203 "perly.y"
1424 { (yyval.opval) = (IVAL((yyvsp[(1) - (3)].i_tkval)) == OP_NOT)
1425 ? newUNOP(IVAL((yyvsp[(1) - (3)].i_tkval)), 0, newSVOP(OP_CONST, 0, newSViv(0)))
1426 : newOP(IVAL((yyvsp[(1) - (3)].i_tkval)), OPf_SPECIAL);
1428 TOKEN_GETMAD((yyvsp[(1) - (3)].i_tkval),(yyval.opval),'o');
1429 TOKEN_GETMAD((yyvsp[(2) - (3)].i_tkval),(yyval.opval),'(');
1430 TOKEN_GETMAD((yyvsp[(3) - (3)].i_tkval),(yyval.opval),')');
1435 #line 1212 "perly.y"
1436 { (yyval.opval) = newUNOP(IVAL((yyvsp[(1) - (4)].i_tkval)), 0, (yyvsp[(3) - (4)].opval));
1437 TOKEN_GETMAD((yyvsp[(1) - (4)].i_tkval),(yyval.opval),'o');
1438 TOKEN_GETMAD((yyvsp[(2) - (4)].i_tkval),(yyval.opval),'(');
1439 TOKEN_GETMAD((yyvsp[(4) - (4)].i_tkval),(yyval.opval),')');
1444 #line 1218 "perly.y"
1445 { (yyval.opval) = pmruntime((yyvsp[(1) - (4)].opval), (yyvsp[(3) - (4)].opval), 1);
1446 TOKEN_GETMAD((yyvsp[(2) - (4)].i_tkval),(yyval.opval),'(');
1447 TOKEN_GETMAD((yyvsp[(4) - (4)].i_tkval),(yyval.opval),')');
1452 #line 1228 "perly.y"
1453 { (yyval.opval) = my_attrs((yyvsp[(2) - (3)].opval),(yyvsp[(3) - (3)].opval));
1455 token_getmad((yyvsp[(1) - (3)].i_tkval),(yyval.opval),'d');
1456 append_madprops((yyvsp[(3) - (3)].opval)->op_madprop, (yyval.opval), 'a');
1457 (yyvsp[(3) - (3)].opval)->op_madprop = 0;
1463 #line 1236 "perly.y"
1464 { (yyval.opval) = localize((yyvsp[(2) - (2)].opval),IVAL((yyvsp[(1) - (2)].i_tkval)));
1465 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'d');
1470 #line 1243 "perly.y"
1471 { (yyval.opval) = sawparens((yyvsp[(2) - (3)].opval));
1472 TOKEN_GETMAD((yyvsp[(1) - (3)].i_tkval),(yyval.opval),'(');
1473 TOKEN_GETMAD((yyvsp[(3) - (3)].i_tkval),(yyval.opval),')');
1478 #line 1248 "perly.y"
1479 { (yyval.opval) = sawparens(newNULLLIST());
1480 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'(');
1481 TOKEN_GETMAD((yyvsp[(2) - (2)].i_tkval),(yyval.opval),')');
1486 #line 1253 "perly.y"
1487 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1491 #line 1255 "perly.y"
1492 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1496 #line 1257 "perly.y"
1497 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1501 #line 1262 "perly.y"
1502 { (yyval.opval) = Nullop; ;}
1506 #line 1264 "perly.y"
1507 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1511 #line 1268 "perly.y"
1512 { (yyval.opval) = Nullop; ;}
1516 #line 1270 "perly.y"
1517 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1521 #line 1272 "perly.y"
1524 OP* op = newNULLLIST();
1525 token_getmad((yyvsp[(2) - (2)].i_tkval),op,',');
1526 (yyval.opval) = append_elem(OP_LIST, (yyvsp[(1) - (2)].opval), op);
1528 (yyval.opval) = (yyvsp[(1) - (2)].opval);
1535 #line 1287 "perly.y"
1536 { PL_in_my = 0; (yyval.opval) = my((yyvsp[(1) - (1)].opval)); ;}
1540 #line 1291 "perly.y"
1541 { (yyval.opval) = newCVREF(IVAL((yyvsp[(1) - (2)].i_tkval)),(yyvsp[(2) - (2)].opval));
1542 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'&');
1547 #line 1297 "perly.y"
1548 { (yyval.opval) = newSVREF((yyvsp[(2) - (2)].opval));
1549 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'$');
1554 #line 1303 "perly.y"
1555 { (yyval.opval) = newAVREF((yyvsp[(2) - (2)].opval));
1556 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'@');
1561 #line 1309 "perly.y"
1562 { (yyval.opval) = newHVREF((yyvsp[(2) - (2)].opval));
1563 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'%');
1568 #line 1315 "perly.y"
1569 { (yyval.opval) = newAVREF((yyvsp[(2) - (2)].opval));
1570 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'l');
1575 #line 1321 "perly.y"
1576 { (yyval.opval) = newGVREF(0,(yyvsp[(2) - (2)].opval));
1577 TOKEN_GETMAD((yyvsp[(1) - (2)].i_tkval),(yyval.opval),'*');
1582 #line 1328 "perly.y"
1583 { (yyval.opval) = scalar((yyvsp[(1) - (1)].opval)); ;}
1587 #line 1330 "perly.y"
1588 { (yyval.opval) = scalar((yyvsp[(1) - (1)].opval)); ;}
1592 #line 1332 "perly.y"
1593 { (yyval.opval) = scope((yyvsp[(1) - (1)].opval)); ;}
1597 #line 1335 "perly.y"
1598 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1602 /* Line 1267 of yacc.c. */