C语言编程的词法分析器，可具体定位到每一行查找出错误并生成二元式形式文件

#include <yacc.h> #define YYPARSEFAST #line 7 "D:\\Document\\complier\\YACC\\TINY.Y" #define YYPARSER /* distinguishes Yacc output from other code files */ #include "globals.h" #include "util.h" #include "scan.h" #include "parse.h" #define YYSTYPE TreeNode * static char * savedName; /* for use in assignments */ static int savedLineNo; /* ditto */ static TreeNode * savedTree; /* stores syntax tree for later return */ #line 20 "D:\\Document\\complier\\YACC\\TINY.c" /* repeated because of possible precompiled header */ #include <yacc.h> #define YYPARSEFAST #include "TINY.h" #ifndef YYSTYPE #define YYSTYPE int #endif #ifndef YYSTACK_SIZE #define YYSTACK_SIZE 100 #endif /* (state) stack */ #if (YYSTACK_SIZE) != 0 static yystack_t YYNEAR yystack[(YYSTACK_SIZE)]; yystack_t YYFAR *YYNEAR YYDCDECL yysstackptr = yystack; yystack_t YYFAR *YYNEAR YYDCDECL yystackptr = yystack; #else yystack_t YYFAR *YYNEAR YYDCDECL yysstackptr = NULL; yystack_t YYFAR *YYNEAR YYDCDECL yystackptr = NULL; #endif /* attribute stack */ #if (YYSTACK_SIZE) != 0 static YYSTYPE YYNEAR yyattributestack[(YYSTACK_SIZE)]; #ifdef YYPROTOTYPE void YYFAR *YYNEAR YYDCDECL yysattributestackptr = yyattributestack; void YYFAR *YYNEAR YYDCDECL yyattributestackptr = yyattributestack; #else char YYFAR *YYNEAR YYDCDECL yysattributestackptr = (char YYFAR *) yyattributestack; char YYFAR *YYNEAR YYDCDECL yyattributestackptr = (char YYFAR *) yyattributestack; #endif #else #ifdef YYPROTOTYPE void YYFAR *YYNEAR YYDCDECL yysattributestackptr = NULL; void YYFAR *YYNEAR YYDCDECL yyattributestackptr = NULL; #else char YYFAR *YYNEAR YYDCDECL yysattributestackptr = NULL; char YYFAR *YYNEAR YYDCDECL yyattributestackptr = NULL; #endif #endif int YYNEAR YYDCDECL yysstack_size = (YYSTACK_SIZE); int YYNEAR YYDCDECL yystack_size = (YYSTACK_SIZE); /* attributes */ YYSTYPE YYNEAR yyval; YYSTYPE YYNEAR yylval; #ifdef YYPROTOTYPE void YYFAR *YYNEAR YYDCDECL yyvalptr = &yyval; void YYFAR *YYNEAR YYDCDECL yylvalptr = &yylval; #else char YYFAR *YYNEAR YYDCDECL yyvalptr = (char *) &yyval; char YYFAR *YYNEAR YYDCDECL yylvalptr = (char *) &yylval; #endif size_t YYNEAR YYDCDECL yyattribute_size = sizeof(YYSTYPE); /* yyattribute */ #ifdef YYDEBUG #ifdef YYPROTOTYPE static YYSTYPE YYFAR *yyattribute1(int index) #else static YYSTYPE YYFAR *yyattribute1(index) int index; #endif { YYSTYPE YYFAR *p = &((YYSTYPE YYFAR *) yyattributestackptr)[yytop + index]; return p; } #define yyattribute(index) (*yyattribute1(index)) #else #define yyattribute(index) (((YYSTYPE YYFAR *) yyattributestackptr)[yytop + (index)]) #endif #ifdef YYDEBUG #ifdef YYPROTOTYPE static void yyinitdebug(YYSTYPE YYFAR **p, int count) #else static void yyinitdebug(p, count) YYSTYPE YYFAR **p; int count; #endif { int i; yyassert(p != NULL); yyassert(count >= 1); for (i = 0; i < count; i++) { p[i] = &((YYSTYPE YYFAR *) yyattributestackptr)[yytop + i - (count - 1)]; } } #endif #ifdef YYPROTOTYPE void YYCDECL yyparseaction(int action) #else void YYCDECL yyparseaction(action) int action; #endif { switch (action) { case 0: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[2]; yyinitdebug(yya, 2); #endif { #line 30 "D:\\Document\\complier\\YACC\\TINY.Y" savedTree = yyattribute(1 - 1); #line 133 "D:\\Document\\complier\\YACC\\TINY.c" } } break; case 1: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[4]; yyinitdebug(yya, 4); #endif { #line 33 "D:\\Document\\complier\\YACC\\TINY.Y" YYSTYPE t = yyattribute(1 - 3); if (t != NULL) { while (t->sibling != NULL) t = t->sibling; t->sibling = yyattribute(3 - 3); yyval = yyattribute(1 - 3); } else yyval = yyattribute(3 - 3); #line 153 "D:\\Document\\complier\\YACC\\TINY.c" } } break; case 2: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[2]; yyinitdebug(yya, 2); #endif { #line 41 "D:\\Document\\complier\\YACC\\TINY.Y" yyval = yyattribute(1 - 1); #line 166 "D:\\Document\\complier\\YACC\\TINY.c" } } break; case 3: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[2]; yyinitdebug(yya, 2); #endif { #line 43 "D:\\Document\\complier\\YACC\\TINY.Y" yyval = yyattribute(1 - 1); #line 179 "D:\\Document\\complier\\YACC\\TINY.c" } } break; case 4: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[2]; yyinitdebug(yya, 2); #endif { #line 44 "D:\\Document\\complier\\YACC\\TINY.Y" yyval = yyattribute(1 - 1); #line 192 "D:\\Document\\complier\\YACC\\TINY.c" } } break; case 5: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[2]; yyinitdebug(yya, 2); #endif { #line 45 "D:\\Document\\complier\\YACC\\TINY.Y" yyval = yyattribute(1 - 1); #line 205 "D:\\Document\\complier\\YACC\\TINY.c" } } break; case 6: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[2]; yyinitdebug(yya, 2); #endif { #line 46 "D:\\Document\\complier\\YACC\\TINY.Y" yyval = yyattribute(1 - 1); #line 218 "D:\\Document\\complier\\YACC\\TINY.c" } } break; case 7: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[2]; yyinitdebug(yya, 2); #endif { #line 47 "D:\\Document\\complier\\YACC\\TINY.Y" yyval = yyattribute(1 - 1); #line 231 "D:\\Document\\complier\\YACC\\TINY.c" } } break; case 8: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[2]; yyinitdebug(yya, 2); #endif { #line 48 "D:\\Document\\complier\\YACC\\TINY.Y" yyval = NULL; #line 244 "D:\\Document\\complier\\YACC\\TINY.c" } } break; case 9: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[6]; yyinitdebug(yya, 6); #endif { #line 51 "D:\\Document\\complier\\YACC\\TINY.Y" yyval = newStmtNode(IfK); yyval->child[0] = yyattribute(2 - 5); yyval->child[1] = yyattribute(4 - 5); #line 260 "D:\\Document\\complier\\YACC\\TINY.c" } } break; case 10: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[8]; yyinitdebug(yya, 8); #endif { #line 56 "D:\\Document\\complier\\YACC\\TINY.Y" yyval = newStmtNode(IfK); yyval->child[0] = yyattribute(2 - 7); yyval->child[1] = yyattribute(4 - 7); yyval->child[2] = yyattribute(6 - 7); #line 277 "D:\\Document\\complier\\YACC\\TINY.c" } } break; case 11: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[5]; yyinitdebug(yya, 5); #endif { #line 63 "D:\\Document\\complier\\YACC\\TINY.Y" yyval = newStmtNode(RepeatK); yyval->child[0] = yyattribute(2 - 4); yyval->child[1] = yyattribute(4 - 4); #line 293 "D:\\Document\\complier\\YACC\\TINY.c" } } break; case 12: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[2]; yyinitdebug(yya, 2); #endif { #line 68 "D:\\Document\\complier\\YACC\\TINY.Y" savedName = copyString(tokenString); savedLineNo = lineno; #line 307 "D:\\Document\\complier\\YACC\\TINY.c" } } break; case 13: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[5]; yyinitdebug(yya, 5); #endif { #line 71 "D:\\Document\\complier\\YACC\\TINY.Y" yyval = newStmtNode(AssignK); yyval->child[0] = yyattribute(4 - 4); yyval->attr.name = savedName; yyval->lineno = savedLineNo; #line 324 "D:\\Document\\complier\\YACC\\TINY.c" } } break; case 14: { #ifdef YYDEBUG YYSTYPE YYFAR *yya[3]; yyinitdebug(yya, 3); #endif { #line 78 "D:\\Document\\complier\\YACC\\TINY.Y" yyval = newStmtNode(ReadK); yyval->attr.name = copyString(tokenString); #line 340 "D:\\Document\\complier\\YACC\\TINY.c" } } br