1、属性编码标示符10数字11include1其他100int2=18main320else5 .21for6,22while7;23+1224-1325*14:26/15#27%29&28（1630）17字符串31源文件s1:运行词法分析程序：文件s1的测试结果： 四 本次实验总结本次实验是编写一个简单的c语言词法分析程序。先分析c语言的语法特点，将其分成五大类：关键字，数字，运算符，分隔符和其他。然后对每一类进行编号。最终然后根据分类进行编程。通过本次试验我学会了运用词法分析，简单的分析计算机语言，并运用此方法编写出来词法分析程序。五 成绩附录： 源程序：#include stdlib.hst
2、ring.hctype.h /函数isspace,isalpha,isalnum的头文件#define N 20char token100;void Retract（FILE *fp,char ch）; /文件流的读写位置回退一位int Symbol（char c）; /判断是否是符号int GetChar（FILE *fp）; /读取一个字符int IsKey（char getN）; / 判断单词是否为关键词char* ConCat（char getN,FILE *fp）; /连接相邻字符组成一个单词void Scanner（FILE *fp1,FILE *fp2）; /通过判断字符或单词的
3、属性编码void main（） char sfileN; char dfileN; /测试结果的输出文件名 FILE *sfp; FILE *dfp; printf（C语言词法分析程序nn）;请输入源文件名: scanf（%s,&sfile）; sfp = fopen（sfile,r+ if（!sfp） printf（文件不存在！ exit（1）; 请输入目的文件名:dfile）; dfp = fopen（dfile,w+ Scanner（sfp,dfp）; fclose（sfp）; fclose（dfp）;已完成词法分析，分析结果已经存储在文件%s中n,dfile）;void Retract
4、（FILE *fp,char ch）/文件流的读写位置回退一位 fseek（fp,-1,1）; ch = NULL;int Symbol（char c）/判断是否是符号 switch（c） case +return 12;break;-return 13;*return 14;/return 15;（return 16;）return 17;=return 18;return 19;return 20;.return 21;,return 22;return 23;return 24;return 25;return 26;#return 27;return 28;%return 29;ret
5、urn 30; default:return 0;int GetChar（FILE *fp）/读取一个字符 char c; do c = fgetc（fp）; while（isspace（c） & （c != EOF）; /读取到得字符是空格并且不是结束符就继续循环 return c;int IsKey（char getN） /判断单词是否是以下关键词 if（strcmp（get,include）=0） return 1; else if（strcmp（get,int return 2;main return 3;if return 4;else return 5;for return 6;w
6、hile return 7; else return 0;char* ConCat（char getN,FILE *fp）/连接相邻字符组成一个单词 int i; for（i=0;iN;i+） geti=fgetc（fp）; if（isspace（geti）|Symbol（geti）!=0|geti = EOF） /当读到空格、各种符号或者结束符时退出循环 geti=NULL; /把读到的空格、边界符、运算符或者结束符赋值为空 fseek（fp,-1,1）; /文件流读取位置回退一格，这样下次读取可以读取到空格、边界符、 /运算符或者结束符，再根据读取到内容的加以判断 break; retur
7、n get;void Scanner（FILE *fp1,FILE *fp2）/通过判断字符或单词的属性编码 char getN; char *str; int i=0; int j,t,m,n; while（1） for（j=0;jj+） /第一次循环式初始化，之后是清空get字符数组。 getj=NULL; geti=GetChar（fp1）; /读取到得字符是空格并且不是结束符的字符赋值给get0 if（geti = EOF） /判断get0是否为结束 if（isalpha（geti） /判断get0是否为字符 Retract（fp1,geti）; /回退一格并把get0赋值为空 str
8、=ConCat（get,fp1）; t=strlen（str）; if（t=1） fputs（10,fp2）; fputs（str,fp2）;n else strcpy（get,str）; /把读到连续字母赋值给get字符数组 m=IsKey（get）; if（m=0） fputs（ fputs（get,fp2）; else fprintf（fp2,%d,m）; else if（isalnum（geti） /判断get0是否是数字 strcpy（get,ConCat（get,fp1）; /把读到连续数字赋值给get字符数组 fputs（11 fputs（get,fp2）; else n=Symbol（geti）; if（n=0）100,n）; if（geti=） /处理字符串 char ch; ch=geti; token0=ch; token1=0 ch=GetChar（fp1）; int k=0; while（ch! tokenk=ch; k+; ch=GetChar（fp1）; tokenk= fputs（31 fputs（token,fp2）; fprintf（fp2, fputs（get,fp2）; geti=GetChar（fp1）; fseek（fp1,-1,1）;
