#include "BasicCompiler.h"

#if defined HeapAlloc
#define MEM_MAX 65536
LPVOID pCheckMem[MEM_MAX];
int now;
#undef HeapAlloc
#undef HeapReAlloc
LPVOID CheckHeapAlloc(HANDLE hf,DWORD dwFlags,DWORD dwBytes){
	LPVOID ret;
	ret=HeapAlloc(hf,dwFlags,dwBytes);
	pCheckMem[now]=ret;

	//この部分にnowのチェックを挿入

	now++;
	if(now>=MEM_MAX){
		MessageBox(0,"pCheckMemの最大値を超えました","Check - BasicCompiler.exe",0);
	}
	return ret;
}
LPVOID CheckHeapReAlloc(HANDLE hf,DWORD dwFlags,LPVOID lpMem,DWORD dwBytes){
	int i;
	LPVOID ret;
	for(i=0;;i++){
		if(lpMem==pCheckMem[i]) break;
		if(i>=MEM_MAX){
			MessageBox(0,"エラー","Check - BasicCompiler.exe",0);
			break;
		}
	}
	ret=HeapReAlloc(hf,dwFlags,lpMem,dwBytes);
	pCheckMem[i]=ret;
	return ret;
}
void HeapDefaultFree(LPVOID lpMem){
	int i;
	for(i=0;;i++){
		if(lpMem==pCheckMem[i]) break;
		if(i>=MEM_MAX||lpMem==0){
			MessageBox(0,"エラー","Check - BasicCompiler.exe",0);
			break;
		}
	}
	pCheckMem[i]=0;
	HeapFree(hHeap,0,lpMem);
}
void CheckHeapCheck(){
	int i,i2;
	char temp[100];
	temp[0]=0;
	for(i=0,i2=0;i<MEM_MAX;i++){
		if(pCheckMem[i]){
			sprintf(temp+lstrlen(temp),"%d\r\n",i);
			i2++;
			if(i2==10){
				lstrcat(temp,"これ以上の未解放が確認されています");
				break;
			}
		}
	}
	if(temp[0]) MessageBox(0,temp,"Check - BasicCompiler.exe",0);
}
#define HeapAlloc CheckHeapAlloc
#define HeapReAlloc CheckHeapReAlloc
#else
void HeapDefaultFree(LPVOID lpMem){
	HeapFree(hHeap,0,lpMem);
}
#endif

void ts(int i){
	char temporary[255];
	sprintf(temporary,"0x%08x",i);
	MessageBox(0,temporary,"TestMessage",0);
}
void ts(int i,int i2){
	char temporary[255];
	sprintf(temporary,"0x%08x\r\n0x%08x",i,i2);
	MessageBox(0,temporary,"TestMessage",0);
}
void ts(char *msg){
	MessageBox(0,msg,"TestMessage",0);
}
void ts(char *msg,char *title){
	MessageBox(0,msg,title,0);
}

void epi_check(){
	//この部分にobpのチェックを挿入
	//※例 … epi=0x41999  →  obp>=0x0999

	extern int obp;
	if(obp==1115){
	}
}

