Changeset 565 in dev for trunk/ab5.0/abdev/BasicCompiler_Common/src

Timestamp:

May 5, 2008, 2:48:41 PM (17 years ago)

Author:

dai_9181

Message:

・ProcedureGeneratorクラスを追加。
・「InitStaticMember、Compile_System_InitializeUserTypes、Compile_System_InitializeUserTypesForBaseType」これらのメソッドをProcedureGeneratorクラスに移動。

Location:

trunk/ab5.0/abdev/BasicCompiler_Common/src

Files:

• Class.cpp (modified) (1 diff)
• ProcedureGenerator.cpp (added)

trunk/ab5.0/abdev/BasicCompiler_Common/src/Class.cpp

@@ -648 +648 @@
 }
 
-
-void Classes::InitStaticMember(){
-    //静的メンバをグローバル領域に作成
-
-    //イテレータをリセット
-
-    extern int cp;
-    int back_cp=cp;
-
-    this->Iterator_Reset();
-    while(this->Iterator_HasNext()){
-        CClass &objClass = *this->Iterator_GetNext();
-        if( objClass.isTargetObjectModule == false )
-        {
-            // 静的リンクライブラリの場合は飛ばす（既にインスタンスが定義済みであるため）
-            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;
-        BOOST_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 Classes::Compile_System_InitializeUserTypes(){
-    char temporary[VN_SIZE];
-
-    ////////////////////////////////////////////////////////////////////
-    // クラス登録
-    ////////////////////////////////////////////////////////////////////
-
-    // イテレータをリセット
-    Iterator_Reset();
-
-    while( Iterator_HasNext() ){
-        const CClass &objClass = *Iterator_GetNext();
-
-        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(
-            compiler.GetObjectModule().dataTable.GetLastMadeConstObjectDataTableOffset()
-        );
-    }
-}
-void Classes::Compile_System_InitializeUserTypesForBaseType()
-{
-    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 );
-
-    // イテレータをリセット
-    Iterator_Reset();
-
-    while( Iterator_HasNext() ){
-        const CClass &objClass = *Iterator_GetNext();
-
-        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(),
-                    objClass.GetStaticDefiningStringAsMemberTypeInfoNames().c_str(),
-                    objClass.GetStaticDefiningStringAsMemberOffsets().c_str(),
-                    objClass.GetDynamicMembers().size()
-                );
-                ChangeOpcode( temporary );
-            }
-        }
-    }
-}
-
 const CClass *Classes::Find( const NamespaceScopes &namespaceScopes, const std::string &name ) const
 {