📄 pl0c.cpp
字号:
/*
*制作者:LCcai
*使用方法:
*运行后输入PL/0 源程序文件名
*回答是否输出虚拟机代码
*回答是否输出名字表
*fa.tmp 输出虚拟机代码
*fa1.tmp 输出源文件及其各行对应的首地址
*fa2.tmp 输出结果
*fas.tmp 输出名字表
*/
#include<stdio.h>
#include"pl0c.h"
#include"string.h"
/*解释执行时使用的栈*/
#define stacksize 500
int main()
{
bool nxtlev[symnum];
printf("Input pl/0 file ?");
scanf("%s",fname); /*输入文件名*/
fin=fopen(fname,"r");
if(fin)
{
printf("List object code ?(Y/N)"); /*是否输出虚拟机代码*/
scanf("%s",fname);
listswitch=(fname[0]=='y'||fname[0]=='Y');
printf("List symbol table ? (Y/N)"); /*是否输出名字表*/
scanf("%s",fname);
tableswitch=(fname[0]=='y'||fname[0]=='Y');
fa1=fopen("fa1.tmp","w");
fprintf(fa1,"Iput pl/0 file ?");
fprintf(fa1,"%s\n", fname);
init(); /*初始化*/
err=0;
cc=cx=ll=0;
ch=' ';
if(-1!=getsym())
{
fa=fopen("fa.tmp","w");
fas=fopen("fas.tmp","w");
addset(nxtlev,declbegsys,statbegsys,symnum);
nxtlev[period]=true;
if(-1==block(0,0,nxtlev)) /*调用编译程序*/
{
fclose(fa);
fclose(fa1);
fclose(fas);
fclose(fin);
printf("\n");
return 0;
}
fclose(fa);
fclose(fa1);
fclose(fas);
if(sym!=period)
{
error(9);
}
if(err==0)
{
fa2=fopen("fa2.tmp", "w");
interpret();
fclose(fa2);
}
else
{
printf("Errors in pl/0 program");
}
}
fclose(fin);
}
else
{
printf("Can't open file! \n");
}
printf("\n");
return 0;
}
//-----------------------------------------------------------------------------
/*
*初始化
*/
void init()
{
int i;
for(i=0;i<=255;i++)
{
ssym[i]=nul;
}
ssym['(']=lparen;
ssym[')']=rparen;
ssym['=']=eql;
ssym[',']=comma;
ssym['.']=period;
ssym['#']=neq;
ssym[';']=semicolon;
/*设置保留字名字,按照字母顺序,便于折半查找*/
strcpy(&(word[0][0]),"begin");
strcpy(&(word[1][0]),"call");
strcpy(&(word[2][0]),"const");
strcpy(&(word[3][0]),"do");
strcpy(&(word[4][0]),"else");
strcpy(&(word[5][0]),"end");
strcpy(&(word[6][0]),"for");
strcpy(&(word[7][0]),"if");
strcpy(&(word[8][0]),"odd");
strcpy(&(word[9][0]),"procedure");
strcpy(&(word[10][0]),"read");
strcpy(&(word[11][0]),"repeat");
strcpy(&(word[12][0]),"then");
strcpy(&(word[13][0]),"until");
strcpy(&(word[14][0]),"var");
strcpy(&(word[15][0]),"while");
strcpy(&(word[16][0]),"write");
/*设置保留字符号*/
wsym[0]=beginsym;
wsym[1]=callsym;
wsym[2]=constsym;
wsym[3]=dosym;
wsym[4]=elsesym;
wsym[5]=endsym;
wsym[6]=forsym;
wsym[7]=ifsym;
wsym[8]=oddsym;
wsym[9]=procsym;
wsym[10]=readsym;
wsym[11]=repeatsym;
wsym[12]=thensym;
wsym[13]=untilsym;
wsym[14]=varsym;
wsym[15]=whilesym;
wsym[16]=writesym;
/*设置指令名称*/
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");
strcpy(&(mnemonic[lda][0]),"lda");
strcpy(&(mnemonic[sta][0]),"sta");
strcpy(&(mnemonic[lodpara][0]),"lodpara");
//strcpy(&(mnemonic[arrcheck][0]),"arrcheck");
/*设置符号集*/
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;
statbegsys[repeatsym]=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;
}
//-----------------------------------------------------------------------------
/*
*出错处理，打印出错位置和错误编码
*/
void error(int n)
{
char space[81];
memset(space,32,81); printf("-------%c\n",ch);
space[cc-1]=0;//出错时当前符号已经读完，所以cc-1
printf("****%s!%d\n",space,n);
err++;
}
//-----------------------------------------------------------------------------
/*
* 漏掉空格，读取一个字符
*
* 每次读一行，存入line缓冲区，line被getsym取空后再读一行
*
* 被函数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)
{
if(EOF==fscanf(fin,"%c",&ch))
{
line[ll]=0;
break;
}
printf("%c",ch);
fprintf(fa1,"%c",ch);
line[ll]=ch;
ll++;
}
printf("\n");
fprintf(fa1,"\n");
}
ch = line[cc];
if(ch == '{'){ // 分析注释
do{
cc++;
ch = line[cc];
}while(ch != '}');
if(ch != '}'){
error(35);
}
ch = line[cc+1];
cc++;
}else{
cc ++;
}
return 0;
}
//-----------------------------------------------------------------------------
/*词法分析，获取一个符号
*/
int getsym()
{
int i,j,k;
while( ch==' '||ch==10||ch==9)
{
getchdo;
}
if(ch>='a'&&ch<='z')
{
k=0;
do{
if(k<al)
{
a[k]=ch;
k++;
}
getchdo;
}while(ch>='a'&&ch<='z'||ch>='0'&&ch<='9');
a[k]=0;
strcpy(id,a);
i=0;
j=norw-1;
do{
k=(i+j)/2;
if(strcmp(id,word[k])<=0)
{
j=k-1;
}
if(strcmp(id,word[k])>=0)
{
i=k+1;
}
}while(i<=j);
if(i-1>j)
{
sym=wsym[k];
}
else
{
sym=ident;
}
}
else
{
if(ch>='0'&&ch<='9')
{
k=0;
num=0;
sym=number;
do{
num=10*num+ch-'0';
k++;
getchdo;
}while(ch>='0'&&ch<='9'); /*获取数字的值*/
k--;
if(k>nmax)
{
error(30);
}
}
else
{
switch(ch){
case ':':
getchdo;
if(ch=='=')
{
sym=becomes;
getchdo;
}
else
{
sym=colon;
}
break;
case '+':
getchdo;
if (ch=='=')
{
sym=addbecomes;
getchdo;
}
else if (ch=='+')
{
sym=addsym;
getchdo;
}
else
{
sym=plus;
}
break;
case '-':
getchdo;
if (ch=='=')
{
sym=minbecomes;
getchdo;
}
else if (ch=='-')
{
sym=minsym;
getchdo;
}
else
{
sym=minus;
}
break;
case '*':
getchdo;
if (ch=='=')
{
sym=mulbecomes;
getchdo;
}
else
{
sym=times;
}
break;
case '/':
getchdo;
if (ch=='=')
{
sym=divbecomes;
getchdo;
}
else
{
sym=slash;
}
break;
case '<':
getchdo;
if(ch=='=')
{
sym=leq;
getchdo;
}
else
{
sym=lss;
}
break;
case '>': /*检测大于或大于等于符号*/
getchdo;
if(ch=='=')
{
sym=geq;
getchdo;
}
else
{
sym=gtr;
}
break;
default:
sym=ssym[ch];/* 当符号不满足上述条件时，全部按照单字符号处理*/
if(sym!=period)
{
getchdo;
}
}
}
}
return 0;
}
//-----------------------------------------------------------------------------
/*
*生成虚拟机代码
*
*x:instruction.f;
*y:instruction.l;
*z:instruction.a;
*/
int gen(enum fct x,int y,int z)
{
if(cx>=cxmax)
{
printf("Program too long"); /*程序过长*/
return -1;
}
code[cx].f=x;
code[cx].l=y;
code[cx].a=z;
cx++;
return 0;
}
//-----------------------------------------------------------------------------
/*
*测试当前符号是否合法
*
*在某一部分（如一条语句，一个表达式）将要结束时时我们希望下一个符号属于某集合
*（该部分的后跟符号） test 负责这项检测，并且负责当检测不通过时的补救措施
*程序在需要检测时指定当前需要的符号集合和补救用的集合（如之前未完成部分的后跟
*符号），以及不通过时的错误号
*
*S1：我们需要的符号
*s2:如果不是我们需要的，则需要一个补救用的集合
*n:错误号
*/
int test(bool* s1,bool* s2,int n)
{
if(! inset(sym,s1))
{
error(n);
/*当检测不通过时，不停获取符号，直到它属于需要的集合或补救的集合*/
while((! inset(sym,s1))&&(! inset(sym,s2)))
{
getsymdo;
}
}
return 0;
}
//-----------------------------------------------------------------------------
/*
*编译程序主体
*
*lev:当前分程序所在层
*tx:名字表当前尾指针
*fsys:当前模块后跟符号集合
*/
int block(int lev,int tx,bool* fsys)
{
int i;
int dx; /*名字分配到的相对地址*/
int tx0; /*保留初始tx*/
int cx0; /*保留初始cx*/
bool nxtlev[symnum]; /*在下级函数的参数中，符号集合均为值参，但由于使用数组
实现，传递进来的是指针，为防止下级函数改变上级函数的
集合，开辟新的空间传递给下级函数*/
dx=3;
tx0=tx; /*记录本层名字的初始位置*/
table[tx].adr=cx;
gendo(jmp,0,0);
if(lev > levmax)
{
error(32);
}
if(lev>0&&sym==lparen){
getsymdo;
while(sym == ident||sym == varsym){
if(sym == varsym)
getsymdo;
if(sym == ident)
{
paramcount++;
enter(param,&tx,lev,&dx,id); /*记录过程名字*/
dx++;
}
else
error(34); //形式参数不能为空
getsymdo;
while(sym == comma)
{
getsymdo;
if(sym == ident){
paramcount++;
enter(param,&tx,lev,&dx,id);
dx++;
}
else
error(34); //形式参数不能为空
getsymdo;
}
}
if(sym == rparen)
{
getsymdo;
}
else
{
error(36); //漏掉了")"
}
if(sym == semicolon)
{
getsymdo;
}
else
{
error(5); //漏掉了分号
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -