📄 pl0dlg.cpp
字号:
break;
case 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(41,line-1);/*缺少分号*/
}
statementdo(nxtlev,ptx,lev);
}
if(sym==endsym)
{
getsymdo;
}
else
{
error(10,line-1); /*缺少end或分号*/
}
break;
case 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,line-1); /*缺少do*/
}
statementdo(fsys,ptx,lev); /*循环体*/
gendo(jmp,0,cx1);/*回头重新判断条件*/
code[cx2].a=cx; /*反填跳出循环的地址，与if类似*/
break;
default:
memset(nxtlev,0,sizeof(bool)*symnum);/*语句结束无补救集合*/
testdo(fsys,nxtlev,19);/*检测语句结束的正确性*/
}
return 0;
}
/*
*表达式处理
*/
int CPL0Dlg::expression(bool*fsys,int*ptx,int lev)
{
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;
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 CPL0Dlg::term(bool*fsys,int *ptx,int lev)
{
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 CPL0Dlg::factor(bool*fsys,int *ptx,int lev)
{
int i;
bool nxtlev[symnum];
testdo(facbegsys,fsys,24); /*检测因子的开始符好号*/
while(inset(sym,facbegsys)) /*循环直到不是因子开始符号*/
{
switch(sym)
{
case incsym:
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);
gendo(lod,lev-table[i].level,table[i].adr);
}
else
{
error(48,line);
}
}
getsymdo;
}
else
{
error(48,line);
}
break;
case decsym:
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,3);
gendo(sto,lev-table[i].level,table[i].adr);
gendo(lod,lev-table[i].level,table[i].adr);
}
else
{
error(48,line);
}
}
getsymdo;
}
else
{
error(48,line);
}
break;
case ident: /*因子为常量或者变量*/
i=position(id,*ptx); /*查找名字*/
if(i==0)
{
error(11,line); /*标识符未声明*/
}
else
{
switch(table[i].kind)
{
case array:
getsymdo;
if(sym==lepa)
{
getsymdo;
memcpy(nxtlev,fsys,sizeof(bool)*symnum);
nxtlev[ripa]=true; /*后符号为]*/
expressiondo(nxtlev,ptx,lev); /*先计算数组的偏移地址*/
if(sym!=ripa)
{
error(38,line-1);
}
gendo(get,lev-table[i].level,table[i].adr); /*取数组*/
}
else
error(28,line);
getsymdo;
break; //把某一数组中的数入栈
case constant: /*名字为常量*/
gendo(lit,0,table[i].val); /*直接把常量的值入栈*/
getsymdo;
break;
case variable: /*名字为变量*/
gendo(lod,lev-table[i].level,table[i].adr); /*找到变量地址并将其值入栈*/
getsymdo;
if(sym==incsym)
{
gendo(lit,0,1); /*加1*/
gendo(opr,0,2);
gendo(sto,lev-table[i].level,table[i].adr); /*先保存*/
gendo(lod,lev-table[i].level,table[i].adr); /*再取出*/
gendo(lit,0,1);
gendo(opr,0,3);
getsymdo;
}
if(sym==decsym)
{
gendo(lit,0,1); /*减1*/
gendo(opr,0,3);
gendo(sto,lev-table[i].level,table[i].adr); /*先保存*/
gendo(lod,lev-table[i].level,table[i].adr); /*再取出*/
gendo(lit,0,1);
gendo(opr,0,2);
getsymdo;
}
break;
case procedur: /*名字为过程*/
error(21,line); /*不能为过程*/
getsymdo;
break;
}
}
break;
case number: /*因子为数*/
if(num>amax)
{
error(31,line);
num=0;
}
gendo(lit,0,num);
getsymdo;
break;
case lparen: /*因子为表达式*/
getsymdo;
memcpy(nxtlev,fsys,sizeof(bool)*symnum);
nxtlev[rparen]=true;
expressiondo(nxtlev,ptx,lev);
if(sym==rparen)
{
getsymdo;
}
else
{
error(47,line-1); /*缺少右括号*/
}
testdo(fsys,facbegsys,23); /*银子后有非法符号*/
break;
}
}
return 0;
}
/*
条件处理*/
int CPL0Dlg::condition(bool* fsys,int* ptx,int lev)
{
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,line);
}
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;
} /*解释程序*/
void CPL0Dlg::interpret()
{
int p,b,t,j; /*指令指针，指令基址，栈顶指针*/
instruction i; /*存放当前指令*/
int s[stacksize]; /*栈*/
sprintf(bufOut,"运行结果为:\r\n");
t=0;
b=0;
p=0;
s[0]=s[1]=s[2]=0;
do{
i=code[p]; /*读当前指令*/
p++;
switch(i.f)
{
case lit: /*将a的值取到栈顶*/
s[t]=i.a;
t++;
break;
case opr: /*数字、逻辑运算*/
switch(i.a)
{
case 0:
t=b;
p=s[t+2];
b=s[t+1];
break;
case 1:
s[t-1]=-s[t-1];
break;
case 2:
t--;
s[t-1]=s[t-1]+s[t];
break;
case 3:
t--;
s[t-1]=s[t-1]-s[t];
break;
case 4:
t--;
s[t-1]=s[t-1]*s[t];
break;
case 5:
t--;
s[t-1]=s[t-1]/s[t];
break;
case 6:
s[t-1]=s[t-1]%2;
break;
case 8:
t--;
s[t-1]=(s[t-1]==s[t]);
break;
case 9:
t--;
s[t-1]=(s[t-1]!=s[t]);
break;
case 10:
t--;
s[t-1]=(s[t-1]<s[t]);
break;
case 11:
t--;
s[t-1]=(s[t-1]>=s[t]);
break;
case 12:
t--;
s[t-1]=(s[t-1]>s[t]);
break;
case 13:
t--;
s[t-1]=(s[t-1]<=s[t]);
break;
case 14:
j=strlen(bufOut);
sprintf(bufOut+j,"%d ",s[t-1]);
SetDlgItemText(IDC_OUTPUT,bufOut);
t--;
break;
case 15:
strcat(bufOut,"\r\n");
SetDlgItemText(IDC_OUTPUT,bufOut);
break;
case 16:
DialogBox(GetModuleHandle(0),MAKEINTRESOURCE(IDD_INPUT),0,(DLGPROC)inputproc);
int len=strlen(in);
if(len>6)
{
MessageBox("输入大于六位整数，请重新输入","错误！",MB_ICONERROR);
DialogBox(GetModuleHandle(0),MAKEINTRESOURCE(IDD_INPUT),0,(DLGPROC)inputproc);
}
digit=0;
pi=in;
if(*pi=='-') /*p是指向in的指针,处理输入为负数*/
{
pi++;
while(*pi)
{
if(*pi>='0' && *pi<='9')
{
digit=10*digit+(*pi-'0');
pi++;
}
else
{
MessageBox("输入有非数字，请重新输入","错误！",MB_ICONERROR);
DialogBox(GetModuleHandle(0),MAKEINTRESOURCE(IDD_INPUT),0,(DLGPROC)inputproc);
}
}
digit=-digit;
}
else /*处理输入为正整数*/
{
while(*pi)
{
if(*pi>='0' && *pi<='9')
{
digit=10*digit+(*pi-'0');
pi++;
}
else
{
MessageBox("输入有非数字或未输入，请重新输入","错误！",MB_ICONERROR);
DialogBox(GetModuleHandle(0),MAKEINTRESOURCE(IDD_INPUT),0,(DLGPROC)inputproc);
}
}
}
s[t]=digit;
t++;
break;
}
break;
case lod: /*取相对当前过程的数据基地址为ａ的内存的值到栈顶*/
s[t]=s[base(i.l,s,b)+i.a];
t++;
break;
case sto: /*栈顶的值存到相对当前过程的数据基地址为ａ的内存*/
t--;
s[base(i.l,s,b)+i.a]=s[t];
break;
case get: /*根据栈顶的偏移地址从数组中取值到新的栈顶*/
s[t-1]=s[base(i.l,s,b)+i.a+s[t-1]];
break;
case kep: /*根据次栈顶的偏移地址把栈顶的值存入数组*/
t--;
s[base(i.l,s,b)+i.a+s[t-1]]=s[t];
t--;
break;
case cal: /*调用子程序*/
s[t]=base(i.l,s,b); /*将父过程基地址入栈*/
s[t+1]=b; /*将本过程基地址入栈，此两项用于base函数*/
s[t+2]=p; /*将当前指令指针入栈*/
b=t; /*改变基地址指针值为新过程的基地址*/
p=i.a; /*跳转*/
break;
case inte: /*分配内存*/
for(j=b+3;j<i.a;j++)
s[j]=0; /*初始所有变量*/
t+=i.a;
break;
case jmp: /*直接跳转*/
p=i.a;
break;
case jpc: /*条件跳转*/
t--;
if(s[t]==0)
{
p=i.a;
}
break;
}
}while (p!=0);
}
/*通过过程基址求上1层过程的基址*/
int CPL0Dlg::base(int l,int * s,int b)
{
int b1;
b1=b;
while(l>0)
{
b1=s[b1];
l--;
}
return b1;
}
BOOL CALLBACK inputproc(HWND hdlg,UINT msg,WPARAM wparam,LPARAM lparam)
{
if(msg==WM_COMMAND)
if(LOWORD(wparam)==IDOK)
{
GetDlgItemText(hdlg,IDC_IN,in,16);
EndDialog(hdlg,0);
}
return 0;
}
void CPL0Dlg::OnABOUT()
{
// TODO: Add your control notification handler code here
CAboutDlg about;
about.DoModal();
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -