#include <boost/foreach.hpp>

#include <jenga/include/common/Directory.h>

#include <jenga/include/smoothie/Smoothie.h>
#include <jenga/include/smoothie/BasicFixed.h>
#include <jenga/include/smoothie/Source.h>
#include <jenga/include/smoothie/LexicalAnalysis.h>
#include <jenga/include/smoothie/SmoothieException.h>


const string BasicSource::generateDirectiveName = "#generate";


class CDefine{
	vector<string> names;
public:
	CDefine( int majorVer );
	~CDefine();
	void Free();
	void Init( int majorVer );

	BOOL add(char *name);
	BOOL undef(char *name);
	BOOL check(char *name);
	void preprocessor_ifdef(char *buffer,bool isNot);
	void DirectiveIfdef(char *buffer);
};
// TODO: バージョン番号の識別子defineが未完成
CDefine objDefine(0);


//////////////////////////////////////
// #requireの管理
//////////////////////////////////////
class CRequireFiles{
	char **ppFilePath;
	int count;
public:
	CRequireFiles(){
		ppFilePath = (char **)malloc( 1 );
		count = 0;
	}
	~CRequireFiles(){
		for( int i = 0; i < count; i++ ){
			free( ppFilePath[i] );
		}
		free( ppFilePath );
	}
	void clear(){
		for( int i = 0; i < count; i++ ){
			free( ppFilePath[i] );
		}
		free( ppFilePath );

		ppFilePath = (char **)malloc( 1 );
		count = 0;
	}
	bool IsIncluded( const char *includeFilePath ){
		// '/' → '\\'
		char tempPath[MAX_PATH];
		lstrcpy( tempPath, includeFilePath );
		for( int i=0; tempPath[i]; i++ ){
			if( tempPath[i] == '/' ){
				tempPath[i] = '\\';
			}
		}

		for( int i=0; i<count; i++ ){
			if( lstrcmpi( ppFilePath[i], tempPath ) == 0 ){
				return true;
			}
		}
		return false;
	}
	void Add( const char *includeFilePath ){
		// '/' → '\\'
		char tempPath[MAX_PATH];
		lstrcpy( tempPath, includeFilePath );
		for( int i=0; tempPath[i]; i++ ){
			if( tempPath[i] == '/' ){
				tempPath[i] = '\\';
			}
		}

		//既に読み込まれているとき
		if( IsIncluded( tempPath ) ) return;

		//追加
		ppFilePath = (char **)realloc(ppFilePath, ( count + 1 ) * sizeof(char *) );
		ppFilePath[count] = (char *)malloc( lstrlen(tempPath) + 1 );
		lstrcpy( ppFilePath[count], tempPath );
		count++;
	}
};
CRequireFiles requireFiles;


//////////////////////////////////////
// #define間するクラス
//////////////////////////////////////

CDefine::CDefine( int majorVer ){
	Init( majorVer );
}
CDefine::~CDefine(){
}
void CDefine::Init( int majorVer ){
	names.clear();

	extern BOOL bDebugCompile;
	if(bDebugCompile) add("_DEBUG");

#ifdef _AMD64_
	add("_WIN64");
#endif

	extern BOOL bDll;
	if( bDll ){
		add("_DLL");
	}

	if( Smoothie::IsUnicode() ){
		add( "UNICODE" );
	}

	char temporary[255];
	sprintf(temporary,"_AB_VER%d",majorVer);
	add(temporary);
}
BOOL CDefine::add(char *name){
	extern HANDLE hHeap;

	//重複チェック
	if(check(name)) return 0;

	//追加
	names.push_back( name );

	return 1;
}
BOOL CDefine::undef(char *name){
	vector<string>::iterator i = names.begin();
	BOOST_FOREACH( const string &temp, names ){
		if( temp == name ){
			names.erase( i );
			return 1;
		}
		i++;
	}

	return 0;
}
BOOL CDefine::check(char *name){

	//重複チェック
	BOOST_FOREACH( const string &temp, names ){
		if( temp == name ){
			return 1;
		}
	}
	return 0;
}

