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     { SvREFCNT_inc(PL_compcv);
 435                           (yyval.opval) = newFORM((yyvsp[-2].ival), (yyvsp[-1].opval), (yyvsp[0].opval));
 436                           prepend_madprops((yyvsp[-3].tkval)->tk_mad, (yyval.opval), 'F');
 437                           (yyvsp[-3].tkval)->tk_mad = 0;
 438                           token_free((yyvsp[-3].tkval));
 439                         ;}
 440     break;
 441
 442   case 62:
 443 #line 454 "madly.y"
 444     { (yyval.opval) = (yyvsp[0].opval); ;}
 445     break;
 446
 447   case 63:
 448 #line 455 "madly.y"
 449     { (yyval.opval) = Nullop; ;}
 450     break;
 451
 452   case 64:
 453 #line 460 "madly.y"
 454     { SvREFCNT_inc(PL_compcv);
 455                           (yyval.opval) = newMYSUB((yyvsp[-4].ival), (yyvsp[-3].opval), (yyvsp[-2].opval), (yyvsp[-1].opval), (yyvsp[0].opval));
 456                           token_getmad((yyvsp[-5].tkval),(yyval.opval),'d');
 457                         ;}
 458     break;
 459
 460   case 65:
 461 #line 468 "madly.y"
 462     { SvREFCNT_inc(PL_compcv);
 463                           OP* o = newSVOP(OP_ANONCODE, 0,
 464                             (SV*)newATTRSUB((yyvsp[-4].ival), (yyvsp[-3].opval), (yyvsp[-2].opval), (yyvsp[-1].opval), (yyvsp[0].opval)));
 465                           (yyval.opval) = newOP(OP_NULL,0);
 466                           op_getmad(o,(yyval.opval),'&');
 467                           op_getmad((yyvsp[-3].opval),(yyval.opval),'n');
 468                           op_getmad((yyvsp[-2].opval),(yyval.opval),'s');
 469                           op_getmad((yyvsp[-1].opval),(yyval.opval),'a');
 470                           token_getmad((yyvsp[-5].tkval),(yyval.opval),'d');
 471                           append_madprops((yyvsp[0].opval)->op_madprop, (yyval.opval), 0);
 472                           (yyvsp[0].opval)->op_madprop = 0;
 473                         ;}
 474     break;
 475
 476   case 66:
 477 #line 483 "madly.y"
 478     { (yyval.ival) = start_subparse(FALSE, 0);
 479                             SAVEFREESV(PL_compcv); ;}
 480     break;
 481
 482   case 67:
 483 #line 489 "madly.y"
 484     { (yyval.ival) = start_subparse(FALSE, CVf_ANON);
 485                             SAVEFREESV(PL_compcv); ;}
 486     break;
 487
 488   case 68:
 489 #line 494 "madly.y"
 490     { (yyval.ival) = start_subparse(TRUE, 0);
 491                             SAVEFREESV(PL_compcv); ;}
 492     break;
 493
 494   case 69:
 495 #line 499 "madly.y"
 496     { const char *const name = SvPV_nolen_const(((SVOP*)(yyvsp[0].opval))->op_sv);
 497                           if (strEQ(name, "BEGIN") || strEQ(name, "END")
 498                               || strEQ(name, "INIT") || strEQ(name, "CHECK"))
 499                               CvSPECIAL_on(PL_compcv);
 500                           (yyval.opval) = (yyvsp[0].opval); ;}
 501     break;
 502
 503   case 70:
 504 #line 508 "madly.y"
 505     { (yyval.opval) = Nullop; ;}
 506     break;
 507
 508   case 72:
 509 #line 514 "madly.y"
 510     { (yyval.opval) = Nullop; ;}
 511     break;
 512
 513   case 73:
 514 #line 516 "madly.y"
 515     { (yyval.opval) = (yyvsp[0].opval);
 516                           token_getmad((yyvsp[-1].tkval),(yyval.opval),':');
 517                         ;}
 518     break;
 519
 520   case 74:
 521 #line 520 "madly.y"
 522     { (yyval.opval) = newOP(OP_NULL, 0);
 523                           token_getmad((yyvsp[0].tkval),(yyval.opval),':');
 524                         ;}
 525     break;
 526
 527   case 75:
 528 #line 527 "madly.y"
 529     { (yyval.opval) = (yyvsp[0].opval);
 530                           token_getmad((yyvsp[-1].tkval),(yyval.opval),':');
 531                         ;}
 532     break;
 533
 534   case 76:
 535 #line 531 "madly.y"
 536     { (yyval.opval) = newOP(OP_NULL, 0);
 537                           token_getmad((yyvsp[0].tkval),(yyval.opval),':');
 538                         ;}
 539     break;
 540
 541   case 77:
 542 #line 537 "madly.y"
 543     { (yyval.opval) = (yyvsp[0].opval); ;}
 544     break;
 545
 546   case 78:
 547 #line 538 "madly.y"
 548     { (yyval.opval) = newOP(OP_NULL,0); PL_expect = XSTATE;
 549                           token_getmad((yyvsp[0].tkval),(yyval.opval),';');
 550                         ;}
 551     break;
 552
 553   case 79:
 554 #line 544 "madly.y"
 555     { (yyval.opval) = package((yyvsp[-1].opval));
 556                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'o');
 557                           token_getmad((yyvsp[0].tkval),(yyval.opval),';');
 558                         ;}
 559     break;
 560
 561   case 80:
 562 #line 551 "madly.y"
 563     { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ ;}
 564     break;
 565
 566   case 81:
 567 #line 553 "madly.y"
 568     { SvREFCNT_inc(PL_compcv);
 569                           (yyval.opval) = utilize(((yyvsp[-6].tkval))->tk_lval.ival, (yyvsp[-5].ival), (yyvsp[-3].opval), (yyvsp[-2].opval), (yyvsp[-1].opval));
 570                           token_getmad((yyvsp[-6].tkval),(yyval.opval),'o');
 571                           token_getmad((yyvsp[0].tkval),(yyval.opval),';');
 572                           if (PL_rsfp_filters && AvFILLp(PL_rsfp_filters) >= 0)
 573                               append_madprops(newMADPROP('!', MAD_PV, "", 0), (yyval.opval), 0);
 574                         ;}
 575     break;
 576
 577   case 82:
 578 #line 564 "madly.y"
 579     { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[-2].opval), (yyvsp[0].opval));
 580                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 581                         ;}
 582     break;
 583
 584   case 83:
 585 #line 568 "madly.y"
 586     { (yyval.opval) = newLOGOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, (yyvsp[-2].opval), (yyvsp[0].opval));
 587                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 588                         ;}
 589     break;
 590
 591   case 84:
 592 #line 572 "madly.y"
 593     { (yyval.opval) = newLOGOP(OP_DOR, 0, (yyvsp[-2].opval), (yyvsp[0].opval));
 594                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 595                         ;}
 596     break;
 597
 598   case 86:
 599 #line 580 "madly.y"
 600     { OP* op = newNULLLIST();
 601                           token_getmad((yyvsp[0].tkval),op,',');
 602                           (yyval.opval) = append_elem(OP_LIST, (yyvsp[-1].opval), op);
 603                         ;}
 604     break;
 605
 606   case 87:
 607 #line 585 "madly.y"
 608     {
 609                           (yyvsp[0].opval) = newUNOP(OP_NULL, 0, (yyvsp[0].opval));
 610                           token_getmad((yyvsp[-1].tkval),(yyvsp[0].opval),',');
 611                           (yyval.opval) = append_elem(OP_LIST, (yyvsp[-2].opval), (yyvsp[0].opval));
 612                         ;}
 613     break;
 614
 615   case 89:
 616 #line 595 "madly.y"
 617     { (yyval.opval) = convert(((yyvsp[-2].tkval))->tk_lval.ival, OPf_STACKED,
 618                                 prepend_elem(OP_LIST, newGVREF(((yyvsp[-2].tkval))->tk_lval.ival,(yyvsp[-1].opval)), (yyvsp[0].opval)) );
 619                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'o');
 620                         ;}
 621     break;
 622
 623   case 90:
 624 #line 600 "madly.y"
 625     { (yyval.opval) = convert(((yyvsp[-4].tkval))->tk_lval.ival, OPf_STACKED,
 626                                 prepend_elem(OP_LIST, newGVREF(((yyvsp[-4].tkval))->tk_lval.ival,(yyvsp[-2].opval)), (yyvsp[-1].opval)) );
 627                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'o');
 628                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'(');
 629                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
 630                         ;}
 631     break;
 632
 633   case 91:
 634 #line 607 "madly.y"
 635     { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
 636                                 append_elem(OP_LIST,
 637                                     prepend_elem(OP_LIST, scalar((yyvsp[-5].opval)), (yyvsp[-1].opval)),
 638                                     newUNOP(OP_METHOD, 0, (yyvsp[-3].opval))));
 639                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'A');
 640                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
 641                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
 642                         ;}
 643     break;
 644
 645   case 92:
 646 #line 616 "madly.y"
 647     { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
 648                                 append_elem(OP_LIST, scalar((yyvsp[-2].opval)),
 649                                     newUNOP(OP_METHOD, 0, (yyvsp[0].opval))));
 650                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'A');
 651                         ;}
 652     break;
 653
 654   case 93:
 655 #line 622 "madly.y"
 656     { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
 657                                 append_elem(OP_LIST,
 658                                     prepend_elem(OP_LIST, (yyvsp[-1].opval), (yyvsp[0].opval)),
 659                                     newUNOP(OP_METHOD, 0, (yyvsp[-2].opval))));
 660                         ;}
 661     break;
 662
 663   case 94:
 664 #line 628 "madly.y"
 665     { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
 666                                 append_elem(OP_LIST,
 667                                     prepend_elem(OP_LIST, (yyvsp[-3].opval), (yyvsp[-1].opval)),
 668                                     newUNOP(OP_METHOD, 0, (yyvsp[-4].opval))));
 669                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
 670                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
 671                         ;}
 672     break;
 673
 674   case 95:
 675 #line 636 "madly.y"
 676     { (yyval.opval) = convert(((yyvsp[-1].tkval))->tk_lval.ival, 0, (yyvsp[0].opval));
 677                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 678                         ;}
 679     break;
 680
 681   case 96:
 682 #line 640 "madly.y"
 683     { (yyval.opval) = convert(((yyvsp[-3].tkval))->tk_lval.ival, 0, (yyvsp[-1].opval));
 684                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'o');
 685                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
 686                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
 687                         ;}
 688     break;
 689
 690   case 97:
 691 #line 646 "madly.y"
 692     { SvREFCNT_inc(PL_compcv);
 693                           (yyvsp[0].opval) = newANONATTRSUB((yyvsp[-1].ival), 0, Nullop, (yyvsp[0].opval)); ;}
 694     break;
 695
 696   case 98:
 697 #line 649 "madly.y"
 698     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 699                                  append_elem(OP_LIST,
 700                                    prepend_elem(OP_LIST, (yyvsp[-2].opval), (yyvsp[0].opval)), (yyvsp[-4].opval)));
 701                         ;}
 702     break;
 703
 704   case 101:
 705 #line 664 "madly.y"
 706     { (yyval.opval) = newBINOP(OP_GELEM, 0, (yyvsp[-4].opval), scalar((yyvsp[-2].opval)));
 707                             PL_expect = XOPERATOR;
 708                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'{');
 709                           token_getmad((yyvsp[-1].tkval),(yyval.opval),';');
 710                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
 711                         ;}
 712     break;
 713
 714   case 102:
 715 #line 671 "madly.y"
 716     { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((yyvsp[-3].opval)), scalar((yyvsp[-1].opval)));
 717                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'[');
 718                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
 719                         ;}
 720     break;
 721
 722   case 103:
 723 #line 676 "madly.y"
 724     { (yyval.opval) = newBINOP(OP_AELEM, 0,
 725                                         ref(newAVREF((yyvsp[-4].opval)),OP_RV2AV),
 726                                         scalar((yyvsp[-1].opval)));
 727                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'a');
 728                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'[');
 729                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
 730                         ;}
 731     break;
 732
 733   case 104:
 734 #line 684 "madly.y"
 735     { (yyval.opval) = newBINOP(OP_AELEM, 0,
 736                                         ref(newAVREF((yyvsp[-3].opval)),OP_RV2AV),
 737                                         scalar((yyvsp[-1].opval)));
 738                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'[');
 739                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
 740                         ;}
 741     break;
 742
 743   case 105:
 744 #line 691 "madly.y"
 745     { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((yyvsp[-4].opval)), jmaybe((yyvsp[-2].opval)));
 746                             PL_expect = XOPERATOR;
 747                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'{');
 748                           token_getmad((yyvsp[-1].tkval),(yyval.opval),';');
 749                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
 750                         ;}
 751     break;
 752
 753   case 106:
 754 #line 698 "madly.y"
 755     { (yyval.opval) = newBINOP(OP_HELEM, 0,
 756                                         ref(newHVREF((yyvsp[-5].opval)),OP_RV2HV),
 757                                         jmaybe((yyvsp[-2].opval)));
 758                             PL_expect = XOPERATOR;
 759                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'a');
 760                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'{');
 761                           token_getmad((yyvsp[-1].tkval),(yyval.opval),';');
 762                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
 763                         ;}
 764     break;
 765
 766   case 107:
 767 #line 708 "madly.y"
 768     { (yyval.opval) = newBINOP(OP_HELEM, 0,
 769                                         ref(newHVREF((yyvsp[-4].opval)),OP_RV2HV),
 770                                         jmaybe((yyvsp[-2].opval)));
 771                             PL_expect = XOPERATOR;
 772                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'{');
 773                           token_getmad((yyvsp[-1].tkval),(yyval.opval),';');
 774                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
 775                         ;}
 776     break;
 777
 778   case 108:
 779 #line 717 "madly.y"
 780     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 781                                    newCVREF(0, scalar((yyvsp[-3].opval))));
 782                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'a');
 783                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
 784                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
 785                         ;}
 786     break;
 787
 788   case 109:
 789 #line 724 "madly.y"
 790     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 791                                    append_elem(OP_LIST, (yyvsp[-1].opval),
 792                                        newCVREF(0, scalar((yyvsp[-4].opval)))));
 793                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'a');
 794                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
 795                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
 796                         ;}
 797     break;
 798
 799   case 110:
 800 #line 733 "madly.y"
 801     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 802                                    append_elem(OP_LIST, (yyvsp[-1].opval),
 803                                                newCVREF(0, scalar((yyvsp[-3].opval)))));
 804                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
 805                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
 806                         ;}
 807     break;
 808
 809   case 111:
 810 #line 740 "madly.y"
 811     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
 812                                    newCVREF(0, scalar((yyvsp[-2].opval))));
 813                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
 814                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
 815                         ;}
 816     break;
 817
 818   case 112:
 819 #line 746 "madly.y"
 820     { (yyval.opval) = newSLICEOP(0, (yyvsp[-1].opval), (yyvsp[-4].opval));
 821                           token_getmad((yyvsp[-5].tkval),(yyval.opval),'(');
 822                           token_getmad((yyvsp[-3].tkval),(yyval.opval),')');
 823                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'[');
 824                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
 825                         ;}
 826     break;
 827
 828   case 113:
 829 #line 753 "madly.y"
 830     { (yyval.opval) = newSLICEOP(0, (yyvsp[-1].opval), Nullop);
 831                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'(');
 832                           token_getmad((yyvsp[-3].tkval),(yyval.opval),')');
 833                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'[');
 834                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
 835                         ;}
 836     break;
 837
 838   case 114:
 839 #line 763 "madly.y"
 840     { (yyval.opval) = newASSIGNOP(OPf_STACKED, (yyvsp[-2].opval), ((yyvsp[-1].tkval))->tk_lval.ival, (yyvsp[0].opval));
 841                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 842                         ;}
 843     break;
 844
 845   case 115:
 846 #line 767 "madly.y"
 847     { (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
 848                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 849                         ;}
 850     break;
 851
 852   case 116:
 853 #line 771 "madly.y"
 854     {   if (((yyvsp[-1].tkval))->tk_lval.ival != OP_REPEAT)
 855                                 scalar((yyvsp[-2].opval));
 856                             (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, (yyvsp[-2].opval), scalar((yyvsp[0].opval)));
 857                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 858                         ;}
 859     break;
 860
 861   case 117:
 862 #line 777 "madly.y"
 863     { (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
 864                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 865                         ;}
 866     break;
 867
 868   case 118:
 869 #line 781 "madly.y"
 870     { (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
 871                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 872                         ;}
 873     break;
 874
 875   case 119:
 876 #line 785 "madly.y"
 877     { (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
 878                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 879                         ;}
 880     break;
 881
 882   case 120:
 883 #line 789 "madly.y"
 884     { (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
 885                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 886                         ;}
 887     break;
 888
 889   case 121:
 890 #line 793 "madly.y"
 891     { (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
 892                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 893                         ;}
 894     break;
 895
 896   case 122:
 897 #line 797 "madly.y"
 898     { (yyval.opval) = newBINOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
 899                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 900                         ;}
 901     break;
 902
 903   case 123:
 904 #line 801 "madly.y"
 905     { UNOP *op;
 906                           (yyval.opval) = newRANGE(((yyvsp[-1].tkval))->tk_lval.ival, scalar((yyvsp[-2].opval)), scalar((yyvsp[0].opval)));
 907                           op = (UNOP*)(yyval.opval);
 908                           op = (UNOP*)op->op_first;     /* get to flop */
 909                           op = (UNOP*)op->op_first;     /* get to flip */
 910                           op = (UNOP*)op->op_first;     /* get to range */
 911                           token_getmad((yyvsp[-1].tkval),(OP*)op,'o');
 912                         ;}
 913     break;
 914
 915   case 124:
 916 #line 810 "madly.y"
 917     { (yyval.opval) = newLOGOP(OP_AND, 0, (yyvsp[-2].opval), (yyvsp[0].opval));
 918                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 919                         ;}
 920     break;
 921
 922   case 125:
 923 #line 814 "madly.y"
 924     { (yyval.opval) = newLOGOP(OP_OR, 0, (yyvsp[-2].opval), (yyvsp[0].opval));
 925                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 926                         ;}
 927     break;
 928
 929   case 126:
 930 #line 818 "madly.y"
 931     { (yyval.opval) = newLOGOP(OP_DOR, 0, (yyvsp[-2].opval), (yyvsp[0].opval));
 932                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 933                         ;}
 934     break;
 935
 936   case 127:
 937 #line 822 "madly.y"
 938     { (yyval.opval) = bind_match(((yyvsp[-1].tkval))->tk_lval.ival, (yyvsp[-2].opval), (yyvsp[0].opval));
 939                           if ((yyval.opval)->op_type == OP_NOT)
 940                               token_getmad((yyvsp[-1].tkval),((UNOP*)(yyval.opval))->op_first,'~');
 941                             else
 942                               token_getmad((yyvsp[-1].tkval),(yyval.opval),'~');
 943                         ;}
 944     break;
 945
 946   case 128:
 947 #line 832 "madly.y"
 948     { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((yyvsp[0].opval)));
 949                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 950                         ;}
 951     break;
 952
 953   case 129:
 954 #line 836 "madly.y"
 955     { (yyval.opval) = newUNOP(OP_NULL, 0, (yyvsp[0].opval));
 956                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'+');
 957                         ;}
 958     break;
 959
 960   case 130:
 961 #line 840 "madly.y"
 962     { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((yyvsp[0].opval)));
 963                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 964                         ;}
 965     break;
 966
 967   case 131:
 968 #line 844 "madly.y"
 969     { (yyval.opval) = newUNOP(OP_COMPLEMENT, 0, scalar((yyvsp[0].opval)));
 970                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 971                         ;}
 972     break;
 973
 974   case 132:
 975 #line 848 "madly.y"
 976     { (yyval.opval) = newUNOP(OP_POSTINC, 0,
 977                                         mod(scalar((yyvsp[-1].opval)), OP_POSTINC));
 978                           token_getmad((yyvsp[0].tkval),(yyval.opval),'o');
 979                         ;}
 980     break;
 981
 982   case 133:
 983 #line 853 "madly.y"
 984     { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
 985                                         mod(scalar((yyvsp[-1].opval)), OP_POSTDEC));
 986                           token_getmad((yyvsp[0].tkval),(yyval.opval),'o');
 987                         ;}
 988     break;
 989
 990   case 134:
 991 #line 858 "madly.y"
 992     { (yyval.opval) = newUNOP(OP_PREINC, 0,
 993                                         mod(scalar((yyvsp[0].opval)), OP_PREINC));
 994                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
 995                         ;}
 996     break;
 997
 998   case 135:
 999 #line 863 "madly.y"
1000     { (yyval.opval) = newUNOP(OP_PREDEC, 0,
1001                                         mod(scalar((yyvsp[0].opval)), OP_PREDEC));
1002                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
1003                         ;}
1004     break;
1005
1006   case 136:
1007 #line 872 "madly.y"
1008     { (yyval.opval) = newANONLIST((yyvsp[-1].opval));
1009                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'[');
1010                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
1011                         ;}
1012     break;
1013
1014   case 137:
1015 #line 877 "madly.y"
1016     { (yyval.opval) = newANONLIST(Nullop);
1017                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'[');
1018                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
1019                         ;}
1020     break;
1021
1022   case 138:
1023 #line 882 "madly.y"
1024     { (yyval.opval) = newANONHASH((yyvsp[-2].opval));
1025                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'{');
1026                           token_getmad((yyvsp[-1].tkval),(yyval.opval),';');
1027                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
1028                         ;}
1029     break;
1030
1031   case 139:
1032 #line 888 "madly.y"
1033     { (yyval.opval) = newANONHASH(Nullop);
1034                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'{');
1035                           token_getmad((yyvsp[-1].tkval),(yyval.opval),';');
1036                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
1037                         ;}
1038     break;
1039
1040   case 140:
1041 #line 894 "madly.y"
1042     { SvREFCNT_inc(PL_compcv);
1043                           (yyval.opval) = newANONATTRSUB((yyvsp[-3].ival), (yyvsp[-2].opval), (yyvsp[-1].opval), (yyvsp[0].opval));
1044                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'o');
1045                           op_getmad((yyvsp[-2].opval),(yyval.opval),'s');
1046                           op_getmad((yyvsp[-1].opval),(yyval.opval),'a');
1047                         ;}
1048     break;
1049
1050   case 141:
1051 #line 905 "madly.y"
1052     { (yyval.opval) = dofile((yyvsp[0].opval), (yyvsp[-1].tkval));
1053                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
1054                         ;}
1055     break;
1056
1057   case 142:
1058 #line 909 "madly.y"
1059     { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, scope((yyvsp[0].opval)));
1060                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'D');
1061                         ;}
1062     break;
1063
1064   case 143:
1065 #line 913 "madly.y"
1066     { (yyval.opval) = newUNOP(OP_ENTERSUB,
1067                             OPf_SPECIAL|OPf_STACKED,
1068                             prepend_elem(OP_LIST,
1069                                 scalar(newCVREF(
1070                                     (OPpENTERSUB_AMPER<<8),
1071                                     scalar((yyvsp[-2].opval))
1072                                 )),Nullop)); dep();
1073                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'o');
1074                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
1075                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1076                         ;}
1077     break;
1078
1079   case 144:
1080 #line 925 "madly.y"
1081     { (yyval.opval) = newUNOP(OP_ENTERSUB,
1082                             OPf_SPECIAL|OPf_STACKED,
1083                             append_elem(OP_LIST,
1084                                 (yyvsp[-1].opval),
1085                                 scalar(newCVREF(
1086                                     (OPpENTERSUB_AMPER<<8),
1087                                     scalar((yyvsp[-3].opval))
1088                                 )))); dep();
1089                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'o');
1090                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
1091                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1092                         ;}
1093     break;
1094
1095   case 145:
1096 #line 938 "madly.y"
1097     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
1098                             prepend_elem(OP_LIST,
1099                                 scalar(newCVREF(0,scalar((yyvsp[-2].opval)))), Nullop)); dep();
1100                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'o');
1101                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
1102                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1103                         ;}
1104     break;
1105
1106   case 146:
1107 #line 946 "madly.y"
1108     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
1109                             prepend_elem(OP_LIST,
1110                                 (yyvsp[-1].opval),
1111                                 scalar(newCVREF(0,scalar((yyvsp[-3].opval)))))); dep();
1112                           token_getmad((yyvsp[-4].tkval),(yyval.opval),'o');
1113                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
1114                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1115                         ;}
1116     break;
1117
1118   case 151:
1119 #line 962 "madly.y"
1120     { (yyval.opval) = newCONDOP(0, (yyvsp[-4].opval), (yyvsp[-2].opval), (yyvsp[0].opval));
1121                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'?');
1122                           token_getmad((yyvsp[-1].tkval),(yyval.opval),':');
1123                         ;}
1124     break;
1125
1126   case 152:
1127 #line 967 "madly.y"
1128     { (yyval.opval) = newUNOP(OP_REFGEN, 0, mod((yyvsp[0].opval),OP_REFGEN));
1129                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
1130                         ;}
1131     break;
1132
1133   case 153:
1134 #line 971 "madly.y"
1135     { (yyval.opval) = (yyvsp[0].opval); ;}
1136     break;
1137
1138   case 154:
1139 #line 973 "madly.y"
1140     { (yyval.opval) = localize((yyvsp[0].opval),((yyvsp[-1].tkval))->tk_lval.ival);
1141                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'d');
1142                         ;}
1143     break;
1144
1145   case 155:
1146 #line 977 "madly.y"
1147     { (yyval.opval) = sawparens(newUNOP(OP_NULL,0,(yyvsp[-1].opval)));
1148                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
1149                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1150                         ;}
1151     break;
1152
1153   case 156:
1154 #line 982 "madly.y"
1155     { (yyval.opval) = sawparens(newNULLLIST());
1156                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
1157                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1158                         ;}
1159     break;
1160
1161   case 157:
1162 #line 987 "madly.y"
1163     { (yyval.opval) = (yyvsp[0].opval); ;}
1164     break;
1165
1166   case 158:
1167 #line 989 "madly.y"
1168     { (yyval.opval) = (yyvsp[0].opval); ;}
1169     break;
1170
1171   case 159:
1172 #line 991 "madly.y"
1173     { (yyval.opval) = (yyvsp[0].opval); ;}
1174     break;
1175
1176   case 160:
1177 #line 993 "madly.y"
1178     { (yyval.opval) = (yyvsp[0].opval); ;}
1179     break;
1180
1181   case 161:
1182 #line 995 "madly.y"
1183     { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((yyvsp[0].opval), OP_AV2ARYLEN));;}
1184     break;
1185
1186   case 162:
1187 #line 997 "madly.y"
1188     { (yyval.opval) = (yyvsp[0].opval); ;}
1189     break;
1190
1191   case 163:
1192 #line 999 "madly.y"
1193     { (yyval.opval) = prepend_elem(OP_ASLICE,
1194                                 newOP(OP_PUSHMARK, 0),
1195                                     newLISTOP(OP_ASLICE, 0,
1196                                         list((yyvsp[-1].opval)),
1197                                         ref((yyvsp[-3].opval), OP_ASLICE)));
1198                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'[');
1199                           token_getmad((yyvsp[0].tkval),(yyval.opval),']');
1200                         ;}
1201     break;
1202
1203   case 164:
1204 #line 1008 "madly.y"
1205     { (yyval.opval) = prepend_elem(OP_HSLICE,
1206                                 newOP(OP_PUSHMARK, 0),
1207                                     newLISTOP(OP_HSLICE, 0,
1208                                         list((yyvsp[-2].opval)),
1209                                         ref(oopsHV((yyvsp[-4].opval)), OP_HSLICE)));
1210                             PL_expect = XOPERATOR;
1211                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'{');
1212                           token_getmad((yyvsp[-1].tkval),(yyval.opval),';');
1213                           token_getmad((yyvsp[0].tkval),(yyval.opval),'}');
1214                         ;}
1215     break;
1216
1217   case 165:
1218 #line 1019 "madly.y"
1219     { (yyval.opval) = (yyvsp[0].opval); ;}
1220     break;
1221
1222   case 166:
1223 #line 1021 "madly.y"
1224     { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((yyvsp[0].opval))); ;}
1225     break;
1226
1227   case 167:
1228 #line 1023 "madly.y"
1229     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((yyvsp[-2].opval)));
1230                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
1231                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1232                         ;}
1233     break;
1234
1235   case 168:
1236 #line 1028 "madly.y"
1237     { OP* op;
1238                           (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1239                                 append_elem(OP_LIST, (yyvsp[-1].opval), scalar((yyvsp[-3].opval))));
1240                           op = (yyval.opval);
1241                           if (op->op_type == OP_CONST) { /* defeat const fold */
1242                             op = (OP*)op->op_madprop->mad_val;
1243                           }
1244                           token_getmad((yyvsp[-2].tkval),op,'(');
1245                           token_getmad((yyvsp[0].tkval),op,')');
1246                         ;}
1247     break;
1248
1249   case 169:
1250 #line 1039 "madly.y"
1251     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1252                             append_elem(OP_LIST, (yyvsp[0].opval), scalar((yyvsp[-1].opval))));
1253                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'o');
1254                         ;}
1255     break;
1256
1257   case 170:
1258 #line 1044 "madly.y"
1259     { (yyval.opval) = newOP(((yyvsp[0].tkval))->tk_lval.ival, OPf_SPECIAL);
1260                             PL_hints |= HINT_BLOCK_SCOPE;
1261                           token_getmad((yyvsp[0].tkval),(yyval.opval),'o');
1262                         ;}
1263     break;
1264
1265   case 171:
1266 #line 1049 "madly.y"
1267     { (yyval.opval) = newLOOPEX(((yyvsp[-1].tkval))->tk_lval.ival,(yyvsp[0].opval));
1268                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
1269                         ;}
1270     break;
1271
1272   case 172:
1273 #line 1053 "madly.y"
1274     { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((yyvsp[0].opval)));
1275                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
1276                         ;}
1277     break;
1278
1279   case 173:
1280 #line 1057 "madly.y"
1281     { (yyval.opval) = newOP(((yyvsp[0].tkval))->tk_lval.ival, 0);
1282                           token_getmad((yyvsp[0].tkval),(yyval.opval),'o');
1283                         ;}
1284     break;
1285
1286   case 174:
1287 #line 1061 "madly.y"
1288     { (yyval.opval) = newUNOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, (yyvsp[0].opval));
1289                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
1290                         ;}
1291     break;
1292
1293   case 175:
1294 #line 1065 "madly.y"
1295     { (yyval.opval) = newUNOP(((yyvsp[-1].tkval))->tk_lval.ival, 0, (yyvsp[0].opval));
1296                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'o');
1297                         ;}
1298     break;
1299
1300   case 176:
1301 #line 1069 "madly.y"
1302     { (yyval.opval) = newOP(OP_REQUIRE, (yyvsp[0].tkval) ? OPf_SPECIAL : 0); ;}
1303     break;
1304
1305   case 177:
1306 #line 1071 "madly.y"
1307     { (yyval.opval) = newUNOP(OP_REQUIRE, (yyvsp[-1].tkval) ? OPf_SPECIAL : 0, (yyvsp[0].opval)); ;}
1308     break;
1309
1310   case 178:
1311 #line 1073 "madly.y"
1312     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1313                             append_elem(OP_LIST, (yyvsp[0].opval), scalar((yyvsp[-1].opval)))); ;}
1314     break;
1315
1316   case 179:
1317 #line 1076 "madly.y"
1318     { (yyval.opval) = newOP(((yyvsp[0].tkval))->tk_lval.ival, 0);
1319                           token_getmad((yyvsp[0].tkval),(yyval.opval),'o');
1320                         ;}
1321     break;
1322
1323   case 180:
1324 #line 1080 "madly.y"
1325     { (yyval.opval) = newOP(((yyvsp[-2].tkval))->tk_lval.ival, 0);
1326                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'o');
1327                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
1328                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1329                         ;}
1330     break;
1331
1332   case 181:
1333 #line 1086 "madly.y"
1334     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
1335                                 scalar((yyvsp[0].opval))); ;}
1336     break;
1337
1338   case 182:
1339 #line 1089 "madly.y"
1340     { (yyval.opval) = newOP(((yyvsp[-2].tkval))->tk_lval.ival, OPf_SPECIAL);
1341                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'o');
1342                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
1343                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1344                         ;}
1345     break;
1346
1347   case 183:
1348 #line 1095 "madly.y"
1349     { (yyval.opval) = newUNOP(((yyvsp[-3].tkval))->tk_lval.ival, 0, (yyvsp[-1].opval));
1350                           token_getmad((yyvsp[-3].tkval),(yyval.opval),'o');
1351                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
1352                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1353                         ;}
1354     break;
1355
1356   case 184:
1357 #line 1101 "madly.y"
1358     { (yyval.opval) = pmruntime((yyvsp[-3].opval), (yyvsp[-1].opval), 1);
1359                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
1360                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1361                         ;}
1362     break;
1363
1364   case 187:
1365 #line 1111 "madly.y"
1366     { (yyval.opval) = my_attrs((yyvsp[-1].opval),(yyvsp[0].opval));
1367                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'d');
1368                           append_madprops((yyvsp[0].opval)->op_madprop, (yyval.opval), 'a');
1369                           (yyvsp[0].opval)->op_madprop = 0;
1370                         ;}
1371     break;
1372
1373   case 188:
1374 #line 1117 "madly.y"
1375     { (yyval.opval) = localize((yyvsp[0].opval),((yyvsp[-1].tkval))->tk_lval.ival);
1376                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'d');
1377                         ;}
1378     break;
1379
1380   case 189:
1381 #line 1124 "madly.y"
1382     { (yyval.opval) = sawparens((yyvsp[-1].opval));
1383                           token_getmad((yyvsp[-2].tkval),(yyval.opval),'(');
1384                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1385                         ;}
1386     break;
1387
1388   case 190:
1389 #line 1129 "madly.y"
1390     { (yyval.opval) = sawparens(newNULLLIST());
1391                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'(');
1392                           token_getmad((yyvsp[0].tkval),(yyval.opval),')');
1393                         ;}
1394     break;
1395
1396   case 191:
1397 #line 1134 "madly.y"
1398     { (yyval.opval) = (yyvsp[0].opval); ;}
1399     break;
1400
1401   case 192:
1402 #line 1136 "madly.y"
1403     { (yyval.opval) = (yyvsp[0].opval); ;}
1404     break;
1405
1406   case 193:
1407 #line 1138 "madly.y"
1408     { (yyval.opval) = (yyvsp[0].opval); ;}
1409     break;
1410
1411   case 194:
1412 #line 1143 "madly.y"
1413     { (yyval.opval) = Nullop; ;}
1414     break;
1415
1416   case 195:
1417 #line 1145 "madly.y"
1418     { (yyval.opval) = (yyvsp[0].opval); ;}
1419     break;
1420
1421   case 196:
1422 #line 1149 "madly.y"
1423     { (yyval.opval) = Nullop; ;}
1424     break;
1425
1426   case 197:
1427 #line 1151 "madly.y"
1428     { (yyval.opval) = (yyvsp[0].opval); ;}
1429     break;
1430
1431   case 198:
1432 #line 1153 "madly.y"
1433     { OP* op = newNULLLIST();
1434                           token_getmad((yyvsp[0].tkval),op,',');
1435                           (yyval.opval) = append_elem(OP_LIST, (yyvsp[-1].opval), op);
1436                         ;}
1437     break;
1438
1439   case 199:
1440 #line 1162 "madly.y"
1441     { PL_in_my = 0; (yyval.opval) = my((yyvsp[0].opval)); ;}
1442     break;
1443
1444   case 200:
1445 #line 1166 "madly.y"
1446     { (yyval.opval) = newCVREF(((yyvsp[-1].tkval))->tk_lval.ival,(yyvsp[0].opval));
1447                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'&');
1448                         ;}
1449     break;
1450
1451   case 201:
1452 #line 1172 "madly.y"
1453     { (yyval.opval) = newSVREF((yyvsp[0].opval));
1454                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'$');
1455                         ;}
1456     break;
1457
1458   case 202:
1459 #line 1178 "madly.y"
1460     { (yyval.opval) = newAVREF((yyvsp[0].opval));
1461                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'@');
1462                         ;}
1463     break;
1464
1465   case 203:
1466 #line 1184 "madly.y"
1467     { (yyval.opval) = newHVREF((yyvsp[0].opval));
1468                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'%');
1469                         ;}
1470     break;
1471
1472   case 204:
1473 #line 1190 "madly.y"
1474     { (yyval.opval) = newAVREF((yyvsp[0].opval));
1475                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'l');
1476                         ;}
1477     break;
1478
1479   case 205:
1480 #line 1196 "madly.y"
1481     { (yyval.opval) = newGVREF(0,(yyvsp[0].opval));
1482                           token_getmad((yyvsp[-1].tkval),(yyval.opval),'*');
1483                         ;}
1484     break;
1485
1486   case 206:
1487 #line 1203 "madly.y"
1488     { (yyval.opval) = scalar((yyvsp[0].opval)); ;}
1489     break;
1490
1491   case 207:
1492 #line 1205 "madly.y"
1493     { (yyval.opval) = scalar((yyvsp[0].opval)); ;}
1494     break;
1495
1496   case 208:
1497 #line 1207 "madly.y"
1498     { (yyval.opval) = scope((yyvsp[0].opval)); ;}
1499     break;
1500
1501   case 209:
1502 #line 1210 "madly.y"
1503     { (yyval.opval) = (yyvsp[0].opval); ;}
1504     break;
1505
1506
1507       default: break;
1508