source: dev/BasicCompiler_Common/MakeExe.cpp@ 88

#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);

    //最後尾に貼り付け
    Smoothie::Lexical::source.Addition( temp );

    HeapDefaultFree(temp);
}

void OutputExe(void){
    extern HANDLE hHeap;
    extern char *basbuf;
    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];
    if( !Smoothie::Lexical::source.ReadFile( SourceFileName ) ){
        SetError(201,SourceFileName,-1);
        goto EndCompile;
    }

    //イメージベースの設定
    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);

    /*
    TODO: 消す
    BasicSource::ReadFile内で処理されている

    //アンダーバーによる改行を正規表現に戻す
    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 *));
    */

    //コンパイルダイアログのプログレスバーを上げる
    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);
    SynonymErrorWords=0;

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

    StepCompileProgress();


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

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

    //グローバル変数に関する情報
    extern int AllGlobalVarSize;
    extern int AllInitGlobalVarSize;
    globalVars.clear();
    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);

    //サブルーチン（ユーザー定義）情報のメモリ解放
    extern UserProc **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);
}
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;
}