int Search_endif(char *buffer,int i, int *pLine = 0){
	for(;;i++){
		if(buffer[i]=='\0') break;

		if( buffer[i] == '\n' ){
			if( pLine ){
				(*pLine)++;
			}
		}

		if(buffer[i-1]=='\n'){
			if(memicmp(buffer+i,"#ifdef",6)==0||memicmp(buffer+i,"#ifndef",7)==0){
				i=Search_endif(buffer,i+6, pLine);
				if(buffer[i]=='\0') break;
				continue;
			}
			else if(memicmp(buffer+i,"#endif",6)==0){
				break;
			}
		}
	}
	return i;
}

void CDefine::preprocessor_ifdef(char *buffer,bool isNot){
	int i,i2,i3;
	char temporary[VN_SIZE];

	if(isNot) i=lstrlen("#ifndef");
	else i=lstrlen("#ifdef");
	while(buffer[i]==' '||buffer[i]=='\t') i++;

	for(i2=0;;i++,i2++){
		if(buffer[i]=='\n'||buffer[i]=='\0'){
			temporary[i2]=0;
			break;
		}
		temporary[i2]=buffer[i];
	}

	int sw=0;
	if(check(temporary)) sw=1;

	if(isNot){
		//#ifndefのとき（反対にする）
		if(sw) sw=0;
		else sw=1;
	}

	//#ifdefの行を消去
	Text::SlideString(buffer+i,-i);
	i=0;

	BOOL bElse=0;
	if(sw){
		//TRUEのとき

		//#else、#endifを探索
		for(;;i++){
			if(buffer[i]=='\0') break;

			if(i==0||buffer[i-1]=='\n'){
				if(memicmp(buffer+i,"#ifdef",6)==0||memicmp(buffer+i,"#ifndef",7)==0){
					i=Search_endif(buffer,i+6);
					if(buffer[i]=='\0') break;
					continue;
				}
				else if(memicmp(buffer+i,"#else",5)==0){
					i2=5;
					bElse=1;
					break;
				}
				else if(memicmp(buffer+i,"#endif",6)==0){
					i2=6;
					bElse=0;
					break;
				}
			}
		}

		//行を消去
		Text::SlideString(buffer+i+i2,-i2);

		if(bElse){
			//#elseがある場合はその区間を消去

			for(i2=i,i3=0;;i2++){
				if(buffer[i2]=='\0') break;

				if(buffer[i2]=='\n') i3++;

				if(i2==0||buffer[i2-1]=='\n'){
					if(memicmp(buffer+i2,"#ifdef",6)==0||memicmp(buffer+i2,"#ifndef",7)==0){
						i2=Search_endif(buffer,i2+6, &i3 );
						if(buffer[i2]=='\0') break;
						continue;
					}
					if(memicmp(buffer+i2,"#endif",6)==0){
						i2+=6;
						break;
					}
				}
			}

			//ソースコード区間を消去し、改行コードを挿入
			Text::SlideString(buffer+i2,i-i2+i3);
			memset(buffer+i,'\n',i3);
		}
	}
	else{
		//FALSEのとき

		//#else、#endifを探索
		for(i2=i,i3=0;;i2++){
			if(buffer[i2]=='\0') break;

			if(buffer[i2]=='\n') i3++;

			if(i2==0||buffer[i2-1]=='\n'){
				if(memicmp(buffer+i2,"#ifdef",6)==0||memicmp(buffer+i2,"#ifndef",7)==0){
					i2=Search_endif(buffer,i2+6, &i3 );
					if(buffer[i2]=='\0') break;
					continue;
				}
				else if(memicmp(buffer+i2,"#else",5)==0){
					i2+=5;
					bElse=1;
					break;
				}
				else if(memicmp(buffer+i2,"#endif",6)==0){
					i2+=6;
					bElse=0;
					break;
				}
			}
		}

		//ソースコード区間を消去し、改行コードを挿入
		Text::SlideString(buffer+i2,i-i2+i3);
		memset(buffer+i,'\n',i3);

		if(bElse){
			//#endifを探索
			for(;;i++){
				if(buffer[i]=='\0') break;

				if(i==0||buffer[i-1]=='\n'){
					if(memicmp(buffer+i,"#ifdef",6)==0||memicmp(buffer+i,"#ifndef",7)==0){
						i=Search_endif(buffer,i+6);
						if(buffer[i]=='\0') break;
						continue;
					}
					else if(memicmp(buffer+i,"#endif",6)==0){
						i2=6;
						bElse=0;
						break;
					}
				}
			}

			//行を消去
			Text::SlideString(buffer+i+i2,-i2);
		}
	}
}


