08pl0.cpp

C++扩展pl0编译

				}
				else
				{
					error(5); /*漏掉了逗号或者分号*/
				}
			}while(sym==ident);
		}
		if(sym==varsym)/*收到变量声名符号，开始处理变量声名*/
		{
			getsymdo;
			do{
				vardeclarationdo(&tx,lev,&dx);
				while(sym==comma)
				{
					getsymdo;
					vardeclarationdo(&tx,lev,&dx);
				}
				if(sym==semicolon)
				{
					getsymdo;
				}
				else
				{
					error(5);
				}
			}while(sym==ident);
		}
		while(sym==procsym)/*收到过程声名符号，开始处理过程声名*/
		{
			getsymdo;
			if(sym==ident)
			{
				enter(procedur,&tx,lev,&dx);/*记录过程名字*/
				getsymdo;
			}
			else
			{
				error(4);/*procedure后应为标识符*/
			}
			if(sym==semicolon)
			{
				getsymdo;
			}
			else
			{
				error(5);/*漏掉了分号*/
			}
			memcpy(nxtlev,fsys,sizeof(bool)*symnum);
			nxtlev[semicolon]=true;
			if(-1==block(lev+1,tx,nxtlev))
			{
				return -1;/*递归调用*/
			}
            if(sym==semicolon)
            {
                getsymdo;
                memcpy(nxtlev,statbegsys,sizeof(bool)*symnum);
                nxtlev[ident]=true;
                nxtlev[procsym]=true;
                testdo(nxtlev,fsys,6);
             }
             else
             {
                 error(5);                       /*漏掉了分号*/
             }
        }
        memcpy(nxtlev,statbegsys,sizeof(bool)*symnum);
        nxtlev[ident]=true;
        nxtlev[period]=true;
        testdo(nxtlev,declbegsys,7);
    }while(inset(sym,declbegsys));                /*直到没有声明符号*/
    code[table[tx0].adr].a=cx;                    /*开始生成当前过程代码*/
    table[tx0].adr=cx;                            /*当前过程代码地址*/
    table[tx0].size=dx;                           /*声明部分中每增加一条声明都会给dx增加1,声明部分已经结束,dx就是当前过程数据的size*/
        
    cx0=cx;
    gendo(inte,0,dx);                             /*生成分配内存代码*/
    if(tableswitch)                               /*输出名字表*/
    {
        printf("TABLE:\n");
        if(tx0+1>tx)
        {
			printf("NULL\n");
        }
        for(i=tx0+1;i<=tx;i++)
        {
            switch(table[i].kind)
            {
                case constant:
					printf("%d const %s ",i,table[i].name);
					printf("val=%d\n",table[i].val);
					fprintf(fas,"%d const %s ",i,table[i].name);
					fprintf(fas,"val=%d\n",table[i].val);
                    break;
                case variable:
                    printf("%d var %s ",i,table[i].name);
                    printf("lev=%d addr=%d\n",table[i].level,table[i].adr);
                    fprintf(fas,"%d var %s",i,table[i].name);
                    fprintf(fas,"lev=%d addr=%d\n",table[i].level,table[i].adr);
                    break;
                case procedur:
                    printf("%d proc %s ",i,table[i].name);
                    printf("lev=%d addr=%d size=%d\n",table[i].level,table[i].adr,table[i].size);
					fprintf(fas,"%d proc %s",i,table[i].name);
					fprintf(fas,"lev=%d adr=%d size=%d \n",table[i].level,table[i].adr,table[i].size);
					break;
			}
		}
		printf("\n");
	}
	/*语句后跟符号为分号或end*/
	memcpy(nxtlev,fsys,sizeof(bool)*symnum);/*每个后跟符号集和都包含上层后跟符号集和，以便补救*/
	nxtlev[semicolon]=true;
	nxtlev[endsym]=true;
	statementdo(nxtlev,&tx,lev);
	gendo(opr,0,0); /*每个过程出口都要使用的释放数据段命令*/
	memset(nxtlev,0,sizeof(bool)*symnum); /*分程序没有补救集合*/
	test(fsys,nxtlev,8);                  /*检测后跟符号正确性*/
	listcode(cx0);                        /*输出代码*/
	return 0;
}
/*
*在名字表中加入一项
*
*k:名字种类const,var or procedure
*ptx:名字表尾指针的指针，为了可以改变名字表尾指针的数值
*lev:名字所在的层次，以后所有的lev都是这样
*pdx:为当前应分配的变量的相对地址，分配后要增加1
*/
void enter(enum object k,int *ptx,int lev, int *pdx)
{
	(*ptx)++;
	strcpy(table[(*ptx)].name,id);       /*全局变量id中已存有当前名字的名字*/
	table[(*ptx)].kind=k;
	switch(k)
	{
		case constant:                      /*常量名字*/
			if (num>amax)
			{
				error(31);
				num=0;
			}
			table[(*ptx)].val=num;
			break;
		case variable:                     /*变量名字*/
			table[(*ptx)].level=lev;
			table[(*ptx)].adr=(*pdx);
			(*pdx)++;
			break;                          /*过程名字*/
		case procedur:
			table[(*ptx)].level=lev;
			break;
	}

}
/*
 *查找名字的位置
 *找到则返回在名字表中的位置，否则返回0
 *
 *idt: 要查找的名字
 *tx:：当前名字表尾指针
 */
