added tests as prepared by oliver
This commit is contained in:
mrdudz
996
test/ref/yacc.c
Normal file
996
test/ref/yacc.c
Normal file
@@ -0,0 +1,996 @@
|
||||
/*
|
||||
!!DESCRIPTION!!
|
||||
!!ORIGIN!! LCC 4.1 Testsuite
|
||||
!!LICENCE!! own, freely distributeable for non-profit. read CPYRIGHT.LCC
|
||||
*/
|
||||
|
||||
/*#define STANDALONE*/
|
||||
|
||||
#ifndef YACCDBG
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <ctype.h>
|
||||
|
||||
/*
|
||||
#define LEXDEBUG
|
||||
#define YYDEBUG
|
||||
*/
|
||||
|
||||
#endif
|
||||
|
||||
/* 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;
|
||||
|
||||
/*FILE *yyin ={stdin}, *yyout ={stdout};*/
|
||||
#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(0);
|
||||
}
|
||||
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-1)-yysvec-1)<0)
|
||||
{
|
||||
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,"\nyylook: 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 <void>\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");
|
||||
yyparse();
|
||||
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;
|
||||
}
|
||||
Reference in New Issue
Block a user