beifen.cpp

编译原理课程设计

/************************************************************************ 
* 文件名：    FenXi.cpp 
* 文件描述：  词法语法分析的实现文件
* 创建人：    程红秀, 2005年06月15日 
************************************************************************/ 
//#include "stdafx.h"
#include "fenxi.h"
#include<ctype.h>
#include<fstream>
#include<string>
#include<iostream>
using namespace std;

/*================================================================ 
* 函数名：    CiFaFenXi
* 功能描述:   词法分析 (public)
* 返回值：    void
================================================================*/
void CFenXi::CiFaFenXi()
{
	///*
	cout<<"filename:";
  	string filename;
	cin>>filename;
	ifstream infile;
	infile.open(filename.c_str());
	int x=0;
	while(!infile.eof())
	{
		infile.get(m_str[x++]);
	}
	m_str[--x]='\0';
	//*/
	bool flag=false;
	char token[20];
	int k,v;
	
	init();

	for (int i=0;i<m_n;i++)  //当第2次调用该函数时，就要释放前1次的资源
		delete m_cifa[i];
	
	int n=0;		//用于指示当前的字符
	m_n=0;			//词法结果的个数
	
	while (m_str[n])
	{
		if (flag)
		{
			while (!((m_str[n]=='*')&&(m_str[n+1]=='/')))
			{
				if (m_str[n]) 
					n++;
				else 
					break;
			}
			
			if (m_str[n])
			{
				n++;
				n++;
				flag=false;
			}
		}
		while (1)
		{
			while ((m_str[n]==32) || (m_str[n]==9))
				n++;
			
			if (!((m_str[n]==13) && (m_str[n+1]==10)))
				break;
			
			n++;
			n++;
		}

		
		if (isalpha(m_str[n]))		//字母
		{
			k=0;
			while (1)
			{
				if (k<19)				//标志符的长度为20
					token[k++]=m_str[n++];
				else 
					n++;
				
				if (!isalnum(m_str[n])) //如果不是数字或字母就退出
					break;
			}
			
			token[k]=0;
			v=FindInKWTab(token);	//查找关键词表
			if (v)	//如果是关键词
			{
				m_cifa[m_n]=new CIFA;
				m_cifa[m_n]->nValue=0;
				m_cifa[m_n]->nType=v;
				strcpy(m_cifa[m_n]->szText,token);
				m_cifa[m_n]->nAddr=n-k;
				m_n++;
			}
			else   //普通标志符
			{
				m_cifa[m_n]=new CIFA;
				
			    /*----------在词法分析结果中查找-----------*/
				int vv=1;
				for (int i=0;i<m_n;i++)
				{
					if (m_cifa[i]->nType==1)
					{
						vv++;
						if (!::stricmp(m_cifa[i]->szText,token))
							m_cifa[m_n]->nValue= m_cifa[i]->nValue;
					}
				}
				m_cifa[m_n]->nValue=vv;
			    /*---------------------------------------*/

				m_cifa[m_n]->nType=1;
				strcpy(m_cifa[m_n]->szText,token);
				m_cifa[m_n]->nAddr=n-k;
				m_n++;
			}
		}
		else if (isdigit(m_str[n]))	//数字
		{
			k=0;
			bool error=false;
			while (1)
			{
				if (k<=8) 
					token[k++]=m_str[n++];
				else
				{
					error=true;
					n++;
				}
				if (!isdigit(m_str[n])) 
					break;
			}
			token[k]=0;
			v=::strtol(token,NULL,10);
			if (error)
			{
				m_cifa[m_n]=new CIFA;
				m_cifa[m_n]->nValue=1;
				m_cifa[m_n]->nType=0;
				strcpy(m_cifa[m_n]->szText,token);
				m_cifa[m_n]->nAddr=n-k;
				m_n++;
			}
			else
			{
				m_cifa[m_n]=new CIFA;
				m_cifa[m_n]->nValue=v;
				m_cifa[m_n]->nType=2;
				strcpy(m_cifa[m_n]->szText,token);
				m_cifa[m_n]->nAddr=n-k;
				m_n++;
			}
		}
		else
			switch (m_str[n])	//其他符号
			{
			case '+':
			case '-':
			case '*':
			case '~':
			case '&':
			case '|':
			case '=':
			case ';':
			case '.':
			case ',':
			case '(':
			case ')':
				token[0]=m_str[n];
				token[1]=0;
				v=FindInKWTab(token);

				m_cifa[m_n]=new CIFA;
				m_cifa[m_n]->nValue=0;
				m_cifa[m_n]->nType=v;
				strcpy(m_cifa[m_n]->szText,token);
				m_cifa[m_n]->nAddr=n;

				m_n++;
				n++;
				break;

			case '\0':
				break;

			case '/':
				switch (m_str[n+1])
				{
				case '*':
					n++;
					n++;
					flag=true;
					break;
				default:
					token[0]=m_str[n];
					token[1]=0;
					v=FindInKWTab(token);
					m_cifa[m_n]=new CIFA;
					m_cifa[m_n]->nValue=0;
					m_cifa[m_n]->nType=v;
					strcpy(m_cifa[m_n]->szText,token);
					m_cifa[m_n]->nAddr=n;
					m_n++;
					n++;
				}
				break;

				case '<':
					switch (m_str[n+1])
					{
					case '=':
						token[0]=m_str[n];
						token[1]=m_str[n+1];
						token[2]=0;
						v=FindInKWTab(token);
						m_cifa[m_n]=new CIFA;
						m_cifa[m_n]->nValue=0;
						m_cifa[m_n]->nType=v;
						strcpy(m_cifa[m_n]->szText,token);
						m_cifa[m_n]->nAddr=n;
						m_n++;
						n++;
						n++;
						break;
					case '>':
						token[0]=m_str[n];
						token[1]=m_str[n+1];
						token[2]=0;
						v=FindInKWTab(token);
						m_cifa[m_n]=new CIFA;
						m_cifa[m_n]->nValue=0;
						m_cifa[m_n]->nType=v;
						strcpy(m_cifa[m_n]->szText,token);
						m_cifa[m_n]->nAddr=n;
						m_n++;
						n++;
						n++;
						break;

					default:
						token[0]=m_str[n];
						token[1]=0;
						v=FindInKWTab(token);
						m_cifa[m_n]=new CIFA;
						m_cifa[m_n]->nValue=0;
						m_cifa[m_n]->nType=v;
						strcpy(m_cifa[m_n]->szText,token);
						m_cifa[m_n]->nAddr=n;
						m_n++;
						n++;
					}
					break;

					case '>':
						switch (m_str[n+1])
						{
						case '=':
							token[0]=m_str[n];
							token[1]=m_str[n+1];
							token[2]=0;
							v=FindInKWTab(token);
							m_cifa[m_n]=new CIFA;
							m_cifa[m_n]->nValue=0;
							m_cifa[m_n]->nType=v;
							strcpy(m_cifa[m_n]->szText,token);
							m_cifa[m_n]->nAddr=n;
							m_n++;
							n++;
							n++;
							break;

						default:
							token[0]=m_str[n];
							token[1]=0;
							v=FindInKWTab(token);
							m_cifa[m_n]=new CIFA;
							m_cifa[m_n]->nValue=0;
							m_cifa[m_n]->nType=v;
							strcpy(m_cifa[m_n]->szText,token);
							m_cifa[m_n]->nAddr=n;
							m_n++;
							n++;
						}
						break;

						case ':':
							switch (m_str[n+1])
							{
							case '=':
								token[0]=m_str[n];
								token[1]=m_str[n+1];
								token[2]=0;
								v=FindInKWTab(token);
								m_cifa[m_n]=new CIFA;
								m_cifa[m_n]->nValue=0;
								m_cifa[m_n]->nType=v;
								strcpy(m_cifa[m_n]->szText,token);
								m_cifa[m_n]->nAddr=n;
								m_n++;
								n++;
								n++;
								break;

							default:
								token[0]=m_str[n];
								token[1]=0;
								v=FindInKWTab(token);
								m_cifa[m_n]=new CIFA;
								m_cifa[m_n]->nValue=0;
								m_cifa[m_n]->nType=v;
								strcpy(m_cifa[m_n]->szText,token);
								m_cifa[m_n]->nAddr=n;
								m_n++;
								n++;
							}
							break;

							default:
								token[0]=m_str[n];
								token[1]=0;
								m_cifa[m_n]=new CIFA;
								m_cifa[m_n]->nValue=2;
								m_cifa[m_n]->nType=0;
								strcpy(m_cifa[m_n]->szText,token);
								m_cifa[m_n]->nAddr=n;
								m_n++;
								n++;
			} 

		if (m_n==10000-2)	//词法分析的结果的个数规定为10000
		{
			m_cifa[m_n]=new CIFA;
			m_cifa[m_n]->nValue=99;
			m_cifa[m_n]->nType=0;
			strcpy(m_cifa[m_n]->szText,"");
			m_cifa[m_n]->nAddr=n-1;
			m_n++;
			break;
		}
	} 

	m_cifa[m_n]=new CIFA;
	m_cifa[m_n]->nValue=0;
	m_cifa[m_n]->nType=-1;	//结束符
	strcpy(m_cifa[m_n]->szText,"");
	m_cifa[m_n]->nAddr=0;
	m_n++;
    //cout<<"OK1";
	return;
}




