亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? compiler.cpp

?? 一個相當不錯的詞法和語法分析器
?? CPP
?? 第 1 頁 / 共 4 頁
字號: 
// Compiler.cpp: implementation of the CCompiler class.
//
//////////////////////////////////////////////////////////////////////

#include "stdafx.h"
#include "PL0.h"
#include "Compiler.h"

#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[]=__FILE__;
#define new DEBUG_NEW
#endif

//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

CCompiler::CCompiler()
{
	m_ntCifaLen=0;
	m_aSourse[0]=0;
	m_Interface.SourseBuffer=m_aSourse;
	m_Interface.SemanticQuad=quad;
	m_Interface.LexicalDuad=m_tCifa;
	m_Interface.QuadOpcodeTable=m_QuadOpCodeTable;
	m_Interface.ErrorMessageTable=m_tErrorMessage;
	m_Interface.ErrorNumber=0;
	m_Interface.ErrorAddress=0;
}

CCompiler::~CCompiler()
{

}

char CCompiler::GetCurCh()//get ch and point does not ++
{
	return m_aSourse[m_pCurCh];
}

void CCompiler::NextCh()//point ++
{
	m_pCurCh++;
}

char CCompiler::GetCh()//get ch and point ++
{
	return m_aSourse[m_pCurCh++];
}

char CCompiler::GetNextCh()//get next ch and point does not ++
{
	if (m_aSourse[m_pCurCh]==0) return 0;
	return m_aSourse[m_pCurCh+1];
}

