南昌大学编译原理试验报告一

1、大学实验报告一实验类型：口验证口综合设计口创新实验日期：2013.4实验成绩：词法分析程序设计一、实验目的掌握计算机语言的词法分析程序的开发方法。二、实验容编制一个能够分析三种整数、标识符、主要运算符和主要关键字的词法分析程序。三、实验要求1、根据状态图，设计词法分析函数intscan(),完成以下功能：1)从文本文件中读入测试源代码，根据状态转换图，分析出一个单词，2)以二元式形式输出单词单词种类，单词属性>其中单词种类用整数表示：0:标识符1:十进制整数2:八进制整数3:十六进制整数运算符和界符，关键字采用一字一符，不编码其中单词属性表示如下：标识符，整数由于采用一类一符，属性用单词

2、表示运算符和界符，关键字采用一字一符，属性为空2、编写测试程序，反复调用函数scan(),输出单词种别和属性。四、实验环境PC微机DOS操作系统或Windows操作系统TurboC程序集成环境或VisualC+程序集成环境五、实验步骤编辑一个文本文件program.txt,在文件中输入如下容：ifdata+92>0x3fthendata=data+01;elsedata=data-01;正确结果:<if,->< 0,data>< +,->< 1,92>< >>->< 3,3f><then,->

3、< 0,data>< =,>< 0,data>< +,->< 2,1>< ；,-><else,->< 0,data>< =,->< 0,data>< -,->< 2,->< ；,->【实验代码】#include<iostream>#include<string>usingnamespacestd;#defineMAX5charch=''stringkey5="if","t

4、hen","else","while","do"intIskey(stringc)关键字判断inti;for(i=0;i<MAX;i+)if(pare(c)=0)return1;return0;intIsLetter(charc)判断是否为字母if(c<='z')&&(c>='a')|(c<=Z)&&(c>='A')return1;elsereturn0;intIsLetter1(charc)判断是否

5、为a-f字母if(c<='f)&&(c>='a')|(c<='F')&&(c>='A')return1;elsereturn0;intIsDigit(charc)判断是否为数字if(c>='0'&&c<='9')return1;elsereturn0;voidscan(FILE*fpin)stringarr=""while(ch=fgetc(fpin)!=EOF)arr=""if(ch

6、=''|ch='t'|ch='n')elseif(IsLetter(ch)11ch='_')arr=arr+ch;ch=fgetc(fpin);while(IsLetter(ch)|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<<arr<<"t$关键字"&

7、lt;<endl;elsecout<<arr<<"t$普通标识符"<<endl;elseif(IsDigit(ch)intflag=0;if(ch='0')arr=arr+ch;ch=fgetc(fpin);if(ch>='0'&&ch<='7')while(ch>='0'&&ch<='7')(flag=1;arr=arr+ch;ch=fgetc(fpin);)elseif(ch='x

8、9;|ch='X')(flag=2;arr=arr+ch;ch=fgetc(fpin);while(lsDigit(ch)|lsLetter1(ch)(arr=arr+ch;ch=fgetc(fpin);)elseif(ch=''|ch=','|ch='')cout«arr«"t$整数O"«endl;)fseek(fpin,-1L,SEEK_CUR);if(flag=1)cout«arr«"t$八进制整数"«endl;elseif(

9、flag=2)cout«arr«"t$十六进制整数"<<endl;)else(arr=arr+ch;ch=fgetc(fpin);while(lsDigit(ch)(arr=arr+ch;ch=fgetc(fpin);)fseek(fpin,-1L,SEEK_CUR);cout«arr«"t$十进制整数"«endl;)elseswitch(ch)voidmain()case'+':case'-':case'*':case'=':c

10、ase'/':cout«ch«"t$运算符"«endl;break;case'C:case')':case'':case'':case'':case'.':case',':case'':case'':cout«ch«"t$界符"«endl;break;case':':ch=fgetc(fpin);if(ch='='

11、)cout«":="«"t$运算符"«endl;elsecout«":"«"t$界符"«endl;fseek(fpin,-1L,SEEK_CUR);break;case'>':ch=fgetc(fpin);if(ch='=')cout«">="«"t$运算符"«endl;if(ch='>')cout«"

12、»"«"t$输入控制符"«endl;elsecout«">"«"t$运算符"«endl;fseek(fpin,-1L,SEEK_CUR);break;case'<':ch=fgetc(fpin);if(ch='=')cout«"<="«"t$运算符"«endl;elseif(ch='<')cout«"

13、71;"«"t$输出控制符"<<endl;elseif(ch='>')cout«"<>"«"t$运算符"«endl;elsecout«"<"«"t$运算符"«endl;fseek(fpin,-1L,SEEK_CUR);break;default:cout«ch«"t$无法识别字符"<<endl;charin_fn30;FILE*fpin;cout<<"请输入源文件名(包才路径和后缀名)："；for(;)cin>>in_fn;if(fpin=fopen(in_fn,"r")!=NULL)break;elsecout<<"