Changeset 128 in dev for BasicCompiler_Common/NumOpe_GetType.cpp

Timestamp:

May 18, 2007, 4:42:36 AM (17 years ago)

Author:

dai_9181

Message:

Blittable型を導入した。

File:

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

BasicCompiler_Common/NumOpe_GetType.cpp

@@ -294 +294 @@
 }
 
-bool GetTermType( const char *term, Type &resultType, bool &isLiteral, bool *pIsClassName = NULL ){
+bool GetTermType( const char *term, Type &resultType, bool &isLiteral, bool *pIsClassName ){
     char parameter[VN_SIZE];
 
@@ -322 +322 @@
         bool isClassName = false;
         Type leftType;
-        if( !GetTermType( termLeft, leftType, isLiteral, &isClassName ) ){
+        if( GetTermType( termLeft, leftType, isLiteral, &isClassName ) ){
+            if( isClassName == false && Smoothie::Meta::blittableTypes.IsExist( leftType ) ){
+                // 左側のオブジェクト部分がBlittable型のとき
+
+                char temporary[VN_SIZE];
+                lstrcpy( temporary, termLeft );
+                sprintf( termLeft, "%s(%s)",
+                    Smoothie::Meta::blittableTypes.Find( leftType ).GetCreateStaticMethodFullName().c_str(),
+                    temporary );
+
+                if( !GetTermType( termLeft, leftType, isLiteral, &isClassName ) ){
+                    goto globalArea;
+                }
+            }
+        }
+        else{
             goto globalArea;
         }
@@ -615 +630 @@
                     //型名
                     if( Type::StringToType( term, resultType ) ){
+
+                        if( resultType.IsObject() ){
+                            if( resultType.GetClass().IsBlittableType() ){
+                                // Blittable型のときは基本型として扱う
+                                // ※ただし、コンパイル中のメソッドがBlittable型クラスに属していないこと
+                                if( UserProc::IsLocalAreaCompiling()
+                                    && UserProc::CompilingUserProc().HasParentClass()
+                                    && UserProc::CompilingUserProc().GetParentClass().IsBlittableType() )
+                                {
+                                    // コンパイル中のメソッドがBlittable型クラスに属している
+                                }
+                                else{
+                                    resultType = resultType.GetClass().GetBlittableType();
+                                }
+                            }
+                        }
+
                         resultType.SetBasicType( resultType.GetBasicType() | FLAG_CAST );
                     }
@@ -656 +688 @@
                     //////////////////
                     // 何らかの識別子
-
-                        if( strstr(term,"T.B")){
-                            int test=0;
-                        }
 
                     bool isLiteral = true;