source: dev/BasicCompiler_Common/MakeExe.cpp@ 76

Last change on this file since 76 was 76, checked in by dai_9181, 17 years ago

TYPEINFO→Typeへのリファクタリングを実施。32bitが未完成。
File size: 6.6 KB
Line 
1#include "common.h"
2
3void StepCompileProgress(void){
4 extern HWND hMainDlg;
5 PostMessage(GetDlgItem(hMainDlg,IDC_PROGRESS),PBM_STEPIT,0,0);
6}
7
8void Delete_ci(CONSTINFO *pci){
9 int i;
10
11 HeapDefaultFree(pci->name);
12 if(pci->StrValue) HeapDefaultFree(pci->StrValue);
13 if(pci->ParmNum){
14 for(i=0;i<pci->ParmNum;i++)
15 HeapDefaultFree(pci->ppParm[i]);
16 HeapDefaultFree(pci->ppParm);
17 }
18
19 if(pci->pNextData){
20 Delete_ci(pci->pNextData);
21 }
22
23 HeapDefaultFree(pci);
24}
25void DeleteConstInfo(CONSTINFO **ppConstHash){
26 int i;
27
28 for(i=0;i<MAX_HASH;i++){
29 if(ppConstHash[i]){
30 Delete_ci(ppConstHash[i]);
31 }
32 }
33 HeapDefaultFree(ppConstHash);
34}
35
36void AddSourceCode(char *buffer){
37 char *temp;
38 temp=(char *)HeapAlloc(hHeap,0,lstrlen(buffer)+8192);
39 lstrcpy(temp,buffer);
40
41 //エスケープシーケンス設定
42 SetEscapeSequenceFormat(temp);
43
44 //コマンド対応
45 ChangeCommandToCode(temp);
46
47 //新しいソースコードバッファの容量
48 extern char *basbuf;
49 int NewSize;
50 NewSize=lstrlen(basbuf)+lstrlen(temp);
51 NewSize*=2;
52 NewSize+=255;
53
54 //最後尾に貼り付け
55 extern char *pBaseBuffer;
56 pBaseBuffer=(char *)HeapReAlloc(hHeap,0,pBaseBuffer,NewSize);
57 basbuf=pBaseBuffer+2;
58 lstrcat(basbuf,temp);
59
60 HeapDefaultFree(temp);
61}
62
63void OutputExe(void){
64 extern HANDLE hHeap;
65 extern char *basbuf;
66 extern char *pBaseBuffer;
67 extern int ErrorNum;
68 extern BOOL bStopCompile;
69 extern HWND hMainDlg;
70 int i2,i3;
71 char temp2[MAX_PATH];
72
73 //プログレスバーの設定
74 PostMessage(GetDlgItem(hMainDlg,IDC_PROGRESS),PBM_SETRANGE,0,MAKELPARAM(0,6));
75 PostMessage(GetDlgItem(hMainDlg,IDC_PROGRESS),PBM_SETSTEP,1,0);
76
77 //"中断"
78 SetDlgItemText(hMainDlg,IDOK,STRING_STOP);
79
80 //中断フラグを初期化
81 bStopCompile=0;
82
83 //サブシステムのタイプ
84 extern unsigned short TypeOfSubSystem;
85 TypeOfSubSystem=IMAGE_SUBSYSTEM_WINDOWS_GUI;
86
87 //プログラムをファイルから読み込む
88 extern char SourceFileName[MAX_PATH];
89 pBaseBuffer=OpenBasicFile(SourceFileName);
90 if(!pBaseBuffer){
91 SetError(201,SourceFileName,-1);
92 goto EndCompile;
93 }
94 basbuf=pBaseBuffer+2;
95
96 //イメージベースの設定
97 extern DWORD ImageBase;
98 extern BOOL bDll;
99 if(bDll) ImageBase=0x10000000;
100 else ImageBase=0x00400000;
101
102 extern BOOL bError;
103 if(bError||bStopCompile) goto EndCompile;
104
105
106 //////////////////////////
107 // 中間コードの生成を開始
108 extern BOOL bClipCompileView;
109
110 //"最適化中..."
111 CompileMessage(STRING_COMPILE_OPTIMIZING);
112
113 //アンダーバーによる改行を正規表現に戻す
114 KillReturnCode(basbuf);
115
116 //カッコを相互チェック（ダブルクォートチェックチェックを含む）
117 CheckParenthesis(basbuf);
118
119 if(bError||bStopCompile) goto EndCompile;
120
121 //コンパイルダイアログのプログレスバーを上げる
122 StepCompileProgress();
123
124 //ディレクティブ
125 DirectiveCheck();
126
127 //Next命令語を正規表現に変換
128 //NextCommandFormat(basbuf);
129
130 //エスケープシーケンス設定
131 SetEscapeSequenceFormat(basbuf);
132
133 //Def命令語をFunction命令語に変換
134 DefCommandFormat(basbuf);
135
136 //すべてのIf命令語をブロック形式に変換
137 IfCommandFormat(basbuf);
138
139 //対になる命令語を相互チェック
140 //CheckPareCommand();
141
142 if(bError||bStopCompile) goto EndCompile;
143
144 /*未完成
145 //定数に関する情報
146 extern CONSTINFO **ppConstHash;
147 ppConstHash=(CONSTINFO **)HeapAlloc(hHeap,HEAP_ZERO_MEMORY,MAX_HASH*sizeof(CONSTINFO *));
148 */
149
150 //TypeDef情報を初期化
151 pobj_DBTypeDef=new CDBTypeDef();
152
153 //コンパイルダイアログのプログレスバーを上げる
154 StepCompileProgress();
155
156 //重複エラー情報管理のメモリを確保
157 extern char **SynonymErrorWords;
158 extern int SynonymErrorNum;
159 SynonymErrorNum=0;
160 SynonymErrorWords=(char **)HeapAlloc(hHeap,0,1);
161
162 ChangeCommandToCode(basbuf);
163
164 //重複エラー情報管理のメモリを解放
165 for(i3=0;i3<SynonymErrorNum;i3++) HeapDefaultFree(SynonymErrorWords[i3]);
166 HeapDefaultFree(SynonymErrorWords);
167 SynonymErrorWords=0;
168
169 if(bError||bStopCompile){
170 //定数に関する情報を解放
171 goto EndCompile;
172 }
173
174 StepCompileProgress();
175
176
177 ///////////////////////
178 // コンパイル開始
179
180 //"コンパイル中..."
181 CompileMessage(STRING_COMPILE_COMPILING);
182
183 //グローバル変数に関する情報
184 extern int AllGlobalVarSize;
185 extern int AllInitGlobalVarSize;
186 globalVars.clear();
187 AllGlobalVarSize=0;
188 AllInitGlobalVarSize=0;
189
190
191 /*
192 int t,t2;
193 t=GetTickCount();
194 Compile();
195 t2=GetTickCount();
196 t2-=t;
197 char s[100];
198 sprintf(s,"%d",t2);
199 MessageBox(0,s,"test",0);*/
200 Compile();
201
202 //リソース情報を解放
203 extern RESOURCEDATAINFO *pCursorResourceInfo;
204 extern RESOURCEDATAINFO *pIconResourceInfo;
205 extern RESOURCEDATAINFO *pBitmapResourceInfo;
206 HeapDefaultFree(pCursorResourceInfo);
207 HeapDefaultFree(pBitmapResourceInfo);
208 HeapDefaultFree(pIconResourceInfo);
209
210 //コードと行番号の関係情報を解放
211 extern LINEINFO *pLineInfo;
212 HeapDefaultFree(pLineInfo);
213
214 //TypeDef情報を初期化
215 delete pobj_DBTypeDef;
216 pobj_DBTypeDef=0;
217
218 //サブルーチン（ユーザー定義）情報のメモリ解放
219 extern UserProc **ppSubHash;
220 extern char **ppMacroNames;
221 extern int MacroNum;
222 DeleteSubInfo(ppSubHash,ppMacroNames,MacroNum);
223
224 //Declare（DLL関数）情報のメモリ解放
225 DeleteDeclareInfo();
226
227 //関数ポインタ情報のメモリ解放
228 DeleteProcPtrInfo();
229
230 //定数に関する情報を解放
231 extern CONSTINFO **ppConstHash;
232 DeleteConstInfo(ppConstHash);
233
234 //コンパイルダイアログのプログレスバーを上げる
235 StepCompileProgress();
236
237
238 //////////////////////////
239 // 終了処理
240EndCompile:
241 if(bStopCompile){
242 PostMessage(GetDlgItem(hMainDlg,IDC_PROGRESS),PBM_SETPOS,0,0);
243
244 //"コンパイルはユーザーにより中断されました。"
245 CompileMessage(STRING_COMPILE_STOP);
246 }
247 else{
248 extern int CompileMsgNum;
249 extern int WarningNum;
250 if(bError==0){
251 //"コンパイルは正常に完了しました（エラー:%d、警告:%d）"
252 sprintf(temp2,STRING_COMPILE_SUCCESS,ErrorNum-CompileMsgNum-WarningNum,WarningNum);
253 }
254 else{
255 //"コンパイルは中断されました（エラー:%d、警告:%d）"
256 sprintf(temp2,STRING_COMPILE_ERROR,ErrorNum-CompileMsgNum-WarningNum,WarningNum);
257 }
258
259 CompileMessage("");
260 CompileMessage("-----------------------------------------------------");
261 CompileMessage(temp2);
262 }
263
264 //"閉じる"
265 SetDlgItemText(hMainDlg,IDOK,STRING_CLOSE);
266
267 //#include情報を解放
268 extern INCLUDEFILEINFO IncludeFileInfo;
269 for(i2=0;i2<IncludeFileInfo.FilesNum;i2++)
270 HeapDefaultFree(IncludeFileInfo.ppFileNames[i2]);
271 HeapDefaultFree(IncludeFileInfo.ppFileNames);
272
273 if(pBaseBuffer) HeapDefaultFree(pBaseBuffer);
274}
275int MainThread(DWORD dummy){
276 extern BOOL bDebugCompile;
277 extern BOOL bDebugRun;
278 extern int bError;
279
280 if(bDebugRun){
281 if(bDebugCompile){
282 bDebugRun=0;
283
284 //デバッグコンパイル
285 OutputExe();
286
287 bDebugRun=1;
288 }
289
290 //デバッグ実行
291 if(bError==0) DebugProgram();
292 }
293 else{
294 //リリースコンパイル
295 OutputExe();
296 }
297
298 return 0;
299}
Note: See TracBrowser for help on using the repository browser.