pl0 c-code.txt

使用C语言实现的PL0编译器。 扩充了++ -- 以及添加注释功能

/* 设置指令名称 */  
strcpy(&(mnemonic[lit][0]),"lit");  
strcpy(&(mnemonic[opr][0]),"opr");  
strcpy(&(mnemonic[lod][0]),"lod");  
strcpy(&(mnemonic[sto][0]),"sto");  
strcpy(&(mnemonic[cal][0]),"cal");  
strcpy(&(mnemonic[inte][0]),"int");  
strcpy(&(mnemonic[jmp][0]),"jmp");  
strcpy(&(mnemonic[jpc][0]),"jpc");  

/* 设置符号集 */  
for(i=0;i<symnum;i++)  
{  
declbegsys[i]=false;  
statbegsys[i]=false;  
facbegsys[i]=false;  
}  

/* 设置声明开始符号集 */  
declbegsys[constsym]=true;  
declbegsys[varsym]=true;  
declbegsys[procsym]=true;  

/* 设置语句开始符号集 */  
statbegsys[beginsym]=true;  
statbegsys[callsym]=true;  
statbegsys[ifsym]=true;  
statbegsys[whilesym]=true;  

/* 设置因子开始符号集 */  
facbegsys[ident]=true;  
facbegsys[number]=true;  
facbegsys[lparen]=true;  
}  

/* 用数组实现集合的集合运算 */  
int inset(int e,bool* s)  
{  
return s[e];  
}  

int addset(bool* sr,bool* s1,bool* s2,int n)  
{  
int i;  
for(i=0;i<n;i++)  
{  
sr[i]=s1[i]||s2[i];  
}  
return 0;  
}  

int subset(bool* sr,bool* s1,bool* s2,int n)  
{  
int i;  
for(i=0;i<n;i++)  
{  
sr[i]=s1[i]&&(!s2[i]);  
}  
return 0;  
}  

int mulset(bool* sr,bool* s1,bool* s2,int n)  
{  
int i;  
for(i=0;i<n;i++)  
{  
sr[i]=s1[i]&&s2[i];  
}  
return 0;  
}  

/* 供getsym取一个字符，每次读一行，存入line缓冲区，line被getsym取空时 再读一行*/  
int getch()  
{  
if(cc==ll)  
{  
if(feof(fin))  
{  
printf("program incomplete");  
return -1;  
}  
ll=0;  
cc=0;  
printf("%d ",cx);  
fprintf(fa1,"%d ",cx);  
ch=' ';  
while(ch!=10)  
{  
fscanf(fin,"%c",&ch);  
printf("%c",ch);  
fprintf(fa1,"%c",ch);  
line[ll]=ch;  
ll++;  
}  

printf("\n");  
fprintf(fa1,"\n");  
}  
ch=line[cc];  
cc++;  
return 0;  
}  

