source: dev/trunk/ab5.0/abdev/BasicCompiler_Common/src/ProcedureGenerator.cpp

#include "stdafx.h"

#ifdef _AMD64_
#include "../../compiler_x64/opcode.h"
#else
#include "../../compiler_x86/opcode.h"
#endif

using namespace ActiveBasic::Compiler;

void ProcedureGenerator::Generate_InitStaticMember( const Classes &classes )
{
    //静的メンバをグローバル領域に作成

    //イテレータをリセット

    extern int cp;
    int back_cp=cp;

    foreach(auto pClass, classes)
    {
        CClass &objClass = *pClass;
        if( objClass.IsExternal() )
        {
            // 静的リンクライブラリの場合は飛ばす（既にインスタンスが定義済みであるため）
            continue;
        }

        // 名前空間をセット
        compiler.GetNamespaceSupporter().GetLivingNamespaceScopes() = objClass.GetNamespaceScopes();

        DWORD dwFlags = 0;
        if( objClass.GetName() == "_System_TypeBase" )
        {
            // _System_TypeBaseクラスはグローバル、スタティック領域を初期化するためのクラスなのでここでの初期化は除外する
            dwFlags |= DIMFLAG_NONCALL_CONSTRACTOR;
        }

        // コンパイル中クラスとしてセット
        compiler.SetCompilingClass( &objClass );

        const EnumInfo *pEnumInfo = NULL;
        if( objClass.IsEnum() )
        {
            pEnumInfo = compiler.enumInfoCollection.Find( objClass );
        }

        int i=0;
        foreach( Member *member, objClass.GetStaticMembers() )
        {
            if( pEnumInfo )
            {
                cp = pEnumInfo->GetEnumMember( member->GetName() ).GetSourceIndex();
            }

            char temporary[VN_SIZE];
            sprintf(temporary,"%s.%s",objClass.GetName().c_str(),member->GetName().c_str());
            dim(
                temporary,
                member->GetSubscripts(),
                member->GetType(),
                member->GetInitializeExpression().c_str(),
                member->GetConstructParameter().c_str(),
                dwFlags);

            i++;
        }

        compiler.SetCompilingClass( NULL );
    }

    compiler.GetNamespaceSupporter().GetLivingNamespaceScopes().clear();

    cp=back_cp;
}

void ProcedureGenerator::Generate_System_InitializeUserTypes( const Classes &classes )
{
    char temporary[VN_SIZE];

    ////////////////////////////////////////////////////////////////////
    // クラス登録
    ////////////////////////////////////////////////////////////////////

    foreach (auto pClass, classes)
    {
        const CClass &objClass = *pClass;

        if( !objClass.IsUsing() ){
            // 未使用のクラスは無視する
            continue;
        }

        std::string referenceOffsetsBuffer;
        int numOfReference = 0;
        objClass.GetReferenceOffsetsInitializeBuffer( referenceOffsetsBuffer, numOfReference );

        sprintf( temporary
            , "Add(%c%c_System_TypeForClass[strNamespace=\"%s\",name=\"%s\",fullName=\"%s\",referenceOffsets=[%s],numOfReference=%d])"
            , 1
            , ESC_SYSTEM_STATIC_NEW
            , objClass.GetNamespaceScopes().ToString().c_str()      // 名前空間
            , objClass.GetName().c_str()                            // クラス名
            , objClass.GetFullName().c_str()                        // フルネーム
            , referenceOffsetsBuffer.c_str()                        // 参照メンバオフセット配列
            , numOfReference                                        // 参照メンバの個数
            );

        // コンパイル
        ChangeOpcode( temporary );

        objClass.SetTypeInfoDataTableOffset(
            DataTableGenerator::GetLastMadeConstObjectDataTableOffset()
        );
    }
}

std::string ProcedureGenerator::GetStaticDefiningStringAsMemberTypeInfoNames( const CClass &_class )
{
    std::string result;

    foreach( const Member *pMember, _class.GetDynamicMembers() )
    {
        if( result.size() )
        {
            result += ",";
        }

        result += "\"" + compiler.TypeToString( pMember->GetType() ) + "\"";
    }

    return result;
}

void ProcedureGenerator::Generate_System_InitializeUserTypesForBaseType( const Classes &classes )
{
    extern int cp;
    cp = -1;
    ////////////////////////////////////////////////////////////////////
    // 基底クラスを登録
    ////////////////////////////////////////////////////////////////////

    char temporary[8192];
    sprintf(temporary, "%c%ctempType=Nothing%c%c_System_TypeForClass"
        , HIBYTE( COM_DIM )
        , LOBYTE( COM_DIM )
        , 1
        , ESC_AS
        );
    ChangeOpcode( temporary );

    foreach (auto pClass, classes)
    {
        const CClass &objClass = *pClass;

        if( !objClass.IsUsing() ){
            // 未使用のクラスは無視する
            continue;
        }

        if( objClass.HasSuperClass() || objClass.GetDynamicMembers().size() ){
            sprintf( temporary
                , "tempType=Search(\"%s\") As ActiveBasic.Core._System_TypeForClass"
                , objClass.GetFullName().c_str()
            );

            // コンパイル
            MakeMiddleCode( temporary );
            ChangeOpcode( temporary );

            sprintf( temporary
                , "tempType.SetClassInfo(%d,_System_GetComVtbl(%s),_System_GetVtblList(%s),_System_GetDefaultConstructor(%s),_System_GetDestructor(%s))"
                , objClass.GetSize()
                , objClass.GetFullName().c_str()
                , objClass.GetFullName().c_str()
                , objClass.GetFullName().c_str()
                , objClass.GetFullName().c_str()
                , objClass.GetName().c_str()
            );

            // コンパイル
            ChangeOpcode( temporary );

            if( objClass.HasSuperClass() )
            {
                sprintf( temporary
                    , "tempType.SetBaseType(Search(\"%s\"))"
                    , objClass.GetSuperClass().GetFullName().c_str()
                );

                // コンパイル
                ChangeOpcode( temporary );
            }

            if( objClass.GetDynamicMembers().size() )
            {
                // メンバの型を示すTypeInfoオブジェクトへのDataOffset配列の静的データ定義文字列を取得
                sprintf(
                    temporary,
                    "tempType.SetMembers([%s],[%s],[%s],%d)",
                    objClass.GetStaticDefiningStringAsMemberNames().c_str(),
                    GetStaticDefiningStringAsMemberTypeInfoNames( objClass ).c_str(),
                    objClass.GetStaticDefiningStringAsMemberOffsets().c_str(),
                    objClass.GetDynamicMembers().size()
                );
                ChangeOpcode( temporary );
            }
        }
    }
}