X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/3c10abe350e3df50f8ef0ac37c9d14175bc899f1..7c345082f1bbc2e6f58c779f0c39f9299c1b2306:/madly.act diff --git a/madly.act b/madly.act index d7d9936..319ce77 100644 --- a/madly.act +++ b/madly.act @@ -1310,19 +1310,24 @@ case 2: case 178: #line 1074 "madly.y" + { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((yyvsp[0].opval))); ;} + break; + + case 179: +#line 1076 "madly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, append_elem(OP_LIST, (yyvsp[0].opval), scalar((yyvsp[-1].opval)))); ;} break; - case 179: -#line 1077 "madly.y" + case 180: +#line 1079 "madly.y" { (yyval.opval) = newOP(((yyvsp[0].tkval))->tk_lval.ival, 0); token_getmad((yyvsp[0].tkval),(yyval.opval),'o'); ;} break; - case 180: -#line 1081 "madly.y" + case 181: +#line 1083 "madly.y" { (yyval.opval) = newOP(((yyvsp[-2].tkval))->tk_lval.ival, 0); token_getmad((yyvsp[-2].tkval),(yyval.opval),'o'); token_getmad((yyvsp[-1].tkval),(yyval.opval),'('); @@ -1330,14 +1335,14 @@ case 2: ;} break; - case 181: -#line 1087 "madly.y" + case 182: +#line 1089 "madly.y" { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((yyvsp[0].opval))); ;} break; - case 182: -#line 1090 "madly.y" + case 183: +#line 1092 "madly.y" { (yyval.opval) = newOP(((yyvsp[-2].tkval))->tk_lval.ival, OPf_SPECIAL); token_getmad((yyvsp[-2].tkval),(yyval.opval),'o'); token_getmad((yyvsp[-1].tkval),(yyval.opval),'('); @@ -1345,8 +1350,8 @@ case 2: ;} break; - case 183: -#line 1096 "madly.y" + case 184: +#line 1098 "madly.y" { (yyval.opval) = newUNOP(((yyvsp[-3].tkval))->tk_lval.ival, 0, (yyvsp[-1].opval)); token_getmad((yyvsp[-3].tkval),(yyval.opval),'o'); token_getmad((yyvsp[-2].tkval),(yyval.opval),'('); @@ -1354,16 +1359,16 @@ case 2: ;} break; - case 184: -#line 1102 "madly.y" + case 185: +#line 1104 "madly.y" { (yyval.opval) = pmruntime((yyvsp[-3].opval), (yyvsp[-1].opval), 1); token_getmad((yyvsp[-2].tkval),(yyval.opval),'('); token_getmad((yyvsp[0].tkval),(yyval.opval),')'); ;} break; - case 187: -#line 1112 "madly.y" + case 188: +#line 1114 "madly.y" { (yyval.opval) = my_attrs((yyvsp[-1].opval),(yyvsp[0].opval)); token_getmad((yyvsp[-2].tkval),(yyval.opval),'d'); append_madprops((yyvsp[0].opval)->op_madprop, (yyval.opval), 'a'); @@ -1371,34 +1376,29 @@ case 2: ;} break; - case 188: -#line 1118 "madly.y" + case 189: +#line 1120 "madly.y" { (yyval.opval) = localize((yyvsp[0].opval),((yyvsp[-1].tkval))->tk_lval.ival); token_getmad((yyvsp[-1].tkval),(yyval.opval),'d'); ;} break; - case 189: -#line 1125 "madly.y" + case 190: +#line 1127 "madly.y" { (yyval.opval) = sawparens((yyvsp[-1].opval)); token_getmad((yyvsp[-2].tkval),(yyval.opval),'('); token_getmad((yyvsp[0].tkval),(yyval.opval),')'); ;} break; - case 190: -#line 1130 "madly.y" + case 191: +#line 1132 "madly.y" { (yyval.opval) = sawparens(newNULLLIST()); token_getmad((yyvsp[-1].tkval),(yyval.opval),'('); token_getmad((yyvsp[0].tkval),(yyval.opval),')'); ;} break; - case 191: -#line 1135 "madly.y" - { (yyval.opval) = (yyvsp[0].opval); ;} - break; - case 192: #line 1137 "madly.y" { (yyval.opval) = (yyvsp[0].opval); ;} @@ -1410,85 +1410,85 @@ case 2: break; case 194: -#line 1144 "madly.y" - { (yyval.opval) = Nullop; ;} +#line 1141 "madly.y" + { (yyval.opval) = (yyvsp[0].opval); ;} break; case 195: #line 1146 "madly.y" - { (yyval.opval) = (yyvsp[0].opval); ;} + { (yyval.opval) = Nullop; ;} break; case 196: -#line 1150 "madly.y" - { (yyval.opval) = Nullop; ;} +#line 1148 "madly.y" + { (yyval.opval) = (yyvsp[0].opval); ;} break; case 197: #line 1152 "madly.y" - { (yyval.opval) = (yyvsp[0].opval); ;} + { (yyval.opval) = Nullop; ;} break; case 198: #line 1154 "madly.y" + { (yyval.opval) = (yyvsp[0].opval); ;} + break; + + case 199: +#line 1156 "madly.y" { OP* op = newNULLLIST(); token_getmad((yyvsp[0].tkval),op,','); (yyval.opval) = append_elem(OP_LIST, (yyvsp[-1].opval), op); ;} break; - case 199: -#line 1163 "madly.y" + case 200: +#line 1165 "madly.y" { PL_in_my = 0; (yyval.opval) = my((yyvsp[0].opval)); ;} break; - case 200: -#line 1167 "madly.y" + case 201: +#line 1169 "madly.y" { (yyval.opval) = newCVREF(((yyvsp[-1].tkval))->tk_lval.ival,(yyvsp[0].opval)); token_getmad((yyvsp[-1].tkval),(yyval.opval),'&'); ;} break; - case 201: -#line 1173 "madly.y" + case 202: +#line 1175 "madly.y" { (yyval.opval) = newSVREF((yyvsp[0].opval)); token_getmad((yyvsp[-1].tkval),(yyval.opval),'$'); ;} break; - case 202: -#line 1179 "madly.y" + case 203: +#line 1181 "madly.y" { (yyval.opval) = newAVREF((yyvsp[0].opval)); token_getmad((yyvsp[-1].tkval),(yyval.opval),'@'); ;} break; - case 203: -#line 1185 "madly.y" + case 204: +#line 1187 "madly.y" { (yyval.opval) = newHVREF((yyvsp[0].opval)); token_getmad((yyvsp[-1].tkval),(yyval.opval),'%'); ;} break; - case 204: -#line 1191 "madly.y" + case 205: +#line 1193 "madly.y" { (yyval.opval) = newAVREF((yyvsp[0].opval)); token_getmad((yyvsp[-1].tkval),(yyval.opval),'l'); ;} break; - case 205: -#line 1197 "madly.y" + case 206: +#line 1199 "madly.y" { (yyval.opval) = newGVREF(0,(yyvsp[0].opval)); token_getmad((yyvsp[-1].tkval),(yyval.opval),'*'); ;} break; - case 206: -#line 1204 "madly.y" - { (yyval.opval) = scalar((yyvsp[0].opval)); ;} - break; - case 207: #line 1206 "madly.y" { (yyval.opval) = scalar((yyvsp[0].opval)); ;} @@ -1496,11 +1496,16 @@ case 2: case 208: #line 1208 "madly.y" - { (yyval.opval) = scope((yyvsp[0].opval)); ;} + { (yyval.opval) = scalar((yyvsp[0].opval)); ;} break; case 209: -#line 1211 "madly.y" +#line 1210 "madly.y" + { (yyval.opval) = scope((yyvsp[0].opval)); ;} + break; + + case 210: +#line 1213 "madly.y" { (yyval.opval) = (yyvsp[0].opval); ;} break;