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

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

?? complier.cpp

?? SIMPLE語言編譯器
?? CPP
?? 第 1 頁 / 共 4 頁
字號: 
// Complier.cpp: implementation of the CComplier class.
//
//////////////////////////////////////////////////////////////////////

#include "stdafx.h"
#include "040410201lei.h"
#include "Complier.h"

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

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

CComplier::CComplier()
{
	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;
}

CComplier::~CComplier()
{

}

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

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

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

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

void CComplier::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 CComplier::FindInKeyWordTab(char * a)
{
	for (int i=0;i<KEY_WORD_TABLE_LEN;i++)
		if (!::stricmp(m_tKeyWord[i],a)) return i;
	return 0;
}

int CComplier::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 CComplier::YuFaFengXi()
{
	if (m_ntCifaLen==0) return;//未進行詞法分析
	m_pCurSym=0;
	p_ChengXu();
	m_Interface.ErrorAddress=m_nErrorAddress;
	m_Interface.ErrorNumber=m_nErrorNum;
	return;
}

int CComplier::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 CComplier::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 CComplier::p_ShuoMingChuan()
{
	if (!p_ShuoMing()) return FALSE;
	while (GetCurSym()->type==30 
		&& GetNextSym()->type!=6)//; begin
	{
		NextSym();
		if (!p_ShuoMing()) return FALSE;
	}
	return TRUE;
}

int CComplier::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 CComplier::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 CComplier::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 CComplier::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 CComplier::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;

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
亚洲精品欧美专区| 99久久婷婷国产综合精品| 91精品一区二区三区久久久久久 | 国产剧情av麻豆香蕉精品| 一区二区三区日韩精品视频| 亚洲男帅同性gay1069| 国产精品乱子久久久久| 久久精品一区二区| 99综合电影在线视频| 国产高清视频一区| 日韩av网站在线观看| 午夜精品久久久| 三级影片在线观看欧美日韩一区二区| 亚洲精品精品亚洲| 午夜伦理一区二区| 麻豆成人久久精品二区三区红| 美腿丝袜亚洲综合| 亚洲国产精品人人做人人爽| 亚洲一区二区三区四区不卡| 亚洲线精品一区二区三区| 亚洲国产精品尤物yw在线观看| 亚洲自拍偷拍av| 日韩成人午夜精品| 国产精品99久久久久久似苏梦涵| 成人午夜激情在线| 91激情在线视频| 欧美一区二区三区公司| 亚洲高清在线视频| 午夜天堂影视香蕉久久| 青青草成人在线观看| 国产一区二区三区四| 91免费视频网址| 欧美高清视频在线高清观看mv色露露十八| 91精品久久久久久久99蜜桃| 久久综合色之久久综合| 最新热久久免费视频| 婷婷中文字幕综合| 激情综合亚洲精品| 欧美这里有精品| 欧美变态tickling挠脚心| 国产精品国产自产拍高清av王其| 亚洲国产综合在线| 成人在线视频首页| 在线电影院国产精品| 国产亚洲视频系列| 日韩成人免费电影| 色综合久久综合网欧美综合网| 91精品久久久久久久久99蜜臂| 国产精品高潮呻吟| 久久99热这里只有精品| 色综合一个色综合亚洲| 欧美日韩在线不卡| 国产精品久线在线观看| 激情综合色播五月| 欧美久久久一区| 亚洲欧美日韩国产中文在线| 久久99精品一区二区三区三区| www.日韩大片| 欧美在线观看一区二区| av成人动漫在线观看| 精品国产凹凸成av人导航| 亚洲国产精品欧美一二99| 成人毛片视频在线观看| 2欧美一区二区三区在线观看视频| 亚洲欧美另类小说视频| 国产一区二区三区久久悠悠色av| 7878成人国产在线观看| 亚洲欧美欧美一区二区三区| 97精品国产露脸对白| 久久综合av免费| 国产一区美女在线| 久久综合99re88久久爱| 久久99热这里只有精品| 欧美一级片免费看| 免费的国产精品| 精品国产免费视频| 精品一区二区在线播放| 久久无码av三级| 蜜臀va亚洲va欧美va天堂| 欧美一级午夜免费电影| 精品午夜一区二区三区在线观看| 在线播放日韩导航| 免费久久精品视频| 日韩欧美一区在线观看| 偷窥少妇高潮呻吟av久久免费| 日本高清视频一区二区| 亚洲乱码国产乱码精品精98午夜| 99re亚洲国产精品| 亚洲伦理在线免费看| 在线观看日韩精品| 日韩精品电影在线观看| 日韩午夜小视频| 国产一区二区三区四| 国产精品视频在线看| 91色porny在线视频| 亚洲在线视频免费观看| 欧美日韩一区二区三区免费看| 偷拍一区二区三区四区| 精品国产91洋老外米糕| 丁香啪啪综合成人亚洲小说| 国产精品视频yy9299一区| 成人黄色一级视频| 亚洲国产美国国产综合一区二区| 在线综合+亚洲+欧美中文字幕| 九九九精品视频| 亚洲欧美日韩在线播放| 91精品国产麻豆| 成人少妇影院yyyy| 亚洲国产日产av| 久久精品男人天堂av| 91美女福利视频| 美女看a上一区| 中文字幕亚洲精品在线观看| 欧美顶级少妇做爰| 成人激情免费视频| 欧美aaa在线| 国产精品剧情在线亚洲| 91精品在线免费观看| 成人国产精品免费网站| 日韩不卡一区二区三区| 国产精品久久久一本精品| 日韩一级片网站| 久久66热re国产| 亚洲第一福利一区| 国产日韩欧美a| 欧美一区二区三区免费| 色噜噜狠狠色综合中国| 国产成人免费在线| 日韩电影一区二区三区四区| 日韩美女啊v在线免费观看| 精品久久99ma| 91麻豆精品国产91久久久更新时间 | 精东粉嫩av免费一区二区三区| 中文字幕在线观看一区| 日韩美女视频在线| 欧美日韩国产免费一区二区 | 色天使色偷偷av一区二区| 激情小说欧美图片| 丝瓜av网站精品一区二区| 一区二区三区国产精品| 欧美韩国日本不卡| 精品国产乱码91久久久久久网站| 欧美在线观看视频在线| 国产精品一区二区三区四区| 蜜臀久久99精品久久久久久9| 一级女性全黄久久生活片免费| 久久久美女毛片| 欧美大片在线观看一区二区| 欧美在线色视频| 色哟哟精品一区| 99精品在线免费| 97久久人人超碰| 成人动漫一区二区在线| 成人毛片视频在线观看| 国产成人免费高清| 国产夫妻精品视频| 国产乱码精品一区二区三| 久久国产精品99精品国产 | 国产不卡免费视频| 国产在线乱码一区二区三区| 精品在线观看免费| 国产一区二区三区日韩| 国产精品一级在线| 国产91精品欧美| hitomi一区二区三区精品| youjizz久久| 在线国产亚洲欧美| 欧美蜜桃一区二区三区| 91精品国产一区二区三区| 91精品国产色综合久久ai换脸| 这里只有精品免费| 国产无一区二区| 亚洲精品网站在线观看| 日韩国产高清在线| 国产乱人伦精品一区二区在线观看 | 亚洲国产综合91精品麻豆| 亚洲一区二区三区中文字幕| 日韩高清电影一区| 国产酒店精品激情| 91丨porny丨首页| 777a∨成人精品桃花网| 久久精品一区二区三区av| 亚洲欧美另类小说视频| 香蕉影视欧美成人| 国产一本一道久久香蕉| 91在线国内视频| 日韩情涩欧美日韩视频| 国产欧美一区二区在线| 一区二区三区四区国产精品| 视频一区二区欧美| 国产精品性做久久久久久| 色婷婷狠狠综合| 日韩欧美一区二区免费| 国产精品久久久久永久免费观看 | 色欧美片视频在线观看| 3d动漫精品啪啪1区2区免费| 国产日韩欧美麻豆| 天天影视涩香欲综合网| 国产1区2区3区精品美女| 欧美亚洲国产一卡|