程序设计训练实验报告-词法分析器

本科实验报告课程名称：程序设计训练 学院：电子信息与电气工程学部 词法分析器程序说明: 此词法分析器是一个能够扫描输入的字符流,并将扫描到的字符按照二元式的形式保存到word.txt文件中的一个程序（也可以通过屏幕输出的方式输出）。通过词法分析可以为完成对应语言的编译程序做准备，同时词法分析器也可以完成对输入流的字符统计。运行环境： WINDOWS7，visualc++6.0。定义语言G={VN,VT,P,S}其中,VN={P,D,S,B,T’,L,L’,E,T,F,NUM,RELOP,ID}VT={int,if,then,else,while,do,read,write,;,&,|,{,},>=,<=,>,<,==,!=,=,+,-,*,/,++,--,(,),a~z,A~Z,0~9,}P={P→{DS}D→intID;{intID;}S→if(B)thenS[elseS]|while(B)doS|{L}|ID=E|write<E>;|readID;L→SL’L’→;L|eB→T’{∨T’}T’→F’{∧F’}F’→IDrelopID|IDE→T{+T|-T}T→F{*F|/F}F→(E)|NUM|IDNUM->0|1|2|3|4|5|6|7|8|9RELOP-><|<=|>|>=|==}S={P}P代表程序,D代表声明语句，S代表语句，L代表语句的表列，B代表布尔表达式，非零代表真。实现的代码如下#include<stdio.h>#include<string.h>#defineMAX80#defineIDMAX8//标识符最大长度为IDMAX个字符，最大输入字符为MAX个字符,类别编码syn,保留字共8个rwtab[8]charprog[MAX],token[IDMAX],ch;intsyn,p,m,n,sum;char*rwtab[8]={"int","if","then","else","while","do","read","write"};//保留字voidscaner();intmain(){FILE*fout;fout=fopen("word.txt","w");//建立单词本 p=0;printf("\npleaseinputastring(endwith'#'):\n");do{scanf("%c",&ch);prog[p++]=ch;}while(ch!='#');p=0;do{scaner();switch(syn){case-1:printf("youhaveinputawrongstring\n");return0;break;default: fprintf(fout,"%d\t%s\n",syn,token);//文件输出和屏幕输出切换 //printf("%s\t%d\n",token,syn);break;}}while(syn!=0);getchar();}voidscaner(void){sum=0;for(m=0;m<8;m++)token[m++]='\0';ch=prog[p++];m=0;while((ch=='')||(ch=='\n'))ch=prog[p++];if(((ch<='z')&&(ch>='a'))||((ch<='Z')&&(ch>='A'))){while(((ch<='z')&&(ch>='a'))||((ch<='Z')&&(ch>='A'))||((ch>='0')&&(ch<='9'))){token[m++]=ch;ch=prog[p++];}//匹配为标识符p--;syn=24;for(n=0;n<8;n++)//匹配为保留字if(strcmp(token,rwtab[n])==0){syn=n+1;break;}}elseif((ch>='0')&&(ch<='9')){while((ch>='0')&&(ch<='9')){sum=sum*10+ch-'0';ch=prog[p++];}p--;syn=25;}//匹配为NUMelse{switch(ch){case'&':syn=13;token[m++]=ch;break;case'|':syn=14;token[m++]=ch;break;case'<':token[m++]=ch;ch=prog[p++];if(ch=='='){syn=15;token[m++]=ch;}else{syn=15;p--;}break;case'>':token[m++]=ch;ch=prog[p++];if(ch=='='){syn=15;token[m++]=ch;}else{syn=15;p--;}break;case'+':token[m++]=ch;ch=prog[p++];if(ch=='+'){syn=22;token[m++]=ch;}else{syn=9;p--;}break;case'-':token[m++]=ch;ch=prog[p++];if(ch=='-'){syn=23;token[m++]=ch;}else{syn=10;p--;}break;case'!':ch=prog[p++];if(ch=='='){syn=15;token[m++]=ch;}break;case'=':token[m++]=ch;ch=prog[p++];if(ch=='='){syn=15;token[m++]=ch;}else{syn=21;p--;}break;case'*':syn=11;token[m++]=ch;break;case'/':syn=12;token[m++]=ch;break;case'(':syn=19;token[m++]=ch;break;case')':syn=20;token[m++]=ch;break;case'{':syn=16;token[m++]=ch;break;case'}':syn=17;token[m++]=ch;break;case';':syn=18;token[m++]=ch;break;case'\"':syn=12;token[m++]=ch;