void CDefine::DirectiveIfdef(char *buffer){
	int i,i2,i3,sw;
	char temporary[VN_SIZE];

	for(i=0;;i++){
		if(buffer[i]=='\0') break;

		if(i==0||(i>=1&&buffer[i-1]=='\n')){
			sw=0;
			if(memicmp(buffer+i,"#define",7)==0){
				i2=i+7;
				while(buffer[i2]==' '||buffer[i2]=='\t') i2++;

				for(i3=0;;i2++,i3++){
					if(buffer[i2]=='\n'||buffer[i2]=='\0'){
						temporary[i3]=0;
						break;
					}
					temporary[i3]=buffer[i2];
				}

				add(temporary);

				i2-=i;

				//ディレクティブを消去
				Text::SlideString(buffer+i+i2,-i2);
			}
			if(memicmp(buffer+i,"#undef",6)==0){
				i2=i+7;
				while(buffer[i2]==' '||buffer[i2]=='\t') i2++;

				for(i3=0;;i2++,i3++){
					if(buffer[i2]=='\n'||buffer[i2]=='\0'){
						temporary[i3]=0;
						break;
					}
					temporary[i3]=buffer[i2];
				}

				undef(temporary);

				i2-=i;

				//ディレクティブを消去
				Text::SlideString(buffer+i+i2,-i2);
			}
			else if(memicmp(buffer+i,"#ifdef",6)==0){
				preprocessor_ifdef(buffer+i,false);
				continue;
			}
			else if(memicmp(buffer+i,"#ifndef",7)==0){
				preprocessor_ifdef(buffer+i,true);
				continue;
			}
			else continue;
		}
	}
}




