testparse.c

编译原理语义分析代码

//语法、语义分析及代码生成
#include <stdio.h>
#include<string.h>
#include <ctype.h>
#include <conio.h>
#define maxvartablep 500//定义符号表的容量
int TESTparse();
int program();
int compound_stat();
int statement();
int expression_stat();
int expression();
int do_stat();
int bool_expr();
int additive_expr();
int term();
int factor();
int if_stat();
int while_stat();
int for_stat();
int write_stat();
int read_stat();
int declaration_stat();
int declaration_list();
int statement_list();
int compound_stat();
int name_def(char *name);
char token[20],token1[40];//token保存单词符号，token1保存单词值
extern char Scanout[300],Codeout[300]; //保存词法分析输出文件名
FILE *fp,*fout; //用于指向输入输出文件的指针
struct{//定义符号表结构
     char name[8];
     int address;
}vartable[maxvartablep];//改符号表最多容纳maxvartablep个记录
int vartablep=0,labelp=0,datap=0;

//插入符号表动作@name-def↓n, t的程序如下：
int name_def(char *name)
{    
	int i,es=0;
    if (vartablep>=maxvartablep) return(21);
	for(i=vartablep-1;i==0;i--)//查符号表
	{ 
		if (strcmp(vartable[i].name,name)==0)
		{
			es=22;//22表示变量重复声明
			break;
		}
	}
	if (es>0)   return(es);
	strcpy(vartable[vartablep].name,name);
	vartable[vartablep].address=datap;
	datap++;//分配一个单元，数据区指针加1
	vartablep++;	
	return(es);
}
//查询符号表返回地址
int lookup(char *name,int *paddress)
{
	int i,es=0;
	for(i=0;i<vartablep;i++)
	{
		if (strcmp(vartable[i].name,name)==0)
		{
           *paddress=vartable[i].address;
		   return(es);
		}
	}
     es=23;//变量没有声明
	 return(es);
}

//语法、语义分析及代码生成程序
int TESTparse()
{
	int es=0;
	if((fp=fopen(Scanout,"r"))==NULL)
	{  
      printf("\n打开%s错误!\n",Scanout);
	  es=10;
	  return(es);
	}
	printf("请输入目标文件名（包括路径）：");
    scanf("%s",Codeout);
	if((fout=fopen(Codeout,"w"))==NULL)
	{  
      printf("\n创建%s错误!\n",Codeout);
	  es=10;
	  return(es);
	}
	if (es==0) es=program();
	printf("==语法、语义分析及代码生成程序结果==\n");
	switch(es)
	{
		case 0: printf("语法、语义分析成功并抽象机汇编生成代码!\n");break;	
		case 10: printf("打开文件 %s失败!\n",Scanout);break;
		case 1: printf("缺少{!\n");break;
		case 2: printf("缺少}!\n");break;
		case 3: printf("缺少标识符!\n");break;
		case 4: printf("少分号!\n");break;
		case 5: printf("缺少(!\n");break;
		case 6: printf("缺少)!\n");break;
		case 7: printf("缺少操作数!\n");break;
		case 21: printf("符号表溢出!\n");break;
		case 22: printf("变量重复定义!\n");break;
		case 23: printf("变量未声明!\n");break;
		
	}
	fclose(fp);
	fclose(fout);
	return(es);
}

//program::={<declaration_list><statement_list>}
int program()
{ 
   int es=0,i;
   fscanf(fp,"%s %s\n",token,token1);
   printf("%s %s\n",token,token1);
   if(strcmp(token,"{"))//判断是否'{'
   {
	   es=1;
	   return(es);
   }
   fscanf(fp,"%s %s\n",&token,&token1);
   printf("%s %s\n",token,token1);
   es=declaration_list();
   if (es>0) return(es);
   printf("     符号表\n");
   printf("     名字       地址\n");
   for(i=0;i<vartablep;i++)
	   printf("      %s   %d\n",vartable[i].name,vartable[i].address);
   es=statement_list();
   if (es>0) return(es);
   if(strcmp(token,"}"))//判断是否'}'
   {
	   es=2;
	   return(es);
   }
   fprintf(fout,"        STOP\n");//产生停止指令
   return(es);
}

//<declaration_list>::=
//<declaration_list><declaration_stat>|<declaration_stat>
//改成<declaration_list>::={<declaration_stat>}
int declaration_list()
{
	int es=0;
	while (strcmp(token,"int")==0)
	{
		es=declaration_stat();
		if (es>0) return(es);
	}
	return(es);
}

//<declaration_stat>↓vartablep,datap,codep ->int ID↑n@name-def↓n,t;
int declaration_stat()
{
	int es=0;      
	fscanf(fp,"%s %s\n",&token,&token1);printf("%s %s\n",token,token1);
	if (strcmp(token,"ID"))	return(es=3);  //不是标识符
	es=name_def(token1);//插入符号表
	if (es>0) return(es);
	fscanf(fp,"%s %s\n",&token,&token1);printf("%s %s\n",token,token1);
	if (strcmp(token,";") )	return(es=4);		
	fscanf(fp,"%s %s\n",&token,&token1);printf("%s %s\n",token,token1);
	return(es);
}

//<statement_list>::=<statement_list><statement>|<statement>
//改成<statement_list>::={<statement>}
int statement_list()
{
	int es=0;
	while (strcmp(token,"}"))
	{
		es=statement();
		if (es>0) return(es);
	}
	return(es);
}

//<statement>::= <if_stat>|<while_stat>|<for_stat>
//               |<compound_stat> |<expression_stat>