void CCompiler::CiFaFengXi()
{
	BOOL flag=FALSE;
	char token[MAX_LEX_LEN];
	int k,v;
	Initial();
	for (int i=0;i<m_ntCifaLen;i++)
		delete m_tCifa[i];
	m_pCurCh=0;
	m_ntCifaLen=0;
	while (GetCurCh())//GetSYM
	{
		if (flag)
		{
			while (!((GetCurCh()=='*')&&(GetNextCh()=='/')))
				if (GetCurCh()) NextCh();else break;
			if (GetCurCh())
			{
				NextCh();NextCh();
				flag=FALSE;
			}
		}
		while (1)
		{
			while ((GetCurCh()==32) || (GetCurCh()==9))
				NextCh();
			if (!((GetCurCh()==13) && (GetNextCh()==10)))
				break;
			NextCh();NextCh();
		}
		if (isalpha(GetCurCh()))//alpha
		{
			k=0;
			while (1)
			{
				if (k<MAX_LEX_LEN-1) token[k++]=GetCh();
				else NextCh();
				if (!isalnum(GetCurCh())) break;
			}
			token[k]=0;
			v=FindInKeyWordTab(token);
			if (v)
			{
				m_tCifa[m_ntCifaLen]=new CifaResult;
				m_tCifa[m_ntCifaLen]->value=0;
				m_tCifa[m_ntCifaLen]->type=v;
				::strcpy(m_tCifa[m_ntCifaLen]->text,token);
				m_tCifa[m_ntCifaLen]->address=m_pCurCh-k;
				m_ntCifaLen++;
			}
			else
			{
				m_tCifa[m_ntCifaLen]=new CifaResult;
				m_tCifa[m_ntCifaLen]->value=FindInCifaTab(token);
				m_tCifa[m_ntCifaLen]->type=1;
				::strcpy(m_tCifa[m_ntCifaLen]->text,token);
				m_tCifa[m_ntCifaLen]->address=m_pCurCh-k;
				m_ntCifaLen++;
			}
		}
		else if (isdigit(GetCurCh()))//digit
		{
			k=0;
			BOOL error=FALSE;
			while (1)
			{
				if (k<=MAX_NUMBER_LEN) token[k++]=GetCh();
				else
				{
					error=TRUE;
					NextCh();
				}
				if (!isdigit(GetCurCh())) break;
			}
			token[k]=0;
			v=::strtol(token,NULL,10);
			if (error)
			{
				m_tCifa[m_ntCifaLen]=new CifaResult;
				m_tCifa[m_ntCifaLen]->value=1;
				m_tCifa[m_ntCifaLen]->type=0;
				::strcpy(m_tCifa[m_ntCifaLen]->text,token);
				m_tCifa[m_ntCifaLen]->address=m_pCurCh-k;
				m_ntCifaLen++;
			}
			else
			{
				m_tCifa[m_ntCifaLen]=new CifaResult;
				m_tCifa[m_ntCifaLen]->value=v;
				m_tCifa[m_ntCifaLen]->type=2;
				::strcpy(m_tCifa[m_ntCifaLen]->text,token);
				m_tCifa[m_ntCifaLen]->address=m_pCurCh-k;
				m_ntCifaLen++;
			}
		}
		else
		switch (GetCurCh())//other
		{
		case '+':
		case '-':
		case '*':
		case '~':
		case '&':
		case '|':
		case '=':
		case ';':
		case '.':
		case ',':
		case '(':
		case ')':
			token[0]=GetCurCh();
			token[1]=0;
			v=FindInKeyWordTab(token);
			m_tCifa[m_ntCifaLen]=new CifaResult;
			m_tCifa[m_ntCifaLen]->value=0;
			m_tCifa[m_ntCifaLen]->type=v;
			::strcpy(m_tCifa[m_ntCifaLen]->text,token);
			m_tCifa[m_ntCifaLen]->address=m_pCurCh;
			m_ntCifaLen++;
			NextCh();
			break;
		case '\0':
			break;
		case '/':
			switch (GetNextCh())
			{
			case '*':
				NextCh();
				NextCh();
				flag=TRUE;
				break;
			default:
				token[0]=GetCurCh();
				token[1]=0;
				v=FindInKeyWordTab(token);
				m_tCifa[m_ntCifaLen]=new CifaResult;
				m_tCifa[m_ntCifaLen]->value=0;
				m_tCifa[m_ntCifaLen]->type=v;
				::strcpy(m_tCifa[m_ntCifaLen]->text,token);
				m_tCifa[m_ntCifaLen]->address=m_pCurCh;
				m_ntCifaLen++;
				NextCh();
			}
			break;
		case '<':
			switch (GetNextCh())
			{
			case '=':
				token[0]=GetCurCh();
				token[1]=GetNextCh();
				token[2]=0;
				v=FindInKeyWordTab(token);
				m_tCifa[m_ntCifaLen]=new CifaResult;
				m_tCifa[m_ntCifaLen]->value=0;
				m_tCifa[m_ntCifaLen]->type=v;
				::strcpy(m_tCifa[m_ntCifaLen]->text,token);
				m_tCifa[m_ntCifaLen]->address=m_pCurCh;
				m_ntCifaLen++;
				NextCh();
				NextCh();
				break;
			case '>':
				token[0]=GetCurCh();
				token[1]=GetNextCh();
				token[2]=0;
				v=FindInKeyWordTab(token);
				m_tCifa[m_ntCifaLen]=new CifaResult;
				m_tCifa[m_ntCifaLen]->value=0;
				m_tCifa[m_ntCifaLen]->type=v;
				::strcpy(m_tCifa[m_ntCifaLen]->text,token);
				m_tCifa[m_ntCifaLen]->address=m_pCurCh;
				m_ntCifaLen++;
				NextCh();
				NextCh();
				break;
			default:
				token[0]=GetCurCh();
				token[1]=0;
				v=FindInKeyWordTab(token);
				m_tCifa[m_ntCifaLen]=new CifaResult;
				m_tCifa[m_ntCifaLen]->value=0;
				m_tCifa[m_ntCifaLen]->type=v;
				::strcpy(m_tCifa[m_ntCifaLen]->text,token);
				m_tCifa[m_ntCifaLen]->address=m_pCurCh;
				m_ntCifaLen++;
				NextCh();
			}
			break;
		case '>':
			switch (GetNextCh())
			{
			case '=':
				token[0]=GetCurCh();
				token[1]=GetNextCh();
				token[2]=0;
				v=FindInKeyWordTab(token);
				m_tCifa[m_ntCifaLen]=new CifaResult;
				m_tCifa[m_ntCifaLen]->value=0;
				m_tCifa[m_ntCifaLen]->type=v;
				::strcpy(m_tCifa[m_ntCifaLen]->text,token);
				m_tCifa[m_ntCifaLen]->address=m_pCurCh;
				m_ntCifaLen++;
				NextCh();
				NextCh();
				break;
			default:
				token[0]=GetCurCh();
				token[1]=0;
				v=FindInKeyWordTab(token);
				m_tCifa[m_ntCifaLen]=new CifaResult;
				m_tCifa[m_ntCifaLen]->value=0;
				m_tCifa[m_ntCifaLen]->type=v;
				::strcpy(m_tCifa[m_ntCifaLen]->text,token);
				m_tCifa[m_ntCifaLen]->address=m_pCurCh;
				m_ntCifaLen++;
				NextCh();
			}
			break;
		case ':':
			switch (GetNextCh())
			{
			case '=':
				token[0]=GetCurCh();
				token[1]=GetNextCh();
				token[2]=0;
				v=FindInKeyWordTab(token);
				m_tCifa[m_ntCifaLen]=new CifaResult;
				m_tCifa[m_ntCifaLen]->value=0;
				m_tCifa[m_ntCifaLen]->type=v;
				::strcpy(m_tCifa[m_ntCifaLen]->text,token);
				m_tCifa[m_ntCifaLen]->address=m_pCurCh;
				m_ntCifaLen++;
				NextCh();
				NextCh();
				break;
			default:
				token[0]=GetCurCh();
				token[1]=0;
				v=FindInKeyWordTab(token);
				m_tCifa[m_ntCifaLen]=new CifaResult;
				m_tCifa[m_ntCifaLen]->value=0;
				m_tCifa[m_ntCifaLen]->type=v;
				::strcpy(m_tCifa[m_ntCifaLen]->text,token);
				m_tCifa[m_ntCifaLen]->address=m_pCurCh;
				m_ntCifaLen++;
				NextCh();
			}
			break;
		default:
			token[0]=GetCurCh();
			token[1]=0;
			m_tCifa[m_ntCifaLen]=new CifaResult;
			m_tCifa[m_ntCifaLen]->value=2;
			m_tCifa[m_ntCifaLen]->type=0;
			::strcpy(m_tCifa[m_ntCifaLen]->text,token);
			m_tCifa[m_ntCifaLen]->address=m_pCurCh;
			m_ntCifaLen++;
			NextCh();
		}//switch
		if (m_ntCifaLen==LEX_DUAD_TABLE_LEN-2)//out of table space
		{
			m_tCifa[m_ntCifaLen]=new CifaResult;
			m_tCifa[m_ntCifaLen]->value=99;
			m_tCifa[m_ntCifaLen]->type=0;
			::strcpy(m_tCifa[m_ntCifaLen]->text,"");
			m_tCifa[m_ntCifaLen]->address=m_pCurCh-1;
			m_ntCifaLen++;
			break;
		}
	}//GetSYM
	m_tCifa[m_ntCifaLen]=new CifaResult;
	m_tCifa[m_ntCifaLen]->value=0;
	m_tCifa[m_ntCifaLen]->type=-1;//end node
	::strcpy(m_tCifa[m_ntCifaLen]->text,"");
	m_tCifa[m_ntCifaLen]->address=0;
	m_ntCifaLen++;
	return;
}

