编译原理实验报告 (3)

实验二 语法分析程序实现

一、实验目的与要求

通过设计、编制、调试一个典型的语法分析程序（任选有代表性的语法分析方法，如算符优先法、递归下降法、LL(1)、SLR(1)、LR(1)等，作为编制语法分析程序的依据），对扫描器所提供的单词序列进行语法检查和结构分析，实现并进一步掌握常用的语法分析方法。

二、实验内容

选择对各种常见高级程序设计语言都较为通用的语法结构作为分析对象，给出其文法描述（注意应与所采用的语法分析方法比较贴近），设计并实现一个完整的语法分析程序。

输入：源程序以文件的形式输入。

输出：对于所输入的源程序，如果输入符号串是给定文法定义的合法句子，则输出“RIGHT”，并且给出每一步归约的过程；如果不是句子，即输入串有错误，则输出“ERROR”，并且显示已经归约出的各个文法符号。

三、基本实验题目

以如下文法G1所定义的算术表达式的赋值语句作为分析对象，编写并调试一个语法分析程序。

G1[<赋值语句>]：

<赋值语句> → <变量>:=<算术表达式>

<算术表达式> → <项> | <算术表达式>+<项> | <算术表达式>-<项> <项> → <因式> | <项>*<因式> | <项>/<因式> <因式> → <变量> | <常数> | (<算术表达式>) <变量> → <标识符>

<标识符> → <标识符> <字母> | <标识符> <数字> | <字母> <常数> → <整数> | <浮点数> <整数> → <数字> | <数字> <整数> <浮点数> → ? <整数> | <整数> ? <整数> <字母> → A|B|C|…|X|Y|Z|a|b|c|…|x|y|z <数字> → 0|1|2|…9

四、源程序

#include #include

#include //词法代码 #include #include

#define RIGHT 1 #define ERROR 0 #define MAXINPUT 300 #define MAXSTACK 100

#define STARTSYMBOL 'S' //语法部分

#define ID 6 // 变量标识符

//词法部分

#define UINT 7//用来表示无符号整数代指ICON

#define LT 8 #define LE 9 #define EQ 10 #define NE 11 #define GT 12 #define GE 13 #define IS 14 #define ADD 15 #define SUB 16 #define MUL 17 #define DIV 18 #define LETTER 20 #define DIGIT 21 #define POINT 22 #define OTHER 23 #define POWER 24 #define PLUS 25 #define MINUS 26

#define UFCON 27 //在这用来表示无符号浮点数代指FCON #define ClassF 200 #define EndState -1

/**********************用于无符号数标识***************/ #define LP 28 // ( #define RP 29 // ) #define EOI 30 // #

char TOKEN[20]; struct RetainWord { };

/******************字符串全局变量********************/

int w,n,p,e,d;//w尾数累加器，n十进制小数位数计数器，p指数累加器，e指数符号，d存当前数值 int Class; //Used to indicate class of the word int x=0;

int n; char Word[7]; {1,\}, {2,\}, {3,\}, {4,\}, {5,\},

// + // - // * // /

