哈尔滨工程大学--编译原理实验--词法分析程序

编译原理实验报告学号姓名唐宗林实验名称词法分析程序实验目的1、基本掌握计算机语言的词法分析程序的开发方法。2、实现一个词法分析程序，将字符串流分解成终结符流供语法分析使用。3、通过设计编制调试一个具体的词法分析程序，加深对词法分析原理的理解。并掌握在对程序设计语言源程序进行扫描过程中将其分解为各类单词的词法分析方法。实验方案1、设计功能分析程序能够从左到右一个字符一个字符地读入源程序，并对构成的源程序的字符流进行扫描和分解，从而识别出一个个单词，并给出单词的种别和属性。2、设计思路主函数main()的思想：先输入一串字符，将字符串用空格打断，若是分隔出的单元不为空，则对此单元继续分析，根据所输入的字符串判断出是标识符、八进制数、十进制数、十六进制数、运算符、分隔符还是关键字，然后赋予那单词的种别和属性。3、正规文法对于十进制数： A1B1C1 B1D1B1| C1E1B1 E1 |. D10|1|2|3|4|5|6|7|8|9 对于八进制数： A20B2 B2C2D2 C2E2F2 E21|2|3|4|5|6|7 F2GF| D2H2F2 H2 |. D21|2|3|4|5|6|7 G20|1|2|3|4|5|6|7对于十六进制： A30xB3 B3C3D3 C3E3C3| E3 0|1|2|3|4|5|6|7|8|9|a|b|c|d|e|f D3F3C3 F3 |.对于运算符和分隔符： A4+|-|*|/|B5C5 B5D5E5 D5a|b|y|z E5F5E5| F5a|b|y|z|0|1|2|3|4|5|6|7|8|9 C5G5E5 G5 |.综上正规文法为： SA1|A2|A3|A4|A5 A1B1C1 B1D1B1| C1E1B1 E1 |. D10|1|2|3|4|5|6|7|8|9 A20B2 B2C2D2 C2E2F2 E21|2|3|4|5|6|7 F2GF| D2H2F2 H2 |. D21|2|3|4|5|6|7 G20|1|2|3|4|5|6|7 A30xB3 B3C3D3 C3E3C3| E3 0|1|2|3|4|5|6|7|8|9|a|b|c|d|e|f D3F3C3 F3 |. A4+|-|*|/|B5C5 B5D5E5 D5a|b|y|z E5F5E5| F5a|b|y|z|0|1|2|3|4|5|6|7|8|9 C5G5E5 G5 |.4、状态图070*0.9/az/AZ1909其他开始空白a.z/ AZ023469其他。09非数字。07非o.7且非。110007非o.7。75812111319/a.f/ AF14非1.9且非a.f且非A.F150.9/a.f/A.F16非0.9且非a.f且非A.F。17。018190+/-/ /;If/while/then/dox/X实验记录1、 程序源代码#include#include/#include stdafx.hunion chars /联合，可存储字符串，整型和浮点型char pro_char15;int pro_number;float real;struct data /将每个单元用一个结构来存储，其内容包括：类型，所属的具体类型，以及属性值char kind7;int id;union chars pro;int scan(char *a); /对每个用空格打断的单元进行进一步的分析，对其进行进一步的分类void Prints(char a15,int id,int a_long); /将分析后的每个token输出void save(char *a,int id,int x,float y); /将分析后的结果保存到一个结构数组中char nowChar15; /临时的存储单元，用来存储被空格打断以后单元char kinds118= ,INT10,INT8,INT16,IDN, , , ,REAL10,REAL8,REAL16;/单词的不同种别struct data link100; /用来存放词法分析以后的结果的结构数组int link_long=0; /全局变量int scan(char *a)int id;int a_long=0;int doc=0;while(*a!=NULL)nowChar0=0;a_long=0;doc=0;/对数值的判断及处理if(0=*a&*a=9) /如果第一个字符为数值nowChara_long=*a;*a+;a_long+;/对十六进制的判断及处理if(nowChar0=0&(*a=x|*a=X) /如果第一个字符为0且第二个字符为x,则为十六进制数nowChara_long=*a;*a+;a_long+;while(*a!=NULL&(0=*a&*a=9)|(a=*a&*a=f)|(A=*a&*a=F)|*a=.)nowChara_long=*a; /一直将此十六进制数完全读入，若为浮点型的，则加以标记if(*a=.)doc=1;*a+;a_long+;nowChara_long=0; /判断输入的十六进制数是否合法if(a_long=2) /输入的只有0x，则输入错误Prints(nowChar,7,a_long);return 0;if(doc) /输入的十六进制数是浮点型的Prints(nowChar,10,a_long); /则将其具体的类型属性定为10else /输入的十六进制数是整型的Prints(nowChar,3,a_long); /则将其具体的类型属性定义为3continue;/对八进制的判断及处理if(nowChar0=0&0=*a&*a=7) /如果第一个字符为0且第二个字符为07,则为八进制数nowChara_long=*a;*a+;a_long+;while(*a!=NULL&(0=*a&*a=7)|*a=.)nowChara_long=*a; /一直将此八进制数完全读入，若为浮点型的，则加以标记if(*a=.)doc=1;*a+;a_long+;nowChara_long=0;if(doc) /输入的八进制数是浮点型的Prints(nowChar,9,a_long); /则将其具体的类型属性定为9else /输入的十六进制数是整型的Prints(nowChar,2,a_long); /则将其具体的类型属性定义为2continue;/对十进制数的判断及处理elsewhile(*a!=NULL&(0=*a&*a=9)|*a=.)nowChara_long=*a; /一直将此十进制数完全读入，若为浮点型的，则加以标记if(*a=.)doc=1;*a+;a_long+;nowChara_long=0;if(doc) /输入的十进制数是浮点型的Prints(nowChar,8,a_long); /则将其具体的类型属性定为8else /输入的十进制数是整型的Prints(nowChar,1,a_long); /则将其具体的类型属性定义为1continue; /完成了对数值的判断及处理/对字符的判断及处理elsenowChara_long=*a;*a+;a_long+;/判断输入的字符是否为运算符或其他的分隔符switch(nowChar0)case+:case-:case*:case/:case:case(:case):case=:case;:nowChara_long=0;Prints(nowChar,5,a_long); /将其具体的类型属性定义为5continue;default:break;/判断输入的第一个字符是否为字母if(a=nowChar0&nowChar0=z)|(A=nowChar0&nowChar0=Z)while(*a!=NULL&(a=*a&*a=z)|(A=*a&*a=Z)|(0=*a&*a=9)|(*a=.)|(*a=_) /一直将此字符串完全读入nowChara_long=*a;*a+;a_long+;nowChara_long=0;/判断输入的字符串是否为特殊的标识符，若是，则将其具体类型值定义为6/判断输入的字符串是否为特殊的字符串ifif(a_long=2&strcmp(nowChar,if)=0)Prints(nowChar,6,a_long);continue;/判断输入的字符串是否为特殊的字符串thenif(a_long=4&strcmp(nowChar,then)=0)Prints(nowChar,6,a_long);continue;/判断输入的字符串是否为特殊的字符串elseif(a_long=4&strcmp(nowChar,else)=0)Prints(nowChar,6,a_long);continue;/判断输入的字符串是否为特殊的字符串whileif(a_long=5&strcmp(nowChar,while)=0)Prints(nowChar,6,a_long);continue;/判断输入的字符串是否为特殊的字符串doif(a_long=2&strcmp(nowChar,do)=0)Prints(nowChar,6,a_long);continue;/若输入的字符串不符合以上几种情况，则输入的为变量/若输入的字符串为变量，则将其具体属性值定义为4Prints(nowChar,4,a_long);continue;/如果输入的既不是数值也不是字符串，则输入错误，将其具体类型之定义为7elsePrints(nowChar,7,a_long);return 0;return 1;main() printf(请输入句子：); char buf100; /用来存储从键盘上输入一串字符 char *tokenPtr; /用来存储用空格打断后的单元int id=1; /用来存储具体的类型号link_long=0;while(id)link_long=0;gets(buf); /从键盘上输入一串字符tokenPtr=strtok(buf, ); /用空格将字符串打断while(id&*tokenPtr!=NULL) /分割出来的单元不为空 id=scan(tokenPtr); /将此单元进行继续分析，并返回其具体的类型值 tokenPtr=strtok(NULL, ); /将字符串继续用空格进行分割printf(nn);getchar();return 0;/将所分解后的单元存入结构数组中void save(char *a,int id,int x,float y)int i;if(link_long=5)if(id=8)/id=8,9,10/若为浮点型的数值，则将浮点型的y值（转换后的）存入其属性当中且存入单词的种别for(i=0;i9&kindsidi!=0;i+)linklink_long.kindi=kindsidi;linklink_.real=y;/id=5,6,7else/若为标识符，则将单词种别定为自身，属性值定为空for(i=0;i15&ai!=0;i+)linklink_long.kindi=ai;linklink__char0=-;linklink__char1=0;link_long+;/id=1,2,3,4elsefor(i=0;i8&kindsidi!=0;i+)linklink_long.kindi=kindsidi; /若分解后的token为变量或者整型数值，则将其单词种别直接输出if(id=4) /若token为变量，则将其属性值设为自身for(i=0;i15&ai!=0;i+)linklink__chari=ai;linklink__chari=0;else /若token为整型数值，则将其相应的十进制数值赋给其属性值linklink__number=x;link_long+; /继续存入下一个tokenelseprintf(Full 100n); /结构数组已经存满return;/将词法分析器分解后的结果输出出来void Prints(char a15,int id,int a_long)int i;int x=0;float y=0;/int float1;/char *c;if(id=1) /若为十进制整数for(i=1;ia_long&ai!=0;i+)x=x*10+(ai-48);printf(INT10t%sn,a);save(a,id,x,y); /存入结构数组return;if(id=2) /若为八进制整数for(i=1;ia_long&ai!=0;i+)x=x*8+(ai-48); /换算为十进制数printf(INT8t%dn,x);save(a,id,x,y); /存入结构数组return;if(id=3) /若为十六进制整数for(i=2;ia_long&ai!=0;i+)if(0=ai&ai9)x=x*16+(ai-48); /换算为十进制数elseif(a=ai&ai=f)x=x*16+(ai-87);elsex=x*16+(ai-55);printf(INT16t%dn,x);save(a,id,x,y); /存入结构数组return;if(id=4) /若为变量printf(IDNt%sn,a);save(a,id,x,y); /存入结构数组return;if(id=5|id=6) /若为标识符（+,-,*,/,+以及if,else,while,then,do）printf(%st-n,a);save(a,id,x,y); /存入结构数组return;if(id=8) /若为十进制浮点型for(i=0;i=0&ai!=.;i-)y=(y+(ai-48)/10;y=y+x; /整数部分与小数部分换算后相加printf(REAL10t%fn,y);save(a,id,x,y); /存入结构数组return;if(id=9) /若为八进制浮点型for(i=1;i=0&ai!=.;i-)y=(y+(ai-48)/8;y=y+x; /整数部分与小数部分换算后相加printf(REAL8t%fn,y);save(a,id,x,y); /存入结构数组return;if(id=10) /若为十六进制浮点型for(i=2;i=0&ai!=.;i-)y=(y+(ai-48)/16;y=y+x; /整数部分与小数部分换算后相加printf(REAL16t%fn,y); /存入结构数组save(a,id,x,y);retu