/* !!DESCRIPTION!! !!ORIGIN!! LCC 4.1 Testsuite !!LICENCE!! own, freely distributeable for non-profit. read CPYRIGHT.LCC */ /*#define STANDALONE*/ #include "common.h" #ifndef YACCDBG #include #include #include /* #define LEXDEBUG #define YYDEBUG */ #endif FILE *infile, *outfile; #define getchar() fgetc(infile) /* hack the original tables to work with both petscii and ascii */ #define CHARSETHACK # define ID 257 # define CON 258 # define UNARYMINUS 259 #define yyclearin yychar = -1 #define yyerrok yyerrflag = 0 extern int yychar; extern short yyerrflag; #ifndef YYMAXDEPTH /*#define YYMAXDEPTH 150*/ #define YYMAXDEPTH 50 #endif #ifndef YYSTYPE #define YYSTYPE int #endif YYSTYPE yylval, yyval; # define YYERRCODE 256 # define U(x) x # define NLSTATE yyprevious=YYNEWLINE # define BEGIN yybgin = yysvec + 1 + # define INITIAL 0 # define YYLERR yysvec # define YYSTATE (yyestate-yysvec-1) # define YYOPTIM 1 # define YYLMAX 200 # define output(c) (void)putc(c,yyout) /* # define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):getc(yyin))==10?(yylineno++,yytchar):yytchar)==EOF?0:yytchar) */ # define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):getchar())==('\n')?(yylineno++,yytchar):yytchar)==EOF?0:yytchar) # define unput(c) {yytchar= (c);if(yytchar=='\n')yylineno--;*yysptr++=yytchar;} # define yymore() (yymorfg=1) # define ECHO fprintf(yyout, "%s",yytext) # define REJECT { nstr = yyreject(); goto yyfussy;} int yyleng; extern char yytext[]; int yymorfg; extern char *yysptr, yysbuf[]; int yytchar; #define yyin infile #define yyout outfile extern int yylineno; struct yysvf { struct yywork *yystoff; struct yysvf *yyother; int *yystops; }; struct yysvf *yyestate; extern struct yysvf yysvec[], *yybgin; /*# define YYNEWLINE 10 */ # define YYNEWLINE ('\n') #ifdef NO_IMPLICIT_FUNC_PROTOTYPES yylook(); int yywrap(); yyparse(); yyerror(char *s); yyunput(int c); yyoutput(int c); yyinput(); yyback(int *p,int m); #endif #ifdef YYDEBUG void printchar(char *name,int ch) { if((ch==YYNEWLINE)) { fprintf(yyout," %s=YYNEWLINE\n",name); } else if((ch<0)||(ch>0xf0)||(!isprint(ch))) { fprintf(yyout," %s=%04x\n",name,ch &0xffff); } else { fprintf(yyout," %s='%c'\n",name,ch); } } #endif yylex() { int nstr; extern int yyprevious; #ifdef YYDEBUG fprintf(yyout,"yylex()\n"); #endif while((nstr = yylook()) >= 0) { #ifdef YYDEBUG fprintf(yyout,"yylex: nstr=%d\n",nstr); #endif yyfussy: switch(nstr) { case 0: if(yywrap()) return(0); break; case 1: return ID; break; case 2: return CON; break; case 3: ; break; case 4: return yytext[0]; break; case -1: break; default: fprintf(yyout,"yylex: bad switch yylook %d\n",nstr); } } #ifdef YYDEBUG fprintf(yyout,"yylex: return 0\n"); #endif return(0); } /* end of yylex */ int yyvstop[] = { 0,4,0,3,4,0,2,4,0,1,4,0,2,0,1,0,0 }; # define YYTYPE char struct yywork { YYTYPE verify, advance; } yycrank[] = { {0,0}, {0,0}, {1,3}, {0,0}, {0,0}, {0,0}, {0,0}, {0,0}, {0,0}, {0,0}, {1,4}, {1,3}, {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}, {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}, {0,0}, {0,0}, {0,0}, {0,0}, {0,0}, {1,5}, {5,7}, {5,7}, {5,7}, {5,7}, {5,7}, {5,7}, {5,7}, {5,7}, {5,7}, {5,7}, {0,0}, {0,0}, {0,0}, {0,0}, /* 0x40 */ {0,0}, {0,0}, {1,6}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {0,0}, {0,0}, {0,0}, {0,0}, {0,0}, {0,0}, {0,0}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {0,0}, {0,0}, {0,0}, {0,0}, {6,8}, {0,0}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, /* 0x80 */ {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {0,0}, {0,0}, #ifdef CHARSETHACK {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}, {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}, {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}, /* 0xc0 */ {0,0}, {0,0}, {1,6}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {6,8}, {0,0}, {0,0}, {0,0}, #endif {0,0} }; /* struct yysvf { struct yywork *yystoff; struct yysvf *yyother; int *yystops; }; */ struct yysvf yysvec[] = { {0, 0, 0}, {yycrank+-1, 0, 0}, {yycrank+0, yysvec+1, 0}, {yycrank+0, 0, yyvstop+1}, {yycrank+0, 0, yyvstop+3}, {yycrank+2, 0, yyvstop+6}, {yycrank+19, 0, yyvstop+9}, {yycrank+0, yysvec+5, yyvstop+12}, {yycrank+0, yysvec+6, yyvstop+14}, {0, 0, 0} }; /* 0x8d */ /* struct yywork *yytop = yycrank+141; */ /* 0xff */ struct yywork *yytop = yycrank+255; struct yysvf *yybgin = yysvec+1; /* WARNING: this table contains one entry per character in the execution character set and must match it. */ char yymatch[] = { 00 ,01 ,01 ,01 ,01 ,01 ,01 ,01 , #ifdef CHARSETHACK 01 ,011 ,012 ,01 ,01 ,012 ,01 ,01 , #else 01 ,011 ,012 ,01 ,01 ,01 ,01 ,01 , #endif 01 ,01 ,01 ,01 ,01 ,01 ,01 ,01 , 01 ,01 ,01 ,01 ,01 ,01 ,01 ,01 , 011 ,01 ,01 ,01 ,01 ,01 ,01 ,01 , 01 ,01 ,01 ,01 ,01 ,01 ,01 ,01 , '0' ,'0' ,'0' ,'0' ,'0' ,'0' ,'0' ,'0' , '0' ,'0' ,01 ,01 ,01 ,01 ,01 ,01 , /* 0x40 (ascii) @A... (petscii) @a... */ 01 ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' , 'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' , 'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' , 'A' ,'A' ,'A' ,01 ,01 ,01 ,01 ,'A' , /* 0x60 (ascii) @a... */ 01 ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' , 'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' , 'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' , 'A' ,'A' ,'A' ,01 ,01 ,01 ,01 ,01 , #ifdef CHARSETHACK /* 0x80 */ 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, 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, /* 0xc0 (petcii) @A... */ 01 ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' , 'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' , 'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' , 'A' ,'A' ,'A' ,01 ,01 ,01 ,01 ,01 , 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, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, #endif 0 }; char yyextra[] = { 0,0,0,0,0,0,0,0,0 }; /* ncform 4.1 83/08/11 */ int yylineno =1; # define YYU(x) x # define NLSTATE yyprevious=YYNEWLINE char yytext[YYLMAX]; struct yysvf *yylstate [YYLMAX], **yylsp, **yyolsp; char yysbuf[YYLMAX]; char *yysptr = yysbuf; int *yyfnd; extern struct yysvf *yyestate; int yyprevious = YYNEWLINE; unsigned char testbreak=0; yylook() { register struct yysvf *yystate, **lsp; register struct yywork *yyt; struct yysvf *yyz; int yych; struct yywork *yyr; /* # ifdef LEXDEBUG int debug; # endif */ char *yylastch; /* start off machines */ /* # ifdef LEXDEBUG debug = 1; # else debug = 0; # endif */ # ifdef LEXDEBUG #define debug 1 # else #define debug 0 #endif #ifdef YYDEBUG fprintf(yyout,"yylook()\n"); # endif if (!yymorfg) yylastch = yytext; else { yymorfg=0; yylastch = yytext+yyleng; } #ifdef YYDEBUG fprintf(yyout,"yylook: yymorfg=%d\n",yymorfg); # endif for(;;) { #ifdef YYDEBUG fprintf(yyout,"yylook: (outer loop)"); printchar("yyprevious",yyprevious); # endif lsp = yylstate; yyestate = yystate = yybgin; if (yyprevious==YYNEWLINE) yystate++; testbreak=0; for (;;) { # ifdef LEXDEBUG fprintf(yyout,"yylook: (inner loop) state %d\n",yystate-yysvec-1); # endif if(testbreak==5) { fprintf(yyout,"yylook: error, aborted after 5 loops\n"); exit(EXIT_FAILURE); } testbreak++; yyt = yystate->yystoff; /* fprintf(yyout,"yylook: yyt offs: %02x\n",yyt-yycrank); */ if(yyt == yycrank) { /* may not be any transitions */ yyz = yystate->yyother; if(yyz == 0)break; if(yyz->yystoff == yycrank)break; } *yylastch++ = yych = input(); # ifdef LEXDEBUG fprintf(yyout,"yylook: input "); printchar("yych",yych); # endif tryagain: # ifdef LEXDEBUG /* fprintf(yyout,"yylook: yych=%02x yymatch[yych]=%02x\n",yych,yymatch[yych]); */ fprintf(yyout,"yylook: tryagain\n"); # endif yyr = yyt; /* fprintf(yyout,"yylook: yyr offs: %02x\n",yyr-yycrank); */ if ( yyt > yycrank) { yyt = yyr + yych; if (yyt <= yytop && yyt->verify+yysvec == yystate) { if(yyt->advance+yysvec == YYLERR) /* error transitions */ { # ifdef LEXDEBUG fprintf(yyout,"yylook: unput (1) "); printchar("*yylastch",*yylastch); # endif unput(*--yylastch); break; } *lsp++ = yystate = yyt->advance+yysvec; # ifdef LEXDEBUG fprintf(yyout,"yylook: continue (1)\n"); # endif goto contin; } # ifdef LEXDEBUG fprintf(yyout,"yylook: ( yyt > yycrank)\n"); # endif } # ifdef YYOPTIM else if(yyt < yycrank) /* r < yycrank */ { yyt = yyr = yycrank+(yycrank-yyt); # ifdef LEXDEBUG fprintf(yyout,"yylook: compressed state\n"); # endif yyt = yyt + yych; if(yyt <= yytop && yyt->verify+yysvec == yystate) { # ifdef LEXDEBUG fprintf(yyout,"yylook: (1)\n"); # endif if(yyt->advance+yysvec == YYLERR) /* error transitions */ { # ifdef LEXDEBUG fprintf(yyout,"yylook: unput (2) "); printchar("*yylastch",*yylastch); # endif unput(*--yylastch); break; } *lsp++ = yystate = yyt->advance+yysvec; # ifdef LEXDEBUG fprintf(yyout,"yylook: continue (2)\n"); # endif goto contin; } # ifdef LEXDEBUG /* fprintf(yyout,"yylook: yych=%02x yymatch[yych]=%02x\n",yych,yymatch[yych]); fprintf(yyout,"yylook: yyt offs: %02x\n",yyt-yycrank); fprintf(yyout,"yylook: yyr offs: %02x\n",yyr-yycrank); */ # endif yyt = yyr + YYU(yymatch[yych]); # ifdef LEXDEBUG /* fprintf(yyout,"yylook: yyt offs: %02x <= yytop offs: %02x\n",yyt-yycrank,yytop-yycrank); fprintf(yyout,"yylook: yyt->verify=%04x yysvec=%04x (yyt->verify+yysvec)=%04x == yystate=%04x\n",yyt->verify,yysvec,(yyt->verify+yysvec),yystate); */ fprintf(yyout,"yylook: try fall back character\n"); # endif if(yyt <= yytop && yyt->verify+yysvec == yystate) { # ifdef LEXDEBUG fprintf(yyout,"yylook: (2a)\n"); # endif if(yyt->advance+yysvec == YYLERR) /* error transition */ { # ifdef LEXDEBUG /* cc65 compiles this ?! fprintf(yyout,"yylook: unput (3) ",); */ fprintf(yyout,"yylook: unput (3) "); printchar("*yylastch",*yylastch); # endif unput(*--yylastch); break; } *lsp++ = yystate = yyt->advance+yysvec; # ifdef LEXDEBUG /* fprintf(yyout,"yylook: yyt offs: %02x yyt->advance=%d\n",yyt-yycrank,yyt->advance); */ fprintf(yyout,"yylook: continue (3)\n"); # endif goto contin; } # ifdef LEXDEBUG fprintf(yyout,"yylook: (2)\n"); # endif } if ((yystate = yystate->yyother) && (yyt= yystate->yystoff) != yycrank) { # ifdef LEXDEBUG fprintf(yyout,"yylook: fall back to state %d\n",yystate-yysvec-1); # endif goto tryagain; } # endif else { # ifdef LEXDEBUG fprintf(yyout,"yylook: unput (4) "); printchar("*yylastch",*yylastch); # endif unput(*--yylastch); break; } contin: # ifdef LEXDEBUG fprintf(yyout,"yylook: contin state=%d\n",yystate-yysvec-1); # endif ; } # ifdef LEXDEBUG if (lsp == yylstate) { fprintf(yyout,"yylook: stopped (end)\n"); } else { fprintf(yyout,"yylook: stopped at %d with:\n",*(lsp-1)-(yysvec+1)); } # endif while (lsp-- > yylstate) { *yylastch-- = 0; if (*lsp != 0 && (yyfnd= (*lsp)->yystops) && *yyfnd > 0) { yyolsp = lsp; if(yyextra[*yyfnd]) /* must backup */ { while(yyback((*lsp)->yystops,-*yyfnd) != 1 && lsp > yylstate) { lsp--; # ifdef LEXDEBUG fprintf(yyout,"yylook: unput (5) "); printchar("*yylastch",*yylastch); # endif unput(*yylastch--); } } yyprevious = YYU(*yylastch); yylsp = lsp; yyleng = yylastch-yytext+1; yytext[yyleng] = 0; # ifdef LEXDEBUG fprintf(yyout,"yylook: match action %d\n",*yyfnd); fprintf(yyout,"yylook: done loops: %d\n",testbreak); # endif return(*yyfnd++); } unput(*yylastch); } if (yytext[0] == 0 /* && feof(yyin) */) { yysptr=yysbuf; # ifdef LEXDEBUG fprintf(yyout,"yylook: done loops: %d\n",testbreak); # endif return(0); } yyprevious = yytext[0] = input(); # ifdef LEXDEBUG fprintf(yyout,"yylook: input "); printchar("yyprevious",yyprevious); # endif if (yyprevious>0) output(yyprevious); yylastch=yytext; # ifdef LEXDEBUG /* if(debug)putchar('\n'); */ # endif } # ifdef LEXDEBUG fprintf(yyout,"yylook: done loops: %d\n",testbreak); fprintf(yyout,"yylook: return \n"); # endif } yyback(p, m) int *p; { if (p==0) return(0); while (*p) { if (*p++ == m) { return(1); } } return(0); } /* the following are only used in the lex library */ yyinput() { int out=input(); #ifdef YYDEBUG fprintf(yyout,"yylook: input "); printchar("out",out); #endif return(out); } yyoutput(c) int c; { output(c); } yyunput(c) int c; { unput(c); } main() { printf("main start\n"); infile = fopen("yacc.in","rb"); if (infile == NULL) { return EXIT_FAILURE; } outfile = stdout; yyparse(); fclose(infile); printf("main end\n"); return 0; } /* yyerror - issue error message */ yyerror(s) char *s; { printf("[%s]\n", s); } short yyexca[] = { -1, 1, 0, -1, -2, 0, }; # define YYNPROD 15 # define YYLAST 249 short yyact[]= { 12, 2, 9, 8, 17, 11, 25, 17, 15, 18, 16, 10, 18, 17, 15, 7, 16, 13, 18, 5, 3, 1, 0, 19, 20, 0, 0, 21, 22, 23, 24, 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, 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, 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, 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, 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, 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, 6, 14, 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, 4, 6 }; short yypact[]= { -1000, -9,-1000, 5, -7, -59,-1000,-1000,-1000, -40, -29, -40, -40,-1000,-1000, -40, -40, -40, -40, -38, -35, -38, -38,-1000,-1000,-1000 }; short yypgo[]= { 0, 21, 20, 17, 11 }; short yyr1[]= { 0, 1, 1, 1, 1, 2, 4, 4, 4, 4, 4, 4, 4, 4, 3 }; short yyr2[]= { 0, 0, 2, 3, 3, 3, 3, 3, 3, 3, 2, 3, 1, 1, 1 }; short yychk[]= { -1000, -1, 10, -2, 256, -3, 257, 10, 10, 61, -4, 45, 40, -3, 258, 43, 45, 42, 47, -4, -4, -4, -4, -4, -4, 41 }; short yydef[]= { 1, -2, 2, 0, 0, 0, 14, 3, 4, 0, 5, 0, 0, 12, 13, 0, 0, 0, 0, 10, 0, 6, 7, 8, 9, 11 }; # define YYFLAG -1000 # define YYERROR goto yyerrlab # define YYACCEPT return(0) # define YYABORT return(1) /* parser for yacc output */ #ifdef YYDEBUG int yydebug = 1; /* 1 for debugging */ #else int yydebug = 0; /* 1 for debugging */ #endif YYSTYPE yyv[YYMAXDEPTH]; /* where the values are stored */ int yychar = -1; /* current input token number */ int yynerrs = 0; /* number of errors */ short yyerrflag = 0; /* error recovery flag */ yyparse() { short yys[YYMAXDEPTH]; short yyj, yym; register YYSTYPE *yypvt; register short yystate, *yyps, yyn; register YYSTYPE *yypv; register short *yyxi; yystate = 0; yychar = -1; yynerrs = 0; yyerrflag = 0; yyps= &yys[-1]; yypv= &yyv[-1]; yystack: /* put a state and value onto the stack */ #ifdef YYDEBUG printf("yyparse: yystack\n"); #endif #ifdef YYDEBUG printf("yyparse: yystate=%d, ", yystate); printchar("yychar",yychar); #endif if( ++yyps> &yys[YYMAXDEPTH] ) { yyerror( "yyparse: yacc stack overflow" ); return(1); } *yyps = yystate; ++yypv; *yypv = yyval; yynewstate: #ifdef YYDEBUG printf("yyparse: yynewstate\n"); #endif yyn = yypact[yystate]; if( yyn<= YYFLAG ) goto yydefault; /* simple state */ #ifdef YYDEBUG printf("yyparse: yynewstate (1)\n"); #endif if( yychar<0 ) if( (yychar=yylex())<0 ) yychar=0; #ifdef YYDEBUG printf("yyparse: yynewstate yyn=%d ",yyn); printchar("yychar",yychar); #endif if( (yyn += yychar)<0 || yyn >= YYLAST ) goto yydefault; #ifdef YYDEBUG printf("yyparse: yynewstate (2)\n"); #endif if( yychk[ yyn=yyact[ yyn ] ] == yychar ) /* valid shift */ { yychar = -1; yyval = yylval; yystate = yyn; #ifdef YYDEBUG printf("yyparse: yynewstate (3)\n"); #endif if( yyerrflag > 0 ) --yyerrflag; goto yystack; } yydefault: #ifdef YYDEBUG printf("yyparse: yydefault yystate=%d\n",yystate); #endif /* default state action */ if( (yyn=yydef[yystate]) == -2 ) { if( yychar<0 ) if( (yychar=yylex())<0 ) yychar = 0; /* look through exception table */ for( yyxi=yyexca; (*yyxi!= (-1)) || (yyxi[1]!=yystate) ; yyxi += 2 ) ; /* VOID */ while( *(yyxi+=2) >= 0 ) { if( *yyxi == yychar ) break; } if( (yyn = yyxi[1]) < 0 ) return(0); /* accept */ } #ifdef YYDEBUG printf("yyparse: yyn=%d yyerrflag=%d\n",yyn,yyerrflag); #endif if( yyn == 0 ) /* error */ { /* error ... attempt to resume parsing */ switch( yyerrflag ){ case 0: /* brand new error */ yyerror( "yyparse: syntax error" ); yyerrlab: ++yynerrs; case 1: case 2: /* incompletely recovered error ... try again */ yyerrflag = 3; /* find a state where "error" is a legal shift action */ while ( yyps >= yys ) { yyn = yypact[*yyps] + YYERRCODE; if( yyn>= 0 && yyn < YYLAST && yychk[yyact[yyn]] == YYERRCODE ){ yystate = yyact[yyn]; /* simulate a shift of "error" */ goto yystack; } yyn = yypact[*yyps]; /* the current yyps has no shift onn "error", pop stack */ #ifdef YYDEBUG printf("yyparse: error recovery pops state %d, uncovers %d\n", *yyps, yyps[-1] ); #endif --yyps; --yypv; } /* there is no state on the stack with an error shift ... abort */ yyabort: return(1); case 3: /* no shift yet; clobber input char */ #ifdef YYDEBUG printf("yyparse: error recovery discards char "); printchar("yychar",yychar); #endif if( yychar == 0 ) goto yyabort; /* don't discard EOF, quit */ yychar = -1; goto yynewstate; /* try again in the same state */ } } /* reduction by production yyn */ #ifdef YYDEBUG printf("yyparse: reduce %d\n",yyn); #endif yyps -= yyr2[yyn]; yypvt = yypv; yypv -= yyr2[yyn]; yyval = yypv[1]; yym=yyn; /* consult goto table to find next state */ yyn = yyr1[yyn]; yyj = yypgo[yyn] + *yyps + 1; if( yyj>=YYLAST || yychk[ yystate = yyact[yyj] ] != -yyn ) yystate = yyact[yypgo[yyn]]; switch(yym) { case 4: { yyerrok; } break; case 5: { printf("[STORE]\n"); } break; case 6: { printf("[ADD]\n"); } break; case 7: { printf("[NEG]\n[ADD]\n"); } break; case 8: { printf("[MUL]\n"); } break; case 9: { printf("[DIV]\n"); } break; case 10: { printf("[NEG]\n"); } break; case 12: { printf("[LOAD]\n"); } break; case 13: { printf("[PUSH %s]\n", yytext); } break; case 14: { printf("[%s]\n", yytext); } break; } goto yystack; /* stack new state and value */ } int yywrap() { return 1; }