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)].tkval)))
9 PL_copline = (line_t)IVAL((yyvsp[(1) - (4)].tkval));
10 (yyval.opval) = block_end((yyvsp[(2) - (4)].ival), (yyvsp[(3) - (4)].opval));
11 TOKEN_GETMAD((yyvsp[(1) - (4)].tkval),(yyval.opval),'{');
12 TOKEN_GETMAD((yyvsp[(4) - (4)].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)].tkval)))
36 PL_copline = (line_t)IVAL((yyvsp[(1) - (4)].tkval));
37 (yyval.opval) = block_end((yyvsp[(2) - (4)].ival), (yyvsp[(3) - (4)].opval));
38 TOKEN_GETMAD((yyvsp[(1) - (4)].tkval),(yyval.opval),'{');
39 TOKEN_GETMAD((yyvsp[(4) - (4)].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)].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)].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)].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)].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)].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)].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)].tkval),(yyval.opval),'w');
172 { (yyval.opval) = newFOROP(0, Nullch, (line_t)IVAL((yyvsp[(2) - (3)].tkval)),
173 Nullop, (yyvsp[(3) - (3)].opval), (yyvsp[(1) - (3)].opval), Nullop);
174 TOKEN_GETMAD((yyvsp[(2) - (3)].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)].tkval),(yyval.opval),'o');
192 { PL_copline = (line_t)IVAL((yyvsp[(1) - (6)].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)].tkval),(yyval.opval),'I');
196 TOKEN_GETMAD((yyvsp[(2) - (6)].tkval),(yyval.opval),'(');
197 TOKEN_GETMAD((yyvsp[(4) - (6)].tkval),(yyval.opval),')');
203 { PL_copline = (line_t)IVAL((yyvsp[(1) - (7)].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)].tkval),(yyval.opval),'I');
207 TOKEN_GETMAD((yyvsp[(2) - (7)].tkval),(yyval.opval),'(');
208 TOKEN_GETMAD((yyvsp[(5) - (7)].tkval),(yyval.opval),')');
214 { PL_copline = (line_t)IVAL((yyvsp[(1) - (7)].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)].tkval),(yyval.opval),'I');
218 TOKEN_GETMAD((yyvsp[(2) - (7)].tkval),(yyval.opval),'(');
219 TOKEN_GETMAD((yyvsp[(5) - (7)].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)].tkval),(yyval.opval),'o');
249 PL_copline = (line_t)(yyvsp[(2) - (9)].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)].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)].tkval),innerop,'W');
256 TOKEN_GETMAD((yyvsp[(3) - (9)].tkval),innerop,'(');
257 TOKEN_GETMAD((yyvsp[(6) - (9)].tkval),innerop,')');
264 PL_copline = (line_t)(yyvsp[(2) - (9)].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)].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)].tkval),innerop,'W');
271 TOKEN_GETMAD((yyvsp[(3) - (9)].tkval),innerop,'(');
272 TOKEN_GETMAD((yyvsp[(6) - (9)].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)].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)].tkval),((LISTOP*)innerop)->op_first->op_sibling,'W');
284 TOKEN_GETMAD((yyvsp[(3) - (10)].tkval),((LISTOP*)innerop)->op_first->op_sibling,'d');
285 TOKEN_GETMAD((yyvsp[(6) - (10)].tkval),((LISTOP*)innerop)->op_first->op_sibling,'(');
286 TOKEN_GETMAD((yyvsp[(8) - (10)].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)].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)].tkval),((LISTOP*)innerop)->op_first->op_sibling,'W');
298 TOKEN_GETMAD((yyvsp[(4) - (9)].tkval),((LISTOP*)innerop)->op_first->op_sibling,'(');
299 TOKEN_GETMAD((yyvsp[(7) - (9)].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)].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)].tkval),((LISTOP*)innerop)->op_first->op_sibling,'W');
311 TOKEN_GETMAD((yyvsp[(3) - (8)].tkval),((LISTOP*)innerop)->op_first->op_sibling,'(');
312 TOKEN_GETMAD((yyvsp[(6) - (8)].tkval),((LISTOP*)innerop)->op_first->op_sibling,')');
319 PL_copline = (line_t)IVAL((yyvsp[(2) - (12)].tkval));
320 forop = newSTATEOP(0, PVAL((yyvsp[(1) - (12)].p_tkval)),
321 newWHILEOP(0, 1, (LOOP*)Nullop,
322 IVAL((yyvsp[(2) - (12)].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)].tkval),forop,'3');
335 token_getmad((yyvsp[(3) - (12)].tkval),forop,'(');
336 token_getmad((yyvsp[(6) - (12)].tkval),forop,'1');
337 token_getmad((yyvsp[(8) - (12)].tkval),forop,'2');
338 token_getmad((yyvsp[(11) - (12)].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)].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)].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)].tkval)->tk_mad, (yyval.opval), 'F');
465 (yyvsp[(1) - (4)].tkval)->tk_mad = 0;
466 token_free((yyvsp[(1) - (4)].tkval));
468 newFORM((yyvsp[(2) - (4)].ival), (yyvsp[(3) - (4)].opval), (yyvsp[(4) - (4)].opval));
475 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
480 { (yyval.opval) = Nullop; ;}
485 { SvREFCNT_inc(PL_compcv);
487 (yyval.opval) = newMYSUB((yyvsp[(2) - (6)].ival), (yyvsp[(3) - (6)].opval), (yyvsp[(4) - (6)].opval), (yyvsp[(5) - (6)].opval), (yyvsp[(6) - (6)].opval));
488 token_getmad((yyvsp[(1) - (6)].tkval),(yyval.opval),'d');
490 newMYSUB((yyvsp[(2) - (6)].ival), (yyvsp[(3) - (6)].opval), (yyvsp[(4) - (6)].opval), (yyvsp[(5) - (6)].opval), (yyvsp[(6) - (6)].opval));
497 { SvREFCNT_inc(PL_compcv);
499 OP* o = newSVOP(OP_ANONCODE, 0,
500 (SV*)newATTRSUB((yyvsp[(2) - (6)].ival), (yyvsp[(3) - (6)].opval), (yyvsp[(4) - (6)].opval), (yyvsp[(5) - (6)].opval), (yyvsp[(6) - (6)].opval)));
501 (yyval.opval) = newOP(OP_NULL,0);
502 op_getmad(o,(yyval.opval),'&');
503 op_getmad((yyvsp[(3) - (6)].opval),(yyval.opval),'n');
504 op_getmad((yyvsp[(4) - (6)].opval),(yyval.opval),'s');
505 op_getmad((yyvsp[(5) - (6)].opval),(yyval.opval),'a');
506 token_getmad((yyvsp[(1) - (6)].tkval),(yyval.opval),'d');
507 append_madprops((yyvsp[(6) - (6)].opval)->op_madprop, (yyval.opval), 0);
508 (yyvsp[(6) - (6)].opval)->op_madprop = 0;
510 newATTRSUB((yyvsp[(2) - (6)].ival), (yyvsp[(3) - (6)].opval), (yyvsp[(4) - (6)].opval), (yyvsp[(5) - (6)].opval), (yyvsp[(6) - (6)].opval));
511 (yyval.opval) = Nullop;
518 { (yyval.ival) = start_subparse(FALSE, 0);
519 SAVEFREESV(PL_compcv); ;}
524 { (yyval.ival) = start_subparse(FALSE, CVf_ANON);
525 SAVEFREESV(PL_compcv); ;}
530 { (yyval.ival) = start_subparse(TRUE, 0);
531 SAVEFREESV(PL_compcv); ;}
536 { const char *const name = SvPV_nolen_const(((SVOP*)(yyvsp[(1) - (1)].opval))->op_sv);
537 if (strEQ(name, "BEGIN") || strEQ(name, "END")
538 || strEQ(name, "INIT") || strEQ(name, "CHECK")
539 || strEQ(name, "UNITCHECK"))
540 CvSPECIAL_on(PL_compcv);
541 (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
546 { (yyval.opval) = Nullop; ;}
551 { (yyval.opval) = Nullop; ;}
556 { (yyval.opval) = (yyvsp[(2) - (2)].opval);
557 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),':');
563 { (yyval.opval) = IF_MAD(
567 TOKEN_GETMAD((yyvsp[(1) - (1)].tkval),(yyval.opval),':');
573 { (yyval.opval) = (yyvsp[(2) - (2)].opval);
574 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),':');
580 { (yyval.opval) = IF_MAD(
584 TOKEN_GETMAD((yyvsp[(1) - (1)].tkval),(yyval.opval),':');
590 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
595 { (yyval.opval) = IF_MAD(
600 TOKEN_GETMAD((yyvsp[(1) - (1)].tkval),(yyval.opval),';');
608 (yyval.opval) = package((yyvsp[(2) - (3)].opval));
609 token_getmad((yyvsp[(1) - (3)].tkval),(yyval.opval),'o');
610 token_getmad((yyvsp[(3) - (3)].tkval),(yyval.opval),';');
612 package((yyvsp[(2) - (3)].opval));
619 { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ ;}
624 { SvREFCNT_inc(PL_compcv);
626 (yyval.opval) = utilize(IVAL((yyvsp[(1) - (7)].tkval)), (yyvsp[(2) - (7)].ival), (yyvsp[(4) - (7)].opval), (yyvsp[(5) - (7)].opval), (yyvsp[(6) - (7)].opval));
627 token_getmad((yyvsp[(1) - (7)].tkval),(yyval.opval),'o');
628 token_getmad((yyvsp[(7) - (7)].tkval),(yyval.opval),';');
629 if (PL_rsfp_filters && AvFILLp(PL_rsfp_filters) >= 0)
630 append_madprops(newMADPROP('!', MAD_PV, "", 0), (yyval.opval), 0);
632 utilize(IVAL((yyvsp[(1) - (7)].tkval)), (yyvsp[(2) - (7)].ival), (yyvsp[(4) - (7)].opval), (yyvsp[(5) - (7)].opval), (yyvsp[(6) - (7)].opval));
639 { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
640 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
646 { (yyval.opval) = newLOGOP(IVAL((yyvsp[(2) - (3)].tkval)), 0, (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
647 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
653 { (yyval.opval) = newLOGOP(OP_DOR, 0, (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
654 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
662 OP* op = newNULLLIST();
663 token_getmad((yyvsp[(2) - (2)].tkval),op,',');
664 (yyval.opval) = append_elem(OP_LIST, (yyvsp[(1) - (2)].opval), op);
666 (yyval.opval) = (yyvsp[(1) - (2)].opval);
675 (yyvsp[(3) - (3)].opval) = newUNOP(OP_NULL, 0, (yyvsp[(3) - (3)].opval));
676 token_getmad((yyvsp[(2) - (3)].tkval),(yyvsp[(3) - (3)].opval),',');
678 (yyval.opval) = append_elem(OP_LIST, (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
684 { (yyval.opval) = convert(IVAL((yyvsp[(1) - (3)].tkval)), OPf_STACKED,
685 prepend_elem(OP_LIST, newGVREF(IVAL((yyvsp[(1) - (3)].tkval)),(yyvsp[(2) - (3)].opval)), (yyvsp[(3) - (3)].opval)) );
686 TOKEN_GETMAD((yyvsp[(1) - (3)].tkval),(yyval.opval),'o');
692 { (yyval.opval) = convert(IVAL((yyvsp[(1) - (5)].tkval)), OPf_STACKED,
693 prepend_elem(OP_LIST, newGVREF(IVAL((yyvsp[(1) - (5)].tkval)),(yyvsp[(3) - (5)].opval)), (yyvsp[(4) - (5)].opval)) );
694 TOKEN_GETMAD((yyvsp[(1) - (5)].tkval),(yyval.opval),'o');
695 TOKEN_GETMAD((yyvsp[(2) - (5)].tkval),(yyval.opval),'(');
696 TOKEN_GETMAD((yyvsp[(5) - (5)].tkval),(yyval.opval),')');
702 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
704 prepend_elem(OP_LIST, scalar((yyvsp[(1) - (6)].opval)), (yyvsp[(5) - (6)].opval)),
705 newUNOP(OP_METHOD, 0, (yyvsp[(3) - (6)].opval))));
706 TOKEN_GETMAD((yyvsp[(2) - (6)].tkval),(yyval.opval),'A');
707 TOKEN_GETMAD((yyvsp[(4) - (6)].tkval),(yyval.opval),'(');
708 TOKEN_GETMAD((yyvsp[(6) - (6)].tkval),(yyval.opval),')');
714 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
715 append_elem(OP_LIST, scalar((yyvsp[(1) - (3)].opval)),
716 newUNOP(OP_METHOD, 0, (yyvsp[(3) - (3)].opval))));
717 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'A');
723 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
725 prepend_elem(OP_LIST, (yyvsp[(2) - (3)].opval), (yyvsp[(3) - (3)].opval)),
726 newUNOP(OP_METHOD, 0, (yyvsp[(1) - (3)].opval))));
732 { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
734 prepend_elem(OP_LIST, (yyvsp[(2) - (5)].opval), (yyvsp[(4) - (5)].opval)),
735 newUNOP(OP_METHOD, 0, (yyvsp[(1) - (5)].opval))));
736 TOKEN_GETMAD((yyvsp[(3) - (5)].tkval),(yyval.opval),'(');
737 TOKEN_GETMAD((yyvsp[(5) - (5)].tkval),(yyval.opval),')');
743 { (yyval.opval) = convert(IVAL((yyvsp[(1) - (2)].tkval)), 0, (yyvsp[(2) - (2)].opval));
744 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'o');
750 { (yyval.opval) = convert(IVAL((yyvsp[(1) - (4)].tkval)), 0, (yyvsp[(3) - (4)].opval));
751 TOKEN_GETMAD((yyvsp[(1) - (4)].tkval),(yyval.opval),'o');
752 TOKEN_GETMAD((yyvsp[(2) - (4)].tkval),(yyval.opval),'(');
753 TOKEN_GETMAD((yyvsp[(4) - (4)].tkval),(yyval.opval),')');
759 { SvREFCNT_inc(PL_compcv);
760 (yyvsp[(3) - (3)].opval) = newANONATTRSUB((yyvsp[(2) - (3)].ival), 0, Nullop, (yyvsp[(3) - (3)].opval)); ;}
765 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
767 prepend_elem(OP_LIST, (yyvsp[(3) - (5)].opval), (yyvsp[(5) - (5)].opval)), (yyvsp[(1) - (5)].opval)));
773 { (yyval.opval) = newBINOP(OP_GELEM, 0, (yyvsp[(1) - (5)].opval), scalar((yyvsp[(3) - (5)].opval)));
774 PL_expect = XOPERATOR;
775 TOKEN_GETMAD((yyvsp[(2) - (5)].tkval),(yyval.opval),'{');
776 TOKEN_GETMAD((yyvsp[(4) - (5)].tkval),(yyval.opval),';');
777 TOKEN_GETMAD((yyvsp[(5) - (5)].tkval),(yyval.opval),'}');
783 { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((yyvsp[(1) - (4)].opval)), scalar((yyvsp[(3) - (4)].opval)));
784 TOKEN_GETMAD((yyvsp[(2) - (4)].tkval),(yyval.opval),'[');
785 TOKEN_GETMAD((yyvsp[(4) - (4)].tkval),(yyval.opval),']');
791 { (yyval.opval) = newBINOP(OP_AELEM, 0,
792 ref(newAVREF((yyvsp[(1) - (5)].opval)),OP_RV2AV),
793 scalar((yyvsp[(4) - (5)].opval)));
794 TOKEN_GETMAD((yyvsp[(2) - (5)].tkval),(yyval.opval),'a');
795 TOKEN_GETMAD((yyvsp[(3) - (5)].tkval),(yyval.opval),'[');
796 TOKEN_GETMAD((yyvsp[(5) - (5)].tkval),(yyval.opval),']');
802 { (yyval.opval) = newBINOP(OP_AELEM, 0,
803 ref(newAVREF((yyvsp[(1) - (4)].opval)),OP_RV2AV),
804 scalar((yyvsp[(3) - (4)].opval)));
805 TOKEN_GETMAD((yyvsp[(2) - (4)].tkval),(yyval.opval),'[');
806 TOKEN_GETMAD((yyvsp[(4) - (4)].tkval),(yyval.opval),']');
812 { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((yyvsp[(1) - (5)].opval)), jmaybe((yyvsp[(3) - (5)].opval)));
813 PL_expect = XOPERATOR;
814 TOKEN_GETMAD((yyvsp[(2) - (5)].tkval),(yyval.opval),'{');
815 TOKEN_GETMAD((yyvsp[(4) - (5)].tkval),(yyval.opval),';');
816 TOKEN_GETMAD((yyvsp[(5) - (5)].tkval),(yyval.opval),'}');
822 { (yyval.opval) = newBINOP(OP_HELEM, 0,
823 ref(newHVREF((yyvsp[(1) - (6)].opval)),OP_RV2HV),
824 jmaybe((yyvsp[(4) - (6)].opval)));
825 PL_expect = XOPERATOR;
826 TOKEN_GETMAD((yyvsp[(2) - (6)].tkval),(yyval.opval),'a');
827 TOKEN_GETMAD((yyvsp[(3) - (6)].tkval),(yyval.opval),'{');
828 TOKEN_GETMAD((yyvsp[(5) - (6)].tkval),(yyval.opval),';');
829 TOKEN_GETMAD((yyvsp[(6) - (6)].tkval),(yyval.opval),'}');
835 { (yyval.opval) = newBINOP(OP_HELEM, 0,
836 ref(newHVREF((yyvsp[(1) - (5)].opval)),OP_RV2HV),
837 jmaybe((yyvsp[(3) - (5)].opval)));
838 PL_expect = XOPERATOR;
839 TOKEN_GETMAD((yyvsp[(2) - (5)].tkval),(yyval.opval),'{');
840 TOKEN_GETMAD((yyvsp[(4) - (5)].tkval),(yyval.opval),';');
841 TOKEN_GETMAD((yyvsp[(5) - (5)].tkval),(yyval.opval),'}');
847 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
848 newCVREF(0, scalar((yyvsp[(1) - (4)].opval))));
849 TOKEN_GETMAD((yyvsp[(2) - (4)].tkval),(yyval.opval),'a');
850 TOKEN_GETMAD((yyvsp[(3) - (4)].tkval),(yyval.opval),'(');
851 TOKEN_GETMAD((yyvsp[(4) - (4)].tkval),(yyval.opval),')');
857 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
858 append_elem(OP_LIST, (yyvsp[(4) - (5)].opval),
859 newCVREF(0, scalar((yyvsp[(1) - (5)].opval)))));
860 TOKEN_GETMAD((yyvsp[(2) - (5)].tkval),(yyval.opval),'a');
861 TOKEN_GETMAD((yyvsp[(3) - (5)].tkval),(yyval.opval),'(');
862 TOKEN_GETMAD((yyvsp[(5) - (5)].tkval),(yyval.opval),')');
868 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
869 append_elem(OP_LIST, (yyvsp[(3) - (4)].opval),
870 newCVREF(0, scalar((yyvsp[(1) - (4)].opval)))));
871 TOKEN_GETMAD((yyvsp[(2) - (4)].tkval),(yyval.opval),'(');
872 TOKEN_GETMAD((yyvsp[(4) - (4)].tkval),(yyval.opval),')');
878 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
879 newCVREF(0, scalar((yyvsp[(1) - (3)].opval))));
880 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'(');
881 TOKEN_GETMAD((yyvsp[(3) - (3)].tkval),(yyval.opval),')');
887 { (yyval.opval) = newSLICEOP(0, (yyvsp[(5) - (6)].opval), (yyvsp[(2) - (6)].opval));
888 TOKEN_GETMAD((yyvsp[(1) - (6)].tkval),(yyval.opval),'(');
889 TOKEN_GETMAD((yyvsp[(3) - (6)].tkval),(yyval.opval),')');
890 TOKEN_GETMAD((yyvsp[(4) - (6)].tkval),(yyval.opval),'[');
891 TOKEN_GETMAD((yyvsp[(6) - (6)].tkval),(yyval.opval),']');
897 { (yyval.opval) = newSLICEOP(0, (yyvsp[(4) - (5)].opval), Nullop);
898 TOKEN_GETMAD((yyvsp[(1) - (5)].tkval),(yyval.opval),'(');
899 TOKEN_GETMAD((yyvsp[(2) - (5)].tkval),(yyval.opval),')');
900 TOKEN_GETMAD((yyvsp[(3) - (5)].tkval),(yyval.opval),'[');
901 TOKEN_GETMAD((yyvsp[(5) - (5)].tkval),(yyval.opval),']');
907 { (yyval.opval) = newASSIGNOP(OPf_STACKED, (yyvsp[(1) - (3)].opval), IVAL((yyvsp[(2) - (3)].tkval)), (yyvsp[(3) - (3)].opval));
908 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
914 { (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].tkval)), 0, scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
915 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
921 { if (IVAL((yyvsp[(2) - (3)].tkval)) != OP_REPEAT)
922 scalar((yyvsp[(1) - (3)].opval));
923 (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].tkval)), 0, (yyvsp[(1) - (3)].opval), scalar((yyvsp[(3) - (3)].opval)));
924 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
930 { (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].tkval)), 0, scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
931 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
937 { (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].tkval)), 0, scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
938 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
944 { (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].tkval)), 0, scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
945 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
951 { (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].tkval)), 0, scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
952 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
958 { (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].tkval)), 0, scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
959 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
965 { (yyval.opval) = newBINOP(IVAL((yyvsp[(2) - (3)].tkval)), 0, scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
966 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
973 (yyval.opval) = newRANGE(IVAL((yyvsp[(2) - (3)].tkval)), scalar((yyvsp[(1) - (3)].opval)), scalar((yyvsp[(3) - (3)].opval)));
976 op = (UNOP*)(yyval.opval);
977 op = (UNOP*)op->op_first; /* get to flop */
978 op = (UNOP*)op->op_first; /* get to flip */
979 op = (UNOP*)op->op_first; /* get to range */
980 token_getmad((yyvsp[(2) - (3)].tkval),(OP*)op,'o');
987 { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
988 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
994 { (yyval.opval) = newLOGOP(OP_OR, 0, (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
995 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
1001 { (yyval.opval) = newLOGOP(OP_DOR, 0, (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
1002 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'o');
1008 { (yyval.opval) = bind_match(IVAL((yyvsp[(2) - (3)].tkval)), (yyvsp[(1) - (3)].opval), (yyvsp[(3) - (3)].opval));
1009 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),
1010 ((yyval.opval)->op_type == OP_NOT
1011 ? ((UNOP*)(yyval.opval))->op_first : (yyval.opval)),
1018 { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((yyvsp[(2) - (2)].opval)));
1019 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'o');
1025 { (yyval.opval) = IF_MAD(
1026 newUNOP(OP_NULL, 0, (yyvsp[(2) - (2)].opval)),
1027 (yyvsp[(2) - (2)].opval)
1029 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'+');
1035 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((yyvsp[(2) - (2)].opval)));
1036 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'o');
1042 { (yyval.opval) = newUNOP(OP_COMPLEMENT, 0, scalar((yyvsp[(2) - (2)].opval)));
1043 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'o');
1049 { (yyval.opval) = newUNOP(OP_POSTINC, 0,
1050 mod(scalar((yyvsp[(1) - (2)].opval)), OP_POSTINC));
1051 TOKEN_GETMAD((yyvsp[(2) - (2)].tkval),(yyval.opval),'o');
1057 { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
1058 mod(scalar((yyvsp[(1) - (2)].opval)), OP_POSTDEC));
1059 TOKEN_GETMAD((yyvsp[(2) - (2)].tkval),(yyval.opval),'o');
1065 { (yyval.opval) = newUNOP(OP_PREINC, 0,
1066 mod(scalar((yyvsp[(2) - (2)].opval)), OP_PREINC));
1067 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'o');
1073 { (yyval.opval) = newUNOP(OP_PREDEC, 0,
1074 mod(scalar((yyvsp[(2) - (2)].opval)), OP_PREDEC));
1075 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'o');
1081 { (yyval.opval) = newANONLIST((yyvsp[(2) - (3)].opval));
1082 TOKEN_GETMAD((yyvsp[(1) - (3)].tkval),(yyval.opval),'[');
1083 TOKEN_GETMAD((yyvsp[(3) - (3)].tkval),(yyval.opval),']');
1089 { (yyval.opval) = newANONLIST(Nullop);
1090 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'[');
1091 TOKEN_GETMAD((yyvsp[(2) - (2)].tkval),(yyval.opval),']');
1097 { (yyval.opval) = newANONHASH((yyvsp[(2) - (4)].opval));
1098 TOKEN_GETMAD((yyvsp[(1) - (4)].tkval),(yyval.opval),'{');
1099 TOKEN_GETMAD((yyvsp[(3) - (4)].tkval),(yyval.opval),';');
1100 TOKEN_GETMAD((yyvsp[(4) - (4)].tkval),(yyval.opval),'}');
1106 { (yyval.opval) = newANONHASH(Nullop);
1107 TOKEN_GETMAD((yyvsp[(1) - (3)].tkval),(yyval.opval),'{');
1108 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),';');
1109 TOKEN_GETMAD((yyvsp[(3) - (3)].tkval),(yyval.opval),'}');
1115 { SvREFCNT_inc(PL_compcv);
1116 (yyval.opval) = newANONATTRSUB((yyvsp[(2) - (5)].ival), (yyvsp[(3) - (5)].opval), (yyvsp[(4) - (5)].opval), (yyvsp[(5) - (5)].opval));
1117 TOKEN_GETMAD((yyvsp[(1) - (5)].tkval),(yyval.opval),'o');
1118 OP_GETMAD((yyvsp[(3) - (5)].opval),(yyval.opval),'s');
1119 OP_GETMAD((yyvsp[(4) - (5)].opval),(yyval.opval),'a');
1124 #line 1007 "perly.y"
1125 { (yyval.opval) = dofile((yyvsp[(2) - (2)].opval), (yyvsp[(1) - (2)].tkval));
1126 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'o');
1131 #line 1011 "perly.y"
1132 { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, scope((yyvsp[(2) - (2)].opval)));
1133 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'D');
1138 #line 1015 "perly.y"
1139 { (yyval.opval) = newUNOP(OP_ENTERSUB,
1140 OPf_SPECIAL|OPf_STACKED,
1141 prepend_elem(OP_LIST,
1143 (OPpENTERSUB_AMPER<<8),
1144 scalar((yyvsp[(2) - (4)].opval))
1146 TOKEN_GETMAD((yyvsp[(1) - (4)].tkval),(yyval.opval),'o');
1147 TOKEN_GETMAD((yyvsp[(3) - (4)].tkval),(yyval.opval),'(');
1148 TOKEN_GETMAD((yyvsp[(4) - (4)].tkval),(yyval.opval),')');
1153 #line 1027 "perly.y"
1154 { (yyval.opval) = newUNOP(OP_ENTERSUB,
1155 OPf_SPECIAL|OPf_STACKED,
1156 append_elem(OP_LIST,
1157 (yyvsp[(4) - (5)].opval),
1159 (OPpENTERSUB_AMPER<<8),
1160 scalar((yyvsp[(2) - (5)].opval))
1162 TOKEN_GETMAD((yyvsp[(1) - (5)].tkval),(yyval.opval),'o');
1163 TOKEN_GETMAD((yyvsp[(3) - (5)].tkval),(yyval.opval),'(');
1164 TOKEN_GETMAD((yyvsp[(5) - (5)].tkval),(yyval.opval),')');
1169 #line 1040 "perly.y"
1170 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
1171 prepend_elem(OP_LIST,
1172 scalar(newCVREF(0,scalar((yyvsp[(2) - (4)].opval)))), Nullop)); dep();
1173 TOKEN_GETMAD((yyvsp[(1) - (4)].tkval),(yyval.opval),'o');
1174 TOKEN_GETMAD((yyvsp[(3) - (4)].tkval),(yyval.opval),'(');
1175 TOKEN_GETMAD((yyvsp[(4) - (4)].tkval),(yyval.opval),')');
1180 #line 1048 "perly.y"
1181 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
1182 prepend_elem(OP_LIST,
1183 (yyvsp[(4) - (5)].opval),
1184 scalar(newCVREF(0,scalar((yyvsp[(2) - (5)].opval)))))); dep();
1185 TOKEN_GETMAD((yyvsp[(1) - (5)].tkval),(yyval.opval),'o');
1186 TOKEN_GETMAD((yyvsp[(3) - (5)].tkval),(yyval.opval),'(');
1187 TOKEN_GETMAD((yyvsp[(5) - (5)].tkval),(yyval.opval),')');
1192 #line 1064 "perly.y"
1193 { (yyval.opval) = newCONDOP(0, (yyvsp[(1) - (5)].opval), (yyvsp[(3) - (5)].opval), (yyvsp[(5) - (5)].opval));
1194 TOKEN_GETMAD((yyvsp[(2) - (5)].tkval),(yyval.opval),'?');
1195 TOKEN_GETMAD((yyvsp[(4) - (5)].tkval),(yyval.opval),':');
1200 #line 1069 "perly.y"
1201 { (yyval.opval) = newUNOP(OP_REFGEN, 0, mod((yyvsp[(2) - (2)].opval),OP_REFGEN));
1202 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'o');
1207 #line 1073 "perly.y"
1208 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1212 #line 1075 "perly.y"
1213 { (yyval.opval) = localize((yyvsp[(2) - (2)].opval),IVAL((yyvsp[(1) - (2)].tkval)));
1214 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'d');
1219 #line 1079 "perly.y"
1220 { (yyval.opval) = sawparens(IF_MAD(newUNOP(OP_NULL,0,(yyvsp[(2) - (3)].opval)), (yyvsp[(2) - (3)].opval)));
1221 TOKEN_GETMAD((yyvsp[(1) - (3)].tkval),(yyval.opval),'(');
1222 TOKEN_GETMAD((yyvsp[(3) - (3)].tkval),(yyval.opval),')');
1227 #line 1084 "perly.y"
1228 { (yyval.opval) = sawparens(newNULLLIST());
1229 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'(');
1230 TOKEN_GETMAD((yyvsp[(2) - (2)].tkval),(yyval.opval),')');
1235 #line 1089 "perly.y"
1236 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1240 #line 1091 "perly.y"
1241 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1245 #line 1093 "perly.y"
1246 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1250 #line 1095 "perly.y"
1251 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1255 #line 1097 "perly.y"
1256 { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((yyvsp[(1) - (1)].opval), OP_AV2ARYLEN));;}
1260 #line 1099 "perly.y"
1261 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1265 #line 1101 "perly.y"
1266 { (yyval.opval) = prepend_elem(OP_ASLICE,
1267 newOP(OP_PUSHMARK, 0),
1268 newLISTOP(OP_ASLICE, 0,
1269 list((yyvsp[(3) - (4)].opval)),
1270 ref((yyvsp[(1) - (4)].opval), OP_ASLICE)));
1271 TOKEN_GETMAD((yyvsp[(2) - (4)].tkval),(yyval.opval),'[');
1272 TOKEN_GETMAD((yyvsp[(4) - (4)].tkval),(yyval.opval),']');
1277 #line 1110 "perly.y"
1278 { (yyval.opval) = prepend_elem(OP_HSLICE,
1279 newOP(OP_PUSHMARK, 0),
1280 newLISTOP(OP_HSLICE, 0,
1281 list((yyvsp[(3) - (5)].opval)),
1282 ref(oopsHV((yyvsp[(1) - (5)].opval)), OP_HSLICE)));
1283 PL_expect = XOPERATOR;
1284 TOKEN_GETMAD((yyvsp[(2) - (5)].tkval),(yyval.opval),'{');
1285 TOKEN_GETMAD((yyvsp[(4) - (5)].tkval),(yyval.opval),';');
1286 TOKEN_GETMAD((yyvsp[(5) - (5)].tkval),(yyval.opval),'}');
1291 #line 1121 "perly.y"
1292 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1296 #line 1123 "perly.y"
1297 { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((yyvsp[(1) - (1)].opval))); ;}
1301 #line 1125 "perly.y"
1302 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((yyvsp[(1) - (3)].opval)));
1303 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'(');
1304 TOKEN_GETMAD((yyvsp[(3) - (3)].tkval),(yyval.opval),')');
1309 #line 1130 "perly.y"
1311 (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1312 append_elem(OP_LIST, (yyvsp[(3) - (4)].opval), scalar((yyvsp[(1) - (4)].opval))));
1314 OP* op = (yyval.opval);
1315 if (op->op_type == OP_CONST) { /* defeat const fold */
1316 op = (OP*)op->op_madprop->mad_val;
1318 token_getmad((yyvsp[(2) - (4)].tkval),op,'(');
1319 token_getmad((yyvsp[(4) - (4)].tkval),op,')');
1325 #line 1143 "perly.y"
1326 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1327 append_elem(OP_LIST, (yyvsp[(3) - (3)].opval), scalar((yyvsp[(2) - (3)].opval))));
1328 TOKEN_GETMAD((yyvsp[(1) - (3)].tkval),(yyval.opval),'o');
1333 #line 1148 "perly.y"
1334 { (yyval.opval) = newOP(IVAL((yyvsp[(1) - (1)].tkval)), OPf_SPECIAL);
1335 PL_hints |= HINT_BLOCK_SCOPE;
1336 TOKEN_GETMAD((yyvsp[(1) - (1)].tkval),(yyval.opval),'o');
1341 #line 1153 "perly.y"
1342 { (yyval.opval) = newLOOPEX(IVAL((yyvsp[(1) - (2)].tkval)),(yyvsp[(2) - (2)].opval));
1343 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'o');
1348 #line 1157 "perly.y"
1349 { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((yyvsp[(2) - (2)].opval)));
1350 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'o');
1355 #line 1161 "perly.y"
1356 { (yyval.opval) = newOP(IVAL((yyvsp[(1) - (1)].tkval)), 0);
1357 TOKEN_GETMAD((yyvsp[(1) - (1)].tkval),(yyval.opval),'o');
1362 #line 1165 "perly.y"
1363 { (yyval.opval) = newUNOP(IVAL((yyvsp[(1) - (2)].tkval)), 0, (yyvsp[(2) - (2)].opval));
1364 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'o');
1369 #line 1169 "perly.y"
1370 { (yyval.opval) = newUNOP(IVAL((yyvsp[(1) - (2)].tkval)), 0, (yyvsp[(2) - (2)].opval));
1371 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'o');
1376 #line 1173 "perly.y"
1377 { (yyval.opval) = newOP(OP_REQUIRE, (yyvsp[(1) - (1)].tkval) ? OPf_SPECIAL : 0); ;}
1381 #line 1175 "perly.y"
1382 { (yyval.opval) = newUNOP(OP_REQUIRE, (yyvsp[(1) - (2)].tkval) ? OPf_SPECIAL : 0, (yyvsp[(2) - (2)].opval)); ;}
1386 #line 1177 "perly.y"
1387 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((yyvsp[(1) - (1)].opval))); ;}
1391 #line 1179 "perly.y"
1392 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1393 append_elem(OP_LIST, (yyvsp[(2) - (2)].opval), scalar((yyvsp[(1) - (2)].opval)))); ;}
1397 #line 1182 "perly.y"
1398 { (yyval.opval) = newOP(IVAL((yyvsp[(1) - (1)].tkval)), 0);
1399 TOKEN_GETMAD((yyvsp[(1) - (1)].tkval),(yyval.opval),'o');
1404 #line 1186 "perly.y"
1405 { (yyval.opval) = newOP(IVAL((yyvsp[(1) - (3)].tkval)), 0);
1406 TOKEN_GETMAD((yyvsp[(1) - (3)].tkval),(yyval.opval),'o');
1407 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'(');
1408 TOKEN_GETMAD((yyvsp[(3) - (3)].tkval),(yyval.opval),')');
1413 #line 1192 "perly.y"
1414 { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1415 scalar((yyvsp[(1) - (1)].opval))); ;}
1419 #line 1195 "perly.y"
1420 { (yyval.opval) = (IVAL((yyvsp[(1) - (3)].tkval)) == OP_NOT)
1421 ? newUNOP(IVAL((yyvsp[(1) - (3)].tkval)), 0, newSVOP(OP_CONST, 0, newSViv(0)))
1422 : newOP(IVAL((yyvsp[(1) - (3)].tkval)), OPf_SPECIAL);
1424 TOKEN_GETMAD((yyvsp[(1) - (3)].tkval),(yyval.opval),'o');
1425 TOKEN_GETMAD((yyvsp[(2) - (3)].tkval),(yyval.opval),'(');
1426 TOKEN_GETMAD((yyvsp[(3) - (3)].tkval),(yyval.opval),')');
1431 #line 1204 "perly.y"
1432 { (yyval.opval) = newUNOP(IVAL((yyvsp[(1) - (4)].tkval)), 0, (yyvsp[(3) - (4)].opval));
1433 TOKEN_GETMAD((yyvsp[(1) - (4)].tkval),(yyval.opval),'o');
1434 TOKEN_GETMAD((yyvsp[(2) - (4)].tkval),(yyval.opval),'(');
1435 TOKEN_GETMAD((yyvsp[(4) - (4)].tkval),(yyval.opval),')');
1440 #line 1210 "perly.y"
1441 { (yyval.opval) = pmruntime((yyvsp[(1) - (4)].opval), (yyvsp[(3) - (4)].opval), 1);
1442 TOKEN_GETMAD((yyvsp[(2) - (4)].tkval),(yyval.opval),'(');
1443 TOKEN_GETMAD((yyvsp[(4) - (4)].tkval),(yyval.opval),')');
1448 #line 1220 "perly.y"
1449 { (yyval.opval) = my_attrs((yyvsp[(2) - (3)].opval),(yyvsp[(3) - (3)].opval));
1451 token_getmad((yyvsp[(1) - (3)].tkval),(yyval.opval),'d');
1452 append_madprops((yyvsp[(3) - (3)].opval)->op_madprop, (yyval.opval), 'a');
1453 (yyvsp[(3) - (3)].opval)->op_madprop = 0;
1459 #line 1228 "perly.y"
1460 { (yyval.opval) = localize((yyvsp[(2) - (2)].opval),IVAL((yyvsp[(1) - (2)].tkval)));
1461 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'d');
1466 #line 1235 "perly.y"
1467 { (yyval.opval) = sawparens((yyvsp[(2) - (3)].opval));
1468 TOKEN_GETMAD((yyvsp[(1) - (3)].tkval),(yyval.opval),'(');
1469 TOKEN_GETMAD((yyvsp[(3) - (3)].tkval),(yyval.opval),')');
1474 #line 1240 "perly.y"
1475 { (yyval.opval) = sawparens(newNULLLIST());
1476 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'(');
1477 TOKEN_GETMAD((yyvsp[(2) - (2)].tkval),(yyval.opval),')');
1482 #line 1245 "perly.y"
1483 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1487 #line 1247 "perly.y"
1488 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1492 #line 1249 "perly.y"
1493 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1497 #line 1254 "perly.y"
1498 { (yyval.opval) = Nullop; ;}
1502 #line 1256 "perly.y"
1503 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1507 #line 1260 "perly.y"
1508 { (yyval.opval) = Nullop; ;}
1512 #line 1262 "perly.y"
1513 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1517 #line 1264 "perly.y"
1520 OP* op = newNULLLIST();
1521 token_getmad((yyvsp[(2) - (2)].tkval),op,',');
1522 (yyval.opval) = append_elem(OP_LIST, (yyvsp[(1) - (2)].opval), op);
1524 (yyval.opval) = (yyvsp[(1) - (2)].opval);
1531 #line 1279 "perly.y"
1532 { PL_in_my = 0; (yyval.opval) = my((yyvsp[(1) - (1)].opval)); ;}
1536 #line 1283 "perly.y"
1537 { (yyval.opval) = newCVREF(IVAL((yyvsp[(1) - (2)].tkval)),(yyvsp[(2) - (2)].opval));
1538 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'&');
1543 #line 1289 "perly.y"
1544 { (yyval.opval) = newSVREF((yyvsp[(2) - (2)].opval));
1545 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'$');
1550 #line 1295 "perly.y"
1551 { (yyval.opval) = newAVREF((yyvsp[(2) - (2)].opval));
1552 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'@');
1557 #line 1301 "perly.y"
1558 { (yyval.opval) = newHVREF((yyvsp[(2) - (2)].opval));
1559 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'%');
1564 #line 1307 "perly.y"
1565 { (yyval.opval) = newAVREF((yyvsp[(2) - (2)].opval));
1566 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'l');
1571 #line 1313 "perly.y"
1572 { (yyval.opval) = newGVREF(0,(yyvsp[(2) - (2)].opval));
1573 TOKEN_GETMAD((yyvsp[(1) - (2)].tkval),(yyval.opval),'*');
1578 #line 1320 "perly.y"
1579 { (yyval.opval) = scalar((yyvsp[(1) - (1)].opval)); ;}
1583 #line 1322 "perly.y"
1584 { (yyval.opval) = scalar((yyvsp[(1) - (1)].opval)); ;}
1588 #line 1324 "perly.y"
1589 { (yyval.opval) = scope((yyvsp[(1) - (1)].opval)); ;}
1593 #line 1327 "perly.y"
1594 { (yyval.opval) = (yyvsp[(1) - (1)].opval); ;}
1598 /* Line 1267 of yacc.c. */