/*================================================================ 
* 函数名：    FindInKWTab(char * a)
* 功能描述:   在关键字表中查找  (protected)
* 返回值：    int (如果找到返回在表中的位置，否则返回0)
================================================================*/
int CFenXi::FindInKWTab(char * a)
{
	for (int i=0;i<50;i++)
		if (!::stricmp(m_szKW[i],a))   //找到
			return i;

		return 0; //未找到
}



/*================================================================ 
* 函数名：    YuFaFenXi
* 功能描述:   语法分析 (public)
* 返回值：    void
* 作 者：     程红秀 2005年6月15日
================================================================*/
void CFenXi::YuFaFenXi()
{
	if (m_n==0) 
		return;		//未进行词法分析
	
	m_nCur=0;		//m_nCur用语指示词法分析结果表中单词的位置

	if(y_ChengXu())
		cout<<"OK";
	else cout<<"NO";//从 程序 开始
 
	return;
}


/*================================================================ 
* 函数名：    y_ChengXu
* 功能描述:   分析整个程序 (protected)
* 返回值：    bool
* 示例：
			Program abc;
				这里是程序体	
			.
================================================================*/
bool CFenXi::y_ChengXu()			//程序
{
	switch (m_cifa[m_nCur]->nType)
	{
	case 3:				//从program开始
		break;

	default:
		m_nErrNo=3;		//缺少关键字“ program ”！
		m_nErrAddr=m_nCur;
		return false;
	}

	m_nCur++;			//分析下一个单词


	switch (m_cifa[m_nCur]->nType)
	{
	case 1:				//标志符
		break;

	default:
		m_nErrNo=4;		//program 后缺少标识符！
		m_nErrAddr=m_nCur;
		return false;
	}


	m_nCur++;

	switch (m_cifa[m_nCur]->nType)
	{
	case 30:			//;
		break;
	default:
		m_nErrNo=5;		//缺少“ ; ”符号！
		m_nErrAddr=m_nCur;
		return false;
	}


	m_nCur++;

	if (!y_ChengXuTi())  //分析程序体
		return false;

	switch (m_cifa[m_nCur]->nType)
	{
	case 31:			//. (程序的最后一个符号)
		break;
	default:
		m_nErrNo=6;		//缺少程序结束符“ . ”符号！
		m_nErrAddr=m_nCur;
		return false;
	}


	m_nCur++;
	switch (m_cifa[m_nCur]->nType)
	{
	case -1://end of cifa
		break;
	default:
		m_nErrNo=96;	//源程序结束符 end. 后还有多余内容！
		m_nErrAddr=m_nCur;
		return false;
	}


	m_nErrNo=0;		//语法分析成功
	m_nErrAddr=m_nCur;
	return true;
}


/*================================================================ 
* 函数名：    y_ChengXuTi
* 功能描述:   分析程序体 (protected)
* 返回值：    bool
* 示例：
		  Integer x,y,z;   
		  Real a,b;        //变量声明

		  Procedure ab(Var m,n:Integer; t:Real);  //过程声明
		  Begin
			  t:=n+m;