C语言编写词法分析器

#include <stdio.h> #include <ctype.h> //下面定义保留，为简化程序，使用字符指针数组保存所有保留字。 //如果想增加保留字，可继续添加，并修改保留字数目 #define keywordSum 8 char *keyword[keywordSum]={ "if","else","for","while","do","int","read","write"}; //下面定义纯单分界符，如需要可添加 char singleword[50]="+-*(){};,:"; //下面定义双分界符的首字符 char doubleword[10]="><=!"; extern char Scanin[300], Scanout[300]; //用于接收输入输出文件名,在TEST_main.c中定义 extern FILE *fin,*fout; //用于指向输入输出文件的指针,在TEST_main.c中定义 int TESTscan()//词法分析函数 { char ch,token[40]; //ch为每次读入的字符，token用于保存识别出的单词 int es=0,j,n; //es错误代码，0表示没有错误。j,n为临时变量，控制组合单词时的下标等 printf("请输入源程序文件名（包括路径）："); scanf("%s",Scanin); printf("请输入词法分析输出文件名（包括路径）："); scanf("%s",Scanout); if ((fin=fopen(Scanin,"r"))==NULL) //判断输入文件名是否正确 { printf("\n打开词法分析输入文件出错!\n"); return(1);//输入文件出错返回错误代码1 } if ((fout=fopen(Scanout,"w"))==NULL) //判断输出文件名是否正确 { printf("\n创建词法分析输出文件出错!\n"); return(2); //输出文件出错返回错误代码2 } ch=getc(fin); while(ch!=EOF) { while (ch==' '||ch=='\n'||ch=='\t') ch=getc(fin); if (ch==EOF) break; if (isalpha(ch)) //如果是字母，则进行标识符处理 { token[0]=ch; j=1; ch=getc(fin); while(isalnum(ch)) //如果是字母数字则组合标识符；如果不是则标识符组合结束 { token[j++]=ch; //组合的标识符保存在token中 ch=getc(fin); //读下一个字符 } token[j]='\0'; //标识符组合结束 //查保留字 n=0; while ((n<keywordSum) && strcmp(token,keyword[n])) n++; if (n>=keywordSum) //不是保留字，输出标识符 fprintf(fout,"%s\t%s\n","ID",token); //输出标识符符号 else//是保留字，输出保留字 fprintf(fout,"%s\t%s\n",token,token); //输出保留字符号 } else if (isdigit(ch))//数字处理 { token[0]=ch; j=1; ch=getc(fin); //读下一个字符 while (isdigit(ch)) //如果是数字则组合整数；如果不是则整数组合结束 { token[j++]=ch; //组合整数保存在token中 ch=getc(fin); //读下一个字符 } token[j]='\0'; //整数组合结束 fprintf(fout,"%s\t%s\n","NUM",token); //输出整数符号 } else if (strchr(singleword,ch)>0) //单分符处理 { token[0]=ch; token[1]='\0'; ch=getc(fin);//读下一个符号以便识别下一个单词 fprintf(fout,"%s\t%s\n",token,token); //输出单分界符符号 }else if (strchr(doubleword,ch)>0) //双分界符处理 { token[0]=ch; ch=getc(fin); //读下一个字符判断是否为双分界符 if (ch=='=') //如果是=，组合双分界符 { token[1]=ch;token[2]='\0'; //组合双分界符结束 ch=getc(fin); //读下一个符号以便识别下一个单词 } else//不是=则为单分界符 token[1]='\0'; fprintf(fout,"%s\t%s\n",token,token); //输出单或双分界符符号 } else if (ch=='/') //注释处理 { ch=getc(fin); //读下一个字符 if (ch=='*') //如果是*，则开始处理注释 { char ch1; ch1=getc(fin); //读下一个字符 do { ch=ch1;ch1=getc(fin);} //删除注释 while ((ch!='*' || ch1!='/')&&ch1!=EOF); //直到遇到注释结束符*/或文件尾 ch=getc(fin);//读下一个符号以便识别下一个单词 } else //不是*则处理单分界符/ { token[0]='/'; token[1]='\0'; fprintf(fout,"%s\t%s\n",token,token); //输出单分界符/ } } else//错误处理 { token[0]=ch;token[1]='\0'; ch=getc(fin); //读下一个符号以便识别下一个单词 es=3; //设置错误代码 fprintf(fout,"%s\t%s\n","ERROR",token); //输出错误符号 } } fclose(fin);//关闭输入输出文件 fclose(fout); return(es); //返回主程序 }