Changeset 77 in dev for BasicCompiler_Common/Procedure.cpp

Timestamp:

Mar 22, 2007, 2:41:19 AM (18 years ago)

Author:

dai_9181

Message:

デフォルトパラメータに対応。

File:

• BasicCompiler_Common/Procedure.cpp (modified) (2 diffs)

BasicCompiler_Common/Procedure.cpp

@@ -85 +85 @@
         }
 
-        //型
         Type type( DEF_NON );
-        if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_AS){
+        char initValue[8192] = "";
+        if( sourceOfParams[i] == '=' ){
+            i++;
+            i = GetOneParameter( sourceOfParams, i, initValue );
+
+            //エラー用
+            cp = nowLine;
+
+            NumOpe_GetType( initValue, Type::String(), type );
+        }
+        else if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_AS){
             i+=2;
 
@@ -154 +163 @@
         }
 
-        Parameter *pParam = new Parameter( name, type, isRef );
+        Parameter *pParam = new Parameter( name, type, isRef, initValue );
         if( isArray ){
             pParam->SetArray( subScripts );