int CCompiler::FindInKeyWordTab(char * a)
{
	for (int i=0;i<KEY_WORD_TABLE_LEN;i++)
		if (!::stricmp(m_tKeyWord[i],a)) return i;
	return 0;
}

int CCompiler::FindInCifaTab(char * a)
{
	int v=1;
	for (int i=0;i<m_ntCifaLen;i++)
	{
		if (m_tCifa[i]->type==1)
		{
			v++;
			if (!::stricmp(m_tCifa[i]->text,a))
				return m_tCifa[i]->value;
		}
	}
	return v;
}

void CCompiler::YuFaFengXi()
{
	if (m_ntCifaLen==0) return;//未進行詞法分析
	m_pCurSym=0;
	p_ChengXu();
	m_Interface.ErrorAddress=m_nErrorAddress;
	m_Interface.ErrorNumber=m_nErrorNum;
	return;
}

int CCompiler::p_ChengXu()
{
	switch (GetCurSym()->type)
	{
	case 3://program
		break;
	default:
		m_nErrorNum=3;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	NextSym();
	switch (GetCurSym()->type)
	{
	case 1://id
		break;
	default:
		m_nErrorNum=4;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	NextSym();
	switch (GetCurSym()->type)
	{
	case 30://;
		break;
	default:
		m_nErrorNum=5;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	NextSym();
	if (!p_ChengXuTi()) return FALSE;
	switch (GetCurSym()->type)
	{
	case 31://.
		break;
	default:
		m_nErrorNum=6;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	NextSym();
	switch (GetCurSym()->type)
	{
	case -1://end of cifa
		break;
	default:
		m_nErrorNum=96;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	m_nErrorNum=0;//Successful
	m_nErrorAddress=m_pCurSym;
	return TRUE;
}

int CCompiler::p_ChengXuTi()
{
	switch (GetCurSym()->type)
	{
	case 14://integer
	case 15://real
	case 5://procedure
		if (!p_ShuoMingChuan()) return FALSE;
		switch (GetCurSym()->type)
		{
		case 30://;
			break;
		default:
			m_nErrorNum=5;
			m_nErrorAddress=m_pCurSym;
			return FALSE;
		}
		NextSym();
		break;
	case 6://begin
		break;
	default:
		m_nErrorNum=7;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	switch (GetCurSym()->type)
	{
	case 6://begin
		break;
	default:
		m_nErrorNum=8;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	NextSym();
	if (!p_YuJuChuan()) return FALSE;
	switch (GetCurSym()->type)
	{
	case 7://end
		break;
	default:
		m_nErrorNum=10;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	NextSym();
	return TRUE;
}

int CCompiler::p_ShuoMingChuan()
{
	if (!p_ShuoMing()) return FALSE;
	while (GetCurSym()->type==30 
		&& GetNextSym()->type!=6)//; begin
	{
		NextSym();
		if (!p_ShuoMing()) return FALSE;
	}
	return TRUE;
}

int CCompiler::p_ShuoMing()
{
	switch (GetCurSym()->type)
	{
	case 14://integer
	case 15://real
		if (!p_JianBianShuoMing()) return FALSE;
		break;
	case 5://procedure
		if (!p_GuoChengShuoMing()) return FALSE;
		break;
	default:
		m_nErrorNum=11;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	return TRUE;
}

int CCompiler::p_JianBianShuoMing()
{
	switch (GetCurSym()->type)
	{
	case 14://integer
	case 15://real
		break;
	default:
		m_nErrorNum=12;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	NextSym();
	switch (GetCurSym()->type)
	{
	case 1://id
		break;
	default:
		m_nErrorNum=14;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	NextSym();
	while (GetCurSym()->type==32)
	{
		NextSym();
		switch (GetCurSym()->type)
		{
		case 1://id
			break;
		default:
			m_nErrorNum=14;
			m_nErrorAddress=m_pCurSym;
			return FALSE;
		}
		NextSym();
	}
	return TRUE;
}

int CCompiler::p_GuoChengShuoMing()
{
	switch (GetCurSym()->type)
	{
	case 5://procedure
		break;
	default:
		m_nErrorNum=15;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	NextSym();
	switch (GetCurSym()->type)
	{
	case 1://id
		break;
	default:
		m_nErrorNum=13;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	NextSym();
	switch (GetCurSym()->type)
	{
	case 33://(
		if (!p_XingChanBuFeng()) return FALSE;
		break;
	default:
		;
	}
	switch (GetCurSym()->type)
	{
	case 30://;
		break;
	default:
		m_nErrorNum=5;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	NextSym();
	if (!p_ChengXuTi()) return FALSE;
	return TRUE;
}

int CCompiler::p_XingChanBuFeng()
{
	switch (GetCurSym()->type)
	{
	case 33://(
		break;
	default:
		m_nErrorNum=16;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	NextSym();
	if (!p_XingChan()) return FALSE;
	while (GetCurSym()->type==30)
	{
		NextSym();
		if (!p_XingChan()) return FALSE;
	}
	switch (GetCurSym()->type)
	{
	case 34://)
		break;
	default:
		m_nErrorNum=17;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	NextSym();
	return TRUE;
}

int CCompiler::p_XingChan()
{
	if (GetCurSym()->type==4)//var
		NextSym();
	switch (GetCurSym()->type)
	{
	case 1://id
		break;
	default:
		m_nErrorNum=18;
		m_nErrorAddress=m_pCurSym;
		return FALSE;
	}
	NextSym();
	while (GetCurSym()->type==32)//,
	{

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
欧美成人精品3d动漫h| 日韩国产在线一| 亚洲国产视频一区二区| 国产一区二区三区蝌蚪| 欧洲国产伦久久久久久久| 久久综合资源网| 亚洲va国产va欧美va观看| 北条麻妃国产九九精品视频| 日韩欧美激情在线| 亚洲一区二区精品3399| av午夜一区麻豆| 日韩欧美国产电影| 香蕉影视欧美成人| 色成年激情久久综合| 国产精品素人一区二区| 裸体一区二区三区| 欧美乱妇23p| 香蕉久久一区二区不卡无毒影院 | 26uuu国产一区二区三区| 一区二区三区在线播| 97se亚洲国产综合自在线观| 国产欧美日韩精品一区| 狠狠色丁香久久婷婷综| 日韩免费电影网站| 麻豆视频观看网址久久| 日韩欧美久久一区| 老司机午夜精品99久久| 精品久久久影院| 久久99精品久久久久久国产越南| 欧美精品一二三区| 图片区小说区国产精品视频| 欧美三日本三级三级在线播放| 亚洲欧美区自拍先锋| 色综合天天天天做夜夜夜夜做| 亚洲私人影院在线观看| 91在线视频在线| 一区二区三区精品| 日本精品视频一区二区三区| 亚洲自拍欧美精品| 欧美日韩亚洲高清一区二区| 欧美bbbbb| 精品福利在线导航| 成人免费观看av| 亚洲视频一区二区免费在线观看| 欧洲av在线精品| 爽爽淫人综合网网站| 日韩一级二级三级| 国产精品综合av一区二区国产馆| 久久久久国产精品麻豆| 99天天综合性| 亚洲国产成人av| 91精品国产品国语在线不卡| 久久99精品久久久| 中文在线资源观看网站视频免费不卡 | 国产精品456露脸| 国产精品日产欧美久久久久| 不卡高清视频专区| 亚洲综合成人在线视频| 日韩三级中文字幕| 成人一区在线观看| 亚洲一区免费观看| 精品国产凹凸成av人导航| 国产成人精品一区二区三区四区 | 欧洲一区在线电影| 免费人成黄页网站在线一区二区| 国产欧美视频在线观看| 在线免费观看日本一区| 久久草av在线| 一区二区国产盗摄色噜噜| 日韩三级高清在线| 91在线国产福利| 秋霞午夜鲁丝一区二区老狼| 国产精品美女久久久久久久网站| 欧美视频一区二区三区四区| 久久不见久久见免费视频7| 最新欧美精品一区二区三区| 日韩欧美中文字幕一区| jvid福利写真一区二区三区| 日韩精品福利网| 亚洲视频中文字幕| 欧美大片一区二区| 欧美亚洲高清一区二区三区不卡| 激情成人综合网| 亚洲成人动漫精品| 欧美韩国一区二区| 欧美一区二区三区免费| 一本色道综合亚洲| 不卡高清视频专区| 国产黑丝在线一区二区三区| 日韩**一区毛片| 亚洲精品国产a久久久久久| 国产日韩亚洲欧美综合| 日韩欧美国产午夜精品| 欧美无砖砖区免费| 91色九色蝌蚪| av资源站一区| 丁香一区二区三区| 国产九色精品成人porny| 日韩国产成人精品| 天天综合色天天综合色h| 亚洲综合免费观看高清在线观看| 亚洲欧洲在线观看av| 日本一区二区成人| 中文字幕av资源一区| 2023国产精品自拍| 日韩一二在线观看| 95精品视频在线| 成人亚洲一区二区一| 日韩国产精品久久久久久亚洲| 久久新电视剧免费观看| 精品国产乱码久久久久久图片| 欧美在线一区二区| av一区二区不卡| 丁香婷婷综合色啪| 99re亚洲国产精品| 成人动漫av在线| 国产91精品一区二区| 韩国av一区二区三区四区| 国产老妇另类xxxxx| 六月丁香婷婷色狠狠久久| 午夜精品在线看| 一区二区三区欧美亚洲| 亚洲摸摸操操av| 亚洲国产精品嫩草影院| 亚洲久草在线视频| 国产精品国产三级国产普通话99 | 黄色小说综合网站| 亚洲成人免费在线| 亚洲视频在线一区二区| 亚洲私人黄色宅男| 亚洲国产精品成人久久综合一区| 亚洲欧洲国产日本综合| 亚洲国产精品成人综合色在线婷婷| 久久亚洲免费视频| 国产日韩欧美激情| 亚洲男人电影天堂| 亚洲妇女屁股眼交7| 午夜精品福利一区二区三区av| 亚洲一二三四久久| 美女一区二区视频| 韩国精品一区二区| 国产很黄免费观看久久| 国产精品一区二区三区四区| 岛国精品一区二区| 91在线视频18| 欧美一三区三区四区免费在线看| 在线成人高清不卡| 精品欧美一区二区三区精品久久 | 3atv在线一区二区三区| 久久综合色天天久久综合图片| 久久精品视频在线看| 国产精品高潮呻吟| 亚洲第一av色| 日本成人在线电影网| 国产美女在线观看一区| 成人a级免费电影| 欧美色手机在线观看| 欧美三级电影在线观看| 国产女人aaa级久久久级| 亚洲人成网站影音先锋播放| 亚洲va中文字幕| 国产黑丝在线一区二区三区| 91精彩视频在线观看| 8x8x8国产精品| 亚洲国产精品黑人久久久| 亚洲图片欧美色图| 日本色综合中文字幕| 一本色道亚洲精品aⅴ| 日韩欧美在线一区二区三区| 亚洲国产精品v| 天堂影院一区二区| 日本电影欧美片| 欧美成人官网二区| 亚洲激情第一区| 久久国产麻豆精品| 91麻豆精品国产91久久久| 国产精品乱码一区二三区小蝌蚪| 午夜精品视频在线观看| 床上的激情91.| 欧美伦理电影网| 国产精品女主播av| 久久se这里有精品| 欧美日韩三级一区| 亚洲精品免费在线观看| 国产精品一二三四| 欧美日韩国产不卡| 亚洲mv在线观看| 97久久精品人人做人人爽| xnxx国产精品| 性做久久久久久免费观看欧美| 色婷婷激情综合| 国产精品欧美久久久久无广告| 免费观看在线色综合| 欧美伊人久久大香线蕉综合69| 亚洲柠檬福利资源导航| 国产1区2区3区精品美女| 日韩欧美另类在线| 亚洲成人动漫av| 91蜜桃网址入口| 亚洲欧美一区二区不卡|