Changeset 64 in dev for BasicCompiler_Common/NumOpe_GetType.cpp

Timestamp:

Mar 8, 2007, 2:49:34 AM (17 years ago)

Author:

dai_9181

Message:

すべてのオブジェクトを参照型に切り替えた。

File:

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

BasicCompiler_Common/NumOpe_GetType.cpp

@@ -255 +255 @@
 }
 
+int Operator_New_GetType(const char *Parameter,LONG_PTR *plpIndex,const TYPEINFO &baseTypeInfo ){
+    char TypeName[VN_SIZE],CreateParameter[VN_SIZE],objectSizeStr[VN_SIZE];
+    int i,i2;
+
+    i=0;
+
+    if(Parameter[0]=='['){
+        i=GetStringInBracket(objectSizeStr,Parameter);
+
+        SlideString(objectSizeStr+1,-1);
+        objectSizeStr[i-2]=0;
+    }
+    else objectSizeStr[0]=0;
+
+    for(i2=0;;i++,i2++){
+        if(Parameter[i]=='('){
+            TypeName[i2]=0;
+
+            //コンストラクタに渡すパラメータを取得
+            i2=GetStringInPare(CreateParameter,Parameter+i);
+            RemoveStringPare(CreateParameter);
+            i+=i2;
+            if(Parameter[i]!='\0'){
+                SetError(42,NULL,cp);
+                return 0;
+            }
+            break;
+        }
+        TypeName[i2]=Parameter[i];
+        if(Parameter[i]=='\0'){
+            CreateParameter[0]=0;
+            break;
+        }
+    }
+
+    int type;
+    type=GetTypeFixed(TypeName,plpIndex);
+
+    if( baseTypeInfo.type == DEF_OBJECT ){
+        return DEF_OBJECT;
+    }
+    return DEF_PTR_OBJECT;
+}
+
 int NumOpe_GetType(char *Command,TYPEINFO *pBaseType,LONG_PTR *plpIndex){
     extern int cp;
@@ -265 +309 @@
     }
 
-    if(Command[0]==1&&Command[1]==ESC_NEW){
+    if(Command[0]==1&& Command[1]==ESC_NEW ){
         //New演算子（オブジェクト生成）
-        return DEF_PTR_OBJECT;
+        return Operator_New_GetType(Command+2,plpIndex, *pBaseType );
     }
 
@@ -333 +377 @@
                         if(pBaseType->type==DEF_OBJECT){
                             if(IsStringSubsituation(pBaseType->u.pobj_Class)
-                                || IsStringObjectType(pBaseType)){
+                                || IsStringObjectType(*pBaseType)){
                                 //要求タイプがオブジェクトであり、Stringの受け入れが可能な場合
                                 extern CClass *pobj_StringClass;
@@ -346 +390 @@
                     }
 
-                    type[sp]=DEF_PTR_BYTE;
+                    type[sp]=DEF_PTR_CHAR;
                     bLiteralCalculation=0;
                 }