Changeset 20 in dev for BasicCompiler_Common/Variable.cpp

Timestamp:

Dec 28, 2006, 5:24:48 AM (17 years ago)

Author:

dai_9181

Message:

参照型パラメータに関数の戻り値オブジェクトを指定した場合などの、一時オブジェクトの扱いを可能にした。
Dimで指定される初期値を見分けることで、As指定を省略できるようにした。

File:

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

BasicCompiler_Common/Variable.cpp

@@ -281 +281 @@
     }
     return 1;
+}
+
+TYPEINFO GetStringTypeInfo(){
+    extern CClass *pobj_StringClass;
+    TYPEINFO TypeInfo = { DEF_OBJECT, (LONG_PTR)pobj_StringClass };
+    return TypeInfo;
 }
 
@@ -765 +771 @@
     }
 
+    //変数として見つからなかったとき
     if(bError) SetError(3,variable,cp);
     return -1;
@@ -957 +964 @@
     }
     else{
-        //As指定なし
-        pTypeInfo->type=GetTypeFromSimpleName(variable);
-
-        i2=lstrlen(variable)-1;
-        if(i2>=0){
-            if(!(variable[i2]=='#'||variable[i2]=='!'||variable[i2]=='%'||variable[i2]=='$'))
-                SetError(-103,variable,cp);
-        }
+        /////////////////
+        // As指定なし
+        /////////////////
+
+        if( InitBuf[0] == '\0' ){
+            //As指定も、初期値指定もない場合
+            pTypeInfo->type=GetTypeFromSimpleName(variable);
+
+            i2=lstrlen(variable)-1;
+            if(i2>=0){
+                if(!(variable[i2]=='#'||variable[i2]=='!'||variable[i2]=='%'||variable[i2]=='$'))
+                    SetError(-103,variable,cp);
+            }
+        }
+        else{
+            //初期値の型を判別して自動的に型情報を付加する
+
+            TYPEINFO BaseType = GetStringTypeInfo();
+            int result = NumOpe_GetType( InitBuf, &BaseType, &pTypeInfo->u.lpIndex );
+
+            //エラーの場合
+            if( result == -1 ) return 0;
+
+            pTypeInfo->type = result;
+        }
+
+    }
+
+    if( InitBuf[0] != '\0' && ConstractParameter[0] != '\0' ){
+        //初期値とコンストラクタパラメータが同時に呼び出されているとき
+        SetError(132, NULL, cp);
+    }
+
+    if( pTypeInfo->type == DEF_OBJECT && InitBuf[0] != '\0' && InitBuf[0] != '[' ){
+        lstrcpy( ConstractParameter, InitBuf );
+        InitBuf[0] = 0;
     }
 
@@ -1077 +1112 @@
         AllInitGlobalVarSize);
     if(InitBuf[0]){
-        //初期代入時のみ、書き込みアクセスを許可する
-        bool bConstBack = pVar->bConst;
-        pVar->bConst = false;
-
-        int result = SetInitGlobalData(pVar->offset,
-            pVar->type,
-            pVar->u.index,
-            pVar->SubScripts,
-            InitBuf);
-
-        if(!result){
-            //動的な式だった場合は代入演算を行う
-            char temporary[8192];
-            sprintf(temporary,"%s=%s",name,InitBuf);
-            OpcodeCalc(temporary);
-        }
-
-        pVar->bConst = bConstBack;
+        if( pVar->type == DEF_OBJECT && InitBuf[0] != '[' ){
+            //単発式が初期値のオブジェクトの場合
+            //初期値をコピーコンストラクタに渡す
+        }
+        else{
+            int result = SetInitGlobalData(pVar->offset,
+                pVar->type,
+                pVar->u.index,
+                pVar->SubScripts,
+                InitBuf);
+
+            if(!result){
+                //動的な式だった場合は代入演算を行う
+
+                //初期代入時のみ、書き込みアクセスを許可する
+                bool bConstBack = pVar->bConst;
+                pVar->bConst = false;
+
+                //代入
+                char temporary[8192];
+                sprintf(temporary,"%s=%s",name,InitBuf);
+                OpcodeCalc(temporary);
+
+                //アクセス制限を元に戻す
+                pVar->bConst = bConstBack;
+            }
+        }
     }