int position(char *  idt,int  tx)
{
	int i;
	strcpy(table[0].name,idt);
	i=tx;
	while(strcmp(table[i].name,idt)!=0)
	{
		i--;
	}
	return i;
}
/*
 *常量声明处理
 */
int constdeclaration(int *  ptx,int lev,int *  pdx)
{
	if(sym==ident)
	{
		getsymdo;
		if(sym==eql ||sym==becomes)
		{
			if(sym==becomes)
			{
				error(1);                     /*把=写出成了：=*/
			}
			getsymdo;
			if(sym==number)
			{
				enter(constant,ptx,lev,pdx);
				getsymdo;
			}
			else
			{
				error(2);                  /*常量说明=后应是数字*/
			}         
		}
		else
		{
			error(3);                       /*常量说明标识后应是=*/
		}
	}
	else
	{
		error(4);                        /*const后应是标识*/
	}
	return 0;
}
/*
 *
 */
int vardeclaration(int * ptx,int lev,int * pdx)
{
	if(sym==ident)
 	{
 		enter(variable,ptx,lev,pdx);//填写名字表
 		getsymdo;
 	}
 	else
 	{
 		error(4);
    }
    return 0;
}
 /*
  *输入目标代码清单
  */
void listcode(int cx0)
{
	int i;
   	if (listswitch)
   	{
   		for(i=cx0;i<cx;i++)
   	 	{
   	 		printf("%d %s %d %d\n",i,mnemonic[code[i].f],code[i].l,code[i].a);
   	 		fprintf(fa,"%d %s %d %d\n",i,mnemonic[code[i].f],code[i].l,code[i].a);
   	    }
   	 }
}
/*
*语句处理
*/
int statement(bool* fsys,int * ptx,int lev)
{
	int i,cx1,cx2,k,ptx2;
   	bool nxtlev[symnum];
	switch(sym)
	{
	case ident:   /*准备按照表达式语句处理*/
		i=position(id,*ptx);
		if(i==0)
   	 	{
   	 		error(11);
   	 	}
   	 	else
   	 	{
			if(table[i].kind!=variable)
   	 		{
				error(12);
   	 		 	i=0;
   	 		}
   	 		else
   	 		{
   	 			getsymdo;
				switch(sym)
				{
				case becomes:         /* 解释:=语句 */
					getsymdo;
					memcpy(nxtlev,fsys,sizeof(bool)* symnum);
					expressiondo(nxtlev,ptx,lev);
					break;

				case incsym:           /* 解释++语句 */
					gendo(lod,lev-table[i].level,table[i].adr);
					gendo(lit,0,1);
					gendo(opr,0,2);  /*执行加法运算*/
					getsymdo;
					break;
					
				case decsym:           /* 解释--语句 */
					gendo(lod,lev-table[i].level,table[i].adr);
					gendo(lit,0,1);  
					gendo(opr,0,3);   /*执行减法运算*/
					getsymdo;
					break;

				case plueql:           /* 解释+=语句 */
					gendo(lod,lev-table[i].level,table[i].adr);
					getsymdo;
					memcpy(nxtlev,fsys,sizeof(bool)* symnum);
					expressiondo(nxtlev,ptx,lev);
					gendo(opr,0,2);  /*执行加法运算*/
					break;

				case mineql:          /* 解释-=语句 */
					gendo(lod,lev-table[i].level,table[i].adr);
					getsymdo;
					memcpy(nxtlev,fsys,sizeof(bool)* symnum);
					expressiondo(nxtlev,ptx,lev);
					gendo(opr,0,3);  /*执行减法运算*/
					break;

				case muleql:        /* 解释*=语句 */
					gendo(lod,lev-table[i].level,table[i].adr);
					getsymdo;
					memcpy(nxtlev,fsys,sizeof(bool)* symnum);
					expressiondo(nxtlev,ptx,lev);
					gendo(opr,0,4);  /*执行乘法运算*/
					break;

				case diveql:        /* 解释/=语句 */
					gendo(lod,lev-table[i].level,table[i].adr);
					getsymdo;
					memcpy(nxtlev,fsys,sizeof(bool)* symnum);
					expressiondo(nxtlev,ptx,lev);
					gendo(opr,0,5);   /*执行除法运算*/
					break;
						
				default:
					error(8);
					break;
				}
									
   	 			if(i!=0)
   	 			{
   	 			 	gendo(sto,lev-table[i].level,table[i].adr);
   	 			}
   	 	    }
   		}
		break;

	case readsym:      /*准备按照read语句处理*/ 
		getsymdo;
		if(sym!=lparen)
		{
			error(34);
		}
    	else
		{
    	   	do{
				getsymdo;
    	   	   	if(sym==ident)
    	   	   	{
    	   	   	  	i=position(id, *ptx);
    	   	   	}
    	   	   	else
    	   	   	{
    	   	   	  	i=0;
    	   	   	}
    	   	   	if(i==0)
    	   	   	{
    	   	   	 	error(35);
    	   	   	}
    	   	   	else
    	   	   	{
    	   	   		gendo(opr,0,16);
					gendo(sto,lev-table[i].level,table[i].adr);	/* 储存到变量*/
				}
				getsymdo;
			}while (sym==comma);	/*一条read语句可读多个变量 */
		}
		if(sym!=rparen)
		{
			error(33);			/* 格式错误，应是右括号*/
			while(!inset(sym,fsys))/* 出错补救，直到收到上层函数的后跟符号*/
			{
				getsymdo;
			}
		}
		else
		{
			getsymdo;
		}
		break;

	case writesym:     /* 准备按照write语句处理，与read类似*/
		getsymdo;
		if(sym==lparen)
		{
			do{
				getsymdo;
				memcpy(nxtlev,fsys,sizeof(bool)*symnum);
				nxtlev[rparen]=true;
				nxtlev[comma]=true;		/* write的后跟符号为）or，*/
				expressiondo(nxtlev,ptx,lev);/* 调用表达式处理，此处与read不同，read为给变量赋值*/
				gendo(opr,0,14);/* 生成输出指令，输出栈顶的值*/
			}while(sym==comma);
			if(sym!=rparen)
			{
				error(33);/* write()应为完整表达式*/
			}
			else
			{
				getsymdo;
			}
		}
		gendo(opr,0,15);		/* 输出换行*/
		break;

	case callsym:      /* 准备按照call语句处理*/
		getsymdo;
		if(sym!=ident)
		{
			error(14);           /*call后应为标识符*/
		}
		else
		{
			i=position(id,*ptx);
			if(i==0)
			{
				error(11);          /*过程未找到*/
			}
			else
			{
				if(table[i].kind==procedur)
				{
					gendo(cal,lev-table[i].level,table[i].adr);  /*生成call指令*/
				}
				else
				{
					error(15);      /*call后标识符应为过程*/
				}
			}
			getsymdo;
		}
		break;

	case ifsym:    /*准备按照if语句处理*/
		getsymdo;
		memcpy(nxtlev,fsys,sizeof(bool)*symnum);
		nxtlev[thensym]=true;
		nxtlev[dosym]=true;    /*后跟符号为then或do*/
		conditiondo(nxtlev,ptx,lev);   /*调用条件处理（逻辑运算）函数*/
		if(sym==thensym)
		{
			getsymdo;
		}
		else
		{
			error(16);          /*缺少then*/
		}
		cx3[ifi++]=cx;                /*保存当前指令地址,cx3为一个全局变量的数组*/
		gendo(jpc,0,0);              /*生成条件跳转指令，跳转地址暂写0*/
		statementdo(fsys,ptx,lev);   /*处理then后的语句*/
		code[cx3[--ifi]].a=cx;      /*经statement处理后，cx为then后语句执行
                                                    完的位置，它正是前面未定的跳转地址*/
		break;

	case elsesym:     /*准备按照else语句处理*/
		getsymdo;
		code[cx3[ifi]].a=code[cx3[ifi]].a+1;  /*如果有else语句,当if条件为假,则跳转执行else后的语句*/
		cx4[elsei++]=cx;       /*保存当前指令地址,cx4为一个全局变量的数组*/
		gendo(jmp,0,0);        /*生成无条件跳转指令，跳转地址暂写0*/
		statementdo(fsys,ptx,lev);   /*处理else后的语句*/
		for(k=0;k<elsei;k++)
		{
			code[cx4[k]].a=cx;    /*经statement处理后,cx为整个if语句执行完的位置的下一个位置*/
		}
		break;

	case forsym:   /*准备按照for语句处理*/
		getsymdo;
		if(sym==ident)
		{
			i=position(id,*ptx);
			if(i==0)
			{
				error(11);    /*变量未找到*/
			}
			else
			{
				if(table[i].kind!=variable) 
				{
					error(12);   /*赋值语句格式错误*/
					i=0;
				}
				else
				{
					getsymdo;
					if(sym==becomes)
					{
						getsymdo;
					}
					else
					{
						error(13);   /*没有检测到赋值符号*/
					}
					memcpy(nxtlev,fsys,sizeof(bool)*symnum);
					nxtlev[tosym]=true;
					nxtlev[downtosym]=true; /*后跟符号为to或downto*/
					expressiondo(nxtlev,ptx,lev); /*处理赋值符号右侧表达式*/
					if(i!=0)
					{
						gendo(sto,lev-table[i].level,table[i].adr); /*保存初值*/
					}
					switch(sym)
					{
					case tosym:  /*循环变量逐渐增大*/
						getsymdo;
						cx1=cx;   /*保存循环变值跟终值进行比较操作的有关位置*/
						gendo(lod,lev-table[i].level,table[i].adr); /*将循环变值入栈*/
						memcpy(nxtlev,fsys,sizeof(bool)*symnum);
						nxtlev[dosym]=true;  /*后跟符号为do*/
						expressiondo(nxtlev,ptx,lev); /*调用终值的表达式处理*/
						gendo(opr,0,13);   /*判断循环变量是否小于等于终值*/
						cx2=cx;   /*保存循环体结束的下一个位置*/
						gendo(jpc,0,0); /*生成条件跳转,但跳出循环的地址未知*/
						if(sym==dosym)  /*步长为1*/
						{
							getsymdo;
							statementdo(fsys,ptx,lev);   /*循环体*/
							gendo(lod,lev-table[i].level,table[i].adr);
							gendo(lit,0,1);
							gendo(opr,0,3);
							gendo(sto,lev-table[i].level,table[i].adr); /*循环变量加1*/
							gendo(jmp,0,cx1);  /*回头重新判断条件*/
							code[cx2].a=cx;    /*回填跳出循环的地址*/
						}
						else
							if(sym==stepsym)  /*步长不为1*/
							{
								getsymdo;
								gendo(inte,0,1);  /*开辟一个新的空间存放步长的值*/
								expressiondo(nxtlev,ptx,lev);
								ptx2=*ptx;
								while(table[ptx2].kind !=variable)  /*寻找最后一个在声明语句中定义的变量*/
								{
									ptx2--;
								}
								gendo(sto,0,table[ptx2].adr+1);  /*把"表达式"结果保存在新开辟的空间,即之前最后一个变量的下一个地址*/
								if(sym==dosym)
								{
									getsymdo;
									statementdo(fsys,ptx,lev);
									gendo(lod,lev-table[i].level,table[i].adr);
									gendo(lod,0,table[ptx2].adr+1);  /*取出步长的值*/
									gendo(opr,0,2);
									gendo(sto,lev-table[i].level,table[i].adr); /*循环变量加上步长的值*/
									gendo(jmp,0,cx1);  /*回头重新判断条件*/
									code[cx2].a=cx;    /*回填跳出循环的地址*/
								}
								else
								{
									error(18);  /*语句中丢了"do"*/
								}								
							}
							else
							{
								error(18);  /* 语句中丢了"do" */
							}
						break;

					case downtosym:     /*循环变量逐渐减少*/