1 *** perly.c.orig Sun Feb 7 04:48:56 1999
2 --- perly.c Sun Feb 7 05:30:49 1999
8 + #define yydebug PL_yydebug
9 + #define yynerrs PL_yynerrs
10 + #define yyerrflag PL_yyerrflag
11 + #define yychar PL_yychar
12 + #define yyval PL_yyval
13 + #define yylval PL_yylval
17 + Dep(CPerlObj *pPerl)
19 + pPerl->deprecate("\"do\" to call subroutines");
21 + #define dep() Dep(this)
27 deprecate("\"do\" to call subroutines");
31 - /* I sense a Big Blue pattern here... */
32 - #if !defined(OEMVS) && !defined(__OPEN_VM) && !defined(POSIX_BC)
41 - #endif /* !OEMVS && !__OPEN_VM && !POSIX_BC */
43 - #ifdef USE_PURE_BISON
44 - #define YYLEX_PARAM (&yychar)
49 - #define FUNCMETH 259
52 - #define PRIVATEREF 262
53 - #define FUNC0SUB 263
54 - #define UNIOPSUB 264
55 - #define LSTOPSUB 265
68 - #define CONTINUE 278
81 - #define DOLSHARP 291
83 - #define HASHBRACK 293
90 - #define ASSIGNOP 300
94 - #define BITANDOP 304
102 - #define POSTINC 312
103 - #define POSTDEC 313
105 #define YYERRCODE 256
106 ! short yylhs[] = { -1,
107 45, 0, 9, 7, 10, 8, 11, 11, 11, 12,
108 12, 12, 12, 24, 24, 24, 24, 24, 24, 24,
110 deprecate("\"do\" to call subroutines");
115 #define YYERRCODE 256
116 ! static short yylhs[] = { -1,
117 45, 0, 9, 7, 10, 8, 11, 11, 11, 12,
118 12, 12, 12, 24, 24, 24, 24, 24, 24, 24,
121 20, 21, 22, 35, 35, 35, 35,
123 ! short yylen[] = { 2,
124 0, 2, 4, 0, 4, 0, 0, 2, 2, 2,
125 1, 2, 3, 1, 1, 3, 3, 3, 3, 3,
127 20, 21, 22, 35, 35, 35, 35,
129 ! static short yylen[] = { 2,
130 0, 2, 4, 0, 4, 0, 0, 2, 2, 2,
131 1, 2, 3, 1, 1, 3, 3, 3, 3, 3,
136 ! short yydefred[] = { 1,
137 0, 7, 0, 45, 56, 54, 0, 54, 8, 46,
138 9, 11, 0, 47, 48, 49, 0, 0, 0, 63,
142 ! static short yydefred[] = { 1,
143 0, 7, 0, 45, 56, 54, 0, 54, 8, 46,
144 9, 11, 0, 47, 48, 49, 0, 0, 0, 63,
149 ! short yydgoto[] = { 1,
150 9, 66, 10, 18, 95, 17, 86, 339, 89, 328,
151 3, 11, 12, 68, 344, 263, 70, 71, 72, 73,
155 ! static short yydgoto[] = { 1,
156 9, 66, 10, 18, 95, 17, 86, 339, 89, 328,
157 3, 11, 12, 68, 344, 263, 70, 71, 72, 73,
160 250, 142, 267, 13, 2, 14, 15, 16, 85, 256,
162 ! short yysindex[] = { 0,
163 0, 0, -66, 0, 0, 0, -48, 0, 0, 0,
164 0, 0, 645, 0, 0, 0, -232, -227, -27, 0,
166 250, 142, 267, 13, 2, 14, 15, 16, 85, 256,
168 ! short short yysindex[] = { 0,
169 0, 0, -66, 0, 0, 0, -48, 0, 0, 0,
170 0, 0, 645, 0, 0, 0, -232, -227, -27, 0,
175 ! short yyrindex[] = { 0,
176 0, 0, 249, 0, 0, 0, 0, 0, 0, 0,
177 0, 0, 0, 0, 0, 0, 184, 0, 0, 0,
181 ! static short yyrindex[] = { 0,
182 0, 0, 249, 0, 0, 0, 0, 0, 0, 0,
183 0, 0, 0, 0, 0, 0, 184, 0, 0, 0,
188 ! short yygindex[] = { 0,
189 0, 0, 0, 374, 351, 0, -12, 0, 946, 413,
190 -83, 0, 0, 0, -311, -13, 4139, 4198, 0, 0,
194 ! static short yygindex[] = { 0,
195 0, 0, 0, 374, 351, 0, -12, 0, 946, 413,
196 -83, 0, 0, 0, -311, -13, 4139, 4198, 0, 0,
200 #define YYTABLESIZE 4425
201 ! short yytable[] = { 69,
202 207, 62, 181, 105, 168, 102, 105, 204, 168, 248,
203 20, 208, 62, 253, 58, 285, 274, 170, 298, 345,
206 #define YYTABLESIZE 4425
207 ! static short yytable[] = { 69,
208 207, 62, 181, 105, 168, 102, 105, 204, 168, 248,
209 20, 208, 62, 253, 58, 285, 274, 170, 298, 345,
214 ! short yycheck[] = { 13,
215 41, 36, 86, 41, 91, 40, 44, 59, 91, 59,
216 59, 93, 36, 183, 59, 59, 41, 91, 41, 331,
220 ! static short yycheck[] = { 13,
221 41, 36, 86, 41, 91, 40, 44, 59, 91, 59,
222 59, 93, 36, 183, 59, 59, 41, 91, 41, 331,
225 #define YYMAXTOKEN 314
228 "end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
229 "'!'",0,0,"'$'","'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,0,0,0,0,0,0,
231 #define YYMAXTOKEN 314
233 ! static char *yyname[] = {
234 "end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
235 "'!'",0,0,"'$'","'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,0,0,0,0,0,0,
246 ! static char *yyrule[] = {
261 - short yyss[YYSTACKSIZE];
262 - YYSTYPE yyvs[YYSTACKSIZE];
263 - #define yystacksize YYSTACKSIZE
266 ! #line 1385 "y.tab.c"
267 #define YYABORT goto yyabort
268 #define YYACCEPT goto yyaccept
269 #define YYERROR goto yyerrlab
273 register int yym, yyn, yystate;
276 extern char *getenv();
278 if (yys = getenv("YYDEBUG"))
285 ! #line 1318 "perly.c"
286 #define YYABORT goto yyabort
287 #define YYACCEPT goto yyaccept
288 #define YYERROR goto yyerrlab
302 + yydestruct(void *ptr)
304 + struct ysv* ysave = (struct ysv*)ptr;
305 + if (ysave->yyss) Safefree(ysave->yyss);
306 + if (ysave->yyvs) Safefree(ysave->yyvs);
307 + yydebug = ysave->oldyydebug;
308 + yynerrs = ysave->oldyynerrs;
309 + yyerrflag = ysave->oldyyerrflag;
310 + yychar = ysave->oldyychar;
311 + yyval = ysave->oldyyval;
312 + yylval = ysave->oldyylval;
319 register int yym, yyn, yystate;
320 + register short *yyssp;
321 + register YYSTYPE *yyvsp;
324 + unsigned yystacksize = YYSTACKSIZE;
328 + #ifndef __cplusplus
329 extern char *getenv();
334 + New(73, ysave, 1, struct ysv);
335 + SAVEDESTRUCTOR(yydestruct, ysave);
336 + ysave->oldyydebug = yydebug;
337 + ysave->oldyynerrs = yynerrs;
338 + ysave->oldyyerrflag = yyerrflag;
339 + ysave->oldyychar = yychar;
340 + ysave->oldyyval = yyval;
341 + ysave->oldyylval = yylval;
344 if (yys = getenv("YYDEBUG"))
352 + ** Initialize private stacks (yyparse may be called from an action)
354 + New(73, yyss, yystacksize, short);
355 + New(73, yyvs, yystacksize, YYSTYPE);
356 + ysave->yyss = yyss;
357 + ysave->yyvs = yyvs;
358 + if (!yyvs || !yyss)
367 ! printf("yydebug: state %d, shifting to state %d\n",
368 yystate, yytable[yyn]);
370 if (yyssp >= yyss + yystacksize - 1)
374 *++yyssp = yystate = yytable[yyn];
378 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n",
379 yystate, yytable[yyn]);
381 if (yyssp >= yyss + yystacksize - 1)
384 ! ** reallocate and recover. Note that pointers
385 ! ** have to be reset, or bad things will happen
387 ! int yyps_index = (yyssp - yyss);
388 ! int yypv_index = (yyvsp - yyvs);
389 ! yystacksize += YYSTACKSIZE;
390 ! ysave->yyvs = yyvs =
391 ! (YYSTYPE*)PerlMem_realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
392 ! ysave->yyss = yyss =
393 ! (short*)PerlMem_realloc((char*)yyss,yystacksize * sizeof(short));
394 ! if (!yyvs || !yyss)
396 ! yyssp = yyss + yyps_index;
397 ! yyvsp = yyvs + yypv_index;
399 *++yyssp = yystate = yytable[yyn];
404 ! printf("yydebug: state %d, error recovery shifting\
405 ! to state %d\n", *yyssp, yytable[yyn]);
407 if (yyssp >= yyss + yystacksize - 1)
411 *++yyssp = yystate = yytable[yyn];
415 ! PerlIO_printf(Perl_debug_log,
416 ! "yydebug: state %d, error recovery shifting to state %d\n",
417 ! *yyssp, yytable[yyn]);
419 if (yyssp >= yyss + yystacksize - 1)
422 ! ** reallocate and recover. Note that pointers
423 ! ** have to be reset, or bad things will happen
425 ! int yyps_index = (yyssp - yyss);
426 ! int yypv_index = (yyvsp - yyvs);
427 ! yystacksize += YYSTACKSIZE;
428 ! ysave->yyvs = yyvs = (YYSTYPE*)PerlMem_realloc((char*)yyvs,
429 ! yystacksize * sizeof(YYSTYPE));
430 ! ysave->yyss = yyss = (short*)PerlMem_realloc((char*)yyss,
431 ! yystacksize * sizeof(short));
432 ! if (!yyvs || !yyss)
434 ! yyssp = yyss + yyps_index;
435 ! yyvsp = yyvs + yypv_index;
437 *++yyssp = yystate = yytable[yyn];
442 ! printf("yydebug: error recovery discarding state %d\n",
445 if (yyssp <= yyss) goto yyabort;
449 ! PerlIO_printf(Perl_debug_log,
450 ! "yydebug: error recovery discarding state %d\n",
453 if (yyssp <= yyss) goto yyabort;
456 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
457 if (!yys) yys = "illegal-symbol";
458 ! printf("yydebug: state %d, error recovery discards token %d (%s)\n",
459 ! yystate, yychar, yys);
463 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
464 if (!yys) yys = "illegal-symbol";
465 ! PerlIO_printf(Perl_debug_log,
466 ! "yydebug: state %d, error recovery discards token %d (%s)\n",
467 ! yystate, yychar, yys);
474 ! printf("yydebug: state %d, reducing by rule %d (%s)\n",
475 yystate, yyn, yyrule[yyn]);
480 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n",
481 yystate, yyn, yyrule[yyn]);
485 { yyval.opval = yyvsp[0].opval; }
487 ! #line 2308 "y.tab.c"
491 { yyval.opval = yyvsp[0].opval; }
493 ! #line 2329 "perly.c"
500 ! printf("yydebug: after reduction, shifting from state 0 to\
501 ! state %d\n", YYFINAL);
507 ! PerlIO_printf(Perl_debug_log,
508 ! "yydebug: after reduction, shifting from state 0 to state %d\n",
514 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
515 if (!yys) yys = "illegal-symbol";
516 ! printf("yydebug: state %d, reading %d (%s)\n",
517 YYFINAL, yychar, yys);
520 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
521 if (!yys) yys = "illegal-symbol";
522 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
523 YYFINAL, yychar, yys);
529 ! printf("yydebug: after reduction, shifting from state %d \
530 ! to state %d\n", *yyssp, yystate);
532 if (yyssp >= yyss + yystacksize - 1)
540 ! PerlIO_printf(Perl_debug_log,
541 ! "yydebug: after reduction, shifting from state %d to state %d\n",
544 if (yyssp >= yyss + yystacksize - 1)
547 ! ** reallocate and recover. Note that pointers
548 ! ** have to be reset, or bad things will happen
550 ! int yyps_index = (yyssp - yyss);
551 ! int yypv_index = (yyvsp - yyvs);
552 ! yystacksize += YYSTACKSIZE;
553 ! ysave->yyvs = yyvs =
554 ! (YYSTYPE*)PerlMem_realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
555 ! ysave->yyss = yyss =
556 ! (short*)PerlMem_realloc((char*)yyss,yystacksize * sizeof(short));
557 ! if (!yyvs || !yyss)
559 ! yyssp = yyss + yyps_index;
560 ! yyvsp = yyvs + yypv_index;
567 ! yyerror("yacc stack overflow");
576 ! yyerror("Out of memory for yacc stack");