void GetRelationalPath(char *path,char *dir){
	//相対パスを取得
	int i,i2,i3,i4,i5;
	char temporary[MAX_PATH],temp2[MAX_PATH],temp3[MAX_PATH],temp4[MAX_PATH];

	//ドライブ名をチェック
	_splitpath(path,temporary,0,0,0);
	_splitpath(dir,temp2,0,0,0);
	if(lstrcmpi(temporary,temp2)!=0) return;

	_splitpath(path,0,temporary,0,0);
	_splitpath(dir,0,temp2,0,0);
	i=1;i2=1;
	while(1){
		i4=i;
		if(temporary[i-1]=='\\'&&temporary[i]){	//path側
			for(i3=0;;i++,i3++){
				if(temporary[i]=='\\'){
					temp3[i3]=0;
					i++;
					break;
				}
				temp3[i3]=temporary[i];
			}
		}
		else temp3[0]=0;

		i5=i2;
		if(temp2[i2-1]=='\\'&&temp2[i2]){		//dir側
			for(i3=0;;i2++,i3++){
				if(temp2[i2]=='\\'){
					temp4[i3]=0;
					i2++;
					break;
				}
				temp4[i3]=temp2[i2];
			}
		}
		else temp4[0]=0;

		if(temp3[0]=='\0'&&temp4[0]=='\0'){
			lstrcpy(temp3,".\\");
			break;
		}

		if(lstrcmpi(temp3,temp4)!=0){
			for(i3=0;;i5++){
				if(temp2[i5]=='\0') break;
				if(temp2[i5]=='\\') i3++;
			}
			if(i3==0) lstrcpy(temp3,".\\");
			else{
				temp3[0]=0;
				for(i2=0;i2<i3;i2++) lstrcat(temp3,"..\\");
			}
			lstrcat(temp3,temporary+i4);
			break;
		}
	}
	_splitpath(path,0,0,temporary,temp2);
	lstrcat(temp3,temporary);
	lstrcat(temp3,temp2);
	lstrcpy(path,temp3);
}
void GetFullPath(char *path,char *dir){
	int i,i2,i3,i4;
	char temporary[MAX_PATH];

	if(strstr(path,":")||strstr(path,"\\\\")) return;

	i=0;i2=0;
	while(1){
		if(path[i]=='.'&&path[i+1]=='\\') i+=2;
		if(path[i]=='.'&&path[i+1]=='.'&&path[i+2]=='\\'){
			i2++;
			i+=3;
		}
		else break;
	}

	i3=lstrlen(dir);i4=0;
	while(i4<i2){
		for(i3--;;i3--){
			if(dir[i3-1]=='\\'){
				i4++;
				break;
			}
		}
	}
	memcpy(temporary,dir,i3);
	temporary[i3]=0;
	lstrcat(temporary,path+i);
	lstrcpy(path,temporary);
}

void ShowErrorLine(int LineNum,char *FileName){
	HANDLE hFile;
	DWORD dw;
	char temporary[MAX_PATH];

	if(LineNum==-1) return;

	if(IsWindow(hOwnerEditor)){
		if(FileName){

			while(!IsFile(FileName)){
				char temp2[MAX_PATH],temp3[MAX_PATH];
				_splitpath(FileName,NULL,NULL,temp2,temp3);
				lstrcat(temp2,temp3);

				sprintf(temporary,"\"%s\" が見つかりません。格納されているディレクトリを指定してください。",temp2);
				if(!GetFolder(hOwnerEditor,temp3,temporary)) return;

				if(temp3[lstrlen(temp3)-1]!='\\') lstrcat(temp3,"\\");

				sprintf(FileName,"%s%s",temp3,temp2);
			}

			sprintf(temporary,"%spgm.tmp",BasicSystemDir);
			hFile=CreateFile(temporary,GENERIC_WRITE,0,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_ARCHIVE|FILE_ATTRIBUTE_HIDDEN|FILE_ATTRIBUTE_TEMPORARY,NULL);
			WriteFile(hFile,FileName,lstrlen(FileName),&dw,NULL);
			CloseHandle(hFile);

			SendMessage(hOwnerEditor,WM_SHOWERROR,LineNum,0);
		}
	}
}

BOOL GetFilePathDialog(HWND hwnd,char *filename,LPSTR Filter,LPSTR Title,BOOL bOpen){
	OPENFILENAME ofstr;
	filename[0]=0;
	ofstr.lStructSize=sizeof(OPENFILENAME);
	ofstr.hwndOwner=hwnd;
	ofstr.hInstance=0;
	ofstr.lpstrFilter=Filter;
	ofstr.lpstrCustomFilter=NULL;
	ofstr.nMaxCustFilter=0;
	ofstr.nFilterIndex=1;
	ofstr.lpstrFile=filename;
	ofstr.nMaxFile=MAX_PATH;
	ofstr.lpstrFileTitle=NULL;
	ofstr.nMaxFileTitle=0;
	ofstr.lpstrInitialDir=0;
	ofstr.lpstrTitle=Title;
	ofstr.Flags=OFN_FILEMUSTEXIST|OFN_HIDEREADONLY|OFN_PATHMUSTEXIST;
	ofstr.nFileOffset=0;
	ofstr.nFileExtension=0;
	ofstr.lpstrDefExt="*";
	ofstr.lCustData=NULL;
	ofstr.lpfnHook=NULL;
	ofstr.lpTemplateName=NULL;
	if(bOpen){
		if(!GetOpenFileName(&ofstr)) return FALSE;
	}
	else{
		if(!GetSaveFileName(&ofstr)) return FALSE;
	}
	return TRUE;
}

LRESULT CALLBACK ErrorListProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
	int i,pos;
	int StartPos,EndPos;

	switch(message){
		case WM_CHAR:
			if(GetKeyState(VK_CONTROL)&0x8000){
				//アクセラレータキーの場合を考慮
				break;
			}
			return 0;
		case WM_LBUTTONDBLCLK:
			SendMessage(hwnd,EM_GETSEL,(WPARAM)&pos,0);
			i=(int)SendMessage(hwnd,EM_LINEFROMCHAR,pos,0);
			ShowErrorLine(pErrorInfo[i].line,pErrorInfo[i].FileName);

			StartPos=(int)SendMessage(hwnd,EM_LINEINDEX,i,0);
			EndPos=StartPos+(int)SendMessage(hwnd,EM_LINELENGTH,pos,0);
			SendMessage(hwnd,EM_SETSEL,StartPos,EndPos);
			return 0;
	}
	return CallWindowProc(OldErrorListProc,hwnd,message,wParam,lParam);
}
LRESULT CALLBACK DebugListProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
	switch(message){
		case WM_CHAR:
			if(GetKeyState(VK_CONTROL)&0x8000){
				//アクセラレータキーの場合を考慮
				break;
			}
			return 0;
	}
	return CallWindowProc(OldDebugListProc,hwnd,message,wParam,lParam);
}
void MakeMessageText(char *buffer,char *msg,int flag){
	extern BOOL bDll;
	char temporary[MAX_PATH];
	if(bClipCompileView){
		//ProjectView埋め込みがたインターフェイスのとき

		//生成するファイルの相対パスを取得
		lstrcpy(temporary,OutputFileName);
		GetRelationalPath(temporary,BasicCurDir);

		//////////
		// 合成

#if defined(JPN)
		//日本語
		if(flag==0){
			if(bDll) sprintf(buffer,"DLLファイル \"%s\"     [ %s ]",temporary,msg);
			else sprintf(buffer,"実行ファイル \"%s\"     [ %s ]",temporary,msg);
		}
		if(flag==1) sprintf(buffer,"\"%s\" を生成しています     [ %s ]",temporary,msg);
		if(flag==2) lstrcpy(buffer,msg);
#else
		//英語
		if(flag==0){
			if(bDll) sprintf(buffer,"DLL file \"%s\"     [ %s ]",temporary,msg);
			else sprintf(buffer,"Execution file \"%s\"     [ %s ]",temporary,msg);
		}
		if(flag==1) sprintf(buffer,"Creating \"%s\"     [ %s ]",temporary,msg);
		if(flag==2) lstrcpy(buffer,msg);
#endif
	}
	else{
		//通常ダイアログのとき
		lstrcpy(buffer,msg);
	}
}

