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