📄 pl0.cpp
字号:
getsymdo;
if(sym==lparen)
{
getsymdo;
if(sym==varsym)
{
while(sym==varsym)
{
getsymdo;
if(sym==ident)
{
strcpy(pnow[prodn].id,id);
prodn++;
getsymdo;
if(sym==comma||sym==rparen)
{
getsymdo;
}
else
{
error(5);
}
}
else
{
error(5);
}
}
}
else if(sym==rparen)
{
getsymdo;
}
else
{
error(5);
}
}
}
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,else*/
memcpy(nxtlev,fsys,sizeof(bool)*symnum);/*每个后跟符号集和都包含上层后跟符号集和，以便补救*/
nxtlev[semicolon]=true;
nxtlev[endsym]=true;
nxtlev[elsesym]=true;
statementdo(nxtlev,&tx,lev,tx0,false);
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)
{
int i=0;
(*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)].size=1;
table[(*ptx)].drt=now.drt;
for(i=0;i<now.drt;i++)
{
table[(*ptx)].eachdrt[i]=now.eachdrt[i];
table[(*ptx)].size=table[(*ptx)].size*now.eachdrt[i];
}
table[(*ptx)].size=table[(*ptx)].size+now.drt;
table[(*ptx)].adr=(*pdx);
(*pdx)=(*pdx)+table[(*ptx)].size;
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)
{
now.drt=0;
getsymdo;
while(sym==lmparen)
{
getsymdo;
if(sym==number)
{
now.drt++;
now.eachdrt[now.drt-1]=num;
getsymdo;
if(sym==rmparen)
{
getsymdo;
}
else
{
error(33);
}
}
else
{
error(2);
}
}
enter(variable,ptx,lev,pdx);//填写名字表
}
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 dpm(bool *fsys,int i,int *ptx,int lev,int dowhat, bool point)
{
int j=0;
bool op=false;
if(sym==dplus||sym==dminus)
{
op=true;
}
while(sym==dplus||sym==dminus)
{
if(sym==dplus)
{
j++;
}
else if(sym==dminus)
{
j--;
}
getsymdo;
}
if(op==true)
{
if(-1==dowhat||1==dowhat)
{
if(sym==padsym)
{
getsymdo;
point=true;
}
if(sym==ident)
{
i=position(id,*ptx);
if(i==0)
{
error(11);
}
else
{
if(table[i].kind==constant||table[i].kind==procedur)
{
error(21);
}
else if(table[i].kind==variable)
{
countadr(fsys,ptx,lev,i);
ldst(lod,lev,i,point); /*找到变量地址并将其值入栈*/
}
}
}
else
{
error(22);
}
}
gendo(lit,0,j);
gendo(opr,0,2);
{
ldst(sto,lev,i,point);
}
if(dowhat>0)
{
ldst(lod,lev,i,point);
}
if(dowhat>1)
{
gendo(lit,0,j);
gendo(opr,0,3);
}
}
return 0;
}
int identbc(bool* fsys,int * ptx,int lev,int &cxstar, int &cxend,bool point)
{
int i,j;
bool nxtlev[symnum];
if(sym==padsym)
{
getsymdo;
if(sym!=ident)
{
error(21);
}
point=true;
}
i=position(id,*ptx);
if(i==0)
{
error(11);
}
else
{
if(table[i].kind!=variable)
{
error(12);
i=0;
}
else
{
cxstar=countadr(fsys,ptx,lev,i);
cxend=cx;
if(sym==becomes)
{
getsymdo;
j=position(id,*ptx);
if(j==0)
{
error(11);
}
if(table[j].kind==procedur)
{
int k=0;
if(table[j].retn==false)
{
printf("This procedure have no return value\n");
error(60);
}
getsymdo;
if(sym==lparen)
{
do
{
getsymdo;
expressiondo(nxtlev,ptx,lev);
k++;
}while(sym==comma);
if(sym==rparen)
{
getsymdo;
}
else
{
error(45);
}
}
if(k!=table[j].n)
{
printf("The parameter is not fit\n");
error(46);
}
gendo(cal,lev-table[j].level,j); /*生成call指令*/
memcpy(nxtlev,fsys,sizeof(bool)* symnum);
if(i!=0)
{
genrp(cxstar,cxend);
ldst(sto,lev,i,point);
}
for(k=0;k<table[j].n;k++)
{
gen(opr,0,7);
}
}
else
{
memcpy(nxtlev,fsys,sizeof(bool)* symnum);
expressiondo(nxtlev,ptx,lev);
if(i!=0)
{
genrp(cxstar,cxend);
ldst(sto,lev,i,point);
}
}
}
else if(sym==eplus)
{
getsymdo;
memcpy(nxtlev,fsys,sizeof(bool)* symnum);
expressiondo(nxtlev,ptx,lev);
if(i!=0)
{
genrp(cxstar,cxend);
ldst(lod,lev,i,point);
gendo(opr,0,2);
ldst(sto,lev,i,point);
}
}
else if(sym==eminus)
{
getsymdo;
memcpy(nxtlev,fsys,sizeof(bool)* symnum);
expressiondo(nxtlev,ptx,lev);
if(i!=0)
{
genrp(cxstar,cxend);
ldst(lod,lev,i,point);
gendo(opr,0,3);
gendo(opr,0,1);
ldst(sto,lev,i,point);
}
}
else if(sym==dplus||sym==dminus)
{
ldst(lod,lev,i,point);
dpm(fsys,i,ptx,lev,0,point);
}
else
{
error(13);
}
}
}
return i;
}
int statement(bool* fsys,int * ptx,int lev,int tx0, bool hreturn)
{
int i,cx1,cx2;
bool nxtlev[symnum];
if(sym==ident||sym==padsym)
{
int cxstar,cxend;
memcpy(nxtlev,fsys,sizeof(bool)* symnum);
identbc(nxtlev,ptx,lev,cxstar,cxend,false);
}
else
{
if(sym==readsym)
{
getsymdo;
if(sym!=lparen)
{
error(34);
}
else
{
bool point=false;
do{
getsymdo;
if(sym==padsym)
{
point=true;
getsymdo;
}
if(sym==ident)
{
i=position(id, *ptx);
}
else
{
i=0;
}
if(i==0)
{
error(35);
}
else
{
countadr(fsys,ptx,lev,i);
gendo(opr,0,16);
ldst(sto,lev,i,point);
}
}while (sym==comma); /*一条read语句可读多个变量 */
}
if(sym!=rparen)
{
error(33); /* 格式错误，应是右括号*/
while(!inset(sym,fsys))/* 出错补救，直到收到上层函数的后跟符号*/
{
getsymdo;
}
}
else
{
getsymdo;
}
}
else
{
if(sym==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); /* 输出换行*/
}
else
{
if(sym==callsym) /* 准备按照call语句处理*/
{
int k=0;
getsymdo;
if(sym!=ident)
{
error(14); /*call后应为标识符*/
}
else
{
i=position(id,*ptx);
if(i==0)
{
error(11); /*过程未找到*/
}
else
{
if(table[i].kind==procedur)
{
getsymdo;
if(sym==lparen)
{
do
{
getsymdo;
expressiondo(nxtlev,ptx,lev);
k++;
}while(sym==comma);
if(sym==rparen)
{
getsymdo;
}
else
{
error(45);
}
}
if(k!=table[i].n)
{
printf("The parameter is not fit\n");
error(46);
}
gendo(cal,lev-table[i].level,i); /*生成call指令*/
gen(opr,0,7);
for(k=0;k<table[i].n;k++)
{
gen(opr,0,7);
}
}
else
{
error(15); /*call后标识符应为过程*/
}
}
}
}
else
{
if(sym==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*/
}
cx1=cx; /*保存当前指令地址*/
gendo(jpc,0,0); /*生成条件跳转指令，跳转地址暂写0*/
statementdo(fsys,ptx,lev,tx0,hreturn); /*处理then后的语句*/
cx2=cx;
gendo(jmp,0,0);
code[cx1].a=cx; /*经statement处理后，cx为then后语句执行
完的位置，它正是前面未定的跳转地址*/
if(sym==elsesym)
{
getsymdo;
statementdo(fsys,ptx,lev,tx0,hreturn);
}
code[cx2].a=cx;
}
else
{
if(sym==beginsym) /*准备按照复合语句处理*/
{
getsymdo;
memcpy(nxtlev,fsys,sizeof(bool)*symnum);
nxtlev[semicolon]=true;
nxtlev[endsym]=true;/*后跟符号为分号或end*/
nxtlev[elsesym]=true;
/*循环调用语句处理函数，直到下一个符号不是语句开始符号或收到end*/
statementdo(nxtlev,ptx,lev,tx0,hreturn);
while(inset(sym,statbegsys)||sym==semicolon)
{
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -