⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.cpp

📁 编译原理课程设计
💻 CPP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	       TABLE[TX].vp.LEVEL=LEV;
	       break;
  /***********************课程设计添加内容**********************************/
        case CHARV:                     /*变量名字*/
		TABLE[TX].vp.LEVEL=LEV;
		TABLE[TX].vp.ADR=DX;
		DX++;
		break;
        case REAL:                     /*变量名字*/
		TABLE[TX].vp.LEVEL=LEV;
		TABLE[TX].vp.ADR=DX;
		DX++;
		DX++;
		break;

  }
} /*ENTER*/
//---------------------------------------------------------------------------
int POSITION(ALFA ID, int TX) { /*FIND IDENTIFIER IN TABLE*/
  int i=TX;
  strcpy(TABLE[0].NAME,ID);
  while (strcmp(TABLE[i].NAME,ID)!=0) i--;
  return i;
} /*POSITION*/
//---------------------------------------------------------------------------
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()*/
//------------------------增加字符类型声明处理函数----------------------------
int chardeclaration(int LEV,int &TX,int &DX)
{
	unsigned int i = 0;
	int j = 0;
	int index = 0;
	if(SYM==IDENT)
 	{
		for(i=0;i<strlen(ID);i++)
		{
			if(ID[i]=='[')
			{
			    index=ID[i+1]-48;
				for(j=0;j<index;j++)
				{
				   ID[i+1]=j+48;
                                   ENTER(CHARV,LEV,TX,DX);//填写名字表
				}
				break;
			}
		}
		if(i>=strlen(ID))
		{
		   ENTER(CHARV,LEV,TX,DX);//填写名字表
		}
 		GetSym();
 	}
 	else
 	{
 		Error(4);
    }
    return 0;
}
//------------------------增加实数类型声明处理函数----------------------------
int realdeclaration(int LEV,int &TX,int &DX)
{
       unsigned	int i = 0;
	int j = 0;
	int index = 0;
	if(SYM==IDENT)
 	{
		for(i=0;i<strlen(ID);i++)
		{
			if(ID[i]=='[')
			{
			    index=ID[i+1]-48;
				for(j=0;j<index;j++)
				{
				   ID[i+1]=j+48;
 				   ENTER(REAL,LEV,TX,DX);//填写名字表
				}
				break;
			}
		}
		if(i>=strlen(ID))
		{
		   ENTER(REAL,LEV,TX,DX);//填写名字表
		//	enter(variable,ptx,lev,pdx);
		}
 		GetSym();
 	}
 	else
 	{
 		Error(4);
    }
    return 0;
}

//---------------------------------------------------------------------------
void VarDeclaration(int LEV,int &TX,int &DX) {
  if (SYM==IDENT) { ENTER(VARIABLE,LEV,TX,DX); GetSym(); }
  else Error(4);
} /*VarDeclaration()*/
//---------------------------------------------------------------------------
void ListCode(int CX0) {  /*LIST CODE GENERATED FOR THIS Block*/
  String s;
  if (Form1->ListSwitch->ItemIndex==0)
    for (int i=CX0; i<CX; i++) {
      switch(TYPE[i])
      {
        case CONSTANT:
        case VARIABLE:
        case PROCEDUR:
        s=IntToStr(i);
        while(s.Length()<3)s=" "+s;
        s=s+" "+MNEMONIC[CODE[i].F]+" "+IntToStr(CODE[i].L)+" "+IntToStr(CODE[i].A.i);
        Form1->printfs(s.c_str());
        fprintf(FOUT,"%3d%5s%4d%4d\n",i,MNEMONIC[CODE[i].F],CODE[i].L,CODE[i].A.i);
        break;
        case CHARV:
        s=IntToStr(i);
        while(s.Length()<3)s=" "+s;
        s=s+" "+MNEMONIC[CODE[i].F]+" "+IntToStr(CODE[i].L)+" "+CODE[i].A.ch;
        Form1->printfs(s.c_str());
        fprintf(FOUT,"%3d%5s%4d%4c\n",i,MNEMONIC[CODE[i].F],CODE[i].L,CODE[i].A.ch);
        break;
        case REAL:
        s=IntToStr(i);
        while(s.Length()<3)s=" "+s;
        s=s+" "+MNEMONIC[CODE[i].F]+" "+IntToStr(CODE[i].L)+" "+FloatToStr(CODE[i].A.d);
        Form1->printfs(s.c_str());
        fprintf(FOUT,"%3d%5s%4d%4f\n",i,MNEMONIC[CODE[i].F],CODE[i].L,CODE[i].A.d);
        break;
      } //switch

    }
} /*ListCode()*/;
//---------------------------------------------------------------------------
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);
 //------------------------添加实现自加与自减运算----------------------------
                                GetSym();
                                 if(SYM==INC||SYM==DEC) //因子中的++和--运算
                                 {
                                   GEN(LIT,0,1);
                                   if(SYM==INC) GEN(OPR,0,2);//如果为INC，则加一
                                   else GEN(OPR,0,3);        //如果为DEC，则减一
                                   GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);//将栈顶送入变量单元
                                   GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将变量送入栈顶
                                   GetSym();
                                 }
                                break;
		  case PROCEDUR: Error(21); break;
		}
	    /*GetSym();*/
	}
	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;
  FACTOR(SymSetUnion(FSYS,SymSetNew(TIMES,SLASH)), LEV,TX);
  while (SYM==TIMES || SYM==SLASH) {
	MULOP=SYM;  GetSym();
	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;
  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!=CHARV
                  &&TABLE[i].KIND!=REAL) { /*ASSIGNMENT TO NON-VARIABLE*/
			Error(12); i=0;
		  }
        GetSym();
		if (SYM==BECOMES)
                { GetSym();
		  /*else Error(13);*/
		 EXPRESSION(FSYS,LEV,TX);
		 if (i!=0) GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
                }
  /********************添加实现变量的自加和自减运算*************************/
                else if (SYM==INC)   //++运算
                {
                if (i!=0) GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);//将变量放到栈顶
                GEN(LIT,0,1);//将常量1取到运行栈,层次差为0
                GEN(OPR,0,2);//将栈顶和次栈顶内容做算术加运算,结果放在次栈顶,0为OPR指令l域的固定值.
                if (i!=0) GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将栈顶的内容送入变量单元中
                GetSym();
                }
                else if (SYM==DEC)   //--运算
                { if (i!=0) GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);//将变量放到栈顶
                GEN (LIT,0,1);//将常量1取到运行栈,层次差为0
                GEN (OPR,0,3);//将栈顶和次栈顶内容做算术减运算,结果放在次栈顶,0为OPR指令l域的固定值.
                if (i!=0) GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);
                GetSym ();
                }
 /********************添加实现'+='和'-='双目运算*************************/
                else if (SYM==PLUSEQ) //增加运算符+=
                {
                 if (i!=0) GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将变量放到栈顶
                 GetSym();
                 EXPRESSION(FSYS,LEV,TX);//表达式处理
                 GEN(OPR,0,2);
                 if (i!=0) GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);//将栈顶放入变量单元中
                }
                else if (SYM==MINUSEQ) //增加运算符-=
                {
                if (i!=0) GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将变量放到栈顶
                GetSym();
                EXPRESSION(FSYS,LEV,TX); //表达式处理
                GEN(OPR,0,3);
                if (i!=0) GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR); //将栈顶放入变量单元中
                }
   /*************************************************************************/
                 break;
	case READSYM:
		GetSym();
		if (SYM!=LPAREN) Error(33);
		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();
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -