编译原理实验词法分析实验报告

1、编译技术实验报告 实验题目： 词法分析学 院： 信息学院专 业： 计算机科学与技术学 号： 姓 名： 一、实验目的(1) 理解词法分析的功能；(2) 理解词法分析的实现方法；二、实验内容PL0的文法如下< >为非终结符。 := 该符号的左部由右部定义，可读作“定义为”。 | 表示或，为左部可由多个右部定义。 表示花括号内的语法成分可以重复。在不加上下界时可重复0到任意次数，有上下界时可重复次数的限制。 表示方括号内的成分为任选项。 ( ) 表示圆括号内的成分优先。 上述符号为“元符号”， 文法用上述符号作为文法符号时需要用引号括起。程序=分程序分程序= 变量说明部分过程说明部分语句

2、变量说明部分=VAR标识符，标识符：INTEGER；无符号整数=数字数字标识符=字母字母|数字过程说明部分=过程首部分程序；过程说明部分；过程首部=PROCEDURE标识符；语句=赋值语句|条件语句|过程调用语句|读语句|写语句|复合语句|空赋值语句=标识符=表达式复合语句=BEGIN语句；语句END条件=表达式关系运算符表达式表达式=项加法运算符项 项=因子乘法运算符因子因子=标识符|无符号整数|'('表达式')'加法运算符=+|-乘法运算符=*关系运算符=<>|=|<|<=|>|>=条件语句=IF条件THEN语句字母=a|

3、b|X|Y|Z数字=0|1|2|8|9实现PL0的词法分析三、实验分析与设计PL0词法分析程序是一个独立的过程，其功能是为语法语义分析提供单词，把输入的字符串形式的源程序分割成一个个单词符号传递给语法语义分析。其主要方法步骤为从源程序扫描下一个字符，忽略空格、换行、TAB和注释并识别单词，再将不同类别的单词归类输出。四、实验的实现#include <stdio.h>#include<stdlib.h>#include<string.h>#include<ctype.h>#include<stdbool.h>#definenorw 11

4、 /norw-1个关键字#defineal 20 /最长的关键字的长度#define ID norw#define INT norw+1#define COMMA norw+2#define ENDF norw+3#define COLON norw+4#define SEMIC norw+5#define ADD norw+6#define MINUS norw+7#define MULTI norw+8#define EVALU norw+9#define LE norw+10#define NE norw+11#define LT norw+12#define EQ norw+13#de

5、fine GE norw+14#define GT norw+15#define FLOAT norw+16char TOKEN20; /字符数组用来依次存放单词词文的各个字符extern int lookup(char *); /以TOKEN字符串查保留字表extern void report_error(char); /报告程序中的词法错误bool isalpha(char); /判断接收字符是否为字母bool isalnum(char); /判断接收字符是否为字母或者数字bool isdigit(char); /判断接收字符是否为数字bool isannotation(char); /判