/**********************用于字符串标识*******************/

}rw[5]={

int l=0; //列标识 int lf=0; //标识符首位置 int r=0; //行标 int ICON; float FCON;

static int CurrentState; //Used to present current state, the initial value:0

int stack[MAXSTACK]; /* a[ ] is input line */ char a[MAXINPUT];

int IsHigherThan (int, int); /* prioriy detection */ int IsLowerThan (int, int); /* prioriy detection */ int IsEqualTo (int, int); /* prioriy detectin */ int Reduce (int begin, int end, int len);

int table[11][11]={

//语法部分算符优先矩阵，为>,-1为< 0为=;其他为错误类型 //+,-,*,/,(,),ID,UCON,:=,#,N //- //* //,/ //) //ID //UCON

{1,1,-1,-1,-1,1,-1,-1,6,1,1},

{1,1,-1,-1,-1,1,-1,-1,6,1,1}, {1,1,1,1,-1,1,-1,-1,6,1,1}, {1,1,1,1,-1,1,-1,-1,6,1,1}, {1,1,1,1,5,1,5,5,6,1,5}, {1,1,1,1,5,1,5,5,1,1,5},

void coor(char ch1) //词法部分 { }

if(ch1==10){

r++;l=0;} l+=7; l++; else if(ch1==9) else

{1,1,1,1,5,1,5,5,6,1,5},

{-1,-1,-1,-1,-1,0,-1,-1,6,1,-1}, //(

{-1,-1,-1,-1,-1,7,-1,-1,7,1,-1},//:=

{-1,-1,-1,-1,-1,7,-1,-1,-1,-1,-1},//# {1,1,1,1,5,1,5,5,-1,1,0}}; //N

/******************无符号数全局变量********************/ int lookup(char *a) { }

for(int i=0;i<5;i++)

if(strcmp(rw[i].Word,a)==0)

return(rw[i].n); //保留字减去字符数组如果值为就返回保留字类型

return(0);

int report_error(int sk){ }

/******************字符串的函数********************/ int GetChar (FILE *fp) { }

int EXCUTE (int state, int symbol)//state当前状态symbol扫视字符 {

switch (state) { case 0:

switch (symbol) int c; lf=l; c=fgetc(fp); coor(c);

if(isdigit(c)) { }

if (c=='.')

return POINT; return POWER; return PLUS; return MINUS; if (c=='E'||c=='e') if (c=='+') if (c=='-') return OTHER;

d=c-'0'; return DIGIT;

printf(\第%d行，第%d列，出现\,r+1,lf+1); switch (sk) {

case 1:printf(\出现非法无符号浮点数！！词法错误，错误类型%d。\\n\,sk);break; case 2:printf(\出现无法识别符号！！词法错误，错误类型%d。\\n\,sk);break; case 3:printf(\出现无法识别字符！！词法错误，错误类型%d。\\n\,sk);break; case 4:printf(\出现两符号相邻，之间缺少数字或标识符！！语法错误，错误类型%d。case 5:printf(\缺少运算符！！语法错误，错误类型%d。\\n\,sk);break;

case 6:printf(\出现赋值符号前不是标识符的错误！！语法错误，错误类型%d。\\n\,sk);break; case 7:printf(\出现非文法定义的句型！！语法错误，错误类型%d。\\n\,sk);break; case 8:printf(\缺少语句终结符号“#”！！语法错误，错误类型%d。\\n\,sk);break; } return 0;

\\n\,sk);break;

{

case DIGIT: n=0;p=0;e=1;w=d;CurrentState=1;break; case POINT: w=0;n=0;p=0;e=1;CurrentState=3;break; default: report_error(1);Class=0;CurrentState=EndState; }

break; {

case DIGIT: w=w*10+d;break;

//CurrentState=1

case POINT: CurrentState=2;break; case POWER: CurrentState=4;break;

default: ICON=w;Class=UINT;CurrentState=EndState; }

case 1:switch (symbol)

break;

{

case DIGIT: n++;w=w*10+d;break; case POWER: CurrentState=4;x=1;break; default: if(n>0){ }

Class=ClassF;

FCON=(float)w*pow(10,e*p-n); }

CurrentState=EndState;

}

report_error(1);Class=0; else{

case 2:switch (symbol)

break;

{

case DIGIT: n++;w=w*10+d;CurrentState=2;break; default: report_error(2); }

Class=0;CurrentState=EndState;

case 3:switch (symbol)

break;

{

case DIGIT: p=p*10+d;CurrentState=6;break; case MINUS: e=-1;CurrentState=5;break; case PLUS: CurrentState=5;break;

default:report_error(1);Class=0;CurrentState=EndState; }

case 4:switch (symbol)

break;

case 5:switch (symbol)