lex.yy.c

针对“虎书”中的tiger语言写的语法分析器 根据书中对tiger语言的描述写了72条文法

52,
0,

50,
0,

57,
0,

56,
0,

66,
0,

65,
0,

64,
0,

63,
0,

60,
0,

43,
0,

43,
0,

43,
0,

33,
43,
0,

26,
43,
0,

43,
0,

29,
43,
0,

31,
43,
0,

43,
0,

43,
0,

35,
43,
0,

43,
0,

67,
0,

43,
0,

43,
0,

40,
43,
0,

43,
0,

39,
43,
0,

36,
43,
0,

43,
0,

37,
43,
0,

28,
43,
0,

43,
0,

27,
43,
0,

43,
0,

68,
0,

43,
0,

34,
43,
0,
0};
# define YYTYPE unsigned char
struct yywork { YYTYPE verify, advance; } yycrank[] = {
0,0,	0,0,	1,9,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	1,10,	1,11,	
0,0,	10,59,	0,0,	56,95,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	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,12,	
10,59,	6,53,	56,95,	1,13,	
0,0,	1,14,	1,15,	1,16,	
1,17,	1,18,	1,19,	1,20,	
1,21,	1,22,	4,49,	16,60,	
21,61,	49,85,	50,86,	4,50,	
0,0,	0,0,	0,0,	1,23,	
1,24,	1,25,	1,26,	1,27,	
23,63,	1,9,	1,28,	22,62,	
22,62,	22,62,	22,62,	22,62,	
22,62,	22,62,	22,62,	22,62,	
22,62,	25,64,	25,65,	27,66,	
0,0,	7,55,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	7,56,	7,57,	0,0,	
1,29,	8,58,	1,30,	6,54,	
1,9,	90,108,	1,31,	1,32,	
1,28,	1,33,	1,34,	1,35,	
1,28,	1,36,	1,37,	1,28,	
1,28,	1,38,	1,28,	1,39,	
1,40,	1,28,	1,28,	1,28,	
1,28,	1,41,	1,28,	1,42,	
1,43,	1,28,	1,28,	1,28,	
1,44,	1,45,	1,46,	2,12,	
7,55,	31,68,	32,69,	2,13,	
33,70,	2,14,	2,15,	2,16,	
2,17,	2,18,	2,19,	2,20,	
2,21,	34,71,	35,73,	34,72,	
7,55,	7,55,	38,77,	39,78,	
35,74,	37,75,	40,79,	2,23,	
2,24,	2,25,	2,26,	2,27,	
41,80,	37,76,	42,83,	43,84,	
68,96,	69,97,	71,98,	41,81,	
72,99,	73,100,	74,101,	77,102,	
78,103,	80,104,	82,105,	83,106,	
7,58,	41,82,	84,107,	7,55,	
96,110,	7,55,	97,111,	3,47,	
98,112,	101,113,	104,114,	105,115,	
2,29,	107,116,	2,30,	3,47,	
3,48,	110,118,	111,119,	2,32,	
2,28,	2,33,	2,34,	2,35,	
2,28,	2,36,	2,37,	2,28,	
2,28,	2,38,	2,28,	2,39,	
2,40,	2,28,	2,28,	2,28,	
2,28,	2,41,	2,28,	2,42,	
2,43,	2,28,	2,28,	2,28,	
2,44,	2,45,	2,46,	5,51,	
3,49,	113,120,	116,121,	117,122,	
120,123,	3,50,	3,47,	5,51,	
5,52,	108,117,	108,117,	108,117,	
108,117,	108,117,	108,117,	108,117,	
108,117,	108,117,	108,117,	123,125,	
125,126,	0,0,	3,47,	3,47,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
5,53,	122,124,	122,124,	122,124,	
122,124,	122,124,	122,124,	122,124,	
122,124,	122,124,	122,124,	0,0,	
0,0,	0,0,	5,51,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	3,47,	0,0,	3,47,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	5,51,	5,51,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	28,67,	
28,67,	28,67,	28,67,	28,67,	
28,67,	28,67,	28,67,	28,67,	
28,67,	0,0,	5,54,	0,0,	
0,0,	5,51,	0,0,	5,51,	
28,67,	28,67,	28,67,	28,67,	
28,67,	28,67,	28,67,	28,67,	
28,67,	28,67,	28,67,	28,67,	
28,67,	28,67,	28,67,	28,67,	
28,67,	28,67,	28,67,	28,67,	
28,67,	28,67,	28,67,	28,67,	
28,67,	28,67,	0,0,	0,0,	
0,0,	0,0,	28,67,	0,0,	
28,67,	28,67,	28,67,	28,67,	
28,67,	28,67,	28,67,	28,67,	
28,67,	28,67,	28,67,	28,67,	
28,67,	28,67,	28,67,	28,67,	
28,67,	28,67,	28,67,	28,67,	
28,67,	28,67,	28,67,	28,67,	
28,67,	28,67,	54,87,	54,88,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	54,87,	0,0,	54,89,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	54,90,	54,90,	54,90,	
54,90,	54,90,	54,90,	54,90,	
54,90,	54,90,	54,90,	92,109,	
92,109,	92,109,	92,109,	92,109,	
92,109,	92,109,	92,109,	92,109,	
92,109,	92,109,	92,109,	92,109,	
92,109,	92,109,	92,109,	92,109,	
92,109,	92,109,	92,109,	92,109,	
92,109,	92,109,	92,109,	92,109,	
92,109,	92,109,	92,109,	92,109,	
92,109,	92,109,	92,109,	0,0,	
0,0,	54,91,	0,0,	54,92,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	0,0,	
0,0,	0,0,	0,0,	54,93,	
0,0,	0,0,	0,0,	0,0,	
0,0,	54,94,	0,0,	0,0,	
0,0};
struct yysvf yysvec[] = {
0,	0,	0,
yycrank+-1,	0,		yyvstop+1,
yycrank+-93,	yysvec+1,	yyvstop+4,
yycrank+-178,	0,		yyvstop+7,
yycrank+-8,	yysvec+3,	yyvstop+10,
yycrank+-218,	0,		yyvstop+13,
yycrank+-3,	yysvec+5,	yyvstop+16,
yycrank+-80,	0,		yyvstop+19,
yycrank+-1,	yysvec+7,	yyvstop+22,
yycrank+0,	0,		yyvstop+25,
yycrank+4,	0,		yyvstop+27,
yycrank+0,	0,		yyvstop+30,
yycrank+0,	0,		yyvstop+32,
yycrank+0,	0,		yyvstop+35,
yycrank+0,	0,		yyvstop+38,
yycrank+0,	0,		yyvstop+41,
yycrank+4,	0,		yyvstop+44,
yycrank+0,	0,		yyvstop+47,
yycrank+0,	0,		yyvstop+50,
yycrank+0,	0,		yyvstop+53,
yycrank+0,	0,		yyvstop+56,
yycrank+10,	0,		yyvstop+59,
yycrank+19,	0,		yyvstop+62,
yycrank+3,	0,		yyvstop+65,
yycrank+0,	0,		yyvstop+68,
yycrank+16,	0,		yyvstop+71,
yycrank+0,	0,		yyvstop+74,
yycrank+18,	0,		yyvstop+77,
yycrank+251,	0,		yyvstop+80,
yycrank+0,	0,		yyvstop+83,
yycrank+0,	0,		yyvstop+86,
yycrank+15,	yysvec+28,	yyvstop+89,
yycrank+16,	yysvec+28,	yyvstop+92,
yycrank+21,	yysvec+28,	yyvstop+95,
yycrank+33,	yysvec+28,	yyvstop+98,
yycrank+31,	yysvec+28,	yyvstop+101,
yycrank+0,	yysvec+28,	yyvstop+104,
yycrank+47,	yysvec+28,	yyvstop+108,
yycrank+45,	yysvec+28,	yyvstop+111,
yycrank+42,	yysvec+28,	yyvstop+114,
yycrank+48,	yysvec+28,	yyvstop+117,
yycrank+52,	yysvec+28,	yyvstop+120,
yycrank+61,	yysvec+28,	yyvstop+123,
yycrank+55,	yysvec+28,	yyvstop+126,
yycrank+0,	0,		yyvstop+129,
yycrank+0,	0,		yyvstop+132,
yycrank+0,	0,		yyvstop+135,
yycrank+0,	0,		yyvstop+138,
yycrank+0,	0,		yyvstop+140,
yycrank+6,	0,		yyvstop+142,
yycrank+12,	0,		yyvstop+144,
yycrank+0,	0,		yyvstop+146,
yycrank+0,	0,		yyvstop+148,
yycrank+0,	0,		yyvstop+150,
yycrank+365,	0,		yyvstop+153,
yycrank+0,	0,		yyvstop+156,
yycrank+6,	0,		yyvstop+158,
yycrank+0,	0,		yyvstop+161,
yycrank+0,	0,		yyvstop+163,
yycrank+0,	yysvec+10,	yyvstop+166,
yycrank+0,	0,		yyvstop+168,
yycrank+0,	0,		yyvstop+170,
yycrank+0,	yysvec+22,	yyvstop+172,
yycrank+0,	0,		yyvstop+174,
yycrank+0,	0,		yyvstop+176,
yycrank+0,	0,		yyvstop+178,
yycrank+0,	0,		yyvstop+180,
yycrank+0,	yysvec+28,	yyvstop+182,
yycrank+46,	yysvec+28,	yyvstop+184,
yycrank+60,	yysvec+28,	yyvstop+186,
yycrank+0,	yysvec+28,	yyvstop+188,
yycrank+47,	yysvec+28,	yyvstop+191,
yycrank+64,	yysvec+28,	yyvstop+193,
yycrank+51,	yysvec+28,	yyvstop+195,
yycrank+56,	yysvec+28,	yyvstop+197,
yycrank+0,	yysvec+28,	yyvstop+199,
yycrank+0,	yysvec+28,	yyvstop+202,
yycrank+51,	yysvec+28,	yyvstop+205,
yycrank+60,	yysvec+28,	yyvstop+207,
yycrank+0,	yysvec+28,	yyvstop+209,
yycrank+68,	yysvec+28,	yyvstop+212,
yycrank+0,	yysvec+28,	yyvstop+214,
yycrank+58,	yysvec+28,	yyvstop+217,
yycrank+57,	yysvec+28,	yyvstop+219,
yycrank+69,	yysvec+28,	yyvstop+221,
yycrank+0,	0,		yyvstop+223,
yycrank+0,	0,		yyvstop+225,
yycrank+0,	0,		yyvstop+227,
yycrank+0,	0,		yyvstop+229,
yycrank+0,	0,		yyvstop+231,
yycrank+5,	0,		0,	
yycrank+0,	0,		yyvstop+233,
yycrank+359,	0,		0,	
yycrank+0,	0,		yyvstop+235,
yycrank+0,	0,		yyvstop+237,
yycrank+0,	yysvec+56,	yyvstop+239,
yycrank+79,	yysvec+28,	yyvstop+241,
yycrank+81,	yysvec+28,	yyvstop+243,
yycrank+79,	yysvec+28,	yyvstop+245,
yycrank+0,	yysvec+28,	yyvstop+247,
yycrank+0,	yysvec+28,	yyvstop+250,
yycrank+82,	yysvec+28,	yyvstop+253,
yycrank+0,	yysvec+28,	yyvstop+255,
yycrank+0,	yysvec+28,	yyvstop+258,
yycrank+72,	yysvec+28,	yyvstop+261,
yycrank+82,	yysvec+28,	yyvstop+263,
yycrank+0,	yysvec+28,	yyvstop+265,
yycrank+77,	yysvec+28,	yyvstop+268,
yycrank+181,	0,		0,	
yycrank+0,	0,		yyvstop+270,
yycrank+68,	yysvec+28,	yyvstop+272,
yycrank+83,	yysvec+28,	yyvstop+274,
yycrank+0,	yysvec+28,	yyvstop+276,
yycrank+105,	yysvec+28,	yyvstop+279,
yycrank+0,	yysvec+28,	yyvstop+281,
yycrank+0,	yysvec+28,	yyvstop+284,
yycrank+121,	yysvec+28,	yyvstop+287,
yycrank+131,	0,		0,	
yycrank+0,	yysvec+28,	yyvstop+289,
yycrank+0,	yysvec+28,	yyvstop+292,
yycrank+119,	yysvec+28,	yyvstop+295,
yycrank+0,	yysvec+28,	yyvstop+297,
yycrank+205,	0,		0,	
yycrank+128,	yysvec+28,	yyvstop+300,
yycrank+0,	0,		yyvstop+302,
yycrank+130,	yysvec+28,	yyvstop+304,
yycrank+0,	yysvec+28,	yyvstop+306,
0,	0,	0};
struct yywork *yytop = yycrank+481;
struct yysvf *yybgin = yysvec+1;
unsigned char yymatch[] = {
00  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,011 ,012 ,01  ,01  ,01  ,01  ,01  ,
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  ,
'@' ,'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  ,'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  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
01  ,01  ,01  ,01  ,01  ,01  ,01  ,01  ,
0};
unsigned char yyextra[] = {
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,
0};
/*
 * (c) Copyright 1990, OPEN SOFTWARE FOUNDATION, INC.
 * ALL RIGHTS RESERVED
 */
