#include "common.h"

void StepCompileProgress(void){
	extern HWND hMainDlg;
	PostMessage(GetDlgItem(hMainDlg,IDC_PROGRESS),PBM_STEPIT,0,0);
}

void Delete_ci(CONSTINFO *pci){
	int i;

	HeapDefaultFree(pci->name);
	if(pci->StrValue) HeapDefaultFree(pci->StrValue);
	if(pci->ParmNum){
		for(i=0;i<pci->ParmNum;i++)
			HeapDefaultFree(pci->ppParm[i]);
		HeapDefaultFree(pci->ppParm);
	}

	if(pci->pNextData){
		Delete_ci(pci->pNextData);
	}

	HeapDefaultFree(pci);
}
void DeleteConstInfo(CONSTINFO **ppConstHash){
	int i;

	for(i=0;i<MAX_HASH;i++){
		if(ppConstHash[i]){
			Delete_ci(ppConstHash[i]);
		}
	}
	HeapDefaultFree(ppConstHash);
}

void AddSourceCode(char *buffer){
	char *temp;
	temp=(char *)HeapAlloc(hHeap,0,lstrlen(buffer)+8192);
	lstrcpy(temp,buffer);

	//エスケープシーケンス設定
	SetEscapeSequenceFormat(temp);

	//コマンド対応
	ChangeCommandToCode(temp);

	//新しいソースコードバッファの容量
	extern char *basbuf;
	int NewSize;
	NewSize=lstrlen(basbuf)+lstrlen(temp);
	NewSize*=2;
	NewSize+=255;

	//最後尾に貼り付け
	extern char *pBaseBuffer;
	pBaseBuffer=(char *)HeapReAlloc(hHeap,0,pBaseBuffer,NewSize);
	basbuf=pBaseBuffer+2;
	lstrcat(basbuf,temp);

	HeapDefaultFree(temp);
}

