Changeset 422 in dev for trunk/abdev/BasicCompiler_Common/src/Delegate.cpp

Timestamp:

Mar 8, 2008, 10:38:39 PM (17 years ago)

Author:

dai_9181

Message:

デリゲートのパラメータや戻り値にクラス型を指定できない不具合を修正。

File:

• trunk/abdev/BasicCompiler_Common/src/Delegate.cpp (modified) (6 diffs)

trunk/abdev/BasicCompiler_Common/src/Delegate.cpp

@@ -3 +3 @@
 #include <Delegate.h>
 
-Delegate::Delegate( const NamespaceScopes &namespaceScopes, const std::string &name, Procedure::Kind procKind, const char *paramStr, const Type &returnType, int nowLine )
-    : Procedure( namespaceScopes, name, procKind, false )
-{
-    this->returnType = returnType;
-    params.Analyze( paramStr, nowLine );
-
+void Delegate::RefleshParameterAndReturnType()
+{
+    // パラメータを解析
+    params.Analyze( paramStr.c_str(), sourceIndex );
+
+    // 動的パラメータを作る
     dynamicParams = params;
     dynamicParams.insert( dynamicParams.begin(), new Parameter( "_System_LocalThis", Type( DEF_PTR_VOID ) ) );
+
+    if( IsFunction() )
+    {
+        // 戻り値を取得
+        if( !compiler.StringToType( returnTypeName, returnType ) )
+        {
+            SetError(3,returnTypeName,sourceIndex);
+        }
+    }
 }
 
@@ -93 +102 @@
             GetIdentifierToken( name, source.GetBuffer(), i );
 
+            if( source[i] != '(' )
+            {
+                SetError(1,NULL,nowLine);
+                continue;
+            }
+
+            // パラメータ文字列
             char paramStr[8192];
-            i += GetStringInPare( paramStr, source.GetBuffer() + i );
-
-            // 戻り値
-            Type returnType;
+            i += GetStringInPare( paramStr, source.GetBuffer() + i, true );
+
+            // 戻り値の型の文字列
+            char returnTypeName[VN_SIZE] = "";
             if( source[i] == 1 && source[i+1] == ESC_AS )
             {
                 i += 2;
-                char typeName[VN_SIZE];
-                GetCommandToken( typeName, source.GetBuffer(), i );
-                compiler.StringToType( typeName, returnType );
-            }
-
-            this->Put( new Delegate( namespaceScopes, name, procKind, paramStr, returnType, nowLine ) );
+                GetCommandToken( returnTypeName, source.GetBuffer(), i );
+
+                if( procKind != Procedure::Function )
+                {
+                    SetError(38,name,nowLine);
+                }
+            }
+            else
+            {
+                if( procKind == Procedure::Function )
+                {
+                    SetError(-104,name,nowLine);
+                    lstrcpy( returnTypeName, "Double" );
+                }
+            }
+
+            this->Put( new Delegate( namespaceScopes, name, procKind, paramStr, returnTypeName, nowLine ) );
         }
     }
@@ -156 +183 @@
         values.insert( std::map<std::string,std::string>::value_type( "#name#", dg.GetName() ) );
 
-        std::string paramsStr = dg.Params().GetString();
-
         if( dg.IsFunction() )
         {
             values.insert( std::map<std::string,std::string>::value_type(
                 "#call_method_begin#",
-                (string)"Function Call(" + paramsStr + ") As " + compiler.TypeToString( dg.ReturnType() )
+                (string)"Function Call(" + dg.paramStr + ") As " + dg.returnTypeName
             ) );
 
@@ -176 +201 @@
             values.insert( std::map<std::string,std::string>::value_type(
                 "#call_method_begin#",
-                (string)"Sub Call(" + paramsStr + ")"
+                (string)"Sub Call(" + dg.paramStr + ")"
             ) );
 
@@ -187 +212 @@
         }
 
-        values.insert( std::map<std::string,std::string>::value_type( "#params#", paramsStr ) );
+        values.insert( std::map<std::string,std::string>::value_type( "#params#", dg.paramStr ) );
 
         destSource += sourceTemplate.GetResult( values );
@@ -197 +222 @@
     */
 }
+
+void Delegates::RefleshParameterAndReturnType()
+{
+    this->Iterator_Reset();
+    while( this->Iterator_HasNext() )
+    {
+        Delegate &dg = *this->Iterator_GetNext();
+        dg.RefleshParameterAndReturnType();
+    }
+}