int statement()
{
	int es=0;
	if (es==0 && strcmp(token,"if")==0) es=if_stat();//<IF语句>
	if (es==0 && strcmp(token,"while")==0) es=while_stat();//<while语句>
	if (es==0 && strcmp(token,"do")==0) es=do_stat();//<do_while语句>
	if (es==0 && strcmp(token,"for")==0) es=for_stat();//<for语句>
	if (es==0 && strcmp(token,"read")==0) es=read_stat();//<read语句>
	if (es==0 && strcmp(token,"write")==0) es=write_stat();//<write语句>
	if (es==0 && strcmp(token,"{")==0) es=compound_stat();//<复合语句>
	if (es==0 && (strcmp(token,"ID")==0||strcmp(token,"NUM")==0)) es=expression_stat();//<表达式语句>
	return(es);
}

//<IF_stat>::= if (<expr>) <statement > [else < statement >]
/*
if (<expression>)@BRF↑label1 <statement > @BR↑label2 @SETlabel↓label1 
                  [ else < statement >] @SETlabel↓label2

其中动作符号的含义如下
  @BRF↑label1 ：输出 BRF label1, 
  @BR↑label2：输出 BR label2, 
  @SETlabel↓label1：设置标号label1 
  @SETlabel↓label2：设置标号label2
*/
int if_stat(){
	int es=0,label1,label2;  //if
	fscanf(fp,"%s %s\n",&token,&token1);
	printf("%s %s\n",token,token1);
	if (strcmp(token,"(")) 	return(es=5);  //少左括号
	fscanf(fp,"%s %s\n",&token,&token1);
	printf("%s %s\n",token,token1);
	es=expression();
	if (es>0) return(es);
	if (strcmp(token,")"))  return(es=6); //少右括号
	label1=labelp++;//用label1记住条件为假时要转向的标号
	fprintf(fout,"        BRF LABEL%d\n",label1);//输出假转移指令
	fscanf(fp,"%s %s\n",&token,&token1);
	printf("%s %s\n",token,token1);
	es=statement(); 
	if (es>0) return(es);
	label2=labelp++;//用label2记住要转向的标号
	fprintf(fout,"        BR LABEL%d\n",label2);//输出无条件转移指令
	fprintf(fout,"LABEL%d:\n",label1);//设置label1记住的标号
	if (strcmp(token,"else")==0)//else部分处理
	{  
		fscanf(fp,"%s %s\n",&token,&token1);
		printf("%s %s\n",token,token1);
		es=statement(); 
	    if (es>0) return(es);
	}
	fprintf(fout,"LABEL%d:\n",label2);//设置label2记住的标号
	return(es);
}
//<do_while_stat>::=do<statement>while(<exper>)
//<do_while_stat>::=do @SET↑labellabel1<statement>
//                  while(<表达式>)
//                  @BRF↑label2@BR↑label1@SETlabel↓label2
//动作解释如下：
//@SETlabel↑label1：设置标号label1
//@BRF↑label2 ：输出 BRF label2,
//@BR↓label1：输出 BR label1,
//@SETlabel↓label2：设置标号label2

int do_stat(){
	int es,label1,label2;
	es=0;
    label1=labelp++;
	fprintf(fout,"LABEL%d:\n",label1);//设置label1标号
	fscanf(fp,"%s %s\n",&token,&token1);
	printf("%s %s\n",token,token1);
    es=statement();
    if (es>0) return(es);
    fscanf(fp,"%s %s\n",&token,&token1);
	printf("%s %s\n",token,token1);
	if(strcmp(token,"while")==0)//while 部分
	{  fscanf(fp,"%s %s\n",&token,&token1);
	   printf("%s %s\n",token,token1);
	   if (strcmp(token,"("))  return(es=5);  //少左括号
	   fscanf(fp,"%s %s\n",&token,&token1);
	   printf("%s %s\n",token,token1);
	   es=expression();
	   if (es>0) return(es);
	   if (strcmp(token,")"))  return(es=6); //少右括号
	}
	else
		printf("缺少while");
		label2=labelp++;
		fprintf(fout,"        BRF LABEL%d\n",label2);//输出假转移指令
		fprintf(fout,"        BR LABEL%d\n",label1);//输出无条件转移指令
		fprintf(fout,"LABEL%d:\n",label2);//设置label2标号
		fscanf(fp,"%s %s\n",&token,&token1);
		printf("%s %s\n",token,token1);
		return(es);
}
//<while_stat>::= while (<expr >) < statement >
//<while_stat>::=while @SET↑labellabel1(<expression>) @BRF↑label2 
//				<statement >@BR↓label1 @SETlabel↓label2
//动作解释如下：
//@SETlabel↑label1：设置标号label1
//@BRF↑label2 ：输出 BRF label2,
//@BR↓label1：输出 BR label1,
//@SETlabel↓label2：设置标号label2
int while_stat()
{
	int es=0,label1,label2;  
	label1=labelp++;
	fprintf(fout,"LABEL%d:\n",label1);//设置label1标号
	fscanf(fp,"%s %s\n",&token,&token1);
	printf("%s %s\n",token,token1);
	if (strcmp(token,"("))  return(es=5);  //少左括号
	fscanf(fp,"%s %s\n",&token,&token1);
	printf("%s %s\n",token,token1);
	es=expression();
	if (es>0) return(es);
	if (strcmp(token,")"))  return(es=6); //少右括号
	label2=labelp++;
	fprintf(fout,"        BRF LABEL%d\n",label2);//输出假转移指令