📄 pl0dlg.cpp
字号:
do{
if(k<al)
{
a[k]=ch;
k++;
}
else
{
error(0,line); /*标识符太长*/
}
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(31,line);
}
}
else
{
switch(ch)
{
case ':': /*检测赋值符号*/
getchdo;
if(ch=='=')
{
sym=becomes;
getchdo;
}
else
{
sym=colon; /*:符号*/
}
break;
case '<': /*检测小于或小于等于符号*/
getchdo;
if(ch=='=')
{
sym=leq;
getchdo;
}
else
if(ch=='>')
{
sym=neq;
getchdo;
}
else
{
sym=lss;
}
break;
case '>': /*检测大于或大于等于符号*/
getchdo;
if(ch=='=')
{
sym=geq;
getchdo;
}
else
{
sym=gtr;
}
break;
case '+':
getchdo;
if(ch=='=') /* 检测 += 符号 */
{
sym=plueql;
getchdo;
}
else
if(ch=='+') /* 检测 ++ 符号 */
{
sym=incsym;
getchdo;
}
else
{
sym=plus; /* 检测 + 符号 */
}
break;
case '-':
getchdo;
if(ch=='=') /* 检测 -= 符号 */
{
sym=mineql;
getchdo;
}
else
if(ch=='-') /* 检测 -- 符号 */
{
sym=decsym;
getchdo;
}
else
{
sym=minus; /* 检测 - 符号 */
}
break;
case '*':
getchdo;
if(ch=='=')
{
sym=muleql;
getchdo;
}
else
{
sym=times;
}
break;
case '/':
getchdo;
if(ch=='=')
{
sym=diveql;
getchdo;
}
else
{
sym=slash;
}
break;
default:
sym=ssym[ch];/* 当符号不满足上述条件时，全部按照单字符号处理*/
if(sym!=period)
{
getchdo;
}
break;
//end richard
}
}
}
return 0;
}
/*
*生成虚拟机代码
*
*x:instruction.f;
*y:instruction.l;
*z:instruction.a;
*/
int CPL0Dlg::gen(enum fct x,int y,int z)
{
if(cx>=cxmax)
{
error(33,line); /*程序过长*/
return -1;
}
code[cx].f=x;
code[cx].l=y;
code[cx].a=z;
cx++;
return 0;
}
/*
*测试当前符号是否合法
*
*在某一部分（如一条语句，一个表达式）将要结束时时我们希望下一个符号属于某集合
*（该部分的后跟符号） test 负责这项检测，并且负责当检测不通过时的补救措施
*程序在需要检测时指定当前需要的符号集合和补救用的集合（如之前未完成部分的后跟
*符号），以及不通过时的错误号
*
*S1：我们需要的符号
*s2:如果不是我们需要的，则需要一个补救用的集合
*n:错误号
*/
int CPL0Dlg::test(bool* s1,bool* s2,int n)
{
if(! inset(sym,s1))
{
error(n,line-1);
/*当检测不通过时，不停获取符号，直到它属于需要的集合或补救的集合*/
while((! inset(sym,s1))&&(! inset(sym,s2)))
{
getsymdo;
}
}
return 0;
}
/*
*编译程序主体
*
*lev:当前分程序所在层
*tx:名字表当前尾指针
*fsys:当前模块后跟符号集合
*/
int CPL0Dlg::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(30,line);
}
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,line-1); /*漏掉了逗号或者分号*/
}
}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,line-1);
}
}while(sym==ident);
}
while(sym==procsym)/*收到过程声名符号，开始处理过程声名*/
{
getsymdo;
if(sym==ident)
{
enter(procedur,&tx,lev,&dx);/*记录过程名字*/
getsymdo;
}
else
{
error(4,line);/*procedure后应为标识符*/
}
if(sym==semicolon)
{
getsymdo;
}
else
{
error(41,line-1);/*漏掉了分号*/
}
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(41,line-1); /*漏掉了分号*/
}
}
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); /*生成分配内存代码*/
/*输出名字表*/
for(i=tx0+1;i<=tx;i++)
{
switch(table[i].kind)
{
case constant:
fprintf(fas,"%d const %s ",i,table[i].name);
fprintf(fas,"val=%d\n",table[i].val);
break;
case array:
fprintf(fas,"%d var %s ",i,table[i].name);
fprintf(fas,"lev=%d addr=%d\n",table[i].level,table[i].adr);
break;
case variable:
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:
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;
}
}
fprintf(fas,"\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); /*检测后跟符号正确性*/
return 0;
}
/*
*在名字表中加入一项
*
*k:名字种类const,var or procedure
*ptx:名字表尾指针的指针，为了可以改变名字表尾指针的数值
*lev:名字所在的层次，以后所有的lev都是这样
*pdx:为当前应分配的变量的相对地址，分配后要增加1
*/
void CPL0Dlg::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,line);
num=0;
}
table[(*ptx)].val=num;
break;
case variable: /*变量名字*/
table[(*ptx)].level=lev;
table[(*ptx)].adr=(*pdx);
(*pdx)++;
break;
case array: /*数组名字*/
table[(*ptx)].level=lev;
table[(*ptx)].adr=(*pdx);
break;
case procedur: /*过程名字*/
table[(*ptx)].level=lev;
break;
}
}
/*
*查找名字的位置
*找到则返回在名字表中的位置，否则返回0
*
*idt: 要查找的名字
*tx:：当前名字表尾指针
*/
int CPL0Dlg::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 CPL0Dlg::constdeclaration(int * ptx,int lev,int * pdx)
{
if(sym==ident)
{
getsymdo;
if(sym==eql ||sym==becomes)
{
if(sym==becomes)
{
error(1,line); /*把=写出成了：=*/
}
getsymdo;
if(sym==number)
{
if(num>amax)
{
error(31,line);
num=0;
}
enter(constant,ptx,lev,pdx);
getsymdo;
}
else
{
error(2,line); /*常量说明=后应是数字*/
}
}
else
{
error(3,line); /*常量说明标识后应是=*/
}
}
else
{
error(4,line); /*const后应是标识*/
}
return 0;
}
/*
*变量声明处理
*/
int CPL0Dlg::vardeclaration(int * ptx,int lev,int * pdx)
{
int i;
if(sym==ident)
{
getsymdo;
if(sym==lepa) /*如果是数组*/
{
enter(array,ptx,lev,pdx);
getsymdo;
if(sym==number) /*如果是数字*/
{
*pdx=*pdx+num; /*为数组开辟空间*/
}
else
{
if(sym==ident)
{
i=position(id,*ptx); /*查找标识符在名字表中的位置*/
if(i==0)
error(11,line);
else
if(table[i].kind==constant) /*如果是常量*/
{
*pdx=*pdx+table[i].val;
}
else
error(36,line); /*定义数组时下界不合符要求*/
}
}
getsymdo;
if(sym==ripa) /*遇到]的情形*/
{
getsymdo;
}
else
error(38,line-1);
}
else
if(sym==semicolon || sym==comma)
{
enter(variable,ptx,lev,pdx); /*不是数组*/
}
else
error(39,line-1);
}
return 0;
}
/*
*输入目标代码清单
*/
void CPL0Dlg::listcode(int cx0)
{
int i;
for(i=cx0;i<cx;i++)
{
fprintf(fa,"%d %s %d %d\n",i,mnemonic[code[i].f],code[i].l,code[i].a);
}
}
/*
*语句处理
*/
int CPL0Dlg::statement(bool* fsys,int * ptx,int lev)
{
int i,cx1,cx2,k,ptx2;
bool nxtlev[symnum];
switch(sym)
{
case incsym: /*处理形如++a的语句*/
getsymdo;
if(sym==ident)
{
i=position(id,*ptx);
if(i==0)
{
error(11,line);
}
else
{
if(table[i].kind==variable)
{
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);
}
else
{
error(48,line);
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -