📄 pl0c.cpp
字号:
int i = position(procname,tx);
table[i].paramcount = paramcount;
}
do{
if(sym==constsym) /*收到常量声明符号，开始处理常量声明*/
{
getsymdo;
do{
constdeclarationdo(&tx,lev,&dx); /*dx的值会被constdeclaration改变，使用
指针*/
while(sym==comma)
{
getsymdo;
constdeclarationdo(&tx,lev,&dx);
}
if(sym==semicolon)
{
getsymdo;
}
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)
{
getsymdo;
}
else
{
error(4); /*procedure后应为标识符*/
}
if(sym==semicolon)
{
enter(procedur,&tx,lev,&dx,id); /*记录过程名字*/
getsymdo;
}
else
{
if (sym==lparen)
{
int j = position(id,tx);
procname = table[j].name;
enter(procedur,&tx,lev,&dx,procname); /*记录过程名字*/
}
}
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 arr:
printf(" %d arr %s ",i,table[i].name);
printf("lev=%d addr=%d size=%d startid=%d\n",table[i].level,table[i].adr,table[i].size,table[i].startid);
fprintf(fas," %d arr %s ",i,table[i].name);
fprintf(fas,"lev=%d addr=%d size=%d startid=%d\n",table[i].level,table[i].adr,table[i].size,table[i].startid);
break;
case param:
printf(" %d param %s ",i,table[i].name);
printf("lev=%d addr=%d\n",table[i].level,table[i].adr);
fprintf(fas," %d param %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 paramcount=%d\n",table[i].level,table[i].adr,table[i].size,table[i].paramcount);
fprintf(fas," %d proc %s ",i,table[i].name);
fprintf(fas,"lev=%d adr=%d size=%d paramcount=%d\n",table[i].level,table[i].adr,table[i].size,table[i].paramcount);
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,char * idt)
{
(*ptx)++;
strcpy(table[(*ptx)].name,idt); /*全局变量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);
break;
case arr:
table[(*ptx)].level=lev;
table[(*ptx)].adr=(*pdx);
break;
/*过程名字*/
case param:
table[(*ptx)].level=lev;
table[(*ptx)].adr=(*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,id);
getsymdo;
}
else
{
error(2); /*常量说明=后应是数字*/
}
}
else
{
error(3); /*常量说明标识后应是=*/
}
}
else
{
error(4); /*const后应是标识*/
}
return 0;
}
//-----------------------------------------------------------------------------
/*
*变量声明处理
*/
int vardeclaration(int * ptx,int lev,int * pdx)
{
if(sym==ident)
{
// 填写名字表并改变堆栈帧计数器
int startid=0,endid=0;
enter(variable,ptx,lev,pdx,id);//填写名字表
(*pdx)++;
getsymdo;
if (sym==lparen){
getsymdo;
switch(sym){
case ident:
startid = table[position(id,*ptx)].val;
break;
case number:
startid = num;
break;
case plus:
getsymdo;
startid=num;
break;
case minus:
getsymdo;
startid=-num;
break;
}
table[(*ptx)].adr = table[(*ptx)].adr-startid;
table[(*ptx)].startid = startid;
getsymdo;
if(sym != colon){
error(30);
}
else{
getsymdo;
switch(sym){
case ident:
endid=table[position(id,*ptx)].val;
table[(*ptx)].size=endid-startid+1;
break;
case number:
endid=num+1;
table[(*ptx)].size=endid-startid+1;
break;
case plus:
getsymdo;
endid=num+1;
table[(*ptx)].size=endid-startid+1;
break;
case minus:
getsymdo;
endid=-num+1;
table[(*ptx)].size=endid-startid+1;
break;
}
table[(*ptx)].kind=arr;
(*pdx) = (*pdx) + endid-startid+1; //计算数组中的各自dx
getsymdo;
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;
bool nxtlev[symnum],nxtlev1[symnum],nxtlev2[symnum];
switch(sym)
{
case ident:
{
i=position(id,*ptx);
if (i > 0) {
if (table[i].kind == variable) {
getsymdo;
if (sym == becomes){
getsymdo;
memcpy(nxtlev,fsys,sizeof(bool)*symnum);
expressiondo(nxtlev, ptx,lev);
// parseExpression将产生一系列指令，但最终结果将会保存在栈顶，执行sto命令完成赋值
gendo(sto, lev - table[i].level, table[i].adr);
}
else{
if(sym == addbecomes||sym == minbecomes
||sym==mulbecomes||sym==divbecomes){
sym1 = sym;
getsymdo;
if(sym == ident){
int j = position(id,*ptx);
gendo(lod, lev - table[i].level, table[i].adr);
gendo(lod, lev - table[j].level, table[j].adr);
switch(sym1){
case addbecomes:
gendo(opr, 0, 2);
break;
case minbecomes:
gendo(opr, 0, 3);
break;
case mulbecomes:
gendo(opr, 0, 4);
break;
case divbecomes:
gendo(opr, 0, 5);
break;
}
gendo(sto, lev - table[i].level, table[i].adr);
getsymdo;
}
}
else
if (sym == lparen){ // 数组啦...
getsymdo;
memcpy(nxtlev,fsys,sizeof(bool)*symnum);
expressiondo(nxtlev, ptx, lev);
// parseExpression将产生一系列指令，但最终结果将会保存在栈顶，执行sto命令完成赋值
//在expression最后已经有这个了:nextSym(); //一个)
getsymdo; //一个:=
//后面和var赋值相同,除了最后生成的语句
getsymdo;
memcpy(nxtlev,fsys,sizeof(bool)*symnum);
expressiondo(nxtlev, ptx, lev);
// parseExpression将产生一系列指令，但最终结果将会保存在栈顶，执行sto命令完成赋值
gendo(sta, lev - table[i].level, table[i].adr);
}
else{
error(13); // 没有检测到赋值符号
}
}
} else {
error(12); // 赋值语句格式错误
}
} else {
error(11); // 变量未找到
}
}
break;
case addsym:
getsymdo;
if(sym == ident){
int i = position(id,*ptx);
gendo(lod, lev - table[i].level, table[i].adr);
gendo(lit, 0, 1);
gendo(opr, 0, 2);
gendo(sto, lev - table[i].level, table[i].adr);
getsymdo;
statementdo(fsys,ptx,lev);
}
break;
case minsym:
getsymdo;
if(sym == ident){
int i = position(id,*ptx);
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);
getsymdo;
statementdo(fsys,ptx,lev);
}
break;
case readsym:
{
getsymdo;
if(sym!=lparen)
{
error(34);
}
else
{
do{
getsymdo;
if(sym==ident)
{
i=position(id, *ptx);
}
else
{
i=0;
}
if(i==0)
{
error(27);
}
else
{
if (table[i].kind == constant||table[i].kind == procedur) {
error(32); // read()中的标识符不是变量
} else {
getsymdo;
if (sym!=lparen){ //非数组,即变量
gendo(opr, 0, 16);
gen(sto, lev-table[i].level, table[i].adr);
}
else { //TODO 数组
getsymdo;
memcpy(nxtlev,fsys,sizeof(bool)*symnum);
nxtlev[rparen]=true;
expressiondo(nxtlev, ptx, lev);
int ltmp= lev-table[i].level;
int adrtmp= table[i].adr;
gendo(arrcheck,table[i].startid,table[i].size);
gendo(jpc,0,0);
gendo(opr,0,16);
gendo(sta,ltmp ,adrtmp);
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) {
i = position(id,*ptx);
if (i == 0) {
error(11); // 过程未找到或该标识符未说明
} else {
if (table[i].kind == procedur){
getsymdo;
if(sym == lparen){
getsymdo;
do{
if(sym == ident){
int m = position(id,*ptx);
if (m == 0){
error(11);
} else {
if (table[m].kind == variable){
gendo(lod,lev - table[m].level, table[m].adr);
getsymdo;
}else
error(15);
}
}
while (sym == comma)
{
getsymdo;
}
}while (sym == ident);
if(sym == rparen){
getsymdo;
}else{
error(22);
}
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -