欢迎来到天天文库
浏览记录
ID:13473198
大小:27.00 KB
页数:4页
时间:2018-07-22
《大学作业-词法分析器》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、大学作业-词法分析器#include#includeusingnamespacestd;#defineMAX22charch='';stringkey[15]={"begin","end","if","then","else","while","write","read","do","call","const","char","until","procedure","repeat"};intIskey(stringc)//关键字判断{inti;for(i=0;i2、+)if(key[i].compare(c)==0)return1;return0;}intIsLetter(charc)//判断是否为字母{if(((c<='z')&&(c>='a'))3、4、((c<='Z')&&(c>='A')))return1;elsereturn0;}intIsDigit(charc)//判断是否为数字{if(c>='0'&&c<='9')return1;elsereturn0;}voidanalyse(FILE*fpin){stringarr="";while((ch=fgetc(fp5、in))!=EOF){arr="";if(ch==''6、7、ch=='t'8、9、ch==''){}elseif(IsLetter(ch)){while(IsLetter(ch)10、11、IsDigit(ch)){if((ch<='Z')&&(ch>='A'))ch=ch+32;arr=arr+ch;ch=fgetc(fpin);}fseek(fpin,-1L,SEEK_CUR);if(Iskey(arr)){cout<<"(关键字,"<12、<")"<13、14、ch=='.'&&IsDigit(fgetc(fpin))){arr=arr+ch;ch=fgetc(fpin);}fseek(fpin,-1L,SEEK_CUR);cout<<"(常数,"<15、:case',':case'{':case'}':cout<<"("<':{ch=fgetc(fpin);if(ch=='=')cout<<"("<<">="<<",LB)"<16、{cout<<"("<<">"<<",-)"<17、FILE*fpin;cout<<"目标文件名:";for(;;){cin>>in_fn;if((fpin=fopen(in_fn,"r"))!=NULL)break;elsecout<<"输入有误,请重新输入:";}cout<<"分析如下:"<>a;}
2、+)if(key[i].compare(c)==0)return1;return0;}intIsLetter(charc)//判断是否为字母{if(((c<='z')&&(c>='a'))
3、
4、((c<='Z')&&(c>='A')))return1;elsereturn0;}intIsDigit(charc)//判断是否为数字{if(c>='0'&&c<='9')return1;elsereturn0;}voidanalyse(FILE*fpin){stringarr="";while((ch=fgetc(fp
5、in))!=EOF){arr="";if(ch==''
6、
7、ch=='t'
8、
9、ch==''){}elseif(IsLetter(ch)){while(IsLetter(ch)
10、
11、IsDigit(ch)){if((ch<='Z')&&(ch>='A'))ch=ch+32;arr=arr+ch;ch=fgetc(fpin);}fseek(fpin,-1L,SEEK_CUR);if(Iskey(arr)){cout<<"(关键字,"<12、<")"<13、14、ch=='.'&&IsDigit(fgetc(fpin))){arr=arr+ch;ch=fgetc(fpin);}fseek(fpin,-1L,SEEK_CUR);cout<<"(常数,"<15、:case',':case'{':case'}':cout<<"("<':{ch=fgetc(fpin);if(ch=='=')cout<<"("<<">="<<",LB)"<16、{cout<<"("<<">"<<",-)"<17、FILE*fpin;cout<<"目标文件名:";for(;;){cin>>in_fn;if((fpin=fopen(in_fn,"r"))!=NULL)break;elsecout<<"输入有误,请重新输入:";}cout<<"分析如下:"<>a;}
12、<")"<13、14、ch=='.'&&IsDigit(fgetc(fpin))){arr=arr+ch;ch=fgetc(fpin);}fseek(fpin,-1L,SEEK_CUR);cout<<"(常数,"<15、:case',':case'{':case'}':cout<<"("<':{ch=fgetc(fpin);if(ch=='=')cout<<"("<<">="<<",LB)"<16、{cout<<"("<<">"<<",-)"<17、FILE*fpin;cout<<"目标文件名:";for(;;){cin>>in_fn;if((fpin=fopen(in_fn,"r"))!=NULL)break;elsecout<<"输入有误,请重新输入:";}cout<<"分析如下:"<>a;}
13、
14、ch=='.'&&IsDigit(fgetc(fpin))){arr=arr+ch;ch=fgetc(fpin);}fseek(fpin,-1L,SEEK_CUR);cout<<"(常数,"<15、:case',':case'{':case'}':cout<<"("<':{ch=fgetc(fpin);if(ch=='=')cout<<"("<<">="<<",LB)"<16、{cout<<"("<<">"<<",-)"<17、FILE*fpin;cout<<"目标文件名:";for(;;){cin>>in_fn;if((fpin=fopen(in_fn,"r"))!=NULL)break;elsecout<<"输入有误,请重新输入:";}cout<<"分析如下:"<>a;}
15、:case',':case'{':case'}':cout<<"("<':{ch=fgetc(fpin);if(ch=='=')cout<<"("<<">="<<",LB)"<16、{cout<<"("<<">"<<",-)"<17、FILE*fpin;cout<<"目标文件名:";for(;;){cin>>in_fn;if((fpin=fopen(in_fn,"r"))!=NULL)break;elsecout<<"输入有误,请重新输入:";}cout<<"分析如下:"<>a;}
16、{cout<<"("<<">"<<",-)"<17、FILE*fpin;cout<<"目标文件名:";for(;;){cin>>in_fn;if((fpin=fopen(in_fn,"r"))!=NULL)break;elsecout<<"输入有误,请重新输入:";}cout<<"分析如下:"<>a;}
17、FILE*fpin;cout<<"目标文件名:";for(;;){cin>>in_fn;if((fpin=fopen(in_fn,"r"))!=NULL)break;elsecout<<"输入有误,请重新输入:";}cout<<"分析如下:"<>a;}
此文档下载收益归作者所有