6、断接收字符是否为注释extern char letter(char c); /用来将大写字母转化成小写字母FILE* fin;FILE* fout;void scanner()/词法分析的主体程序，对输入的文本文件进行词法分析char ch;int i,c;int error=0; /记录文件中词法错误的个数ch=fgetc(fin); /从输入文件中读取一个字符while(ch!=EOF)/当从输入文件接收的字符不是文件结束符时，执行循环if(isalpha(ch)/如果从输入文件接收的第一个字符是字母 ch=letter(ch);TOKEN0=ch;ch=fgetc(fin);i=1;wh

7、ile(isalnum(ch) ch=letter(ch);TOKENi=ch;i+;ch=fgetc(fin);TOKENi='0'c=lookup(TOKEN); /查保留字表if(c=0) fprintf(fout,"(%d,%s)n", ID,TOKEN); /输出标识符else fprintf(fout,"(%d,%s)n", c,TOKEN); /输出接收单词为保留字if(isdigit(ch) /如果从输入文件接收的第一个字符是数字 int cdot=0; /统计小数点个数TOKEN0=ch;ch=fgetc(fin);i=

8、1;while(isdigit(ch)|ch='.')/从第二个接收字符开始，当是数字或者是小数点时，执行循环if(ch='.') cdot+;TOKENi=ch;i+;ch=fgetc(fin);/重复接收字符，直到接收到非数字if(cdot>=2) error+; TOKENi='0' printf("%s is errorn", TOKEN); break; if(isalpha(ch) /如果第二个字符是字母while(isalpha(ch) /接收完所有的字母，跳出循环TOKENi=ch;i+;ch=fgetc

9、(fin);TOKENi='0'error+;printf("%s is errorn", TOKEN);else if(cdot=0) /当接收的字符为整型单词时fseek(fin,-1,1); TOKENi='0' int a,temp=0,c; for(c=0;c<i;c+) a=TOKENc - '0' if(c!=0) temp=temp*10; temp=temp+a; else temp=a; fprintf(fout,"(%d,%d)n", INT, temp); /输出接收单词为整数

10、else if(cdot=1) fseek(fin,-1,1); TOKENi='0' int a,part1=0,jc,b=0; /b用来确定小数点所在的位置 float c=0.1,part2=0.0; while(TOKENb!='.') b=b+1; for(jc=0;jc<b;jc+) a=TOKENjc - '0' if(jc!=0) part1=part1*10; part1=part1+a; else part1=a; for(jc=b+1;jc<i;jc+) a=TOKENjc-'0' part2=a

11、*c+part2; c=c*0.1; fprintf(fout,"(%d,%f)n", FLOAT, part1+part2); /输出接收单词为小数 else if(cdot=2) fseek(fin,-1,1); else /如果从输入文件接收的第一个字符既不是字母又不是数字switch(ch)/将所接收到的符号字符进行分类，采取一符一类case':':ch=fgetc(fin); if(ch='=') fprintf(fout,"(%d,:=)n", EVALU); /输出接收符号为赋值号 elsech=fgetc(

12、fin);fseek(fin,-1,1); /文件接收字符回推一个字符fprintf(fout,"(%d,':')n", COLON); /输出冒号break;case',':fprintf(fout,"(%d,',')n", COMMA); break; /输出逗号case'.':fprintf(fout,"(%d,'.')n", ENDF);break; /输出句号case'':fprintf(fout,"(%d,'.

13、')n", SEMIC);break; /输出分号case'+':fprintf(fout,"(%d,'+')n", ADD);break; /输出加号case'-':fprintf(fout,"(%d,'-')n", MINUS);break; /输出减号case'*':fprintf(fout,"(%d,'*')n", MULTI);break; /输出乘号case'<':ch=fgetc(fin

14、);if(ch='=')fprintf(fout,"(%d,'<=')n", LE); /输出小于或等于号else if(ch='>')fprintf(fout,"(%d,'<>')n", NE); /输出不等于号elsefseek(fin,-1,1);fprintf(fout,"(%d,'<')n", LT); /输出小于号break;case'=':fprintf(fout,"(%d,'=

15、')n", EQ);break; /输出等于号case'>':ch=fgetc(fin);if(ch='=')fprintf(fout,"(%d,'>=')n", GE); /输出大于或等于号elsefseek(fin,-1,1);fprintf(fout,"(%d,'>')n", GT); /输出大于号break;case' ':break;case'n':break;case't':break;case&

16、#39;/':ch=fgetc(fin);/检查是否为单行注释if(ch='/')while(ch!='n') ch=fgetc(fin); else fseek(fin,-1,1); printf("/ is errorn"); error+; break; case'': while(1) ch=fgetc(fin); if(ch='') break; if(ch=EOF) fseek(fin,-1,1); printf(" is errorn"); error+; break;

17、 break; default:printf("%c is errorn", ch); /接收非上述字符程序报告词法错误error+;break;ch=fgetc(fin); /继续从文件中读取下一个单词，直到文件结束/while循环结束printf("共发现%d 个词法错误!",error);return;int lookup(char *token)int j; char wordnorwal;strcpy(&(word10), "begin" );strcpy(&(word20), "end"

18、);strcpy(&(word30), "var");strcpy(&(word40), "integer");strcpy(&(word50), "while");strcpy(&(word60), "do");strcpy(&(word70), "if");strcpy(&(word80), "then");strcpy(&(word90), "procedure");strcpy(&(w

19、ord100), "else");for(j=1;j<=norw-1;j+)if(strcmp(token,wordj)=0) return j; /以TOKEN字符串查保留字表，若查到返回保留字类别码return 0; /TOKEN不是保留字，返回0bool isalpha(char c) /判断接收字符是否为字母if(c>='a'&&c<='z')|(c>='A'&&c<='Z')return 1; else return 0;bool isalnum(char c)/判断接收字符是否为字母或者数字if(c>='a'&&c<='z')|(c>='A'&&c<='Z')|(c>='0'&&c<=&#