/* 生成一项名字表 */  
void enter(enum object k, /* 名字种类const,var or procedure */  
   int* ptx, /* 名字表尾指针的指针，为了可以改变名字表尾指针的值，以后所有的ptx都是这样 */  
   int lev, /* 名字所在的层次,，以后所有的lev都是这样 */  
   int* pdx /* dx为当前应分配的变量的相对地址，分配后要增加1，所以使用指针，以后所有的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 */  
int postion(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); /* var后应是标识 */  
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) /* 参数意义见block和enter函数 */  
{  
int i,cx1,cx2;  
bool nxtlev[symnum]; /*　意义见block函数 */  

if(sym==ident) /* 准备按照赋值语句处理 */  
{  
i=postion(id,*ptx);  
if(i==0)error(11); /* 变量未找到 */  
else  
{  
if(table[i].kind!=variable)  
{  
error(12); /* 赋值语句格式错误 */  
i=0;  
}  
}  
getsymdo;  
if(sym==becomes)   
{  
getsymdo;  
}  
else error(13); /* 检测赋值符号 */  
memcpy(nxtlev,fsys,sizeof(bool)*symnum);  
expressiondo(nxtlev,ptx,lev); /* 处理赋值符号右侧表达式 */  
if(i!=0)  
{  
gendo(sto,lev-table[i].level,table[i].adr); /* expression将执行一系列指令，但最终结果将会保存在栈顶，执行sto命令完成赋值 */  
}  
}  
else  
{  
if(sym==readsym) /* 准备按照read语句处理 */  
{  
getsymdo;  
if(sym!=lparen)error(34); /* 格式错误，应是左括号 */  
else  
{  
do  
{  
getsymdo;  
if(sym==ident)i=postion(id,*ptx); /* 查找要读的变量 */  
else i=0;  
if(i==0)error(35); /* read()中应是声明过的变量名 */  
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;  
}  
}  
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语句处理 */  
{  
getsymdo;  
if(sym!=ident)error(14); /* call后应为标识符 */  
else  
{  
i=postion(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;  
}  
}  
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); /* 处理then后的语句 */  
code[cx1].a=cx; /* 经statement处理后，cx为then后语句执行完的位置，它正是前面未定的跳转地址 */  
}  
else  
{  
if(sym==beginsym) /* 准备按照复合语句处理 */  
{  
getsymdo;  
memcpy(nxtlev,fsys,sizeof(bool)*symnum);  
nxtlev[semicolon]=true;  
nxtlev[endsym]=true; /* 后跟符号为分号或end */  

/* 循环调用语句处理函数，直到下一个符号不是语句开始符号或收到end */  
statementdo(nxtlev,ptx,lev);  
while(inset(sym,statbegsys)||sym==semicolon)   
{  
if(sym==semicolon)  
{  
getsymdo;  
}  
else error(10); /* 缺少； */  
statementdo(nxtlev,ptx,lev);  
}  
if(sym==endsym)   
{  
getsymdo;  
}  
else error(17); /* 缺少end或； */  
}  
else  
{  
if(sym==whilesym) /* 准备按照while语句处理 */  
{  
cx1=cx; /* 保存判断条件操作的位置 */  
getsymdo;  
memcpy(nxtlev,fsys,sizeof(bool)*symnum);  
nxtlev[dosym]=true; /* 后跟符号为do */  
conditiondo(nxtlev,ptx,lev); /* 调用条件处理 */  
cx2=cx; /* 保存循环体的结束的下一个位置 */  
gendo(jpc,0,0); /* 生成条件跳转，但跳出循环的地址未知 */  
if(sym==dosym)  
{  
getsymdo;  
}  
else error(18); /* 缺少do */  
statementdo(fsys,ptx,lev); /* 循环体 */  
gendo(jmp,0,cx1); /* 回头重新判断条件 */  
code[cx2].a=cx; /* 反填跳出循环的地址，与if类似 */  
}  
memset(nxtlev,0,sizeof(bool)*symnum); /* 语句结束无补救集合 */  
testdo(fsys,nxtlev,19); /* 检测语句结束的正确性 */  
}  
}  
}  
}  
}  
}  

return 0;  
}  

/* 表达式处理 */  
int expression(bool* fsys,int* ptx,int lev) /* 参数意义见block和enter函数 */  
{  
enum symbol addop; /* 用于保存正负号 */  
bool nxtlev[symnum];  

if(sym==plus||sym==minus) /* 开头的正负号，此时当前表达式被看作一个正的或负的项 */  
{  
addop=sym; /* 保存开头的正负号 */  
getsymdo;  
memcpy(nxtlev,fsys,sizeof(bool)*symnum);  
nxtlev[plus]=true;  
nxtlev[minus]=true;  
termdo(nxtlev,ptx,lev); /* 处理项 */  
if(addop==minus)gendo(opr,0,1); /* 如果开头为负号生成取负指令 */  
}  
else /* 此时表达式被看作项的加减 */  
{  
memcpy(nxtlev,fsys,sizeof(bool)*symnum);  
nxtlev[plus]=true;  
nxtlev[minus]=true;  
  
  
   
 作者： 218.195.225.*  2006-6-13 18:37 　 回复此发言     
  
-------------------------------------------------------------------------------- 
  
9 源代码[吧主不要删掉]   
 termdo(nxtlev,ptx,lev); /* 处理项 */  
}  
while(sym==plus||sym==minus)  
{  
addop=sym;  
getsymdo;  
memcpy(nxtlev,fsys,sizeof(bool)*symnum);  
nxtlev[plus]=true;  
nxtlev[minus]=true;  
termdo(nxtlev,ptx,lev); /* 处理项 */  
if(addop==plus)  
{  
gendo(opr,0,2); /* 生成加法指令 */  
}  
else gendo(opr,0,3); /* 生成减法指令 */  
}  
return 0;  
}  

