Context Navigation

source: dev/trunk/ab5.0/abdev/BasicCompiler_Common/BasicCompiler.cpp@ 460

Last change on this file since 460 was 459, checked in by dai_9181, 17 years ago
・Compiler::IsDebugメソッドを導入した（bDebugCompileグローバル変数は廃止）。・bStrictグローバル変数は意味を成さないので廃止した。
File size: 21.7 KB

Line
1	#include "stdafx.h"
2
3	#include <shlwapi.h>
4
5	#include <jenga/include/common/Path.h>
6
7	#include <jenga/include/smoothie/Smoothie.h>
8
9	#include <Program.h>
10	#include <Compiler.h>
11	#include <ver.h>
12
13	#include "BasicCompiler.h"
14
15	#if defined HeapAlloc
16	#define MEM_MAX 65536
17	LPVOID pCheckMem[MEM_MAX];
18	int now;
19	#undef HeapAlloc
20	#undef HeapReAlloc
21	LPVOID CheckHeapAlloc(HANDLE hf,DWORD dwFlags,DWORD dwBytes){
22	LPVOID ret;
23	ret=HeapAlloc(hf,dwFlags,dwBytes);
24	pCheckMem[now]=ret;
25
26	//この部分にnowのチェックを挿入
27
28	now++;
29	if(now>=MEM_MAX){
30	MessageBox(0,"pCheckMemの最大値を超えました","Check - BasicCompiler.exe",0);
31	}
32	return ret;
33	}
34	LPVOID CheckHeapReAlloc(HANDLE hf,DWORD dwFlags,LPVOID lpMem,DWORD dwBytes){
35	int i;
36	LPVOID ret;
37	for(i=0;;i++){
38	if(lpMem==pCheckMem[i]) break;
39	if(i>=MEM_MAX){
40	MessageBox(0,"エラー","Check - BasicCompiler.exe",0);
41	break;
42	}
43	}
44	ret=HeapReAlloc(hf,dwFlags,lpMem,dwBytes);
45	pCheckMem[i]=ret;
46	return ret;
47	}
48	void HeapDefaultFree(LPVOID lpMem){
49	int i;
50	for(i=0;;i++){
51	if(lpMem==pCheckMem[i]) break;
52	if(i>=MEM_MAX\|\|lpMem==0){
53	MessageBox(0,"エラー","Check - BasicCompiler.exe",0);
54	break;
55	}
56	}
57	pCheckMem[i]=0;
58	HeapFree(hHeap,0,lpMem);
59	}
60	void CheckHeapCheck(){
61	int i,i2;
62	char temp[100];
63	temp[0]=0;
64	for(i=0,i2=0;i<MEM_MAX;i++){
65	if(pCheckMem[i]){
66	sprintf(temp+lstrlen(temp),"%d\r\n",i);
67	i2++;
68	if(i2==10){
69	lstrcat(temp,"これ以上の未解放が確認されています");
70	break;
71	}
72	}
73	}
74	if(temp[0]) MessageBox(0,temp,"Check - BasicCompiler.exe",0);
75	}
76	#define HeapAlloc CheckHeapAlloc
77	#define HeapReAlloc CheckHeapReAlloc
78	#else
79	void HeapDefaultFree(LPVOID lpMem){
80	HeapFree(hHeap,0,lpMem);
81	}
82	#endif
83
84	void ts(int i){
85	char temporary[255];
86	sprintf(temporary,"0x%08x",i);
87	MessageBox(0,temporary,"TestMessage",0);
88	}
89	void ts(int i,int i2){
90	char temporary[255];
91	sprintf(temporary,"0x%08x\r\n0x%08x",i,i2);
92	MessageBox(0,temporary,"TestMessage",0);
93	}
94	void ts(const char *msg){
95	MessageBox(0,FormatEscapeSequenceStringToDefaultString(msg).c_str(),"TestMessage",0);
96	}
97	void ts(const char msg,const char title){
98	MessageBox(0,FormatEscapeSequenceStringToDefaultString(msg).c_str(),title,0);
99	}
100
101	void epi_check(){
102	//この部分にobpのチェックを挿入
103	//※例 … epi=0x41999 → obp>=0x0999
104	/*
105	extern int obp;
106	if(obp>=0x988DE){
107	int test=0;
108	}*/
109	}
110
111	void GetRelationalPath(char path,char dir){
112	//相対パスを取得
113	int i,i2,i3,i4,i5;
114	char temporary[MAX_PATH],temp2[MAX_PATH],temp3[MAX_PATH],temp4[MAX_PATH];
115
116	//ドライブ名をチェック
117	_splitpath(path,temporary,0,0,0);
118	_splitpath(dir,temp2,0,0,0);
119	if(lstrcmpi(temporary,temp2)!=0) return;
120
121	_splitpath(path,0,temporary,0,0);
122	_splitpath(dir,0,temp2,0,0);
123	i=1;i2=1;
124	while(1){
125	i4=i;
126	if(temporary[i-1]=='\\'&&temporary[i]){ //path側
127	for(i3=0;;i++,i3++){
128	if(temporary[i]=='\\'){
129	temp3[i3]=0;
130	i++;
131	break;
132	}
133	temp3[i3]=temporary[i];
134	}
135	}
136	else temp3[0]=0;
137
138	i5=i2;
139	if(temp2[i2-1]=='\\'&&temp2[i2]){ //dir側
140	for(i3=0;;i2++,i3++){
141	if(temp2[i2]=='\\'){
142	temp4[i3]=0;
143	i2++;
144	break;
145	}
146	temp4[i3]=temp2[i2];
147	}
148	}
149	else temp4[0]=0;
150
151	if(temp3[0]=='\0'&&temp4[0]=='\0'){
152	lstrcpy(temp3,".\\");
153	break;
154	}
155
156	if(lstrcmpi(temp3,temp4)!=0){
157	for(i3=0;;i5++){
158	if(temp2[i5]=='\0') break;
159	if(temp2[i5]=='\\') i3++;
160	}
161	if(i3==0) lstrcpy(temp3,".\\");
162	else{
163	temp3[0]=0;
164	for(i2=0;i2<i3;i2++) lstrcat(temp3,"..\\");
165	}
166	lstrcat(temp3,temporary+i4);
167	break;
168	}
169	}
170	_splitpath(path,0,0,temporary,temp2);
171	lstrcat(temp3,temporary);
172	lstrcat(temp3,temp2);
173	lstrcpy(path,temp3);
174	}
175	void GetFullPath( char *path, const string &baseDirPath ){
176	int i,i2,i3,i4;
177	char temporary[MAX_PATH];
178
179	// '/'→'\'
180	for( i=0;path[i];i++ ){
181	if( path[i] == '/' ){
182	path[i]='\\';
183	}
184	}
185
186	if(strstr(path,":")\|\|strstr(path,"\\\\")) return;
187
188	i=0;i2=0;
189	while(1){
190	if(path[i]=='.'&&path[i+1]=='\\') i+=2;
191	if(path[i]=='.'&&path[i+1]=='.'&&path[i+2]=='\\'){
192	i2++;
193	i+=3;
194	}
195	else break;
196	}
197
198	i3=(int)baseDirPath.size();i4=0;
199	while(i4<i2){
200	for(i3--;;i3--){
201	if(baseDirPath[i3-1]=='\\'){
202	i4++;
203	break;
204	}
205	}
206	}
207	memcpy(temporary,baseDirPath.c_str(),i3);
208	temporary[i3]=0;
209	lstrcat(temporary,path+i);
210	lstrcpy(path,temporary);
211	}
212	std::string GetApplicationBaseFullPath( const std::string &relationalPath )
213	{
214	char fullPath[1024];
215	lstrcpy( fullPath, relationalPath.c_str() );
216	GetFullPath( fullPath, Jenga::Common::Environment::GetAppDir() );
217	return fullPath;
218	}
219
220	void ShowErrorLine(int LineNum,const char *constFileName){
221	HANDLE hFile;
222	DWORD dw;
223	char FileName[MAX_PATH];
224	char temporary[MAX_PATH];
225
226	lstrcpy( FileName, constFileName );
227
228	if(LineNum==-1) return;
229
230	if(IsWindow(hOwnerEditor)){
231	if(FileName){
232
233	while( !IsFileExist( FileName ) ){
234	char temp2[MAX_PATH],temp3[MAX_PATH];
235	_splitpath(FileName,NULL,NULL,temp2,temp3);
236	lstrcat(temp2,temp3);
237
238	sprintf(temporary,"\"%s\" が見つかりません。格納されているディレクトリを指定してください。",temp2);
239	if(!GetFolder(hOwnerEditor,temp3,temporary)) return;
240
241	if(temp3[lstrlen(temp3)-1]!='\\') lstrcat(temp3,"\\");
242
243	sprintf(FileName,"%s%s",temp3,temp2);
244	}
245
246	hFile=CreateFile(
247	( Jenga::Common::Environment::GetAppDir() + "\\pgm.tmp" ).c_str(),
248	GENERIC_WRITE,0,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_ARCHIVE\|FILE_ATTRIBUTE_HIDDEN\|FILE_ATTRIBUTE_TEMPORARY,NULL);
249	WriteFile(hFile,FileName,lstrlen(FileName),&dw,NULL);
250	CloseHandle(hFile);
251
252	SendMessage(hOwnerEditor,WM_SHOWERROR,LineNum,0);
253	}
254	}
255	}
256
257	BOOL GetFilePathDialog(HWND hwnd,char *filename,LPSTR Filter,LPSTR Title,BOOL bOpen){
258	OPENFILENAME ofstr;
259	filename[0]=0;
260	ofstr.lStructSize=sizeof(OPENFILENAME);
261	ofstr.hwndOwner=hwnd;
262	ofstr.hInstance=0;
263	ofstr.lpstrFilter=Filter;
264	ofstr.lpstrCustomFilter=NULL;
265	ofstr.nMaxCustFilter=0;
266	ofstr.nFilterIndex=1;
267	ofstr.lpstrFile=filename;
268	ofstr.nMaxFile=MAX_PATH;
269	ofstr.lpstrFileTitle=NULL;
270	ofstr.nMaxFileTitle=0;
271	ofstr.lpstrInitialDir=0;
272	ofstr.lpstrTitle=Title;
273	ofstr.Flags=OFN_FILEMUSTEXIST\|OFN_HIDEREADONLY\|OFN_PATHMUSTEXIST;
274	ofstr.nFileOffset=0;
275	ofstr.nFileExtension=0;
276	ofstr.lpstrDefExt="*";
277	ofstr.lCustData=NULL;
278	ofstr.lpfnHook=NULL;
279	ofstr.lpTemplateName=NULL;
280	if(bOpen){
281	if(!GetOpenFileName(&ofstr)) return FALSE;
282	}
283	else{
284	if(!GetSaveFileName(&ofstr)) return FALSE;
285	}
286	return TRUE;
287	}
288
289	LRESULT CALLBACK ErrorListProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
290	int i,pos;
291	int StartPos,EndPos;
292
293	switch(message){
294	case WM_CHAR:
295	if(GetKeyState(VK_CONTROL)&0x8000){
296	//アクセラレータキーの場合を考慮
297	break;
298	}
299	return 0;
300	case WM_LBUTTONDBLCLK:
301	SendMessage(hwnd,EM_GETSEL,(WPARAM)&pos,0);
302	i=(int)SendMessage(hwnd,EM_LINEFROMCHAR,pos,0);
303	ShowErrorLine(pErrorInfo[i].line,pErrorInfo[i].FileName);
304
305	StartPos=(int)SendMessage(hwnd,EM_LINEINDEX,i,0);
306	EndPos=StartPos+(int)SendMessage(hwnd,EM_LINELENGTH,pos,0);
307	SendMessage(hwnd,EM_SETSEL,StartPos,EndPos);
308	return 0;
309	}
310	return CallWindowProc(OldErrorListProc,hwnd,message,wParam,lParam);
311	}
312	LRESULT CALLBACK DebugListProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
313	switch(message){
314	case WM_CHAR:
315	if(GetKeyState(VK_CONTROL)&0x8000){
316	//アクセラレータキーの場合を考慮
317	break;
318	}
319	return 0;
320	}
321	return CallWindowProc(OldDebugListProc,hwnd,message,wParam,lParam);
322	}
323	void MakeMessageText(char buffer,char msg,int flag){
324	char temporary[MAX_PATH];
325	if(bClipCompileView){
326	//ProjectView埋め込みがたインターフェイスのとき
327
328	//生成するファイルの相対パスを取得
329	lstrcpy(temporary,OutputFileName);
330	GetRelationalPath(temporary,BasicCurDir);
331
332	//////////
333	// 合成
334
335	#if defined(JPN)
336	//日本語
337	if(flag==0){
338	if(compiler.IsDll())
339	{
340	sprintf(buffer,"DLLファイル \"%s\" [ %s ]",temporary,msg);
341	}
342	else sprintf(buffer,"実行ファイル \"%s\" [ %s ]",temporary,msg);
343	}
344	if(flag==1) sprintf(buffer,"\"%s\" を生成しています [ %s ]",temporary,msg);
345	if(flag==2) lstrcpy(buffer,msg);
346	#else
347	//英語
348	if(flag==0){
349	if(compiler.IsDll()) sprintf(buffer,"DLL file \"%s\" [ %s ]",temporary,msg);
350	else sprintf(buffer,"Execution file \"%s\" [ %s ]",temporary,msg);
351	}
352	if(flag==1) sprintf(buffer,"Creating \"%s\" [ %s ]",temporary,msg);
353	if(flag==2) lstrcpy(buffer,msg);
354	#endif
355	}
356	else{
357	//通常ダイアログのとき
358	lstrcpy(buffer,msg);
359	}
360	}
361
362	void SetPosCenter(HWND hwnd){
363	RECT OwnerRect,rect;
364	int x,y;
365
366	if(IsWindow(hOwnerEditor)) GetWindowRect(hOwnerEditor,&OwnerRect);
367	else{
368	OwnerRect.left=0;
369	OwnerRect.top=0;
370	OwnerRect.right=ScreenX;
371	OwnerRect.bottom=ScreenY;
372	}
373	GetWindowRect(hwnd,&rect);
374
375	x=((OwnerRect.right-OwnerRect.left)-(rect.right-rect.left))/2+OwnerRect.left;
376	y=((OwnerRect.bottom-OwnerRect.top)-(rect.bottom-rect.top))/2+OwnerRect.top;
377	SetWindowPos(hwnd,0,x,y,0,0,SWP_NOSIZE);
378	}
379	BOOL CALLBACK DlgCompile(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
380	extern HANDLE hDebugProcess;
381	char temporary[MAX_PATH];
382	DWORD dw;
383	RECT rect;
384	POINT pos;
385	SIZE size;
386	static POINT pos_List,pos_Progress;
387	static int height_Progress;
388
389	switch(message){
390	case WM_INITDIALOG:
391	pos=pobj_nv->MainDlgPos;
392	GetWindowRect(hwnd,&rect);
393	size.cx=rect.right-rect.left;
394	size.cy=rect.bottom-rect.top;
395	MoveWindow(hwnd,pos.x,pos.y,size.cx,size.cy,1);
396
397	lstrcpy(temporary,OutputFileName);
398	GetRelationalPath(temporary,BasicCurDir);
399	SetDlgItemText(hwnd,IDC_EXEPATH,temporary);
400
401	//"エラー無し"
402	SetDlgItemText(hwnd,IDC_ERRORLIST,STRING_NOERROR);
403
404	//"デバッグ情報無し"
405	SetDlgItemText(hwnd,IDC_DEBUGLIST,STRING_NODEBUGMSG);
406
407	//リストボックスの初期位置
408	GetWindowRect(GetDlgItem(hwnd,IDC_ERRORLIST),&rect);
409	pos_List.x=rect.left;
410	pos_List.y=rect.top;
411	ScreenToClient(hwnd,&pos_List);
412
413	//プログレスバーの初期位置と高さ
414	GetWindowRect(GetDlgItem(hwnd,IDC_PROGRESS),&rect);
415	pos_Progress.x=rect.left;
416	pos_Progress.y=rect.top;
417	ScreenToClient(hwnd,&pos_Progress);
418	height_Progress=rect.bottom-rect.top;
419
420	//バージョン表記
421	sprintf(temporary,"Version %d.%02d.%02d %s",MAJOR_VER,MINOR_VER,REVISION_VER,VER_INFO);
422	SetDlgItemText(hwnd,IDC_STATIC_VERSION,temporary);
423
424	break;
425	case WM_COMMAND:
426	switch(LOWORD(wParam)){
427	case IDOK:
428	GetDlgItemText(hwnd,IDOK,temporary,MAX_PATH);
429
430	//STRING_COMPILE = "コンパイル"
431	if(lstrcmp(temporary,STRING_COMPILE)==0){
432	GetDlgItemText(hwnd,IDC_EXEPATH,OutputFileName,MAX_PATH);
433	GetFullPath(OutputFileName,BasicCurDir);
434	CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)MainThread,0,0,&dw);
435	}
436
437	//STRING_STOP = "中断"
438	else if(lstrcmp(temporary,STRING_STOP)==0){
439	if(hDebugProcess){
440	//デバッグ中のとき
441
442	//プロセスを終了
443	TerminateProcess(hDebugProcess,0);
444	hDebugProcess=0;
445
446	//デバッグダイアログを終了
447	if(hDebugWnd){
448	DestroyWindow(hDebugWnd);
449	}
450	}
451	else{
452	//コンパイル中のとき
453	bStopCompile=1;
454
455	/* メインスレッドで「閉じる」ボタンに変更することで、
456	コンパイルを中断中の早いタイミングでも終了することが可能 */
457	//"閉じる"
458	SetDlgItemText(hwnd,IDOK,STRING_CLOSE);
459	}
460	}
461
462	else{
463	SetFocus(hOwnerEditor);
464	DestroyWindow(hwnd);
465	}
466	return 1;
467	case IDCANCEL:
468	//×ボタン用
469
470	if(hDebugProcess){
471	//デバッグ中のとき
472
473	//プロセスを終了
474	TerminateProcess(hDebugProcess,0);
475	hDebugProcess=0;
476
477	//デバッグダイアログを終了
478	if(hDebugWnd){
479	DestroyWindow(hDebugWnd);
480	}
481	}
482
483	SetFocus(hOwnerEditor);
484	DestroyWindow(hwnd);
485	return 1;
486	case IDC_SHOWERROR:
487	ShowWindow(GetDlgItem(hwnd,IDC_ERRORLIST),SW_SHOW);
488	ShowWindow(GetDlgItem(hwnd,IDC_DEBUGLIST),SW_HIDE);
489	return 1;
490	case IDC_SHOWDEBUG:
491	ShowWindow(GetDlgItem(hwnd,IDC_ERRORLIST),SW_HIDE);
492	ShowWindow(GetDlgItem(hwnd,IDC_DEBUGLIST),SW_SHOW);
493	return 1;
494	}
495	break;
496	case WM_SHOWVARLIST:
497	if(bClipCompileView){
498	//埋め込み表示
499	CreateDialogParam(hInst,MAKEINTRESOURCE(IDD_DEBUGGER),hOwnerEditor,(DLGPROC)DlgDebugger,lParam);
500	ShowWindow(hDebugWnd,SW_SHOW);
501
502	SendMessage(hOwnerEditor,WM_SETDEBUGGERVIEW,0,(LPARAM)hDebugWnd);
503	}
504	else{
505	//ポップアップ表示
506	CreateDialogParam(hInst,MAKEINTRESOURCE(IDD_VARLIST),hOwnerEditor,(DLGPROC)DlgVarList,lParam);
507	SetForegroundWindow(hDebugWnd);
508	}
509	return 1;
510	case WM_SIZE:
511	if(bClipCompileView){
512	//エラーリストの位置
513	MoveWindow(GetDlgItem(hwnd,IDC_ERRORLIST),
514	pos_List.x,
515	pos_List.y,
516	LOWORD(lParam)-pos_List.x,
517	HIWORD(lParam)-pos_List.y,
518	1);
519
520	//デバッグリストの位置
521	MoveWindow(GetDlgItem(hwnd,IDC_DEBUGLIST),
522	pos_List.x,
523	pos_List.y,
524	LOWORD(lParam)-pos_List.x,
525	HIWORD(lParam)-pos_List.y,
526	1);
527
528	//プログレスバーの位置
529	MoveWindow(GetDlgItem(hwnd,IDC_PROGRESS),
530	pos_Progress.x,
531	pos_Progress.y,
532	LOWORD(lParam)-pos_Progress.x,
533	height_Progress,
534	1);
535	}
536	return 1;
537	case WM_DESTROY:
538	GetWindowRect(hwnd,&rect);
539
540	if(!bClipCompileView){
541	pobj_nv->MainDlgPos.x=rect.left;
542	pobj_nv->MainDlgPos.y=rect.top;
543	}
544
545	PostQuitMessage(0);
546	return 1;
547
548
549
550	///////////////////////
551	// デバッグコマンド
552	///////////////////////
553
554	case WM_DEBUG_STOP:
555	Debugger_Stop();
556	return 1;
557	case WM_DEBUG_PAUSE:
558	Debugger_Pause();
559	return 1;
560
561
562	case WM_CLOSE_DEBUGGER:
563	if(hDebugWnd){
564	DestroyWindow(hDebugWnd);
565	}
566	return 1;
567	}
568	return 0;
569	}
570
571	bool AnalysisCommandLines( bool &isFromEditor )
572	{
573	// 値を初期化
574	isFromEditor = false;
575
576	// コマンドラインを解析
577	const Jenga::Common::CmdLines cmdLines( PathGetArgs( GetCommandLine() ) );
578	int cmdLineIndex = 0;
579
580	if( cmdLines.size() == 0 )
581	{
582	// 何も指定されていないとき
583	return true;
584	}
585
586	if( cmdLines[cmdLineIndex].IsNamelessCommand() )
587	{
588	// 先頭に無名コマンドがきた場合、ソースファイル名として認識する
589	lstrcpy( SourceFileName, cmdLines[cmdLineIndex].GetParameter().c_str() );
590
591	cmdLineIndex ++;
592
593	if( cmdLines.size() == 1 )
594	{
595	// ソースファイル名のみの指定だったとき
596	return true;
597	}
598
599	// 出力ファイル名を取得
600	if( cmdLines[cmdLineIndex].IsNamelessCommand() )
601	{
602	// 二番目にも無名コマンドがきた場合、ソースファイル名として認識する
603	lstrcpy( OutputFileName, cmdLines[cmdLineIndex].GetParameter().c_str() );
604
605	cmdLineIndex ++;
606	}
607	}
608
609	for( ; cmdLineIndex < static_cast<int>(cmdLines.size()); cmdLineIndex++ )
610	{
611	const Jenga::Common::CmdLine &cmdLine = cmdLines[cmdLineIndex];
612
613	if( cmdLine.GetCommand() == "wnd" )
614	{
615	// 親エディタのウィンドウハンドル
616	isFromEditor = true;
617	sscanf( cmdLine.GetParameter().c_str(), "%08x", &hOwnerEditor );
618	}
619	else if( cmdLine.GetCommand() == "debug" )
620	{
621	// デバッグビルド
622	compiler.SetDebugMark( true );
623	}
624	else if( cmdLine.GetCommand() == "run" )
625	{
626	// デバッグ実行
627	bDebugRun = 1;
628	}
629	else if( cmdLine.GetCommand() == "attach" )
630	{
631	// アタッチ
632	bDebugRun=1;
633	bAttach=1;
634	sscanf( cmdLine.GetParameter().c_str(), "%08x", &dwAttachProcessId );
635	}
636	else if( cmdLine.GetCommand() == "dll" )
637	{
638	// DLLとしてビルド
639	compiler.SetTargetModuleType( Compiler::Dll );
640	}
641	else if( cmdLine.GetCommand() == "static_library" )
642	{
643	// 静的リンクライブラリとしてビルド
644	compiler.SetTargetModuleType( Compiler::StaticLibrary );
645	}
646	else if( cmdLine.GetCommand() == "unicode" )
647	{
648	// Unicode
649	Smoothie::SetUnicodeMark( true );
650	typeOfPtrChar = MAKE_PTR_TYPE(DEF_WORD,1);
651	typeOfPtrUChar = MAKE_PTR_TYPE(DEF_WORD,1);
652	}
653	else if( cmdLine.GetCommand() == "clip_compile_view" )
654	{
655	//埋め込み型コンパイラビュー
656	bClipCompileView = 1;
657	}
658	else if( cmdLine.GetCommand() == "include_dir" )
659	{
660	//インクルードディレクトリ
661	lstrcpy( szIncludeDir, cmdLine.GetParameter().c_str() );
662	}
663	else
664	{
665	// 不正なコマンド
666	std::string keyword = cmdLine.GetCommand();
667	if( keyword.size() == 0 )
668	{
669	keyword = cmdLine.GetParameter();
670	}
671	std::cout << keyword << " コマンドとして認識できません。" << std::endl;
672	return false;
673	}
674	}
675
676	return true;
677	}
678
679	void _Test()
680	{
681	Jenga::Common::LoggerSetting loggerSetting;
682	bool result = loggerSetting.WriteXml( Jenga::Common::Environment::GetAppDir() + "\\logger.setting.xml" );
683	}
684
685	int main()
686	{
687	int i;
688	char temporary[1024],temp2[MAX_PATH];
689
690	hInst = GetModuleHandle( NULL );
691
692	//_Test();
693
694	//MessageBox(0,"starting compiler/debugger","ActiveBasic",MB_OK);
695	trace( "Start ActiveBasic Compiler!" );
696
697	//コモンコントロールを初期化
698	InitCommonControls();
699
700	hHeap=GetProcessHeap();
701	ScreenX=GetSystemMetrics(SM_CXSCREEN);
702	ScreenY=GetSystemMetrics(SM_CYSCREEN);
703
704	//不揮発性データを取得
705	pobj_nv=new CNonVolatile;
706	pobj_nv->load();
707
708	bool isFromEditor;
709	if( !AnalysisCommandLines( isFromEditor ) )
710	{
711	// コマンドラインが不正
712	return 0;
713	}
714
715	//ソースファイル名が与えられなかったとき
716	if(SourceFileName[0]=='\0'){
717	if(!GetFilePathDialog(0,SourceFileName,BasicFileFilter,"コンパイルするファイルを指定して下さい",1))
718	return 0;
719	}
720
721	//出力ファイル名が与えられなかったとき
722	if(OutputFileName[0]=='\0'){
723	_splitpath(SourceFileName,OutputFileName,temporary,temp2,0);
724	lstrcat(OutputFileName,temporary);
725	lstrcat(OutputFileName,temp2);
726	if( compiler.IsStaticLibrary() )
727	{
728	if( bDebugRun \|\| compiler.IsDebug() )
729	{
730	lstrcat(OutputFileName,"_debug.abobj");
731	}
732	else
733	{
734	lstrcat(OutputFileName,".abobj");
735	}
736	}
737	else
738	{
739	if( bDebugRun \|\| compiler.IsDebug() )
740	{
741	lstrcat(OutputFileName,"_debug.exe");
742	}
743	else
744	{
745	lstrcat(OutputFileName,".exe");
746	}
747	}
748	}
749
750	{
751	// カレントディレクトリを取得
752	std::string baseDirPath = Jenga::Common::Environment::GetAppDir()+"\\";
753
754	// インクルードディレクトリが指定されなかったとき
755	if(szIncludeDir[0]=='\0'){
756	lstrcpy(szIncludeDir,".\\Include\\");
757
758	// インクルードディレクトリを絶対パスに変更
759	GetFullPath(szIncludeDir,baseDirPath.c_str());
760	}
761	else
762	{
763	// インクルードディレクトリを絶対パスに変更
764	GetFullPath(szIncludeDir,baseDirPath.c_str());
765	}
766
767	// ソースファイル名を絶対パスに変換
768	GetFullPath(SourceFileName,baseDirPath.c_str());
769
770	// 出力ファイル名を絶対パスに変換
771	GetFullPath(OutputFileName,baseDirPath.c_str());
772
773	// モジュール名をセット
774	compiler.SetModuleName( Jenga::Common::Path( OutputFileName ).GetFileName() );
775	}
776
777	if( compiler.IsDll() ){
778	//DLLファイル名を取得
779	_splitpath(OutputFileName,NULL,NULL,szDllName,temporary);
780	lstrcat(szDllName,temporary);
781	}
782
783	if(bDebugRun){
784	//コマンドライン、DLLの実行可能アプリケーションを取得
785	HANDLE hFile;
786	DWORD dwAccessBytes;
787	hFile=CreateFile(
788	( Jenga::Common::Environment::GetAppDir() + "\\pgm.tmp" ).c_str(),
789	GENERIC_READ,FILE_SHARE_READ\|FILE_SHARE_WRITE,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
790	if(hFile!=INVALID_HANDLE_VALUE){
791	ReadFile(hFile,temporary,MAX_PATH,&dwAccessBytes,NULL);
792	CloseHandle(hFile);
793	temporary[dwAccessBytes]=0;
794	}
795	else temporary[0]=0;
796
797	for(i=0;;i++){
798	if(temporary[i]=='\r'&&temporary[i+1]=='\n'\|\|temporary[i]=='\0'){
799	szDebugExeForDll[i]=0;
800	break;
801	}
802	szDebugExeForDll[i]=temporary[i];
803	}
804	if(temporary[i]){
805	lstrcpy(szDebugCmdLine,temporary+i+2);
806	}
807	}
808
809	_splitpath(SourceFileName,BasicCurDir,temporary,NULL,NULL);
810	lstrcat(BasicCurDir,temporary);
811
812	//エラーリスト情報を初期化
813	pErrorInfo=(ERRORINFO *)HeapAlloc(hHeap,0,1);
814	ErrorNum=0;
815	CompileMsgNum=0;
816	WarningNum=0;
817	bError=0;
818
819	if(bClipCompileView){
820	//ProjectEditor埋め込み型インターフェイス
821	hMainDlg=CreateDialog(hInst,MAKEINTRESOURCE(IDD_CLIPMAIN),hOwnerEditor,(DLGPROC)DlgCompile);
822	ShowWindow(hMainDlg,SW_SHOW);
823	SendMessage(hOwnerEditor,WM_SETCOMPILEVIEW,0,(LPARAM)hMainDlg);
824
825	//プログレスバーの色をセットする
826	PostMessage(GetDlgItem(hMainDlg,IDC_PROGRESS),PBM_SETBARCOLOR,0,RGB(255,220,192));
827	PostMessage(GetDlgItem(hMainDlg,IDC_PROGRESS),PBM_SETBKCOLOR,0,RGB(255,255,255));
828	}
829	else{
830	//通常ダイアログインターフェイス
831	hMainDlg=CreateDialog(hInst,MAKEINTRESOURCE(IDD_MAIN),hOwnerEditor,(DLGPROC)DlgCompile);
832
833	#ifdef _DEBUG
834	// VC++によるデバッグの場合は画面を出さない
835	// ※別スレッドのウィンドウループとの不整合性がデッドロックを生む場合がある（特にステップ実行時など）
836	PostMessage( hMainDlg, WM_COMMAND, IDOK, 0 );
837	#else
838	ShowWindow(hMainDlg,SW_SHOW);
839	#endif
840	}
841	SendDlgItemMessage(hMainDlg,IDC_SHOWERROR,BM_SETCHECK,BST_CHECKED,0);
842
843	//エラーリストをサブクラス化
844	OldErrorListProc=(WNDPROC)GetWindowLongPtr(GetDlgItem(hMainDlg,IDC_ERRORLIST),GWLP_WNDPROC);
845	SetWindowLongPtr(GetDlgItem(hMainDlg,IDC_ERRORLIST),GWLP_WNDPROC,(LONG_PTR)ErrorListProc);
846
847	//デバッグリストをサブクラス化
848	OldDebugListProc=(WNDPROC)GetWindowLongPtr(GetDlgItem(hMainDlg,IDC_DEBUGLIST),GWLP_WNDPROC);
849	SetWindowLongPtr(GetDlgItem(hMainDlg,IDC_DEBUGLIST),GWLP_WNDPROC,(LONG_PTR)DebugListProc);
850
851	if( isFromEditor )
852	{
853	SendMessage(hMainDlg,WM_COMMAND,IDOK,0);
854	}
855
856	MSG msg;
857	while(GetMessage(&msg,0,0,0)){
858	if(IsDialogMessage(hMainDlg,&msg)) continue;
859	TranslateMessage(&msg);
860	DispatchMessage(&msg);
861	}
862
863	//エラーリスト情報を解放
864	for(i=0;i<ErrorNum;i++){
865	if(pErrorInfo[i].FileName) HeapDefaultFree(pErrorInfo[i].FileName);
866	}
867	HeapDefaultFree(pErrorInfo);
868
869	//不揮発性データを保存
870	pobj_nv->save();
871	delete pobj_nv;
872	pobj_nv=0;
873
874	#if defined HeapAlloc
875	CheckHeapCheck();
876	#endif
877
878	if(bClipCompileView){
879	SendMessage(hOwnerEditor,WM_DESTROYCOMPILEVIEW,0,0);
880	}
881
882	trace("Complete ActiveBasic Compiler!");
883
884	ExitProcess( 0 );
885
886	return 0;
887	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: