This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
All the autogenerated files from change 27462.
[perl5.git] / madly.act
1 case 2:
2 #line 102 "madly.y"
3     { (yyval.ival) = (yyvsp[-1].ival); newPROG(block_end((yyvsp[-1].ival),(yyvsp[0].opval))); ;}
4     break;
5
6   case 3:
7 #line 107 "madly.y"
8     { if (PL_copline > (line_t)((yyvsp[-3].tkval))->tk_lval.ival)
9                               PL_copline = (line_t)((yyvsp[-3].tkval))->tk_lval.ival;
10                           (yyval.opval) = block_end((yyvsp[-2].ival), (yyvsp[-1].opval));
11                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'{');
12                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
13                         ;}
14     break;
15
16   case 4:
17 #line 116 "madly.y"
18     { (yyval.ival) = block_start(TRUE); ;}
19     break;
20
21   case 5:
22 #line 120 "madly.y"
23     { (yyval.ival) = (I32) allocmy("$_"); ;}
24     break;
25
26   case 6:
27 #line 124 "madly.y"
28     {
29                     PL_expect = XSTATE; (yyval.ival) = block_start(TRUE);
30                 ;}
31     break;
32
33   case 7:
34 #line 131 "madly.y"
35     { if (PL_copline > (line_t)((yyvsp[-3].tkval))->tk_lval.ival)
36                               PL_copline = (line_t)((yyvsp[-3].tkval))->tk_lval.ival;
37                           (yyval.opval) = block_end((yyvsp[-2].ival), (yyvsp[-1].opval));
38                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'{');
39                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
40                         ;}
41     break;
42
43   case 8:
44 #line 140 "madly.y"
45     { (yyval.ival) = block_start(FALSE); ;}
46     break;
47
48   case 9:
49 #line 144 "madly.y"
50     { (yyval.ival) = PL_savestack_ix; ;}
51     break;
52
53   case 10:
54 #line 148 "madly.y"
55     { (yyval.opval) = Nullop; ;}
56     break;
57
58   case 11:
59 #line 151 "madly.y"
60     { (yyval.opval) = append_list(OP_LINESEQ,
61                                 (LISTOP*)(yyvsp[-1].opval), (LISTOP*)(yyvsp[0].opval)); ;}
62     break;
63
64   case 12:
65 #line 154 "madly.y"
66     {   LEAVE_SCOPE((yyvsp[-1].ival));
67                             (yyval.opval) = append_list(OP_LINESEQ,
68                                 (LISTOP*)(yyvsp[-2].opval), (LISTOP*)(yyvsp[0].opval));
69                             PL_pad_reset_pending = TRUE;
70                             if ((yyvsp[-2].opval) && (yyvsp[0].opval)) PL_hints |= HINT_BLOCK_SCOPE; ;}
71     break;
72
73   case 13:
74 #line 163 "madly.y"
75     { (yyval.opval) = newSTATEOP(0, ((yyvsp[-1].tkval))->tk_lval.pval, (yyvsp[0].opval));
76                           token_getmad((yyvsp[-1].tkval),((LISTOP*)(yyval.opval))->op_first,'L'); ;}
77     break;
78
79   case 15:
80 #line 167 "madly.y"
81     { (yyval.opval) = (yyvsp[0].opval); ;}
82     break;
83
84   case 16:
85 #line 169 "madly.y"
86     { (yyval.opval) = newSTATEOP(0, ((yyvsp[-1].tkval))->tk_lval.pval, (yyvsp[0].opval)); ;}
87     break;
88
89   case 17:
90 #line 171 "madly.y"
91     {
92                           if (((yyvsp[-1].tkval))->tk_lval.pval) {
93                               (yyval.opval) = newSTATEOP(0, ((yyvsp[-1].tkval))->tk_lval.pval, newOP(OP_NULL, 0));
94                               token_getmad((yyvsp[-1].tkval),(yyval.opval),'L');
95                               token_getmad((yyvsp[0].tkval),((LISTOP*)(yyval.opval))->op_first,';');
96                           }
97                           else {
98                               (yyval.opval) = newOP(OP_NULL, 0);
99                               PL_copline = NOLINE;
100                               token_free((yyvsp[-1].tkval));
101                               token_getmad((yyvsp[0].tkval),(yyval.opval),';');
102                           }
103                           PL_expect = XSTATE;
104                         ;}
105     break;
106
107   case 18:
108 #line 186 "madly.y"
109     { OP* op;
110                           (yyval.opval) = newSTATEOP(0, ((yyvsp[-2].tkval))->tk_lval.pval, (yyvsp[-1].opval));
111                           PL_expect = XSTATE;
112                           /* sideff might already have a nexstate */
113                           op = ((LISTOP*)(yyval.opval))->op_first;
114                           if (op) {
115                               while (op->op_sibling &&
116                                  op->op_sibling->op_type == OP_NEXTSTATE)
117                                     op = op->op_sibling;
118                               token_getmad((yyvsp[-2].tkval),op,'L');
119                               token_getmad((yyvsp[0].tkval),op,';');
120                           }
121                         ;}
122     break;
123
124   case 19:
125 #line 203 "madly.y"
126     { (yyval.opval) = Nullop; ;}
127     break;
128
129   case 20:
130 #line 205 "madly.y"
131     { (yyval.opval) = (yyvsp[0].opval); ;}
132     break;
133
134   case 21:
135 #line 207 "madly.y"
136     { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[0].opval), (yyvsp[-2].opval));
137                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'i');
138                         ;}
139     break;
140
141   case 22:
142 #line 211 "madly.y"
143     { (yyval.opval) = newLOGOP(OP_OR, 0, (yyvsp[0].opval), (yyvsp[-2].opval));
144                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'i');
145                         ;}
146     break;
147
148   case 23:
149 #line 215 "madly.y"
150     { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((yyvsp[0].opval)), (yyvsp[-2].opval));
151                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'w');
152                         ;}
153     break;
154
155   case 24:
156 #line 219 "madly.y"
157     { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (yyvsp[0].opval), (yyvsp[-2].opval));
158                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'w');
159                         ;}
160     break;
161
162   case 25:
163 #line 223 "madly.y"
164     { (yyval.opval) = newFOROP(0, Nullch, (line_t)((yyvsp[-1].tkval))->tk_lval.ival,
165                                         Nullop, (yyvsp[0].opval), (yyvsp[-2].opval), Nullop);
166                           token_getmad((yyvsp[-1].tkval),((LISTOP*)(yyval.opval))->op_first->op_sibling,'w');
167                         ;}
168     break;
169
170   case 26:
171 #line 231 "madly.y"
172     { (yyval.opval) = Nullop; ;}
173     break;
174
175   case 27:
176 #line 233 "madly.y"
177     { ((yyvsp[0].opval))->op_flags |= OPf_PARENS; (yyval.opval) = scope((yyvsp[0].opval));
178                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
179                         ;}
180     break;
181
182   case 28:
183 #line 237 "madly.y"
184     { PL_copline = (line_t)((yyvsp[-5].tkval))->tk_lval.ival;
185                             (yyval.opval) = newCONDOP(0, (yyvsp[-3].opval), scope((yyvsp[-1].opval)), (yyvsp[0].opval));
186                             PL_hints |= HINT_BLOCK_SCOPE;
187                           token_getmad((yyvsp[-5].tkval),(yyval.opval),'I');
188                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'(');
189                           token_getmad((yyvsp[-2].tkval),(yyval.opval),')');
190                         ;}
191     break;
192
193   case 29:
194 #line 248 "madly.y"
195     { PL_copline = (line_t)((yyvsp[-6].tkval))->tk_lval.ival;
196                             (yyval.opval) = block_end((yyvsp[-4].ival),
197                                    newCONDOP(0, (yyvsp[-3].opval), scope((yyvsp[-1].opval)), (yyvsp[0].opval)));
198                           token_getmad((yyvsp[-6].tkval),(yyval.opval),'I');
199                           token_getmad((yyvsp[-5].tkval),(yyval.opval),'(');
200                           token_getmad((yyvsp[-2].tkval),(yyval.opval),')');
201                         ;}
202     break;
203
204   case 30:
205 #line 256 "madly.y"
206     { PL_copline = (line_t)((yyvsp[-6].tkval))->tk_lval.ival;
207                             (yyval.opval) = block_end((yyvsp[-4].ival),
208                                    newCONDOP(0, (yyvsp[-3].opval), scope((yyvsp[-1].opval)), (yyvsp[0].opval)));
209                           token_getmad((yyvsp[-6].tkval),(yyval.opval),'I');
210                           token_getmad((yyvsp[-5].tkval),(yyval.opval),'(');
211                           token_getmad((yyvsp[-2].tkval),(yyval.opval),')');
212                         ;}
213     break;
214
215   case 31:
216 #line 267 "madly.y"
217     { (yyval.opval) = block_end((yyvsp[-3].ival),
218                 newWHENOP((yyvsp[-2].opval), scope((yyvsp[0].opval)))); ;}
219     break;
220
221   case 32:
222 #line 270 "madly.y"
223     { (yyval.opval) = newWHENOP(0, scope((yyvsp[0].opval))); ;}
224     break;
225
226   case 33:
227 #line 275 "madly.y"
228     { (yyval.opval) = Nullop; ;}
229     break;
230
231   case 34:
232 #line 277 "madly.y"
233     { (yyval.opval) = scope((yyvsp[0].opval));
234                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
235                         ;}
236     break;
237
238   case 35:
239 #line 284 "madly.y"
240     { OP *innerop;
241                           PL_copline = (line_t)(yyvsp[-7].tkval);
242                             (yyval.opval) = block_end((yyvsp[-5].ival),
243                                    newSTATEOP(0, ((yyvsp[-8].tkval))->tk_lval.pval,
244                                      innerop = newWHILEOP(0, 1, (LOOP*)Nullop,
245                                                 ((yyvsp[-7].tkval))->tk_lval.ival, (yyvsp[-4].opval), (yyvsp[-1].opval), (yyvsp[0].opval), (yyvsp[-2].ival))));
246                           token_getmad((yyvsp[-8].tkval),innerop,'L');
247                           token_getmad((yyvsp[-7].tkval),innerop,'W');
248                           token_getmad((yyvsp[-6].tkval),innerop,'(');
249                           token_getmad((yyvsp[-3].tkval),innerop,')');
250                         ;}
251     break;
252
253   case 36:
254 #line 297 "madly.y"
255     { OP *innerop;
256                           PL_copline = (line_t)(yyvsp[-7].tkval);
257                             (yyval.opval) = block_end((yyvsp[-5].ival),
258                                    newSTATEOP(0, ((yyvsp[-8].tkval))->tk_lval.pval,
259                                      newWHILEOP(0, 1, (LOOP*)Nullop,
260                                                 ((yyvsp[-7].tkval))->tk_lval.ival, (yyvsp[-4].opval), (yyvsp[-1].opval), (yyvsp[0].opval), (yyvsp[-2].ival))));
261                           token_getmad((yyvsp[-8].tkval),innerop,'L');
262                           token_getmad((yyvsp[-7].tkval),innerop,'W');
263                           token_getmad((yyvsp[-6].tkval),innerop,'(');
264                           token_getmad((yyvsp[-3].tkval),innerop,')');
265                         ;}
266     break;
267
268   case 37:
269 #line 309 "madly.y"
270     { OP *innerop;
271                           (yyval.opval) = block_end((yyvsp[-6].ival),
272                              innerop = newFOROP(0, ((yyvsp[-9].tkval))->tk_lval.pval, (line_t)((yyvsp[-8].tkval))->tk_lval.ival, (yyvsp[-5].opval), (yyvsp[-3].opval), (yyvsp[-1].opval), (yyvsp[0].opval)));
273                           token_getmad((yyvsp[-9].tkval),((LISTOP*)innerop)->op_first,'L');
274                           token_getmad((yyvsp[-8].tkval),((LISTOP*)innerop)->op_first->op_sibling,'W');
275                           token_getmad((yyvsp[-7].tkval),((LISTOP*)innerop)->op_first->op_sibling,'d');
276                           token_getmad((yyvsp[-4].tkval),((LISTOP*)innerop)->op_first->op_sibling,'(');
277                           token_getmad((yyvsp[-2].tkval),((LISTOP*)innerop)->op_first->op_sibling,')');
278                         ;}
279     break;
280
281   case 38:
282 #line 319 "madly.y"
283     { OP *innerop;
284                           (yyval.opval) = block_end((yyvsp[-4].ival),
285                              innerop = newFOROP(0, ((yyvsp[-8].tkval))->tk_lval.pval, (line_t)((yyvsp[-7].tkval))->tk_lval.ival, mod((yyvsp[-6].opval), OP_ENTERLOOP),
286                                           (yyvsp[-3].opval), (yyvsp[-1].opval), (yyvsp[0].opval)));
287                           token_getmad((yyvsp[-8].tkval),((LISTOP*)innerop)->op_first,'L');
288                           token_getmad((yyvsp[-7].tkval),((LISTOP*)innerop)->op_first->op_sibling,'W');
289                           token_getmad((yyvsp[-5].tkval),((LISTOP*)innerop)->op_first->op_sibling,'(');
290                           token_getmad((yyvsp[-2].tkval),((LISTOP*)innerop)->op_first->op_sibling,')');
291                         ;}
292     break;
293
294   case 39:
295 #line 329 "madly.y"
296     { OP *innerop;
297                           (yyval.opval) = block_end((yyvsp[-4].ival),
298                              innerop = newFOROP(0, ((yyvsp[-7].tkval))->tk_lval.pval, (line_t)((yyvsp[-6].tkval))->tk_lval.ival, Nullop, (yyvsp[-3].opval), (yyvsp[-1].opval), (yyvsp[0].opval)));
299                           token_getmad((yyvsp[-7].tkval),((LISTOP*)innerop)->op_first,'L');
300                           token_getmad((yyvsp[-6].tkval),((LISTOP*)innerop)->op_first->op_sibling,'W');
301                           token_getmad((yyvsp[-5].tkval),((LISTOP*)innerop)->op_first->op_sibling,'(');
302                           token_getmad((yyvsp[-2].tkval),((LISTOP*)innerop)->op_first->op_sibling,')');
303                         ;}
304     break;
305
306   case 40:
307 #line 340 "madly.y"
308     { OP *forop;
309                           PL_copline = (line_t)((yyvsp[-10].tkval))->tk_lval.ival;
310                           forop = newSTATEOP(0, ((yyvsp[-11].tkval))->tk_lval.pval,
311                                             newWHILEOP(0, 1, (LOOP*)Nullop,
312                                                 ((yyvsp[-10].tkval))->tk_lval.ival, scalar((yyvsp[-5].opval)),
313                                                 (yyvsp[0].opval), (yyvsp[-2].opval), (yyvsp[-3].ival)));
314                           if (!(yyvsp[-7].opval))
315                                 (yyvsp[-7].opval) = newOP(OP_NULL, 0);
316                           forop = newUNOP(OP_NULL, 0, append_elem(OP_LINESEQ,
317                                 newSTATEOP(0,
318                                            (((yyvsp[-11].tkval))->tk_lval.pval
319                                            ?savepv(((yyvsp[-11].tkval))->tk_lval.pval):Nullch),
320                                            (yyvsp[-7].opval)),
321                                 forop));
322
323                           token_getmad((yyvsp[-10].tkval),forop,'3');
324                           token_getmad((yyvsp[-9].tkval),forop,'(');
325                           token_getmad((yyvsp[-6].tkval),forop,'1');
326                           token_getmad((yyvsp[-4].tkval),forop,'2');
327                           token_getmad((yyvsp[-1].tkval),forop,')');
328                           token_getmad((yyvsp[-11].tkval),forop,'L');
329                           (yyval.opval) = block_end((yyvsp[-8].ival), forop); ;}
330     break;
331
332   case 41:
333 #line 363 "madly.y"
334     { (yyval.opval) = newSTATEOP(0, ((yyvsp[-2].tkval))->tk_lval.pval,
335                                  newWHILEOP(0, 1, (LOOP*)Nullop,
336                                             NOLINE, Nullop, (yyvsp[-1].opval), (yyvsp[0].opval), 0));
337                           token_getmad((yyvsp[-2].tkval),((LISTOP*)(yyval.opval))->op_first,'L'); ;}
338     break;
339
340   case 42:
341 #line 371 "madly.y"
342     { PL_copline = (line_t) (yyvsp[-6].tkval);
343                             (yyval.opval) = block_end((yyvsp[-4].ival),
344                                 newSTATEOP(0, ((yyvsp[-7].tkval))->tk_lval.pval,
345                                     newGIVENOP((yyvsp[-2].opval), scope((yyvsp[0].opval)),
346                                         (PADOFFSET) (yyvsp[-3].ival)) )); ;}
347     break;
348
349   case 43:
350 #line 380 "madly.y"
351     { (yyval.ival) = (PL_min_intro_pending &&
352                             PL_max_intro_pending >=  PL_min_intro_pending);
353                           intro_my(); ;}
354     break;
355
356   case 44:
357 #line 386 "madly.y"
358     { (yyval.opval) = Nullop; ;}
359     break;
360
361   case 46:
362 #line 392 "madly.y"
363     { YYSTYPE tmplval;
364                           (void)scan_num("1", &tmplval);
365                           (yyval.opval) = tmplval.opval; ;}
366     break;
367
368   case 48:
369 #line 400 "madly.y"
370     { (yyval.opval) = invert(scalar((yyvsp[0].opval))); ;}
371     break;
372
373   case 49:
374 #line 405 "madly.y"
375     { (yyval.opval) = (yyvsp[0].opval); intro_my(); ;}
376     break;
377
378   case 50:
379 #line 409 "madly.y"
380     { (yyval.opval) = (yyvsp[0].opval); intro_my(); ;}
381     break;
382
383   case 51:
384 #line 413 "madly.y"
385     { (yyval.opval) = (yyvsp[0].opval); intro_my(); ;}
386     break;
387
388   case 52:
389 #line 418 "madly.y"
390     { YYSTYPE tmplval;
391                           tmplval.pval = Nullch;
392                           (yyval.tkval) = newTOKEN(OP_NULL, tmplval, 0); ;}
393     break;
394
395   case 54:
396 #line 426 "madly.y"
397     { (yyval.opval) = (yyvsp[0].opval); ;}
398     break;
399
400   case 55:
401 #line 428 "madly.y"
402     { (yyval.opval) = (yyvsp[0].opval); ;}
403     break;
404
405   case 56:
406 #line 430 "madly.y"
407     { (yyval.opval) = (yyvsp[0].opval); ;}
408     break;
409
410   case 57:
411 #line 432 "madly.y"
412     { (yyval.opval) = (yyvsp[0].opval); ;}
413     break;
414
415   case 58:
416 #line 434 "madly.y"
417     { (yyval.opval) = (yyvsp[0].opval); ;}
418     break;
419
420   case 59:
421 #line 436 "madly.y"
422     { (yyval.opval) = (yyvsp[0].opval); ;}
423     break;
424
425   case 60:
426 #line 440 "madly.y"
427     { (yyval.opval) = newOP(OP_NULL,0);
428                           token_getmad((yyvsp[0].tkval),(yyval.opval),'p');
429                         ;}
430     break;
431
432   case 61:
433 #line 446 "madly.y"
434     { (yyval.opval) = newFORM((yyvsp[-2].ival), (yyvsp[-1].opval), (yyvsp[0].opval));
435                           prepend_madprops((yyvsp[-3].tkval)->tk_mad, (yyval.opval), 'F');
436                           (yyvsp[-3].tkval)->tk_mad = 0;
437                           token_free((yyvsp[-3].tkval));
438                         ;}
439     break;
440
441   case 62:
442 #line 453 "madly.y"
443     { (yyval.opval) = (yyvsp[0].opval); ;}
444     break;
445
446   case 63:
447 #line 454 "madly.y"
448     { (yyval.opval) = Nullop; ;}
449     break;
450
451   case 64:
452 #line 459 "madly.y"
453     { (yyval.opval) = newMYSUB((yyvsp[-4].ival), (yyvsp[-3].opval), (yyvsp[-2].opval), (yyvsp[-1].opval), (yyvsp[0].opval));
454                           token_getmad((yyvsp[-5].tkval),(yyval.opval),'d');
455                         ;}
456     break;
457
458   case 65:
459 #line 466 "madly.y"
460     { OP* o = newSVOP(OP_ANONCODE, 0,
461                             (SV*)newATTRSUB((yyvsp[-4].ival), (yyvsp[-3].opval), (yyvsp[-2].opval), (yyvsp[-1].opval), (yyvsp[0].opval)));
462                           (yyval.opval) = newOP(OP_NULL,0);
463                           op_getmad(o,(yyval.opval),'&');
464                           op_getmad((yyvsp[-3].opval),(yyval.opval),'n');
465                           op_getmad((yyvsp[-2].opval),(yyval.opval),'s');
466                           op_getmad((yyvsp[-1].opval),(yyval.opval),'a');
467                           token_getmad((yyvsp[-5].tkval),(yyval.opval),'d');
468                           append_madprops((yyvsp[0].opval)->op_madprop, (yyval.opval), 0);
469                           (yyvsp[0].opval)->op_madprop = 0;
470                         ;}
471     break;
472
473   case 66:
474 #line 480 "madly.y"
475     { (yyval.ival) = start_subparse(FALSE, 0); ;}
476     break;
477
478   case 67:
479 #line 484 "madly.y"
480     { (yyval.ival) = start_subparse(FALSE, CVf_ANON); ;}
481     break;
482
483   case 68:
484 #line 488 "madly.y"
485     { (yyval.ival) = start_subparse(TRUE, 0); ;}
486     break;
487
488   case 69:
489 #line 492 "madly.y"
490     { const char *const name = SvPV_nolen_const(((SVOP*)(yyvsp[0].opval))->op_sv);
491                           if (strEQ(name, "BEGIN") || strEQ(name, "END")
492                               || strEQ(name, "INIT") || strEQ(name, "CHECK"))
493                               CvSPECIAL_on(PL_compcv);
494                           (yyval.opval) = (yyvsp[0].opval); ;}
495     break;
496
497   case 70:
498 #line 501 "madly.y"
499     { (yyval.opval) = Nullop; ;}
500     break;
501
502   case 72:
503 #line 507 "madly.y"
504     { (yyval.opval) = Nullop; ;}
505     break;
506
507   case 73:
508 #line 509 "madly.y"
509     { (yyval.opval) = (yyvsp[0].opval);
510                           token_getmad((yyvsp[-1].tkval),(yyval.opval),':');
511                         ;}
512     break;
513
514   case 74:
515 #line 513 "madly.y"
516     { (yyval.opval) = newOP(OP_NULL, 0);
517                           token_getmad((yyvsp[0].tkval),(yyval.opval),':');
518                         ;}
519     break;
520
521   case 75:
522 #line 520 "madly.y"
523     { (yyval.opval) = (yyvsp[0].opval);
524                           token_getmad((yyvsp[-1].tkval),(yyval.opval),':');
525                         ;}
526     break;
527
528   case 76:
529 #line 524 "madly.y"
530     { (yyval.opval) = newOP(OP_NULL, 0);
531                           token_getmad((yyvsp[0].tkval),(yyval.opval),':');
532                         ;}
533     break;
534
535   case 77:
536 #line 530 "madly.y"
537     { (yyval.opval) = (yyvsp[0].opval); ;}
538     break;
539
540   case 78:
541 #line 531 "madly.y"
542     { (yyval.opval) = newOP(OP_NULL,0); PL_expect = XSTATE;
543                           token_getmad((yyvsp[0].tkval),(yyval.opval),';');
544                         ;}
545     break;
546
547   case 79:
548 #line 537 "madly.y"
549     { (yyval.opval) = package((yyvsp[-1].opval));
550                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'o');
551                           token_getmad((yyvsp[0].tkval),(yyval.opval),';');
552                         ;}
553     break;
554
555   case 80:
556 #line 544 "madly.y"
557     { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ ;}
558     break;
559
560   case 81:
561 #line 546 "madly.y"
562     { (yyval.opval) = utilize(((yyvsp[-6].tkval))->tk_lval.ival, (yyvsp[-5].ival), (yyvsp[-3].opval), (yyvsp[-2].opval), (yyvsp[-1].opval));
563                           token_getmad((yyvsp[-6].tkval),(yyval.opval),'o');
564                           token_getmad((yyvsp[0].tkval),(yyval.opval),';');
565                           if (PL_rsfp_filters && AvFILLp(PL_rsfp_filters) >= 0)
566                               append_madprops(newMADPROP('!', MAD_PV, "", 0), (yyval.opval), 0);
567                         ;}
568     break;
569
570   case 82:
571 #line 556 "madly.y"
572     { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[-2].opval), (yyvsp[0].opval));
573                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
574                         ;}
575     break;
576
577   case 83:
578 #line 560 "madly.y"
579     { (yyval.opval) = newLOGOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, (yyvsp[-2].opval), (yyvsp[0].opval));
580                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
581                         ;}
582     break;
583
584   case 84:
585 #line 564 "madly.y"
586     { (yyval.opval) = newLOGOP(OP_DOR, 0, (yyvsp[-2].opval), (yyvsp[0].opval));
587                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
588                         ;}
589     break;
590
591   case 86:
592 #line 572 "madly.y"
593     { OP* op = newNULLLIST();
594                           token_getmad((yyvsp[0].tkval),op,',');
595                           (yyval.opval) = append_elem(OP_LIST, (yyvsp[-1].opval), op);
596                         ;}
597     break;
598
599   case 87:
600 #line 577 "madly.y"
601     { 
602                           (yyvsp[0].opval) = newUNOP(OP_NULL, 0, (yyvsp[0].opval));
603                           token_getmad((yyvsp[-1].tkval),(yyvsp[0].opval),',');
604                           (yyval.opval) = append_elem(OP_LIST, (yyvsp[-2].opval), (yyvsp[0].opval));
605                         ;}
606     break;
607
608   case 89:
609 #line 587 "madly.y"
610     { (yyval.opval) = convert(((yyvsp[-2].tkval))->tk_lval.ival, OPf_STACKED,
611                                 prepend_elem(OP_LIST, newGVREF(((yyvsp[-2].tkval))->tk_lval.ival,(yyvsp[-1].opval)), (yyvsp[0].opval)) );
612                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'o');
613                         ;}
614     break;
615
616   case 90:
617 #line 592 "madly.y"
618     { (yyval.opval) = convert(((yyvsp[-4].tkval))->tk_lval.ival, OPf_STACKED,
619                                 prepend_elem(OP_LIST, newGVREF(((yyvsp[-4].tkval))->tk_lval.ival,(yyvsp[-2].opval)), (yyvsp[-1].opval)) );
620                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'o');
621                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'(');
622                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
623                         ;}
624     break;
625
626   case 91:
627 #line 599 "madly.y"
628     { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
629                                 append_elem(OP_LIST,
630                                     prepend_elem(OP_LIST, scalar((yyvsp[-5].opval)), (yyvsp[-1].opval)),
631                                     newUNOP(OP_METHOD, 0, (yyvsp[-3].opval))));
632                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'A');
633                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
634                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
635                         ;}
636     break;
637
638   case 92:
639 #line 608 "madly.y"
640     { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
641                                 append_elem(OP_LIST, scalar((yyvsp[-2].opval)),
642                                     newUNOP(OP_METHOD, 0, (yyvsp[0].opval))));
643                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'A');
644                         ;}
645     break;
646
647   case 93:
648 #line 614 "madly.y"
649     { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
650                                 append_elem(OP_LIST,
651                                     prepend_elem(OP_LIST, (yyvsp[-1].opval), (yyvsp[0].opval)),
652                                     newUNOP(OP_METHOD, 0, (yyvsp[-2].opval))));
653                         ;}
654     break;
655
656   case 94:
657 #line 620 "madly.y"
658     { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
659                                 append_elem(OP_LIST,
660                                     prepend_elem(OP_LIST, (yyvsp[-3].opval), (yyvsp[-1].opval)),
661                                     newUNOP(OP_METHOD, 0, (yyvsp[-4].opval))));
662                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
663                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
664                         ;}
665     break;
666
667   case 95:
668 #line 628 "madly.y"
669     { (yyval.opval) = convert(((yyvsp[-1].tkval))->tk_lval.ival, 0, (yyvsp[0].opval));
670                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
671                         ;}
672     break;
673
674   case 96:
675 #line 632 "madly.y"
676     { (yyval.opval) = convert(((yyvsp[-3].tkval))->tk_lval.ival, 0, (yyvsp[-1].opval));
677                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'o');
678                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
679                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
680                         ;}
681     break;
682
683   case 97:
684 #line 638 "madly.y"
685     { (yyvsp[0].opval) = newANONATTRSUB((yyvsp[-1].ival), 0, Nullop, (yyvsp[0].opval)); ;}
686     break;
687
688   case 98:
689 #line 640 "madly.y"
690     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
691                                  append_elem(OP_LIST,
692                                    prepend_elem(OP_LIST, (yyvsp[-2].opval), (yyvsp[0].opval)), (yyvsp[-4].opval)));
693                         ;}
694     break;
695
696   case 101:
697 #line 655 "madly.y"
698     { (yyval.opval) = newBINOP(OP_GELEM, 0, (yyvsp[-4].opval), scalar((yyvsp[-2].opval)));
699                             PL_expect = XOPERATOR;
700                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'{');
701                           token_getmad((yyvsp[-1].tkval),(yyval.opval),';');
702                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
703                         ;}
704     break;
705
706   case 102:
707 #line 662 "madly.y"
708     { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((yyvsp[-3].opval)), scalar((yyvsp[-1].opval)));
709                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'[');
710                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
711                         ;}
712     break;
713
714   case 103:
715 #line 667 "madly.y"
716     { (yyval.opval) = newBINOP(OP_AELEM, 0,
717                                         ref(newAVREF((yyvsp[-4].opval)),OP_RV2AV),
718                                         scalar((yyvsp[-1].opval)));
719                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'a');
720                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'[');
721                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
722                         ;}
723     break;
724
725   case 104:
726 #line 675 "madly.y"
727     { (yyval.opval) = newBINOP(OP_AELEM, 0,
728                                         ref(newAVREF((yyvsp[-3].opval)),OP_RV2AV),
729                                         scalar((yyvsp[-1].opval)));
730                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'[');
731                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
732                         ;}
733     break;
734
735   case 105:
736 #line 682 "madly.y"
737     { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((yyvsp[-4].opval)), jmaybe((yyvsp[-2].opval)));
738                             PL_expect = XOPERATOR;
739                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'{');
740                           token_getmad((yyvsp[-1].tkval),(yyval.opval),';');
741                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
742                         ;}
743     break;
744
745   case 106:
746 #line 689 "madly.y"
747     { (yyval.opval) = newBINOP(OP_HELEM, 0,
748                                         ref(newHVREF((yyvsp[-5].opval)),OP_RV2HV),
749                                         jmaybe((yyvsp[-2].opval)));
750                             PL_expect = XOPERATOR;
751                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'a');
752                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'{');
753                           token_getmad((yyvsp[-1].tkval),(yyval.opval),';');
754                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
755                         ;}
756     break;
757
758   case 107:
759 #line 699 "madly.y"
760     { (yyval.opval) = newBINOP(OP_HELEM, 0,
761                                         ref(newHVREF((yyvsp[-4].opval)),OP_RV2HV),
762                                         jmaybe((yyvsp[-2].opval)));
763                             PL_expect = XOPERATOR;
764                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'{');
765                           token_getmad((yyvsp[-1].tkval),(yyval.opval),';');
766                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
767                         ;}
768     break;
769
770   case 108:
771 #line 708 "madly.y"
772     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
773                                    newCVREF(0, scalar((yyvsp[-3].opval))));
774                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'a');
775                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
776                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
777                         ;}
778     break;
779
780   case 109:
781 #line 715 "madly.y"
782     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
783                                    append_elem(OP_LIST, (yyvsp[-1].opval),
784                                        newCVREF(0, scalar((yyvsp[-4].opval)))));
785                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'a');
786                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
787                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
788                         ;}
789     break;
790
791   case 110:
792 #line 724 "madly.y"
793     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
794                                    append_elem(OP_LIST, (yyvsp[-1].opval),
795                                                newCVREF(0, scalar((yyvsp[-3].opval)))));
796                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
797                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
798                         ;}
799     break;
800
801   case 111:
802 #line 731 "madly.y"
803     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
804                                    newCVREF(0, scalar((yyvsp[-2].opval))));
805                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
806                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
807                         ;}
808     break;
809
810   case 112:
811 #line 737 "madly.y"
812     { (yyval.opval) = newSLICEOP(0, (yyvsp[-1].opval), (yyvsp[-4].opval));
813                           token_getmad((yyvsp[-5].tkval),(yyval.opval),'(');
814                           token_getmad((yyvsp[-3].tkval),(yyval.opval),')');
815                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'[');
816                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
817                         ;}
818     break;
819
820   case 113:
821 #line 744 "madly.y"
822     { (yyval.opval) = newSLICEOP(0, (yyvsp[-1].opval), Nullop);
823                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'(');
824                           token_getmad((yyvsp[-3].tkval),(yyval.opval),')');
825                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'[');
826                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
827                         ;}
828     break;
829
830   case 114:
831 #line 754 "madly.y"
832     { (yyval.opval) = newASSIGNOP(OPf_STACKED, (yyvsp[-2].opval), ((yyvsp[-1].tkval))->tk_lval.ival, (yyvsp[0].opval));
833                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
834                         ;}
835     break;
836
837   case 115:
838 #line 758 "madly.y"
839     { (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
840                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
841                         ;}
842     break;
843
844   case 116:
845 #line 762 "madly.y"
846     {   if (((yyvsp[-1].tkval))->tk_lval.ival != OP_REPEAT)
847                                 scalar((yyvsp[-2].opval));
848                             (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, (yyvsp[-2].opval), scalar((yyvsp[0].opval)));
849                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
850                         ;}
851     break;
852
853   case 117:
854 #line 768 "madly.y"
855     { (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
856                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
857                         ;}
858     break;
859
860   case 118:
861 #line 772 "madly.y"
862     { (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
863                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
864                         ;}
865     break;
866
867   case 119:
868 #line 776 "madly.y"
869     { (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
870                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
871                         ;}
872     break;
873
874   case 120:
875 #line 780 "madly.y"
876     { (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
877                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
878                         ;}
879     break;
880
881   case 121:
882 #line 784 "madly.y"
883     { (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
884                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
885                         ;}
886     break;
887
888   case 122:
889 #line 788 "madly.y"
890     { (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
891                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
892                         ;}
893     break;
894
895   case 123:
896 #line 792 "madly.y"
897     { UNOP *op;
898                           (yyval.opval) = newRANGE(((yyvsp[-1].tkval))->tk_lval.ival, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
899                           op = (UNOP*)(yyval.opval);
900                           op = (UNOP*)op->op_first;     /* get to flop */
901                           op = (UNOP*)op->op_first;     /* get to flip */
902                           op = (UNOP*)op->op_first;     /* get to range */
903                           token_getmad((yyvsp[-1].tkval),(OP*)op,'o');
904                         ;}
905     break;
906
907   case 124:
908 #line 801 "madly.y"
909     { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[-2].opval), (yyvsp[0].opval));
910                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
911                         ;}
912     break;
913
914   case 125:
915 #line 805 "madly.y"
916     { (yyval.opval) = newLOGOP(OP_OR, 0, (yyvsp[-2].opval), (yyvsp[0].opval));
917                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
918                         ;}
919     break;
920
921   case 126:
922 #line 809 "madly.y"
923     { (yyval.opval) = newLOGOP(OP_DOR, 0, (yyvsp[-2].opval), (yyvsp[0].opval));
924                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
925                         ;}
926     break;
927
928   case 127:
929 #line 813 "madly.y"
930     { (yyval.opval) = bind_match(((yyvsp[-1].tkval))->tk_lval.ival, (yyvsp[-2].opval), (yyvsp[0].opval));
931                           if ((yyval.opval)->op_type == OP_NOT)
932                               token_getmad((yyvsp[-1].tkval),((UNOP*)(yyval.opval))->op_first,'~');
933                             else
934                               token_getmad((yyvsp[-1].tkval),(yyval.opval),'~');
935                         ;}
936     break;
937
938   case 128:
939 #line 823 "madly.y"
940     { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((yyvsp[0].opval)));
941                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
942                         ;}
943     break;
944
945   case 129:
946 #line 827 "madly.y"
947     { (yyval.opval) = newUNOP(OP_NULL, 0, (yyvsp[0].opval));
948                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'+');
949                         ;}
950     break;
951
952   case 130:
953 #line 831 "madly.y"
954     { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((yyvsp[0].opval)));
955                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
956                         ;}
957     break;
958
959   case 131:
960 #line 835 "madly.y"
961     { (yyval.opval) = newUNOP(OP_COMPLEMENT, 0, scalar((yyvsp[0].opval)));
962                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
963                         ;}
964     break;
965
966   case 132:
967 #line 839 "madly.y"
968     { (yyval.opval) = newUNOP(OP_POSTINC, 0,
969                                         mod(scalar((yyvsp[-1].opval)), OP_POSTINC));
970                           token_getmad((yyvsp[0].tkval),(yyval.opval),'o');
971                         ;}
972     break;
973
974   case 133:
975 #line 844 "madly.y"
976     { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
977                                         mod(scalar((yyvsp[-1].opval)), OP_POSTDEC));
978                           token_getmad((yyvsp[0].tkval),(yyval.opval),'o');
979                         ;}
980     break;
981
982   case 134:
983 #line 849 "madly.y"
984     { (yyval.opval) = newUNOP(OP_PREINC, 0,
985                                         mod(scalar((yyvsp[0].opval)), OP_PREINC));
986                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
987                         ;}
988     break;
989
990   case 135:
991 #line 854 "madly.y"
992     { (yyval.opval) = newUNOP(OP_PREDEC, 0,
993                                         mod(scalar((yyvsp[0].opval)), OP_PREDEC));
994                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
995                         ;}
996     break;
997
998   case 136:
999 #line 863 "madly.y"
1000     { (yyval.opval) = newANONLIST((yyvsp[-1].opval));
1001                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'[');
1002                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
1003                         ;}
1004     break;
1005
1006   case 137:
1007 #line 868 "madly.y"
1008     { (yyval.opval) = newANONLIST(Nullop);
1009                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'[');
1010                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
1011                         ;}
1012     break;
1013
1014   case 138:
1015 #line 873 "madly.y"
1016     { (yyval.opval) = newANONHASH((yyvsp[-2].opval));
1017                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'{');
1018                           token_getmad((yyvsp[-1].tkval),(yyval.opval),';');
1019                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
1020                         ;}
1021     break;
1022
1023   case 139:
1024 #line 879 "madly.y"
1025     { (yyval.opval) = newANONHASH(Nullop);
1026                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'{');
1027                           token_getmad((yyvsp[-1].tkval),(yyval.opval),';');
1028                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
1029                         ;}
1030     break;
1031
1032   case 140:
1033 #line 885 "madly.y"
1034     { (yyval.opval) = newANONATTRSUB((yyvsp[-3].ival), (yyvsp[-2].opval), (yyvsp[-1].opval), (yyvsp[0].opval));
1035                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'o');
1036                           op_getmad((yyvsp[-2].opval),(yyval.opval),'s');
1037                           op_getmad((yyvsp[-1].opval),(yyval.opval),'a');
1038                         ;}
1039     break;
1040
1041   case 141:
1042 #line 895 "madly.y"
1043     { (yyval.opval) = dofile((yyvsp[0].opval), (yyvsp[-1].tkval));
1044                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
1045                         ;}
1046     break;
1047
1048   case 142:
1049 #line 899 "madly.y"
1050     { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, scope((yyvsp[0].opval)));
1051                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'D');
1052                         ;}
1053     break;
1054
1055   case 143:
1056 #line 903 "madly.y"
1057     { (yyval.opval) = newUNOP(OP_ENTERSUB,
1058                             OPf_SPECIAL|OPf_STACKED,
1059                             prepend_elem(OP_LIST,
1060                                 scalar(newCVREF(
1061                                     (OPpENTERSUB_AMPER<<8),
1062                                     scalar((yyvsp[-2].opval))
1063                                 )),Nullop)); dep();
1064                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'o');
1065                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
1066                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1067                         ;}
1068     break;
1069
1070   case 144:
1071 #line 915 "madly.y"
1072     { (yyval.opval) = newUNOP(OP_ENTERSUB,
1073                             OPf_SPECIAL|OPf_STACKED,
1074                             append_elem(OP_LIST,
1075                                 (yyvsp[-1].opval),
1076                                 scalar(newCVREF(
1077                                     (OPpENTERSUB_AMPER<<8),
1078                                     scalar((yyvsp[-3].opval))
1079                                 )))); dep();
1080                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'o');
1081                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
1082                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1083                         ;}
1084     break;
1085
1086   case 145:
1087 #line 928 "madly.y"
1088     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
1089                             prepend_elem(OP_LIST,
1090                                 scalar(newCVREF(0,scalar((yyvsp[-2].opval)))), Nullop)); dep();
1091                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'o');
1092                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
1093                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1094                         ;}
1095     break;
1096
1097   case 146:
1098 #line 936 "madly.y"
1099     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
1100                             prepend_elem(OP_LIST,
1101                                 (yyvsp[-1].opval),
1102                                 scalar(newCVREF(0,scalar((yyvsp[-3].opval)))))); dep();
1103                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'o');
1104                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
1105                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1106                         ;}
1107     break;
1108
1109   case 151:
1110 #line 952 "madly.y"
1111     { (yyval.opval) = newCONDOP(0, (yyvsp[-4].opval), (yyvsp[-2].opval), (yyvsp[0].opval));
1112                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'?');
1113                           token_getmad((yyvsp[-1].tkval),(yyval.opval),':');
1114                         ;}
1115     break;
1116
1117   case 152:
1118 #line 957 "madly.y"
1119     { (yyval.opval) = newUNOP(OP_REFGEN, 0, mod((yyvsp[0].opval),OP_REFGEN));
1120                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
1121                         ;}
1122     break;
1123
1124   case 153:
1125 #line 961 "madly.y"
1126     { (yyval.opval) = (yyvsp[0].opval); ;}
1127     break;
1128
1129   case 154:
1130 #line 963 "madly.y"
1131     { (yyval.opval) = localize((yyvsp[0].opval),((yyvsp[-1].tkval))->tk_lval.ival);
1132                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'d');
1133                         ;}
1134     break;
1135
1136   case 155:
1137 #line 967 "madly.y"
1138     { (yyval.opval) = sawparens(newUNOP(OP_NULL,0,(yyvsp[-1].opval)));
1139                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
1140                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1141                         ;}
1142     break;
1143
1144   case 156:
1145 #line 972 "madly.y"
1146     { (yyval.opval) = sawparens(newNULLLIST());
1147                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
1148                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1149                         ;}
1150     break;
1151
1152   case 157:
1153 #line 977 "madly.y"
1154     { (yyval.opval) = (yyvsp[0].opval); ;}
1155     break;
1156
1157   case 158:
1158 #line 979 "madly.y"
1159     { (yyval.opval) = (yyvsp[0].opval); ;}
1160     break;
1161
1162   case 159:
1163 #line 981 "madly.y"
1164     { (yyval.opval) = (yyvsp[0].opval); ;}
1165     break;
1166
1167   case 160:
1168 #line 983 "madly.y"
1169     { (yyval.opval) = (yyvsp[0].opval); ;}
1170     break;
1171
1172   case 161:
1173 #line 985 "madly.y"
1174     { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((yyvsp[0].opval), OP_AV2ARYLEN));;}
1175     break;
1176
1177   case 162:
1178 #line 987 "madly.y"
1179     { (yyval.opval) = (yyvsp[0].opval); ;}
1180     break;
1181
1182   case 163:
1183 #line 989 "madly.y"
1184     { (yyval.opval) = prepend_elem(OP_ASLICE,
1185                                 newOP(OP_PUSHMARK, 0),
1186                                     newLISTOP(OP_ASLICE, 0,
1187                                         list((yyvsp[-1].opval)),
1188                                         ref((yyvsp[-3].opval), OP_ASLICE)));
1189                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'[');
1190                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
1191                         ;}
1192     break;
1193
1194   case 164:
1195 #line 998 "madly.y"
1196     { (yyval.opval) = prepend_elem(OP_HSLICE,
1197                                 newOP(OP_PUSHMARK, 0),
1198                                     newLISTOP(OP_HSLICE, 0,
1199                                         list((yyvsp[-2].opval)),
1200                                         ref(oopsHV((yyvsp[-4].opval)), OP_HSLICE)));
1201                             PL_expect = XOPERATOR;
1202                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'{');
1203                           token_getmad((yyvsp[-1].tkval),(yyval.opval),';');
1204                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
1205                         ;}
1206     break;
1207
1208   case 165:
1209 #line 1009 "madly.y"
1210     { (yyval.opval) = (yyvsp[0].opval); ;}
1211     break;
1212
1213   case 166:
1214 #line 1011 "madly.y"
1215     { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((yyvsp[0].opval))); ;}
1216     break;
1217
1218   case 167:
1219 #line 1013 "madly.y"
1220     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((yyvsp[-2].opval)));
1221                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
1222                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1223                         ;}
1224     break;
1225
1226   case 168:
1227 #line 1018 "madly.y"
1228     { OP* op;
1229                           (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1230                                 append_elem(OP_LIST, (yyvsp[-1].opval), scalar((yyvsp[-3].opval))));
1231                           op = (yyval.opval);
1232                           if (op->op_type == OP_CONST) { /* defeat const fold */
1233                             op = (OP*)op->op_madprop->mad_val;
1234                           }
1235                           token_getmad((yyvsp[-2].tkval),op,'(');
1236                           token_getmad((yyvsp[0].tkval),op,')');
1237                         ;}
1238     break;
1239
1240   case 169:
1241 #line 1029 "madly.y"
1242     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1243                             append_elem(OP_LIST, (yyvsp[0].opval), scalar((yyvsp[-1].opval))));
1244                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'o');
1245                         ;}
1246     break;
1247
1248   case 170:
1249 #line 1034 "madly.y"
1250     { (yyval.opval) = newOP(((yyvsp[0].tkval))->tk_lval.ival, OPf_SPECIAL);
1251                             PL_hints |= HINT_BLOCK_SCOPE;
1252                           token_getmad((yyvsp[0].tkval),(yyval.opval),'o');
1253                         ;}
1254     break;
1255
1256   case 171:
1257 #line 1039 "madly.y"
1258     { (yyval.opval) = newLOOPEX(((yyvsp[-1].tkval))->tk_lval.ival,(yyvsp[0].opval));
1259                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
1260                         ;}
1261     break;
1262
1263   case 172:
1264 #line 1043 "madly.y"
1265     { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((yyvsp[0].opval)));
1266                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
1267                         ;}
1268     break;
1269
1270   case 173:
1271 #line 1047 "madly.y"
1272     { (yyval.opval) = newOP(((yyvsp[0].tkval))->tk_lval.ival, 0);
1273                           token_getmad((yyvsp[0].tkval),(yyval.opval),'o');
1274                         ;}
1275     break;
1276
1277   case 174:
1278 #line 1051 "madly.y"
1279     { (yyval.opval) = newUNOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, (yyvsp[0].opval));
1280                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
1281                         ;}
1282     break;
1283
1284   case 175:
1285 #line 1055 "madly.y"
1286     { (yyval.opval) = newUNOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, (yyvsp[0].opval));
1287                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
1288                         ;}
1289     break;
1290
1291   case 176:
1292 #line 1059 "madly.y"
1293     { (yyval.opval) = newOP(OP_REQUIRE, (yyvsp[0].tkval) ? OPf_SPECIAL : 0); ;}
1294     break;
1295
1296   case 177:
1297 #line 1061 "madly.y"
1298     { (yyval.opval) = newUNOP(OP_REQUIRE, (yyvsp[-1].tkval) ? OPf_SPECIAL : 0, (yyvsp[0].opval)); ;}
1299     break;
1300
1301   case 178:
1302 #line 1063 "madly.y"
1303     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1304                             append_elem(OP_LIST, (yyvsp[0].opval), scalar((yyvsp[-1].opval)))); ;}
1305     break;
1306
1307   case 179:
1308 #line 1066 "madly.y"
1309     { (yyval.opval) = newOP(((yyvsp[0].tkval))->tk_lval.ival, 0);
1310                           token_getmad((yyvsp[0].tkval),(yyval.opval),'o');
1311                         ;}
1312     break;
1313
1314   case 180:
1315 #line 1070 "madly.y"
1316     { (yyval.opval) = newOP(((yyvsp[-2].tkval))->tk_lval.ival, 0);
1317                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'o');
1318                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
1319                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1320                         ;}
1321     break;
1322
1323   case 181:
1324 #line 1076 "madly.y"
1325     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1326                                 scalar((yyvsp[0].opval))); ;}
1327     break;
1328
1329   case 182:
1330 #line 1079 "madly.y"
1331     { (yyval.opval) = newOP(((yyvsp[-2].tkval))->tk_lval.ival, OPf_SPECIAL);
1332                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'o');
1333                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
1334                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1335                         ;}
1336     break;
1337
1338   case 183:
1339 #line 1085 "madly.y"
1340     { (yyval.opval) = newUNOP(((yyvsp[-3].tkval))->tk_lval.ival, 0, (yyvsp[-1].opval));
1341                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'o');
1342                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
1343                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1344                         ;}
1345     break;
1346
1347   case 184:
1348 #line 1091 "madly.y"
1349     { (yyval.opval) = pmruntime((yyvsp[-3].opval), (yyvsp[-1].opval), 1);
1350                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
1351                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1352                         ;}
1353     break;
1354
1355   case 187:
1356 #line 1101 "madly.y"
1357     { (yyval.opval) = my_attrs((yyvsp[-1].opval),(yyvsp[0].opval));
1358                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'d');
1359                           append_madprops((yyvsp[0].opval)->op_madprop, (yyval.opval), 'a');
1360                           (yyvsp[0].opval)->op_madprop = 0;
1361                         ;}
1362     break;
1363
1364   case 188:
1365 #line 1107 "madly.y"
1366     { (yyval.opval) = localize((yyvsp[0].opval),((yyvsp[-1].tkval))->tk_lval.ival);
1367                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'d');
1368                         ;}
1369     break;
1370
1371   case 189:
1372 #line 1114 "madly.y"
1373     { (yyval.opval) = sawparens((yyvsp[-1].opval));
1374                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
1375                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1376                         ;}
1377     break;
1378
1379   case 190:
1380 #line 1119 "madly.y"
1381     { (yyval.opval) = sawparens(newNULLLIST());
1382                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
1383                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1384                         ;}
1385     break;
1386
1387   case 191:
1388 #line 1124 "madly.y"
1389     { (yyval.opval) = (yyvsp[0].opval); ;}
1390     break;
1391
1392   case 192:
1393 #line 1126 "madly.y"
1394     { (yyval.opval) = (yyvsp[0].opval); ;}
1395     break;
1396
1397   case 193:
1398 #line 1128 "madly.y"
1399     { (yyval.opval) = (yyvsp[0].opval); ;}
1400     break;
1401
1402   case 194:
1403 #line 1133 "madly.y"
1404     { (yyval.opval) = Nullop; ;}
1405     break;
1406
1407   case 195:
1408 #line 1135 "madly.y"
1409     { (yyval.opval) = (yyvsp[0].opval); ;}
1410     break;
1411
1412   case 196:
1413 #line 1139 "madly.y"
1414     { (yyval.opval) = Nullop; ;}
1415     break;
1416
1417   case 197:
1418 #line 1141 "madly.y"
1419     { (yyval.opval) = (yyvsp[0].opval); ;}
1420     break;
1421
1422   case 198:
1423 #line 1143 "madly.y"
1424     { OP* op = newNULLLIST();
1425                           token_getmad((yyvsp[0].tkval),op,',');
1426                           (yyval.opval) = append_elem(OP_LIST, (yyvsp[-1].opval), op);
1427                         ;}
1428     break;
1429
1430   case 199:
1431 #line 1152 "madly.y"
1432     { PL_in_my = 0; (yyval.opval) = my((yyvsp[0].opval)); ;}
1433     break;
1434
1435   case 200:
1436 #line 1156 "madly.y"
1437     { (yyval.opval) = newCVREF(((yyvsp[-1].tkval))->tk_lval.ival,(yyvsp[0].opval));
1438                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'&');
1439                         ;}
1440     break;
1441
1442   case 201:
1443 #line 1162 "madly.y"
1444     { (yyval.opval) = newSVREF((yyvsp[0].opval));
1445                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'$');
1446                         ;}
1447     break;
1448
1449   case 202:
1450 #line 1168 "madly.y"
1451     { (yyval.opval) = newAVREF((yyvsp[0].opval));
1452                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'@');
1453                         ;}
1454     break;
1455
1456   case 203:
1457 #line 1174 "madly.y"
1458     { (yyval.opval) = newHVREF((yyvsp[0].opval));
1459                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'%');
1460                         ;}
1461     break;
1462
1463   case 204:
1464 #line 1180 "madly.y"
1465     { (yyval.opval) = newAVREF((yyvsp[0].opval));
1466                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'l');
1467                         ;}
1468     break;
1469
1470   case 205:
1471 #line 1186 "madly.y"
1472     { (yyval.opval) = newGVREF(0,(yyvsp[0].opval));
1473                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'*');
1474                         ;}
1475     break;
1476
1477   case 206:
1478 #line 1193 "madly.y"
1479     { (yyval.opval) = scalar((yyvsp[0].opval)); ;}
1480     break;
1481
1482   case 207:
1483 #line 1195 "madly.y"
1484     { (yyval.opval) = scalar((yyvsp[0].opval)); ;}
1485     break;
1486
1487   case 208:
1488 #line 1197 "madly.y"
1489     { (yyval.opval) = scope((yyvsp[0].opval)); ;}
1490     break;
1491
1492   case 209:
1493 #line 1200 "madly.y"
1494     { (yyval.opval) = (yyvsp[0].opval); ;}
1495     break;
1496
1497
1498       default: break;
1499