/* 条件处理 */  
int condition(bool* fsys,int* ptx,int lev) /* 参数意义见block和enter函数 */  
{  
enum symbol relop;  
bool nxtlev[symnum];  
if(sym==oddsym) /* 准备按照odd运算处理 */  
{  
getsymdo;  
expressiondo(fsys,ptx,lev);  
gendo(opr,0,6); /* 生成odd指令 */  
}  
else  
{  
/* 逻辑表达式处理 */  
memcpy(nxtlev,fsys,sizeof(bool)*symnum);  
nxtlev[eql]=true;nxtlev[neq]=true;  
nxtlev[lss]=true;nxtlev[leq]=true;  
nxtlev[gtr]=true;nxtlev[geq]=true;  
expressiondo(nxtlev,ptx,lev);   
if(sym!=eql&&sym!=neq&&sym!=lss&&sym!=leq&&sym!=gtr&&sym!=geq)error(20);  
else  
{  
relop=sym;  
getsymdo;  
expressiondo(fsys,ptx,lev);  
switch(relop)   
{  
case eql:  
gendo(opr,0,8);  
break;  
case neq:  
gendo(opr,0,9);  
break;  
case lss:  
gendo(opr,0,10);  
break;  
case geq:  
gendo(opr,0,11);  
break;  
case gtr:  
gendo(opr,0,12);  
break;  
case leq:  
gendo(opr,0,13);  
break;  
}  
}  
}  
return 0;  
}  

/* 项处理 */  
int term(bool* fsys,int* ptx,int lev) /* 参数意义见block和enter函数 */  
{  
enum symbol mulop; /* 用于保存乘除法符号 */  
bool nxtlev[symnum];  

memcpy(nxtlev,fsys,sizeof(bool)*symnum);  
nxtlev[times]=true;  
nxtlev[slash]=true;  
factordo(nxtlev,ptx,lev); /* 处理因子 */  
while(sym==times||sym==slash)  
{  
mulop=sym;  
getsymdo;  
factordo(nxtlev,ptx,lev);  
if(mulop==times)  
{  
gendo(opr,0,4); /* 生成乘法指令 */  
}  
else  
{  
gendo(opr,0,5); /* 生成除法指令 */  
}  
}  
return 0;  
}  

/* 因子处理 */  
int factor(bool* fsys,int* ptx,int lev) /* 参数意义见block和enter函数 */  
{  
int i;  
bool nxtlev[symnum];  
testdo(facbegsys,fsys,24); /* 检测因子的开始符号 */  
while(inset(sym,facbegsys)) /* 循环直到不是因子开始符号 */  
{  
if(sym==ident) /* 因子为常量或变量 */  
{  
i=postion(id,*ptx); /* 查找名字 */  
if(i==0)error(11); /* 名字未声明 */  
else  
{  
switch(table[i].kind)  
{  
case constant: /* 名字为常量 */  
gendo(lit,0,table[i].val); /* 直接把常量的值入栈 */  
break;  
case variable: /* 名字为变量 */  
gendo(lod,lev-table[i].level,table[i].adr); /* 找到变量地址并将其值入栈 */  
break;  
case procedur: /* 名字为过程 */  
error(21); /* 不能为过程 */  
break;  
}  
}  
getsymdo;  
}  
else  
{  
if(sym==number) /* 因子为数 */  
{  
if(num>amax)  
{  
error(31);  
num=0;  
}  
gendo(lit,0,num);  
getsymdo;  
}  
else  
{  
if(sym==lparen) /* 因子为表达式 */  
{  
getsymdo;  
memcpy(nxtlev,fsys,sizeof(bool)*symnum);  
nxtlev[rparen]=true;  
expressiondo(nxtlev,ptx,lev);  
if(sym==rparen)  
{  
getsymdo;  
}  
else error(22); /* 缺少右括号 */  
}  
test(fsys,facbegsys,23); /* 因子后有非法符号 */  
}  
}  
}  
return 0;  
}  

/* 通过过程基址求上l层过程的基址 */  
int base(int l,int* s,int b)  
{  
int b1;  
b1=b;  
while(l>0)  
{  
b1=s[b1];  
l--;  
}  
return b1;  
}