void OutputExe(void){
	extern HANDLE hHeap;
	extern char *basbuf;
	extern char *pBaseBuffer;
	extern int ErrorNum;
	extern BOOL bStopCompile;
	extern HWND hMainDlg;
	int i2,i3;
	char temp2[MAX_PATH];

	//プログレスバーの設定
	PostMessage(GetDlgItem(hMainDlg,IDC_PROGRESS),PBM_SETRANGE,0,MAKELPARAM(0,6));
	PostMessage(GetDlgItem(hMainDlg,IDC_PROGRESS),PBM_SETSTEP,1,0);

	//"中断"
	SetDlgItemText(hMainDlg,IDOK,STRING_STOP);

	//中断フラグを初期化
	bStopCompile=0;

	//サブシステムのタイプ
	extern unsigned short TypeOfSubSystem;
	TypeOfSubSystem=IMAGE_SUBSYSTEM_WINDOWS_GUI;

	//プログラムをファイルから読み込む
	extern char SourceFileName[MAX_PATH];
	pBaseBuffer=OpenBasicFile(SourceFileName);
	if(!pBaseBuffer){
		SetError(201,SourceFileName,-1);
		goto EndCompile;
	}
	basbuf=pBaseBuffer+2;

	//イメージベースの設定
	extern DWORD ImageBase;
	extern BOOL bDll;
	if(bDll) ImageBase=0x10000000;
	else ImageBase=0x00400000;

	extern BOOL bError;
	if(bError||bStopCompile) goto EndCompile;


	//////////////////////////
	// 中間コードの生成を開始
	extern BOOL bClipCompileView;

	//"最適化中..."
	CompileMessage(STRING_COMPILE_OPTIMIZING);

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

	//カッコを相互チェック（ダブルクォートチェックチェックを含む）
	CheckParenthesis(basbuf);

	if(bError||bStopCompile) goto EndCompile;

	//コンパイルダイアログのプログレスバーを上げる
	StepCompileProgress();

	//ディレクティブ
	DirectiveCheck();

	//Next命令語を正規表現に変換
	//NextCommandFormat(basbuf);

	//エスケープシーケンス設定
	SetEscapeSequenceFormat(basbuf);

	//Def命令語をFunction命令語に変換
	DefCommandFormat(basbuf);

	//すべてのIf命令語をブロック形式に変換
	IfCommandFormat(basbuf);

	//対になる命令語を相互チェック
	//CheckPareCommand();

	if(bError||bStopCompile) goto EndCompile;

	/*未完成
	//定数に関する情報
	extern CONSTINFO **ppConstHash;
	ppConstHash=(CONSTINFO **)HeapAlloc(hHeap,HEAP_ZERO_MEMORY,MAX_HASH*sizeof(CONSTINFO *));
	*/

	//TypeDef情報を初期化
	pobj_DBTypeDef=new CDBTypeDef();

	//コンパイルダイアログのプログレスバーを上げる
	StepCompileProgress();

	//重複エラー情報管理のメモリを確保
	extern char **SynonymErrorWords;
	extern int SynonymErrorNum;
	SynonymErrorNum=0;
	SynonymErrorWords=(char **)HeapAlloc(hHeap,0,1);

	ChangeCommandToCode(basbuf);

	//重複エラー情報管理のメモリを解放
	for(i3=0;i3<SynonymErrorNum;i3++) HeapDefaultFree(SynonymErrorWords[i3]);
	HeapDefaultFree(SynonymErrorWords);

	if(bError||bStopCompile){
		//定数に関する情報を解放
		goto EndCompile;
	}

	StepCompileProgress();


	///////////////////////
	// コンパイル開始

	//"コンパイル中..."
	CompileMessage(STRING_COMPILE_COMPILING);

	//グローバル変数に関する情報
	extern VARIABLE *GlobalVar;
	extern int MaxGlobalVarNum;
	extern int AllGlobalVarSize;
	extern int AllInitGlobalVarSize;
	GlobalVar=(VARIABLE *)HeapAlloc(hHeap,0,1);
	MaxGlobalVarNum=0;
	AllGlobalVarSize=0;
	AllInitGlobalVarSize=0;


	/*
	int t,t2;
	t=GetTickCount();
	Compile();
	t2=GetTickCount();
	t2-=t;
	char s[100];
	sprintf(s,"%d",t2);
	MessageBox(0,s,"test",0);*/
	Compile();

	//リソース情報を解放
	extern RESOURCEDATAINFO *pCursorResourceInfo;
	extern RESOURCEDATAINFO *pIconResourceInfo;
	extern RESOURCEDATAINFO *pBitmapResourceInfo;
	HeapDefaultFree(pCursorResourceInfo);
	HeapDefaultFree(pBitmapResourceInfo);
	HeapDefaultFree(pIconResourceInfo);

	//コードと行番号の関係情報を解放
	extern LINEINFO *pLineInfo;
	HeapDefaultFree(pLineInfo);

	//グローバル変数に関する情報を解放
	int i;
	for(i=0;i<MaxGlobalVarNum;i++){
		if(GlobalVar[i].ConstractParameter)
			HeapDefaultFree(GlobalVar[i].ConstractParameter);
	}
	HeapDefaultFree(GlobalVar);

	//ローカル変数に関する情報を解放
	extern SUBINFO **ppSubHash;
	SUBINFO *psi;
	for(i2=0;i2<MAX_HASH;i2++){
		psi=ppSubHash[i2];
		while(psi){
			if(psi->bCompile) HeapDefaultFree(psi->pVar);
			psi=psi->pNextData;
		}
	}

	//TypeDef情報を初期化
	delete pobj_DBTypeDef;
	pobj_DBTypeDef=0;

	//サブルーチン（ユーザー定義）情報のメモリ解放
	extern SUBINFO **ppSubHash;
	extern char **ppMacroNames;
	extern int MacroNum;
	DeleteSubInfo(ppSubHash,ppMacroNames,MacroNum);

	//Declare（DLL関数）情報のメモリ解放
	DeleteDeclareInfo();

	//関数ポインタ情報のメモリ解放
	DeleteProcPtrInfo();

	//定数に関する情報を解放
	extern CONSTINFO **ppConstHash;
	DeleteConstInfo(ppConstHash);

	//コンパイルダイアログのプログレスバーを上げる
	StepCompileProgress();


	//////////////////////////
	// 終了処理
EndCompile:
	if(bStopCompile){
		PostMessage(GetDlgItem(hMainDlg,IDC_PROGRESS),PBM_SETPOS,0,0);

		//"コンパイルはユーザーにより中断されました。"
		CompileMessage(STRING_COMPILE_STOP);
	}
	else{
		extern int CompileMsgNum;
		extern int WarningNum;
		if(bError==0){
			//"コンパイルは正常に完了しました（エラー:%d、警告:%d）"
			sprintf(temp2,STRING_COMPILE_SUCCESS,ErrorNum-CompileMsgNum-WarningNum,WarningNum);
		}
		else{
			//"コンパイルは中断されました（エラー:%d、警告:%d）"
			sprintf(temp2,STRING_COMPILE_ERROR,ErrorNum-CompileMsgNum-WarningNum,WarningNum);
		}

		CompileMessage("");
		CompileMessage("-----------------------------------------------------");
		CompileMessage(temp2);
	}

	//"閉じる"
	SetDlgItemText(hMainDlg,IDOK,STRING_CLOSE);

	//#include情報を解放
	extern INCLUDEFILEINFO IncludeFileInfo;
	for(i2=0;i2<IncludeFileInfo.FilesNum;i2++)
		HeapDefaultFree(IncludeFileInfo.ppFileNames[i2]);
	HeapDefaultFree(IncludeFileInfo.ppFileNames);

	if(pBaseBuffer) HeapDefaultFree(pBaseBuffer);
}
int MainThread(DWORD dummy){
	extern BOOL bDebugCompile;
	extern BOOL bDebugRun;
	extern int bError;

	if(bDebugRun){
		if(bDebugCompile){
			bDebugRun=0;

			//デバッグコンパイル
			OutputExe();

			bDebugRun=1;
		}

		//デバッグ実行
		if(bError==0) DebugProgram();
	}
	else{
		//リリースコンパイル
		OutputExe();
	}

	return 0;
}