📄 pl02.java
字号:
int cx0; /*保留初始cx*/
boolean[] nxtlev=new boolean[symnum];/*在下级函数的参数中，符号集合均为值参，但由于使用数组
实现，传递进来的是指针，为防止下级函数改变上级函数的
集合，开辟新的空间传递给下级函数*/
int[] x=new int[2];
dx=3; //每个过程的相对起始位置在BLOCK内置初值DX=3
tx0=tx; /*记录本层名字的初始位置*/
table[tx].adr=cx;
gen(fct.jmp,0,0);
if(lev > levmax)
{
error(32);
}
do{
if(sym==symbol.constsym) /*收到常量声明符号，开始处理常量声明*/
{
getsym();
do{
x=constdeclaration(tx,lev,dx); /*dx的值会被constdeclaration改变，使用指针*/
tx=x[0];
dx=x[1];
while(sym==symbol.comma)
{
getsym();
x=constdeclaration(tx,lev,dx);
tx=x[0];
dx=x[1];
}
if(sym==symbol.semicolon)
{
getsym();
}
else
{
error(5); /*漏掉了逗号或者分号*/
}
}while(sym==symbol.ident);
}
if(sym==symbol.varsym)/*收到变量声名符号，开始处理变量声名*/
{
getsym();
do{
x=vardeclaration(tx,lev,dx);
tx=x[0];
dx=x[1];
while(sym==symbol.comma)
{
getsym();
x=vardeclaration(tx,lev,dx);
tx=x[0];
dx=x[1];
}
if(sym==symbol.semicolon)
{
getsym();
}
else
{
error(5);
}
}while(sym==symbol.ident);
}
while(sym==symbol.procsym) /*收到过程声名符号，开始处理过程声名*/
{
getsym();
if(sym==symbol.ident)
{
x=enter(object.procedur,tx,lev,dx);/*记录过程名字*/
tx=x[0];
dx=x[1];
getsym();
}
else
{
error(4);/*procedure后应为标识符*/
}
if(sym==symbol.semicolon)
{
getsym();
}
else
{
error(5);/*漏掉了分号*/
}
for(int j=0;j<symnum;j++)
nxtlev[j]=fsys[j];
nxtlev[symbol.semicolon.ordinal()]=true;
block(lev+1,tx,nxtlev);
/* if(-1==block(lev+1,tx,nxtlev))
{
return -1;//递归调用
}*/
if(sym==symbol.semicolon)
{
getsym();
for(int j=0;j<symnum;j++)
nxtlev[j]=statbegsys[j];
nxtlev[symbol.ident.ordinal()]=true;
nxtlev[symbol.procsym.ordinal()]=true;
test(nxtlev,fsys,6);
}
else
{
error(5); /*漏掉了分号*/
}
}
for(int j=0;j<symnum;j++)
nxtlev[j]=statbegsys[j];
nxtlev[symbol.ident.ordinal()]=true;
nxtlev[symbol.period.ordinal()]=true;
test(nxtlev,declbegsys,7);
}while(inset(sym.ordinal(),declbegsys)); /*直到没有声明符号*/
code[table[tx0].adr].a=cx; /*开始生成当前过程代码*/
table[tx0].adr=cx; /*当前过程代码地址*/
table[tx0].size=dx; /*声明部分中每增加一条声明都会给dx增加1,声明部分已经结束,dx就是当前过程数据的size*/
cx0=cx;
gen(fct.inte,0,dx);/*生成分配内存代码*/
/*输出名字表*/
System.out.print("TABLE:\n");
System.out.println("name="+table[0].name+" adr="+table[1].adr+" level="+table[0].level+" size="+table[0].size+" val="+table[0].val);
if(tx0+1>tx)
{
System.out.printf("NULL\n");
}
for(i=tx0+1;i<=tx;i++)
{
switch(table[i].kind)
{
case constant:
System.out.print(i+" const "+table[i].name);
System.out.println(" val="+table[i].val);
break;
case variable:
System.out.print(i+" var "+table[i].name);
System.out.println(" lev="+table[i].level+" addr="+table[i].adr);
break;
case procedur:
System.out.print(i+" proc "+table[i].name);
System.out.println(" lev="+table[i].level+" addr="+table[i].adr+" size="+table[i].size);
break;
}
}
/*语句后跟符号为分号或end*/
for(int j=0;j<symnum;j++)
nxtlev[j]=fsys[j];
nxtlev[symbol.semicolon.ordinal()]=true;
nxtlev[symbol.endsym.ordinal()]=true;
tx=statement(nxtlev,tx,lev);
gen(fct.opr,0,0); /*每个过程出口都要使用的释放数据段命令*/
for(int j=0;j<symnum;j++)
nxtlev[j]=false;/*分程序没有补救集合*/
test(fsys,nxtlev,8); /*检测后跟符号正确性*/
listcode(cx0); /*输出代码*/
return 0;
}
/*
*在名字表中加入一项
*k:名字种类const,var or procedure
*ptx:名字表尾指针的指针，为了可以改变名字表尾指针的数值
*lev:名字所在的层次，以后所有的lev都是这样
*pdx:为当前应分配的变量的相对地址，分配后要增加1
*/
int[] enter (object k,int ptx,int lev, int pdx)
{ int[]x=new int[2];
ptx++;
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;
}
x[0]=ptx;
x[1]=pdx;
return x;
}
/*
*查找名字的位置
*找到则返回在名字表中的位置，否则返回0
*idt: 要查找的名字
*tx:：当前名字表尾指针
*/
int position(String idt,int tx)
{
int i;
System.out.println("POSITION");
System.out.println("name="+table[0].name+" adr="+table[1].adr+" level="+table[0].level+" size="+table[0].size+" val="+table[0].val);
table[0].name=idt;
int m=0;
do{
System.out.println("name="+table[m].name+" adr="+table[m].adr+" level="+table[m].level+" size="+table[m].size+" val="+table[m].val);
m++;
}while(table[m].name!=null);
i=tx;
while(table[i].name.compareToIgnoreCase(idt)!=0)
{
i--;
}
System.out.println(sym+" "+tx+" "+idt+" "+i);
return i;
}
/*
*常量声明处理
*/
int[] constdeclaration(int ptx,int lev,int pdx)
{int[]x=new int[2];
if(sym==symbol.ident)
{
getsym();
if(sym==symbol.eql ||sym==symbol.becomes)
{
if(sym==symbol.becomes)
{
error(1); /*把=写出成了：=*/
}
getsym();
if(sym==symbol.number)
{
x=enter(object.constant,ptx,lev,pdx);
ptx=x[0];
pdx=x[1];
getsym();
}
else
{
error(2); /*常量说明=后应是数字*/
}
}
else
{
error(3); /*常量说明标识后应是=*/
}
}
else
{
error(4); /*const后应是标识*/
}
return x;
}
/*
*
*/
int[] vardeclaration(int ptx,int lev,int pdx)
{int[]x=new int[2];
if(sym==symbol.ident)
{
x=enter(object.variable,ptx,lev,pdx);//填写名字表
getsym();
}
else
{
error(4);
}
return x;
}
/*
*输入目标代码清单
*/
void listcode(int cx0)
{
int i;
if (listswitch)
{
for(i=cx0;i<cx;i++)
{
System.out.printf("%d %s %d %d\n",i,mnemonic[code[i].f.ordinal()],code[i].l,code[i].a);
}
}
}
/*
*语句处理
*/
int statement(boolean[] fsys,int ptx,int lev)
{
int i,cx1,cx2;
boolean[] nxtlev=new boolean[symnum];
if(sym==symbol.ident)//赋值语句的处理
{
i=position(id,ptx);
if(i==0)
error(11);
else
{
if(table[i].kind!=object.variable)
{
error(12);
i=0;
}
else
{
getsym();
if(sym==symbol.becomes)
{
getsym();
for(int j=0;j<symnum;j++)
nxtlev[j]=fsys[j];
ptx=expression(nxtlev,ptx,lev);
}
else if(sym==symbol.pluseql)
{
getsym(); //辨别'+='
gen(fct.lod,lev-table[i].level,table[i].adr); // 把+=之前的变量值放到栈顶
for(int j=0;j<symnum;j++)
nxtlev[j]=fsys[j];
ptx=expression(fsys,ptx,lev);
gen(fct.opr,0,2); //栈顶与次栈顶相加
}
else
if(sym==symbol.minuseql) //辨别'-='
{
getsym();
gen(fct.lod,lev-table[i].level,table[i].adr);
for(int j=0;j<symnum;j++)
nxtlev[j]=fsys[j];
ptx=expression(fsys,ptx,lev);
gen(fct.opr,0,3); //栈顶与次栈顶两相减
}
else if (sym==symbol.dplus || sym==symbol.dminus)
{
if (i!=0)
{ //printf("\n这是1\n");
gen(fct.lod,lev-table[i].level,table[i].adr);
gen(fct.lit,0,1);
//这里很奇怪,好像在太多重if-else套了
if (sym==symbol.dminus) gen(fct.opr,0,3);
if (sym==symbol.dplus) gen(fct.opr,0,2);
}
getsym();
}
else
{
error(13);
}
if(i!=0)
{
gen(fct.sto,lev-table[i].level,table[i].adr);
}
}
}
}
else if(sym==symbol.readsym)//读语句的处理
{
getsym();
if(sym!=symbol.lparen)
{
error(34);
}
else
{
do{
getsym();
if(sym==symbol.ident)
{
i=position(id, ptx);
}
else
{
i=0;
}
if(i==0)
{
error(35);
}
else
{
gen(fct.opr,0,16);
gen(fct.sto,lev-table[i].level,table[i].adr); /* 储存到变量*/
}
getsym();
}while (sym==symbol.comma); /*一条read语句可读多个变量 */
}
if(sym!=symbol.rparen)
{
error(33); /* 格式错误，应是右括号*/
while(!inset(sym.ordinal(),fsys))/* 出错补救，直到收到上层函数的后跟符号*/
{
getsym();
}
}
else
{
getsym();
}
}
else if(sym==symbol.writesym) /* 准备按照write语句处理，与read类似*/
{
getsym();
if(sym==symbol.lparen)
{
do{
getsym();
for(int j=0;j<symnum;j++)
nxtlev[j]=fsys[j];
nxtlev[symbol.rparen.ordinal()]=true;
nxtlev[symbol.comma.ordinal()]=true; /* write的后跟符号为）or，*/
ptx=expression(nxtlev,ptx,lev);/* 调用表达式处理，此处与read不同，read为给变量赋值*/
gen(fct.opr,0,14);/* 生成输出指令，输出栈顶的值*/
}while(sym==symbol.comma);
if(sym!=symbol.rparen)
{
error(33);/* write()应为完整表达式*/
}
else
{
getsym();
}
}
gen(fct.opr,0,15); /* 输出换行*/
}
else if(sym==symbol.callsym) /* 准备按照call语句处理*/
{
getsym();
if(sym!=symbol.ident)
{
error(14); /*call后应为标识符*/
}
else
{
i=position(id,ptx);
if(i==0)
{
error(11); /*过程未找到*/
}
else
{
if(table[i].kind==object.procedur)
{
gen(fct.cal,lev-table[i].level,table[i].adr); /*生成call指令*/
}
else
{
error(15); /*call后标识符应为过程*/
}
}
getsym();
}
}
else if(sym==symbol.ifsym) /*准备按照if语句处理*/
{
getsym();
for(int j=0;j<symnum;j++)
nxtlev[j]=fsys[j];
nxtlev[symbol.thensym.ordinal()]=true;
nxtlev[symbol.dosym.ordinal()]=true; /*后跟符号为then或do*/
ptx=condition(nxtlev,ptx,lev); /*调用条件处理（逻辑运算）函数*/
if(sym==symbol.thensym)
{
getsym();
}
else
{
error(16); /*缺少then*/
}
cx1=cx; /*保存当前指令地址*/
gen(fct.jpc,0,0); /*生成条件跳转指令，跳转地址暂写0*/
ptx=statement(fsys,ptx,lev); /*处理then后的语句*/
if(sym==symbol.elsesym) // 判断else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -