Changeset 50 in dev for BasicCompiler_Common/Subroutine.cpp

Timestamp:

Feb 10, 2007, 5:44:58 PM (18 years ago)

Author:

dai_9181

Message:

オーバーロード解決用の関数保持リストを "SUBINFO " ではなく、"vector<SUBINFO *>" に変更した。

File:

• BasicCompiler_Common/Subroutine.cpp (modified) (9 diffs)

BasicCompiler_Common/Subroutine.cpp

@@ -104 +104 @@
     return true;
 }
-int GetReturnTypeOfProc(int idProc,void *pInfo,char *name,char *Parameter,LONG_PTR *plpRetIndex){
+
+
+int CallProc(int idProc,void *pInfo,char *name,char *Parameter,LONG_PTR *plpRetIndex){
     int ret_type;
 
@@ -129 +131 @@
         ////////////////////////
 
-        SUBINFO **ppsi;
-        int num;
-        ppsi=GetOverloadSubHash(name,&num);
-        if(num){
+        std::vector<SUBINFO *> subs;
+        GetOverloadSubHash(name,subs);
+        if(subs.size()){
             //オーバーロードを解決
-            psi=OverloadSolutionWithStrParam(name,ppsi,num,Parameter,ObjectName,NULL);
-            HeapDefaultFree(ppsi);
+            psi=OverloadSolutionWithStrParam(name,subs,Parameter,ObjectName,NULL);
 
             if(!psi) return 0;
@@ -141 +141 @@
 
 
-        ret_type=psi->ReturnType;
-        *plpRetIndex=psi->u.ReturnIndex;
+        Opcode_CallProc(Parameter,psi,0,ObjectName,RefType);
+        if( plpRetIndex ){
+            *plpRetIndex = psi->u.ReturnIndex;
+        }
+        return psi->ReturnType;
     }
     else if(idProc==PROC_DLL){
@@ -151 +154 @@
         pdi=(DECLAREINFO *)pInfo;
 
-        ret_type=pdi->ReturnType;
-        *plpRetIndex=pdi->u.ReturnIndex;
+        ret_type=Opcode_CallDllProc(Parameter,pdi,plpRetIndex);
     }
     else if(idProc==PROC_BUILTIN){
@@ -161 +163 @@
         FuncId=(int)(_int64)pInfo;
 
-        ret_type=GetFunctionType(FuncId);
-        *plpRetIndex=-1;
+        TYPEINFO ReturnTypeInfo = { DEF_LONG, NULL };
+        Opcode_CallFunc( Parameter, FuncId, ReturnTypeInfo );
+        if( plpRetIndex ){
+            *plpRetIndex = ReturnTypeInfo.u.lpIndex;
+        }
+        return ReturnTypeInfo.type;
     }
     else if(idProc==PROC_PTR){
@@ -173 +179 @@
 
         extern PROCPTRINFO *pProcPtrInfo;
-        ret_type=pProcPtrInfo[lpIndex].ReturnType;
-        *plpRetIndex=pProcPtrInfo[lpIndex].u.ReturnIndex;
+        ret_type=Opcode_CallProcPtr(name,Parameter,&pProcPtrInfo[lpIndex],plpRetIndex);
     }
 
     return ret_type;
 }
-BOOL GetReturnTypeOfPropertyMethod(char *variable,char *RightSide,TYPEINFO *pRetTypeInfo){
+BOOL CallPropertyMethod(char *variable,char *RightSide,TYPEINFO *pRetTypeInfo){
     //プロパティ用のメソッドを呼び出す
 
@@ -192 +197 @@
 
     //オーバーロード用の関数リストを作成
-    SUBINFO **ppsi;
-    int num;
-    ppsi=GetOverloadSubHash(VarName,&num);
-    if(num==0){
+    std::vector<SUBINFO *> subs;
+    GetOverloadSubHash(VarName,subs);
+    if(subs.size()==0){
         return 0;
     }
@@ -210 +214 @@
     //オーバーロードを解決
     SUBINFO *psi;
-    psi=OverloadSolutionWithStrParam(VarName,ppsi,num,Parameter,ObjectName,NULL);
-    HeapDefaultFree(ppsi);
+    psi=OverloadSolutionWithStrParam(VarName,subs,Parameter,ObjectName,NULL);
+
+    if(psi){
+        //呼び出し
+        Opcode_CallProc(Parameter,psi,0,ObjectName,RefType);
+
+        if( pRetTypeInfo ){
+            pRetTypeInfo->type = psi->ReturnType;
+            pRetTypeInfo->u.lpIndex = psi->u.ReturnIndex;
+        }
+    }
+
+    HeapDefaultFree(Parameter);
+
+    return 1;
+}
+
+
+int GetReturnTypeOfProc(int idProc,void *pInfo,char *name,char *Parameter,LONG_PTR *plpRetIndex){
+    int ret_type;
+
+    if(idProc==PROC_DEFAULT){
+        /////////////////////
+        // ユーザー定義関数
+        /////////////////////
+
+        SUBINFO *psi;
+        psi=(SUBINFO *)pInfo;
+
+        //GetSubHash内でエラー提示が行われた場合
+        if(psi==(SUBINFO *)-1) return -1;
+
+
+        //オブジェクト名を取得
+        char ObjectName[VN_SIZE];
+        int RefType;
+        SplitObjectName(name,ObjectName,&RefType);
+
+
+        ////////////////////////
+        // オーバーロードを解決
+        ////////////////////////
+
+        std::vector<SUBINFO *> subs;
+        GetOverloadSubHash(name,subs);
+        if( subs.size() > 0 ){
+            //オーバーロードを解決
+            psi=OverloadSolutionWithStrParam(name,subs,Parameter,ObjectName,NULL);
+
+            if(!psi) return 0;
+        }
+
+
+        ret_type=psi->ReturnType;
+        *plpRetIndex=psi->u.ReturnIndex;
+    }
+    else if(idProc==PROC_DLL){
+        /////////////////////////
+        // DLL関数
+        /////////////////////////
+        DECLAREINFO *pdi;
+        pdi=(DECLAREINFO *)pInfo;
+
+        ret_type=pdi->ReturnType;
+        *plpRetIndex=pdi->u.ReturnIndex;
+    }
+    else if(idProc==PROC_BUILTIN){
+        /////////////////////////
+        // 組み込み関数
+        /////////////////////////
+        int FuncId;
+        FuncId=(int)(_int64)pInfo;
+
+        ret_type=GetFunctionType(FuncId);
+        *plpRetIndex=-1;
+    }
+    else if(idProc==PROC_PTR){
+        /////////////////
+        // 関数ポインタ
+        /////////////////
+
+        LONG_PTR lpIndex;
+        GetVarType(name,&lpIndex,0);
+
+        extern PROCPTRINFO *pProcPtrInfo;
+        ret_type=pProcPtrInfo[lpIndex].ReturnType;
+        *plpRetIndex=pProcPtrInfo[lpIndex].u.ReturnIndex;
+    }
+
+    return ret_type;
+}
+BOOL GetReturnTypeOfPropertyMethod(char *variable,char *RightSide,TYPEINFO *pRetTypeInfo){
+    //プロパティ用のメソッドを呼び出す
+
+    //配列要素を取得
+    char VarName[VN_SIZE],ArrayElements[VN_SIZE];
+    GetArrayElement(variable,VarName,ArrayElements);
+
+    //オブジェクト名を取得
+    char ObjectName[VN_SIZE];
+    int RefType;
+    SplitObjectName(VarName,ObjectName,&RefType);
+
+    //オーバーロード用の関数リストを作成
+    std::vector<SUBINFO *> subs;
+    GetOverloadSubHash(VarName,subs);
+    if(subs.size()==0){
+        return 0;
+    }
+
+    //パラメータを整備
+    char *Parameter;
+    Parameter=(char *)HeapAlloc(hHeap,0,lstrlen(ArrayElements)+lstrlen(RightSide)+32);
+    lstrcpy(Parameter,ArrayElements);
+    if(RightSide){
+        if(Parameter[0]&&RightSide[0]) lstrcat(Parameter,",");
+        lstrcat(Parameter,RightSide);
+    }
+
+    //オーバーロードを解決
+    SUBINFO *psi;
+    psi=OverloadSolutionWithStrParam(VarName,subs,Parameter,ObjectName,NULL);
 
     if(psi){
@@ -225 +349 @@
 //インデクサ（getter）の戻り値を取得
 bool GetReturnTypeOfIndexerGetterProc(CClass *pobj_Class,TYPEINFO &RetTypeInfo){
-    SUBINFO **ppsi;
-    int num;
-    ppsi=pobj_Class->GetOperatorSubInfo(CALC_ARRAY_GET,num);
-    if(num==0){
-        HeapDefaultFree(ppsi);
-
+    std::vector<SUBINFO *> subs;
+    pobj_Class->EnumMethod( CALC_ARRAY_GET, subs );
+    if( subs.size() == 0 ){
         return false;
     }
 
-    RetTypeInfo.type = ppsi[0]->ReturnType;
-    RetTypeInfo.u.lpIndex = ppsi[0]->u.ReturnIndex;
-
-    HeapDefaultFree(ppsi);
+    RetTypeInfo.type = subs[0]->ReturnType;
+    RetTypeInfo.u.lpIndex = subs[0]->u.ReturnIndex;
 
     return true;