/*
 * OSF/1 Release 1.0
*/
/*
#
# IBM CONFIDENTIAL
# Copyright International Business Machines Corp. 1989
# Unpublished Work
# All Rights Reserved
# Licensed Material - Property of IBM
#
#
# US Government Users Restricted Rights - Use, duplication or
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
# 
*/
/* @(#)ncform	1.3  com/lib/l,3.1,8951 9/7/89 18:48:47 */
int yylineno =1;
# define YYU(x) x
# define NLSTATE yyprevious=YYNEWLINE
unsigned char yytext[YYLMAX];
struct yysvf *yylstate [YYLMAX], **yylsp, **yyolsp;
unsigned char yysbuf[YYLMAX];
unsigned char *yysptr = yysbuf;
int *yyfnd;
extern struct yysvf *yyestate;
int yyprevious = YYNEWLINE;
yylook(){
	register struct yysvf *yystate, **lsp;
	register struct yywork *yyt;
	struct yysvf *yyz;
	int yych, yyfirst;
	struct yywork *yyr;
# ifdef LEXDEBUG
	int debug;
# endif
	unsigned char *yylastch;
	/* start off machines */
# ifdef LEXDEBUG
	debug = 0;
# endif
	yyfirst=1;
	if (!yymorfg)
		yylastch = yytext;
	else {
		yymorfg=0;
		yylastch = yytext+yyleng;
		}
	for(;;){
		lsp = yylstate;
		yyestate = yystate = yybgin;
		if (yyprevious==YYNEWLINE) yystate++;
		for (;;){
# ifdef LEXDEBUG
			if(debug)fprintf(yyout,"state %d\n",yystate-yysvec-1);
# endif
			yyt = yystate->yystoff;
			if(yyt == yycrank && !yyfirst){  /* may not be any transitions */
				yyz = yystate->yyother;
				if(yyz == 0)break;
				if(yyz->yystoff == yycrank)break;
				}
			*yylastch++ = yych = input();
			yyfirst=0;
		tryagain:
# ifdef LEXDEBUG
			if(debug){
				fprintf(yyout,"char ");
				allprint(yych);
				putchar('\n');
				}
# endif
			yyr = yyt;
			if ( yyt > yycrank){
				yyt = yyr + yych;
				if (yyt <= yytop && yyt->verify+yysvec == yystate){
					if(yyt->advance+yysvec == YYLERR)	/* error transitions */
						{unput(*--yylastch);break;}
					*lsp++ = yystate = yyt->advance+yysvec;
					goto contin;
					}
				}
# ifdef YYOPTIM
			else if(yyt < yycrank) {		/* r < yycrank */
				yyt = yyr = yycrank+(yycrank-yyt);
# ifdef LEXDEBUG
				if(debug)fprintf(yyout,"compressed state\n");
# endif
				yyt = yyt + yych;
				if(yyt <= yytop && yyt->verify+yysvec == yystate){
					if(yyt->advance+yysvec == YYLERR)	/* error transitions */
						{unput(*--yylastch);break;}
					*lsp++ = yystate = yyt->advance+yysvec;
					goto contin;
					}
				yyt = yyr + YYU(yymatch[yych]);
# ifdef LEXDEBUG
				if(debug){
					fprintf(yyout,"try fall back character ");
					allprint(YYU(yymatch[yych]));
					putchar('\n');
					}
# endif
				if(yyt <= yytop && yyt->verify+yysvec == yystate){
					if(yyt->advance+yysvec == YYLERR)	/* error transition */
						{unput(*--yylastch);break;}
					*lsp++ = yystate = yyt->advance+yysvec;
					goto contin;
					}
				}
			if ((yystate = yystate->yyother) && (yyt= yystate->yystoff) != yycrank){
# ifdef LEXDEBUG
				if(debug)fprintf(yyout,"fall back to state %d\n",yystate-yysvec-1);
# endif
				goto tryagain;
				}
# endif
			else
				{unput(*--yylastch);break;}
		contin:
# ifdef LEXDEBUG
			if(debug){
				fprintf(yyout,"state %d char ",yystate-yysvec-1);
				allprint(yych);
				putchar('\n');
				}
# endif
			;
			}
# ifdef LEXDEBUG
		if(debug){
			fprintf(yyout,"stopped at %d with ",*(lsp-1)-yysvec-1);
			allprint(yych);
			putchar('\n');
			}
# 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--;
						unput(*yylastch--);
						}
					}
				yyprevious = YYU(*yylastch);
				yylsp = lsp;
				yyleng = yylastch-yytext+1;
				yytext[yyleng] = 0;
# ifdef LEXDEBUG
				if(debug){
					fprintf(yyout,"\nmatch ");
					sprint(yytext);
					fprintf(yyout," action %d\n",*yyfnd);
					}
# endif
				return(*yyfnd++);
				}
			unput(*yylastch);
			}
		if (yytext[0] == 0  /* && feof(yyin) */)
			{
			yysptr=yysbuf;
			return(0);
			}
		yyprevious = yytext[0] = input();
		if (yyprevious>0)
			output(yyprevious);
		yylastch=yytext;
# ifdef LEXDEBUG
		if(debug)putchar('\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(){
	return(input());
	}
yyoutput(c)
  int c; {
	output(c);
	}
yyunput(c)
   int c; {
	unput(c);
	}