Changeset 15 in dev for BasicCompiler_Common/preprocessor.cpp

Timestamp:

Dec 11, 2006, 3:07:59 AM (18 years ago)

Author:

dai_9181

Message:

LexicalAnalysisを廃止。

File:

• BasicCompiler_Common/preprocessor.cpp (modified) (4 diffs)

BasicCompiler_Common/preprocessor.cpp

@@ -8 +8 @@
 
 
+class CDefine{
+    int num;
+    char **ppNames;
+public:
+    CDefine();
+    ~CDefine();
+
+    BOOL add(char *name);
+    BOOL undef(char *name);
+    BOOL check(char *name);
+};
 CDefine::CDefine(){
     extern HANDLE hHeap;
@@ -300 +311 @@
 
 char *IncludeFiles(char *base){
+    extern HANDLE hHeap;
     extern char szIncludeDir[MAX_PATH];
     extern char BasicCurDir[MAX_PATH];
@@ -423 +435 @@
 
             i3=lstrlen(buffer)+FileSize;
-            base=(char *)realloc(base,i3*2);
+            base=(char *)HeapReAlloc(hHeap,HEAP_ZERO_MEMORY,base,i3*2);
             buffer=base+2;
             SlideString(buffer+i2,FileSize+(i-i2));
@@ -451 +463 @@
     return base;
 }
+char *OpenBasicFile(char *FileName){
+    extern HANDLE hHeap;
+    char *base,*buffer;
+    DWORD dwFileSize,dwAccBytes;
+    HANDLE hFile;
+
+    //ファイルオープン
+    hFile=CreateFile(FileName,GENERIC_READ,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
+    if(hFile==INVALID_HANDLE_VALUE) return 0;
+
+    //#define情報を初期化
+    pobj_define=new CDefine;
+
+    //バッファ領域確保
+    dwFileSize=GetFileSize(hFile,0);
+    base=(char *)HeapAlloc(hHeap,0,dwFileSize*2+255);
+    base[0]='\n';
+    base[1]='\n';
+    buffer=base+2;
+    lstrcpy(buffer,"#include <basic.sbp>\n");
+    buffer+=lstrlen(buffer);
+
+    //読み込み
+    ReadFile(hFile,buffer,dwFileSize,&dwAccBytes,0);
+    buffer[dwAccBytes]=0;
+
+    //CRLFをLFに変換
+    ChangeReturnCode(buffer);
+
+    //コメント削除
+    DeleteComment(buffer);
+
+    //#ifdefディレクティブ
+    DirectiveIfdef(buffer);
+
+    //最終行には文字を含ませないようにする
+    lstrcat(buffer,"\n");
+
+    //ファイルクローズ
+    CloseHandle(hFile);
+
+    //インクルードファイルを読み込む
+    base=IncludeFiles(base);
+
+    //#define情報を破棄
+    delete pobj_define;
+    pobj_define=0;
+
+    return base;
+}