void SetPosCenter(HWND hwnd){
	RECT OwnerRect,rect;
	int x,y;

	if(IsWindow(hOwnerEditor)) GetWindowRect(hOwnerEditor,&OwnerRect);
	else{
		OwnerRect.left=0;
		OwnerRect.top=0;
		OwnerRect.right=ScreenX;
		OwnerRect.bottom=ScreenY;
	}
	GetWindowRect(hwnd,&rect);

	x=((OwnerRect.right-OwnerRect.left)-(rect.right-rect.left))/2+OwnerRect.left;
	y=((OwnerRect.bottom-OwnerRect.top)-(rect.bottom-rect.top))/2+OwnerRect.top;
	SetWindowPos(hwnd,0,x,y,0,0,SWP_NOSIZE);
}
BOOL CALLBACK DlgCompile(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
	extern HANDLE hDebugProcess;
	char temporary[MAX_PATH];
	DWORD dw;
	RECT rect;
	POINT pos;
	SIZE size;
	static POINT pos_List,pos_Progress;
	static int height_Progress;

	switch(message){
		case WM_INITDIALOG:
			pos=pobj_nv->MainDlgPos;
			GetWindowRect(hwnd,&rect);
			size.cx=rect.right-rect.left;
			size.cy=rect.bottom-rect.top;
			MoveWindow(hwnd,pos.x,pos.y,size.cx,size.cy,1);

			lstrcpy(temporary,OutputFileName);
			GetRelationalPath(temporary,BasicCurDir);
			SetDlgItemText(hwnd,IDC_EXEPATH,temporary);

			//"エラー無し"
			SetDlgItemText(hwnd,IDC_ERRORLIST,STRING_NOERROR);

			//"デバッグ情報無し"
			SetDlgItemText(hwnd,IDC_DEBUGLIST,STRING_NODEBUGMSG);

			//リストボックスの初期位置
			GetWindowRect(GetDlgItem(hwnd,IDC_ERRORLIST),&rect);
			pos_List.x=rect.left;
			pos_List.y=rect.top;
			ScreenToClient(hwnd,&pos_List);

			//プログレスバーの初期位置と高さ
			GetWindowRect(GetDlgItem(hwnd,IDC_PROGRESS),&rect);
			pos_Progress.x=rect.left;
			pos_Progress.y=rect.top;
			ScreenToClient(hwnd,&pos_Progress);
			height_Progress=rect.bottom-rect.top;

			//バージョン表記
			sprintf(temporary,"Version %d.%02d.%02d %s",MAJOR_VER,MINOR_VER,REVISION_VER,VER_INFO);
			SetDlgItemText(hwnd,IDC_STATIC_VERSION,temporary);

			break;
		case WM_COMMAND:
			switch(LOWORD(wParam)){
				case IDOK:
					GetDlgItemText(hwnd,IDOK,temporary,MAX_PATH);

					//STRING_COMPILE = "コンパイル"
					if(lstrcmp(temporary,STRING_COMPILE)==0){
						GetDlgItemText(hwnd,IDC_EXEPATH,OutputFileName,MAX_PATH);
						GetFullPath(OutputFileName,BasicCurDir);
						CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)MainThread,0,0,&dw);
					}

					//STRING_STOP = "中断"
					else if(lstrcmp(temporary,STRING_STOP)==0){
						if(hDebugProcess){
							//デバッグ中のとき

							//プロセスを終了
							TerminateProcess(hDebugProcess,0);
							hDebugProcess=0;

							//デバッグダイアログを終了
							if(hDebugWnd){
								DestroyWindow(hDebugWnd);
							}
						}
						else{
							//コンパイル中のとき
							bStopCompile=1;

							/* メインスレッドで「閉じる」ボタンに変更することで、
								コンパイルを中断中の早いタイミングでも終了することが可能 */
							//"閉じる"
							SetDlgItemText(hwnd,IDOK,STRING_CLOSE);
						}
					}

					else{
						SetFocus(hOwnerEditor);
						DestroyWindow(hwnd);
					}
					return 1;
				case IDCANCEL:
					//×ボタン用

					if(hDebugProcess){
						//デバッグ中のとき

						//プロセスを終了
						TerminateProcess(hDebugProcess,0);
						hDebugProcess=0;

						//デバッグダイアログを終了
						if(hDebugWnd){
							DestroyWindow(hDebugWnd);
						}
					}

					SetFocus(hOwnerEditor);
					DestroyWindow(hwnd);
					return 1;
				case IDC_SHOWERROR:
					ShowWindow(GetDlgItem(hwnd,IDC_ERRORLIST),SW_SHOW);
					ShowWindow(GetDlgItem(hwnd,IDC_DEBUGLIST),SW_HIDE);
					return 1;
				case IDC_SHOWDEBUG:
					ShowWindow(GetDlgItem(hwnd,IDC_ERRORLIST),SW_HIDE);
					ShowWindow(GetDlgItem(hwnd,IDC_DEBUGLIST),SW_SHOW);
					return 1;
			}
			break;
		case WM_SHOWVARLIST:
			if(bClipCompileView){
				//埋め込み表示
				CreateDialogParam(hInst,MAKEINTRESOURCE(IDD_DEBUGGER),hOwnerEditor,(DLGPROC)DlgDebugger,lParam);
				ShowWindow(hDebugWnd,SW_SHOW);

				SendMessage(hOwnerEditor,WM_SETDEBUGGERVIEW,0,(LPARAM)hDebugWnd);
			}
			else{
				//ポップアップ表示
				CreateDialogParam(hInst,MAKEINTRESOURCE(IDD_VARLIST),hOwnerEditor,(DLGPROC)DlgVarList,lParam);
				SetForegroundWindow(hDebugWnd);
			}
			return 1;
		case WM_SIZE:
			if(bClipCompileView){
				//エラーリストの位置
				MoveWindow(GetDlgItem(hwnd,IDC_ERRORLIST),
					pos_List.x,
					pos_List.y,
					LOWORD(lParam)-pos_List.x,
					HIWORD(lParam)-pos_List.y,
					1);

				//デバッグリストの位置
				MoveWindow(GetDlgItem(hwnd,IDC_DEBUGLIST),
					pos_List.x,
					pos_List.y,
					LOWORD(lParam)-pos_List.x,
					HIWORD(lParam)-pos_List.y,
					1);

				//プログレスバーの位置
				MoveWindow(GetDlgItem(hwnd,IDC_PROGRESS),
					pos_Progress.x,
					pos_Progress.y,
					LOWORD(lParam)-pos_Progress.x,
					height_Progress,
					1);
			}
			return 1;
		case WM_DESTROY:
			GetWindowRect(hwnd,&rect);

			if(!bClipCompileView){
				pobj_nv->MainDlgPos.x=rect.left;
				pobj_nv->MainDlgPos.y=rect.top;
			}

			PostQuitMessage(0);
			return 1;



		///////////////////////
		// デバッグコマンド
		///////////////////////

		case WM_DEBUG_STOP:
			Debugger_Stop();
			return 1;
		case WM_DEBUG_PAUSE:
			Debugger_Pause();
			return 1;


		case WM_CLOSE_DEBUGGER:
			if(hDebugWnd){
				DestroyWindow(hDebugWnd);
			}
			return 1;
	}
	return 0;
}

