资源描述：
《电子科技大学-计算机学院-编译原理实验-词法分析》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、#include#include#include^defineM；X_COUNT1024#defineILLEGALCHARERR1^defineUNKX0WN_0PERAT0R_ERR2/*从标准输入读入第一个非空口字符(换行符除外“/chargetnbe(){charch;ch=gctchar();wh订e(1){if(ch==，r*
2、
3、ch二二，t'Hch二二，，){ch二getchar();}else{break;}}rcturnch;}/*判断character是否为字母*/boolletter(charchar
4、acter){if((character>=Ja，&&chciracter<='z‘)
5、
6、(character>二'N&&character<='Z'))returntrue;elsereturnfalse;}/*判断character是否为数字*/booldigit(charcharacter){if(character>=0*&&character<=‘9’)returntrue;elsereturnfalse;}/*冋退字符*/voidretract(char&character){ungetc(character,stdin);character=NULL;}/*返冋保留字的对应
7、种别*/intreserve(char*loken){if(stremp(token,"begin")==0)return1;elseif(stremp(tokon,"end")==0)return2;elseif(stremp(token，"integer")二二0)return3;elseif(stremp(token,"if")==0)return4;elseif(stremp(token,"the?n")==0)return5;elseif(stremp(token，"else")==0)return6;elseif(stremp(token,"function")==0)ret
8、urn7;elseif(stremp(token,Scad")==0)return8;elseif(stremp(token,"write")==0)return9;elsereturn0;}/*返回标识符的对应种别材intsymbol(){rcturn10;}/*返冋常数的对应种别*/intconstant()return11:/*按照格式输出单词符号和种别*/voidoutput(constchar*token,intkindNum)printfC%16s%2d，z,token,kindXuni);}/*根据行号和错课码输岀错误*/boolerror(intlineXum,int
9、errNum){char*errInfo;switch(errXum){caseTLLEGAL_CHAR_ERR:errlnfo二〃出现字母表以外的非法字符〃；break;caseUNICOWN_OPERATOR_ERR:errlnfo二”出现未知运算符";break;default:errlnfo二"未知错误"；)errlnfo)>=0)if(fprintf(stderr,"***LINE:%d%s",1ineNum,returntrue;elsereturnfalse;}/*词法分析函数，每调用一次识别一个符号*/boolLexAnalyzeO{staticintlineNum
10、=1;charcharacter;chartoken[17]="”；character=getnbc();switch(character){case'，:output("EOLN",24);lineNum++;break;caseEOF:output("EOF",25);returnfalse;//false表小已读到文件末尾case'a*:case'b‘:case，c‘:case'd‘:case'c":case'f':case'g':case'h':case'i‘：case'j:case'k‘:caseT:case'm:case'n:caseocasePcaseqcasercas
11、escasecaseucaseVcase,>wcaseJ>Xcase>ycasezcase'A'case'B'case，C'case'D'case'E'case'F'case'G'case'll'caseTcase'Jcase'Kcase，Lcase'Icase'N‘:case'O'case'P‘case'Q'case'R'case'S'caseTcase'U'case'V'case'W'case'X'case'Y'case'Z‘