bool Text::ReadFile( const string &filePath ){
	//ファイルオープン
	HANDLE hFile=CreateFile(filePath.c_str(),GENERIC_READ,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
	if(hFile==INVALID_HANDLE_VALUE){
		return false;
	}

	length = GetFileSize( hFile, NULL );

	buffer = (char *)realloc( buffer, length + 1 );

	//読み込み
	DWORD dwAccBytes;
	::ReadFile(hFile,buffer,length,&dwAccBytes,0);
	buffer[dwAccBytes]=0;

	//ファイルクローズ
	CloseHandle(hFile);

	return true;
}

void BasicSource::ChangeReturnLineChar(){
	int i,i2;

#ifdef _DEBUG
	//改行コードの整合性チェック
	for( i=0; ; i++ ){
		if( buffer[i] == '\0' ){
			break;
		}
		if( buffer[i]!='\r' && buffer[i+1]=='\n'
			||  buffer[i]=='\r' && buffer[i+1]!='\n' ){
				char temporary[255];
				strncpy( temporary, buffer + i-100, 130 );
				temporary[130] = 0;
				for(int i2=0; ;i2++){
					if(temporary[i2]=='\r') temporary[i2]='A';
					if(temporary[i2]=='\n') temporary[i2]='B';
					if(temporary[i2]=='\0') break;
				}

				extern HWND hOwnerEditor;
				MessageBox( hOwnerEditor, temporary, "改行コードの整合性チェック", MB_OK | MB_ICONEXCLAMATION );
		}
	}
#endif

	//改行コードのCRLFをLFに変換
	for(i=0,i2=0;;i++,i2++){
		if(buffer[i]=='\r'&&buffer[i+1]=='\n') i++;
		buffer[i2]=buffer[i];
		if(buffer[i]=='\0') break;
	}

	length = i;
}

void BasicSource::RemoveComments(){
	int i,i2,i3,IsStr;
	char *temporary;
	temporary=(char *)GlobalAlloc(GMEM_FIXED,lstrlen(buffer)+1);
	for(i=0,i2=0,i3=0,IsStr=0;;i++,i2++){
		if(buffer[i]=='\"') IsStr^=1;
		if(buffer[i]=='\n'||buffer[i]=='\0'){
			i2--;
			while(temporary[i2]==' '||temporary[i2]=='\t') i2--;
			i2++;

			if(i3){
				//複数行に渡る注釈文の中に改行が存在するとき
				memset(temporary+i2,'\n',i3);
				i2+=i3;
				i3=0;
			}
		}
		if(buffer[i]=='\''&&IsStr==0){
			//注釈文
			i2--;
			while(temporary[i2]==' '||temporary[i2]=='\t') i2--;
			i2++;
			while(buffer[i]!='\n'&&buffer[i]!='\0') i++;
		}
		if(buffer[i]=='/'&&buffer[i+1]=='*'&&IsStr==0){
			//注釈文（複数行）
			i+=2;
			i3=0;
			while(!(buffer[i]=='*'&&buffer[i+1]=='/')){
				if(buffer[i]=='\n') i3++;
				if(buffer[i]=='\0') break;
				i++;
			}
			if(buffer[i]){
				i+=2;
			}
			i--;
			i2--;
			continue;
		}
		temporary[i2]=buffer[i];
		if(buffer[i]=='\0') break;
	}
	lstrcpy(buffer,temporary);
	GlobalFree(temporary);
}

bool BasicSource::ReadFile_InIncludeDirective( const string &filePath ){
	if( !Text::ReadFile( filePath ) ){
		return false;
	}

	// 改行コードをCRLFからLFに変換
	ChangeReturnLineChar();

	// コメントを削除
	RemoveComments();

	// #ifdefディレクティブを処理
	objDefine.DirectiveIfdef( buffer );

	// アンダーバーによる改行を正規表現に戻す
	RemoveReturnLineUnderbar();

	// ダミー改行をセット
	Realloc( length + 2 );
	Text::SlideString( buffer, 2 );
	buffer[0] = '\n';
	buffer[1] = '\n';

	return true;
}

void BasicSource::DirectiveIncludeOrRequire(){
	extern HANDLE hHeap;
	extern char szIncludeDir[MAX_PATH];
	extern char BasicCurDir[MAX_PATH];
	extern INCLUDEFILEINFO IncludeFileInfo;
	int i,i2,i3,sw1,LineNum,FileLayer[255],layer,LastFileByte[255];
	char temporary[MAX_PATH],temp2[MAX_PATH+255],*LayerDir[255];

	IncludeFileInfo.ppFileNames=(char **)calloc(sizeof(char *),1);
	extern char SourceFileName[MAX_PATH];
	IncludeFileInfo.ppFileNames[0]=(char *)malloc(lstrlen(SourceFileName)+1);
	lstrcpy(IncludeFileInfo.ppFileNames[0],SourceFileName);
	IncludeFileInfo.FilesNum=1;

	layer=0;
	FileLayer[layer]=0;
	LastFileByte[layer]=GetLength();
	LineNum=0;

	//参照ディレクトリ
	LayerDir[0]=(char *)malloc(lstrlen(BasicCurDir)+1);
	lstrcpy(LayerDir[0],BasicCurDir);

	for(i=0;;i++){
		if(buffer[i]=='\0'){
			IncludeFileInfo.LineOfFile[LineNum]=-1;
			break;
		}
		if(buffer[i]=='\n'){
			IncludeFileInfo.LineOfFile[LineNum]=FileLayer[layer];
			LineNum++;
		}
		if(i>LastFileByte[layer]){
			free(LayerDir[layer]);
			LayerDir[layer]=0;
			layer--;
		}
		if((buffer[i-1]=='\n'||i==0)&&buffer[i]=='#'){
			bool isRequire = false;
			if(memcmp( buffer + i + 1, "include", 7 ) == 0
				|| memcmp( buffer + i + 1, "require", 7 ) == 0){

					//#requireの場合
					if( buffer[i + 1] == 'r' ) isRequire = true;

					i2=i+8;
					while(buffer[i2]==' '||buffer[i2]=='\t') i2++;

					if(buffer[i2]=='\"') sw1=0;
					else if(buffer[i2]=='<') sw1=1;
					i2++;

					for(i3=0;;i2++,i3++){
						if((buffer[i2]=='\"'&&sw1==0)||(buffer[i2]=='>'&&sw1==1)||buffer[i2]=='\n'||buffer[i2]=='\0'){
							temporary[i3]=0;
							break;
						}
						temporary[i3]=buffer[i2];
					}
					while(buffer[i2]!='\n'&&buffer[i2]!='\0') i2++;

					if(sw1){
						sprintf(temp2,"%s%s",szIncludeDir,temporary);
						lstrcpy(temporary,temp2);
					}
					else{
						Jenga::Common::Directory dir( LayerDir[layer] );
						lstrcpy( temporary, dir.GetFullPath( temporary ).c_str() );
					}
			}
			else if(memcmp(buffer+i+1,"prompt",6)==0){
				i2=i+7;
				sprintf(temporary,"%sbasic\\prompt.sbp",szIncludeDir);
			}
			else if(memcmp(buffer+i+1,"N88BASIC",8)==0){
				i2=i+9;
				sprintf(temporary,"%sbasic\\prompt.sbp",szIncludeDir);
			}
			else if(memcmp(buffer+i+1,"console",7)==0){
				//サブシステム タイプをCUIに変更
				extern unsigned short TypeOfSubSystem;
				TypeOfSubSystem=IMAGE_SUBSYSTEM_WINDOWS_CUI;

				i2=i+8;
				sprintf(temporary,"%sbasic\\dos_console.sbp",szIncludeDir);
			}
			else continue;

			if(i){
				//ディレクティブが消えるため、一行減ってしまうのを防ぐ（basic.sbpを除く）
				Text::SlideString(buffer+i2,1);
				buffer[i2]='\n';
				for(i3=0;i3<=layer;i3++) LastFileByte[i3]++;
			}

			IncludeFileInfo.ppFileNames=(char **)realloc(IncludeFileInfo.ppFileNames,(IncludeFileInfo.FilesNum+1)*sizeof(char *));
			IncludeFileInfo.ppFileNames[IncludeFileInfo.FilesNum]=(char *)malloc(lstrlen(temporary)+1);
			lstrcpy(IncludeFileInfo.ppFileNames[IncludeFileInfo.FilesNum],temporary);

			layer++;
			FileLayer[layer]=IncludeFileInfo.FilesNum;
			IncludeFileInfo.FilesNum++;

			//#requireの場合では、既に読み込まれているファイルは読み込まないようにする
			bool isFake = false;
			if( isRequire ){
				if( requireFiles.IsIncluded( temporary ) ){
					//既に読み込まれているとき
					isFake = true;
				}
			}

			BasicSource source;

			if( isFake ){
				//既に読み込まれているときは空データ
				source.SetBuffer( "" );
			}
			else{
				//取り込まれたファイルを収集する
				requireFiles.Add( temporary );

				//インクルードファイルを読み込む
				if( !source.ReadFile_InIncludeDirective( temporary ) ){
					sprintf(temp2,"インクルードファイル \"%s\" をオープンできません",temporary);
					throw SmoothieException(-1,temp2,i);
					break;
				}
			}

			i3=lstrlen(buffer)+source.GetLength();
			Realloc( i3 );
			Text::SlideString(buffer+i2,source.GetLength()+(i-i2));
			memcpy(buffer+i,source.GetBuffer(),source.GetLength());

			//新しい参照ディレクトリをセット
			char temp4[MAX_PATH];
			_splitpath(temporary,temp2,temp4,0,0);
			lstrcat(temp2,temp4);
			LayerDir[layer]=(char *)malloc(lstrlen(temp2)+1);
			lstrcpy(LayerDir[layer],temp2);

			//ファイル範囲をスライド
			LastFileByte[layer]=i+source.GetLength()-1;
			for(i3=0;i3<layer;i3++) LastFileByte[i3]+=source.GetLength()+(i-i2);

			i--;
		}
	}

	free(LayerDir[0]);

	length = lstrlen(buffer);
}

int KillReturnCode_InParameter(char *buffer,int *pRnum,char cBeginPare,char cEndPare){
	int i,i2,i3,IsStr;

	//カッコ'('直下の改行
	while(buffer[0]=='\n'){
		Text::SlideString(buffer+1,-1);
		(*pRnum)++;
	}

	for(i=0,IsStr=0;;i++){
		if(IsDBCSLeadByte(buffer[i])&&buffer[i+1]){
			i++;
			continue;
		}

		if(buffer[i]=='\"') IsStr^=1;

		if(buffer[i]=='\0') break;	//エラー
		if(buffer[i]=='\n'){
			i2=0;
			i3=0;
			while(buffer[i+i2]=='\n'){
				i2++;
				i3++;
				while(buffer[i+i2]==' '||buffer[i+i2]=='\t') i2++;
			}
			while(buffer[i+i2]==' '||buffer[i+i2]=='\t') i2++;

			if(buffer[i+i2]==cEndPare){
				Text::SlideString(buffer+i+i2,-i2);
				(*pRnum)+=i3;
				break;
			}

			//エラー
			break;
		}

		if(buffer[i]==cBeginPare&&IsStr==0){
			i++;
			i2=KillReturnCode_InParameter(buffer+i,pRnum,cBeginPare,cEndPare);
			i+=i2;
			if(buffer[i]!=cEndPare) break;
			continue;
		}
		if(buffer[i]==cEndPare&&IsStr==0) break;

		if(buffer[i]==','&&buffer[i+1]=='\n'&&IsStr==0){
			i++;
			while(buffer[i]=='\n'){
				Text::SlideString(buffer+i+1,-1);
				(*pRnum)++;
			}
			i--;
		}
	}
	return i;
}
void BasicSource::RemoveReturnLineUnderbar(){
	int i,i2;

	//アンダーバーによる改行
	for(i=0;;i++){
		i2=0;
		while(buffer[i]=='_'&&buffer[i+1]=='\n'){
			i2++;
			Text::SlideString(buffer+i+2,-2);
			while(buffer[i]=='\n'){
				Text::SlideString(buffer+i+1,-1);
				i2++;
			}
			for(;;i++){
				if(buffer[i]=='_'&&buffer[i+1]=='\n') break;
				if(buffer[i]=='\n'||buffer[i]=='\0'){
					Text::SlideString(buffer+i,i2);
					memset(buffer+i,'\n',i2);
					break;
				}
			}
		}
		if(buffer[i]=='\0') break;
	}

	//カッコ内パラメータの改行
	int IsStr,rnum;
	for(i=0,IsStr=0,rnum=0;;i++){
		if(IsDBCSLeadByte(buffer[i])&&buffer[i+1]){
			i++;
			continue;
		}
		if(buffer[i]=='\0') break;
		if(buffer[i]=='\n'){
			if(rnum){
				Text::SlideString(buffer+i+1,rnum);
				memset(buffer+i+1,'\n',rnum);
				rnum=0;
			}
		}
		if(buffer[i]=='\"') IsStr^=1;
		if(buffer[i]=='('&&IsStr==0){
			i++;
			i2=KillReturnCode_InParameter(buffer+i,&rnum,'(',')');
			i+=i2;
			if(buffer[i]!=')') break;
		}
		if(buffer[i]=='['&&IsStr==0){
			i++;
			i2=KillReturnCode_InParameter(buffer+i,&rnum,'[',']');
			i+=i2;
			if(buffer[i]!=']') break;
		}
	}

	length = lstrlen(buffer);
}

void BasicSource::SetBuffer( const char *buffer ){
	this->buffer = (char *)calloc( lstrlen(buffer) + 1, 1 );
	lstrcpy( this->buffer, buffer );
	length = lstrlen(buffer);

	// ダミー改行をセット
	Realloc( length + 2 );
	Text::SlideString( this->buffer, 2 );
	this->buffer[0] = '\n';
	this->buffer[1] = '\n';
}

bool BasicSource::ReadFile( const string &filePath ){
	if( !Text::ReadFile( filePath ) ){
		return false;
	}

	// 改行コードをCRLFからLFに変換
	ChangeReturnLineChar();

	// basic.sbpをインクルード
	const char *headCode = "#include <basic.sbp>\n";
	Realloc( length + lstrlen(headCode) );
	Text::SlideString( buffer, lstrlen(headCode) );
	memcpy( buffer, headCode, lstrlen(headCode) );

	// #defineと#requireを初期化
	// TODO: バージョン番号の識別子defineが未完成
	objDefine.Init(0);
	requireFiles.clear();

	// コメントを削除
	RemoveComments();

	// #ifdefディレクティブを処理
	objDefine.DirectiveIfdef( buffer );

	//最終行には文字を含ませないようにする
	Realloc( length + 1 );
	lstrcat( buffer, "\n" );

	// #include / #require ディレクティブを処理
	DirectiveIncludeOrRequire();

	// アンダーバーによる改行を正規表現に戻す
	RemoveReturnLineUnderbar();

	// ダミー改行をセット
	Realloc( length + 2 );
	Text::SlideString( buffer, 2 );
	buffer[0] = '\n';
	buffer[1] = '\n';

	extern char *basbuf;
	basbuf = GetBuffer();

	return true;
}

bool BasicSource::Generate( const string &genName, const char *genBuffer ){
	const int genBufferLength = lstrlen( genBuffer );

#ifdef _DEBUG
	// 挿入ソースに改行コードが含まれていないかを検査する
	for( int i=0; genBuffer[i] ; i++ ){
		if( genBuffer[i] == '\n' ){
			SetError();
			break;
		}
	}
#endif

	bool isFound = false;

	for( int i=0; ; i++ ){
		if( i == 0 || buffer[i] == '\n' ){
			if( buffer[i] == '\n' ){
				i++;
			}
			while( IsBlank( buffer[i] ) ){
				i++;
			}

			int startIndex = i;

			if( memicmp( buffer + i, generateDirectiveName.c_str(), generateDirectiveName.size() ) == 0 ){
				i += (int)generateDirectiveName.size();
				while( IsBlank( buffer[i] ) ){
					i++;
				}

				char temporary[VN_SIZE];
				for( int i2=0; ; i++, i2++ ){
					if( buffer[i] == '\n' ){
						temporary[i2] = 0;
						break;
					}
					temporary[i2] = buffer[i];
				}
				if( genName == temporary ){
					// 一致

					int endIndex = i;

					int lengthOffset = genBufferLength - ( endIndex - startIndex );

					Realloc( length + lengthOffset );
					Text::SlideString( buffer + endIndex, lengthOffset );
					memcpy( buffer + startIndex, genBuffer, genBufferLength );

					isFound = true;

					break;
				}
			}
		}
	}

	return isFound;
}

void BasicSource::Addition( const char *buffer ){
	Realloc( length + lstrlen(buffer) );
	lstrcat( this->buffer, buffer );
}