int PASCAL WinMain(HINSTANCE hThisInst,HINSTANCE hPrevInst,LPSTR lpCmdLine,int nShowCmd){
	int i,i2;
	char temporary[1024],temp2[MAX_PATH];

	//コモンコントロールを初期化
	InitCommonControls();

	hHeap=GetProcessHeap();
	ScreenX=GetSystemMetrics(SM_CXSCREEN);
	ScreenY=GetSystemMetrics(SM_CYSCREEN);

	hInst=hThisInst;

	GetModuleFileName(hInst,temporary,MAX_PATH);
	_splitpath(temporary,BasicSystemDir,temp2,NULL,NULL);
	lstrcat(BasicSystemDir,temp2);

	//不揮発性データを取得
	pobj_nv=new CNonVolatile;
	pobj_nv->load();

	//ソースファイル名を取得
	i=0;
	if(lpCmdLine[0]!='/'){
		if(lpCmdLine[0]=='\"'){
			for(i=1,i2=0;;i++,i2++){
				if(lpCmdLine[i]=='\"'){
					SourceFileName[i2]=0;
					break;
				}
				SourceFileName[i2]=lpCmdLine[i];
				if(lpCmdLine[i]=='\0') break;
			}
			i++;
			while(lpCmdLine[i]==' ') i++;
		}
		else{
			for(i=0;;i++){
				if(lpCmdLine[i]==' '){
					SourceFileName[i]=0;
					break;
				}
				SourceFileName[i]=lpCmdLine[i];
				if(lpCmdLine[i]=='\0') break;
			}
			while(lpCmdLine[i]==' ') i++;
		}
	}

	BOOL bFromEditor=0;
	bDll=0;
	OutputFileName[0]=0;
	if(lpCmdLine[i]&&lpCmdLine[i]!='/'){
		if(lpCmdLine[i]=='\"'){
			for(i++,i2=0;;i++,i2++){
				if(lpCmdLine[i]=='\"'){
					OutputFileName[i2]=0;
					break;
				}
				OutputFileName[i2]=lpCmdLine[i];
				if(lpCmdLine[i]=='\0') break;
			}
			i++;
			while(lpCmdLine[i]==' ') i++;
		}
		else{
			for(i2=0;;i++,i2++){
				if(lpCmdLine[i]==' '){
					OutputFileName[i2]=0;
					break;
				}
				OutputFileName[i2]=lpCmdLine[i];
				if(lpCmdLine[i]=='\0') break;
			}
			while(lpCmdLine[i]==' ') i++;
		}
	}

	KillSpaces(lpCmdLine+i,temporary);
	i=0;
	while(temporary[i]=='/'){
		for(i++,i2=0;;i++,i2++){
			if(temporary[i]=='/'){
				temp2[i2]=0;
				break;
			}
			if(temporary[i]==':'){
				temp2[i2]=0;
				break;
			}
			temp2[i2]=temporary[i];
			if(temporary[i]=='\0') break;
		}

		char temp3[MAX_PATH];
		if(temporary[i]==':'){
			i++;
			if(temporary[i]=='\"'){
				for(i++,i2=0;;i++,i2++){
					if(temporary[i]=='\"'){
						temp3[i2]=0;
						RemoveStringQuotes(temp3);
						i++;
						break;
					}
					temp3[i2]=temporary[i];
					if(temporary[i]=='\0') break;
				}
			}
			else{
				for(i2=0;;i++,i2++){
					if(temporary[i]=='/'){
						temp3[i2]=0;
						break;
					}
					if(temporary[i]==':'){
						temp3[i2]=0;
						break;
					}
					temp3[i2]=temporary[i];
					if(temporary[i]=='\0') break;
				}
			}
		}
		else temp3[0]=0;


		/////////////////////////
		// コマンドラインを調査
		/////////////////////////

		//ウィンドウハンドル
		if(lstrcmp(temp2,"wnd")==0){
			bFromEditor=1;

			if(temp3[0]) sscanf(temp3,"%08x",&hOwnerEditor);
		}

		//デバッグコンパイル
		else if(lstrcmp(temp2,"debug")==0) bDebugCompile=1;

		//デバッグ実行
		else if(lstrcmp(temp2,"run")==0) bDebugRun=1;

		//デバッグ実行（アタッチする）
		else if(lstrcmp(temp2,"attach")==0){
			bDebugRun=1;
			bAttach=1;

			if(temp3[0]) sscanf(temp3,"%08x",&dwAttachProcessId);
		}

		//DLL生成
		else if(lstrcmp(temp2,"dll")==0) bDll=1;

		//Unicode
		else if( lstrcmp( temp2, "unicode" ) ==0 ){
			isUnicode = true;
			typeOfPtrChar = MAKE_PTR_TYPE(DEF_WORD,1);
		}

		//埋め込み型コンパイラビュー
		else if(lstrcmp(temp2,"clip_compile_view")==0) bClipCompileView=1;

		//インクルードディレクトリ
		else if(lstrcmp(temp2,"include_dir")==0){
			lstrcpy(szIncludeDir,temp3);
		}
	}

	//ソースファイル名が与えられなかったとき
	if(SourceFileName[0]=='\0'){
		if(!GetFilePathDialog(0,SourceFileName,BasicFileFilter,"コンパイルするファイルを指定して下さい",1))
			return 0;
	}

	//出力ファイル名が与えられなかったとき
	if(OutputFileName[0]=='\0'){
		_splitpath(SourceFileName,OutputFileName,temporary,temp2,0);
		lstrcat(OutputFileName,temporary);
		lstrcat(OutputFileName,temp2);
		if(bDebugCompile||bDebugRun) lstrcat(OutputFileName,"_debug.exe");
		else lstrcat(OutputFileName,".exe");
	}

	//インクルードディレクトリが指定されなかったとき
	if(szIncludeDir[0]=='\0'){
		lstrcpy(szIncludeDir,".\\Include\\");
	}

	//インクルードディレクトリを絶対パスに変更
	GetFullPath(szIncludeDir,BasicSystemDir);

	if(bDll){
		//DLLファイル名を取得
		_splitpath(OutputFileName,NULL,NULL,szDllName,temporary);
		lstrcat(szDllName,temporary);
	}

	if(bDebugRun){
		//コマンドライン、DLLの実行可能アプリケーションを取得
		HANDLE hFile;
		DWORD dwAccessBytes;
		sprintf(temporary,"%spgm.tmp",BasicSystemDir);
		hFile=CreateFile(temporary,GENERIC_READ,FILE_SHARE_READ|FILE_SHARE_WRITE,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
		if(hFile!=INVALID_HANDLE_VALUE){
			ReadFile(hFile,temporary,MAX_PATH,&dwAccessBytes,NULL);
			CloseHandle(hFile);
			temporary[dwAccessBytes]=0;
		}
		else temporary[0]=0;

		for(i=0;;i++){
			if(temporary[i]=='\r'&&temporary[i+1]=='\n'||temporary[i]=='\0'){
				szDebugExeForDll[i]=0;
				break;
			}
			szDebugExeForDll[i]=temporary[i];
		}
		if(temporary[i]){
			lstrcpy(szDebugCmdLine,temporary+i+2);
		}
	}

	_splitpath(SourceFileName,BasicCurDir,temporary,NULL,NULL);
	lstrcat(BasicCurDir,temporary);

	//エラーリスト情報を初期化
	pErrorInfo=(ERRORINFO *)HeapAlloc(hHeap,0,1);
	ErrorNum=0;
	CompileMsgNum=0;
	WarningNum=0;
	bError=0;

	if(bClipCompileView){
		//ProjectEditor埋め込み型インターフェイス
		hMainDlg=CreateDialog(hInst,MAKEINTRESOURCE(IDD_CLIPMAIN),hOwnerEditor,(DLGPROC)DlgCompile);
		ShowWindow(hMainDlg,SW_SHOW);
		SendMessage(hOwnerEditor,WM_SETCOMPILEVIEW,0,(LPARAM)hMainDlg);

		//プログレスバーの色をセットする
		PostMessage(GetDlgItem(hMainDlg,IDC_PROGRESS),PBM_SETBARCOLOR,0,RGB(255,220,192));
		PostMessage(GetDlgItem(hMainDlg,IDC_PROGRESS),PBM_SETBKCOLOR,0,RGB(255,255,255));
	}
	else{
		//通常ダイアログインターフェイス
		hMainDlg=CreateDialog(hInst,MAKEINTRESOURCE(IDD_MAIN),hOwnerEditor,(DLGPROC)DlgCompile);
		ShowWindow(hMainDlg,SW_SHOW);
	}
	SendDlgItemMessage(hMainDlg,IDC_SHOWERROR,BM_SETCHECK,BST_CHECKED,0);

	//エラーリストをサブクラス化
	OldErrorListProc=(WNDPROC)GetWindowLongPtr(GetDlgItem(hMainDlg,IDC_ERRORLIST),GWLP_WNDPROC);
	SetWindowLongPtr(GetDlgItem(hMainDlg,IDC_ERRORLIST),GWLP_WNDPROC,(LONG_PTR)ErrorListProc);

	//デバッグリストをサブクラス化
	OldDebugListProc=(WNDPROC)GetWindowLongPtr(GetDlgItem(hMainDlg,IDC_DEBUGLIST),GWLP_WNDPROC);
	SetWindowLongPtr(GetDlgItem(hMainDlg,IDC_DEBUGLIST),GWLP_WNDPROC,(LONG_PTR)DebugListProc);

	if(bFromEditor) SendMessage(hMainDlg,WM_COMMAND,IDOK,0);

	MSG msg;
	while(GetMessage(&msg,0,0,0)){
		if(IsDialogMessage(hMainDlg,&msg)) continue;
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}

	//エラーリスト情報を解放
	for(i=0;i<ErrorNum;i++){
		if(pErrorInfo[i].FileName) HeapDefaultFree(pErrorInfo[i].FileName);
	}
	HeapDefaultFree(pErrorInfo);

	//不揮発性データを保存
	pobj_nv->save();
	delete pobj_nv;
	pobj_nv=0;

#if defined HeapAlloc
	CheckHeapCheck();
#endif

	if(bClipCompileView){
		SendMessage(hOwnerEditor,WM_DESTROYCOMPILEVIEW,0,0);
	}


	return 0;
}