📄 unit1.cpp
字号:
void ConstDeclaration(int LEV,int &TX,int &DX) { //常量声明
if (SYM==IDENT) {
GetSym();
if (SYM==EQL||SYM==BECOMES) {
if (SYM==BECOMES) Error(1);
GetSym();
if (SYM==NUMBER) { ENTER(CONSTANT,LEV,TX,DX); GetSym(); }
else Error(2);
}
else Error(3);
}
else Error(4);
} /*ConstDeclaration()*/
//---------------------------------------------------------------------------
void VarDeclaration(int LEV,int &TX,int &DX) { //变量声明
if (SYM==IDENT) {
ENTER(VARIABLE,LEV,TX,DX); GetSym(); }
else Error(4);
} /*VarDeclaration()*/
//---------------------------------------------------------------------------
void ArrayDeclaration(int LEV,int &TX,int &DX) {//数组声明,将数组登录进名字表
int lowb,upb; ALFA A,B;
if (SYM==IDENT) {
if(CH=='['){
GetSym(); GetSym();
if(SYM==NUMBER){
lowb=NUM;
if(CH==':') {
GetSym();GetSym();
if(SYM==NUMBER){
upb=NUM;
ENTER(ARRAYAL,LEV,TX,DX);
TABLE[TX].vp.SIZE=upb-lowb+1;//数组长度
TABLE[TX].bound.LOWB=lowb;TABLE[TX].bound.UPB=upb;
for(int i=lowb;i<=upb;i++){//为数组分配地址空间
A[0]='[';A[1]=i;A[2]=']';A[3]='\0';
TX++;strcpy(B,ID);strcat(B,A);strcpy(TABLE[TX].NAME,B);TABLE[TX].vp.LEVEL=LEV;
TABLE[TX].KIND=ARRAYAL;TABLE[TX].vp.ADR=DX; DX++;
}
if(CH==']') {GetSym();GetSym();}
else Error(22);
}
else Error(11);
}
}
}
}else Error(4);
}
//---------------------------------------------------------------------------
void ListCode(int CX0) { /*输出目标代码清单LIST CODE GENERATED FOR THIS Block*/
if (Form1->ListSwitch->ItemIndex==0)
for (int i=CX0; i<CX; i++) {
String s=IntToStr(i);
while(s.Length()<3)s=" "+s;
s=s+" "+MNEMONIC[CODE[i].F]+" "+IntToStr(CODE[i].L)+" "+IntToStr(CODE[i].A);
Form1->printfs(s.c_str());
fprintf(FOUT,"%3d%5s%4d%4d\n",i,MNEMONIC[CODE[i].F],CODE[i].L,CODE[i].A);
}
} /*ListCode()*/;
//---------------------------------------------------------------------------
void GetAddr(SYMSET FSYS, int LEV, int &TX, int &i) {//数组取址处理
int j=i;int offset;//i为名字表序列
GetSym();
if (SYM==LMIDPAREN) {
GetSym(); //EXPRESSION(SymSetAdd(RMIDPAREN,FSYS),LEV,TX);
if(SYM==NUMBER){
GetSym();
offset=NUM;//偏移地址
i=i+offset;
}
if (SYM!=RMIDPAREN) Error(22);
}
//GEN(LIT,0,TABLE[i].vp.ADR);//将数组的基址取到栈顶
//GEN(OPR,0,2);//当前次栈顶与栈顶相加,结果放在次栈顶
//POP(GET,1,i);//新增指令,取栈顶值,放于i
if(offset<TABLE[j].bound.LOWB||offset>TABLE[j].bound.UPB) Error(31);//越界
}
//---------------------------------------------------------------------------
void FACTOR(SYMSET FSYS, int LEV, int &TX) { //因子处理
int i;
TEST(FACBEGSYS,FSYS,24);
while (SymIn(SYM,FACBEGSYS)) {
if (SYM==IDENT) {
i=POSITION(ID,TX);
if (i==0) Error(11);
else
switch (TABLE[i].KIND) {
case CONSTANT: GEN(LIT,0,TABLE[i].VAL); break;
case VARIABLE: GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); break;
case ARRAYAL: //数组取数=[]
GetAddr(FSYS,LEV,TX,i);
//GEN(JMP,
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
break;
case PROCEDUR: Error(21); break;
}
GetSym();
if(SYM==PPLUS){//后置++,--
GetSym();
GEN(LIT,0,1);//将1取到栈顶
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //取当前变量的值到栈顶
GEN(OPR,0,2);//当前变量(次栈顶)与栈顶相加
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将栈顶送往当前变量,赋值
}
else if(SYM==MMINUS){
GetSym();
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //取当前变量的值到栈顶
GEN(LIT,0,1);//将1取到栈顶
GEN(OPR,0,3);//当前变量(次栈顶)与栈顶相减
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将栈顶送往当前变量,赋值
}
}
else
if (SYM==NUMBER) {
if (NUM>AMAX) { Error(31); NUM=0; }
GEN(LIT,0,NUM); GetSym();
}
else
if (SYM==LPAREN) {
GetSym(); EXPRESSION(SymSetAdd(RPAREN,FSYS),LEV,TX);
if (SYM==RPAREN) GetSym();
else Error(22);
}
TEST(FSYS,FACBEGSYS,23);
}
}/*FACTOR*/
//---------------------------------------------------------------------------
void TERM(SYMSET FSYS, int LEV, int &TX) { /*TERM项处理*/
SYMBOL MULOP;int i;
if( SYM==PPLUS||SYM==MMINUS){
MULOP=SYM; GetSym();
if(SYM==IDENT){
i=POSITION(ID,TX); //在符号表中查到该标识符所在位置
}
FACTOR(SymSetUnion(FSYS,SymSetNew(PPLUS,MMINUS)), LEV,TX);
if(MULOP==PPLUS){//前置++,--
GEN(LIT,0,1);//将1取到栈顶
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //取当前变量的值到栈顶
GEN(OPR,0,2);//当前变量(次栈顶)与栈顶相加
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将栈顶送往当前变量,赋值
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //
}
else {
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //取当前变量的值到栈顶
GEN(LIT,0,1);//将1取到栈顶
GEN(OPR,0,3);//当前变量(次栈顶)与栈顶相减
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将栈顶送往当前变量,赋值
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
}
}
else
FACTOR(SymSetUnion(FSYS,SymSetNew(TIMES,SLASH)), LEV,TX);
while (SYM==TIMES || SYM==SLASH||SYM==PPLUS||SYM==MMINUS) {
MULOP=SYM; GetSym();
if( SYM==PPLUS||SYM==MMINUS){
if(SYM==IDENT){
i=POSITION(ID,TX); //在符号表中查到该标识符所在位置
}
FACTOR(SymSetUnion(FSYS,SymSetNew(PPLUS,MMINUS)), LEV,TX);
if(MULOP==PPLUS){//前置++,--
GEN(LIT,0,1);//将1取到栈顶
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //取当前变量的值到栈顶
GEN(OPR,0,2);//当前变量(次栈顶)与栈顶相加
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将栈顶送往当前变量,赋值
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //
}
else {
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //取当前变量的值到栈顶
GEN(LIT,0,1);//将1取到栈顶
GEN(OPR,0,3);//当前变量(次栈顶)与栈顶相减
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将栈顶送往当前变量,赋值
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
}
}
else{
FACTOR(SymSetUnion(FSYS,SymSetNew(TIMES,SLASH)),LEV,TX);
if (MULOP==TIMES) GEN(OPR,0,4);
else GEN(OPR,0,5);
}
}
} /*TERM*/;
//---------------------------------------------------------------------------
void EXPRESSION(SYMSET FSYS, int LEV, int &TX) { //表达式处理
SYMBOL ADDOP; int i;
if (SYM==PLUS || SYM==MINUS) {
ADDOP=SYM; GetSym();
TERM(SymSetUnion(FSYS,SymSetNew(PLUS,MINUS)),LEV,TX);
if (ADDOP==MINUS) GEN(OPR,0,1);
}
else TERM(SymSetUnion(FSYS,SymSetNew(PLUS,MINUS)),LEV,TX);
while (SYM==PLUS || SYM==MINUS) {
ADDOP=SYM; GetSym();
TERM(SymSetUnion(FSYS,SymSetNew(PLUS,MINUS)),LEV,TX);
if (ADDOP==PLUS) GEN(OPR,0,2);
else GEN(OPR,0,3);
}
} /*EXPRESSION*/
//---------------------------------------------------------------------------
void CONDITION(SYMSET FSYS,int LEV,int &TX) { //条件处理
SYMBOL RELOP;
if (SYM==ODDSYM) { GetSym(); EXPRESSION(FSYS,LEV,TX); GEN(OPR,0,6); }
else {
EXPRESSION(SymSetUnion(SymSetNew(EQL,NEQ,LSS,LEQ,GTR,GEQ),FSYS),LEV,TX);
if (!SymIn(SYM,SymSetNew(EQL,NEQ,LSS,LEQ,GTR,GEQ))) Error(20);
else {
RELOP=SYM; GetSym(); EXPRESSION(FSYS,LEV,TX);
switch (RELOP) {
case EQL: GEN(OPR,0,8); break;
case NEQ: GEN(OPR,0,9); break;
case LSS: GEN(OPR,0,10); break;
case GEQ: GEN(OPR,0,11); break;
case GTR: GEN(OPR,0,12); break;
case LEQ: GEN(OPR,0,13); break;
}
}
}
} /*CONDITION*/
//---------------------------------------------------------------------------
void STATEMENT(SYMSET FSYS,int LEV,int &TX) { /*STATEMENT语句处理*/
int i,CX1,CX2;
switch (SYM) {
case IDENT: //新增+=,-=,++,--语句
i=POSITION(ID,TX); //在符号表中查到该标识符所在位置
if (i==0) Error(11);
else{
if (TABLE[i].KIND!=VARIABLE&&TABLE[i].KIND!=ARRAYAL) { /*ASSIGNMENT TO NON-VARIABLE*/
Error(12); i=0;
}
if(TABLE[i].KIND==ARRAYAL)
GetAddr(FSYS,LEV,TX,i); //数组存数[]=
GetSym();
}
if (SYM==BECOMES){
GetSym();
EXPRESSION(FSYS,LEV,TX);
if (i!=0) GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);//产生一行把表达式值写往指定内存的sto目标代码
}
else if(SYM==PLUSEQL){
GetSym();
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //取当前变量的值到栈顶
EXPRESSION(FSYS,LEV,TX);//处理表达式,将结果置栈顶
GEN(OPR,0,2);//当前变量(次栈顶)与栈顶相加
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将栈顶送往当前变量,赋值
}
else if(SYM==MINUSEQL){
GetSym();
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //取当前变量的值到栈顶
EXPRESSION(FSYS,LEV,TX);//处理表达式,将结果置栈顶
GEN(OPR,0,3);//当前变量(次栈顶)与栈顶相减
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将栈顶送往当前变量,赋值
}
else if(SYM==PPLUS){
GetSym();
GEN(LIT,0,1);//将1取到栈顶
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //取当前变量的值到栈顶
GEN(OPR,0,2);//当前变量(次栈顶)与栈顶相加
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将栈顶送往当前变量,赋值
}
else if(SYM==MMINUS){
GetSym();
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //取当前变量的值到栈顶
GEN(LIT,0,1);//将1取到栈顶
GEN(OPR,0,3);//当前变量(次栈顶)与栈顶相减
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将栈顶送往当前变量,赋值
}
else Error(13);
break;
case MMINUS://前置--
GetSym();
if(SYM==IDENT){
i=POSITION(ID,TX); //在符号表中查到该标识符所在位置
if (i==0) Error(11);
else
if (TABLE[i].KIND!=VARIABLE&&TABLE[i].KIND!=ARRAYAL) { /*ASSIGNMENT TO NON-VARIABLE*/
Error(12); i=0;
}
GetSym();
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //取当前变量的值到栈顶
GEN(LIT,0,1);//将1取到栈顶
GEN(OPR,0,3);//当前变量(次栈顶)与栈顶相减
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将栈顶送往当前变量,赋值
}
break;
case PPLUS:
GetSym();
if(SYM==IDENT){
i=POSITION(ID,TX); //在符号表中查到该标识符所在位置
if (i==0) Error(11);
else
if (TABLE[i].KIND!=VARIABLE&&TABLE[i].KIND!=ARRAYAL) { /*ASSIGNMENT TO NON-VARIABLE*/
Error(12); i=0;
}
GetSym();
GEN(LIT,0,1);//将1取到栈顶
GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //取当前变量的值到栈顶
GEN(OPR,0,2);//当前变量(次栈顶)与栈顶相加
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将栈顶送往当前变量,赋值
}
break;
case READSYM:
GetSym();
if (SYM!=LPAREN) Error(34);
else
do {
GetSym();
if (SYM==IDENT) i=POSITION(ID,TX);
else i=0;
if (i==0) Error(35);
else {
GEN(OPR,0,16);
GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
}
GetSym();
}while(SYM==COMMA);
if (SYM!=RPAREN) {
Error(33);
while (!SymIn(SYM,FSYS)) GetSym();
}
else GetSym();
break; /* READSYM */
case WRITESYM:
GetSym();
if (SYM==LPAREN) {
do {
GetSym();
EXPRESSION(SymSetUnion(SymSetNew(RPAREN,COMMA),FSYS),LEV,TX);
GEN(OPR,0,14);
}while(SYM==COMMA);
if (SYM!=RPAREN) Error(33);
else GetSym();
}
GEN(OPR,0,15);
break; /*WRITESYM*/
case CALLSYM:
GetSym();
if (SYM!=IDENT) Error(14);
else {
i=POSITION(ID,TX);
if (i==0) Error(11);
else
if (TABLE[i].KIND==PROCEDUR)
GEN(CAL,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
else Error(15);
GetSym();
}
break;
case IFSYM: //扩展为if else语句
GetSym();
CONDITION(SymSetUnion(SymSetNew(THENSYM,DOSYM),FSYS),LEV,TX);
if (SYM==THENSYM)
GetSym();
else Error(16);
CX1=CX;
GEN(JPC,0,0);//返回调用点
STATEMENT(SymSetUnion(SymSetNew(ELSESYM),FSYS),LEV,TX);
if(SYM!=ELSESYM)
CODE[CX1].A=CX;
else{
GetSym();
CX2=CX;
GEN(JMP,0,0); //返回调用点
CODE[CX1].A=CX;
STATEMENT(FSYS,LEV,TX);
CODE[CX2].A=CX;
}
break;
case BEGINSYM:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -