Changeset 27 in dev for BasicCompiler_Common

Timestamp:

Jan 7, 2007, 6:51:20 AM (17 years ago)

Author:

dai_9181

Message:

静的メンバ、静的メソッド周りを修正。

Location:

BasicCompiler_Common

Files:

• Class.cpp (modified) (2 diffs)
• Class.h (modified) (1 diff)
• Intermediate_Step2.cpp (modified) (1 diff)
• Variable.cpp (modified) (6 diffs)
• error.cpp (modified) (1 diff)
• hash.cpp (modified) (3 diffs)

BasicCompiler_Common/Class.cpp

@@ -308 +308 @@
     return ppobj_StaticMethod[i];
 }
+bool CClass::IsExistMethod( char *name ){
+    for( int i=0; i<iMethodNum; i++ ){
+        if( lstrcmp( ppobj_Method[i]->psi->name, name ) == 0 ) return true;
+    }
+    return false;
+}
+bool CClass::IsExistStaticMethod( char *name ){
+    for( int i=0; i<iStaticMethodNum; i++ ){
+        if( lstrcmp( ppobj_StaticMethod[i]->psi->name, name ) == 0 ) return true;
+    }
+    return false;
+}
+
 
 LONG_PTR CClass::AddVtblDataTable(SUBINFO **ppsi,int length){
@@ -677 +690 @@
     //メンバ関数
     for(i=0;i<pobj_c->iMethodNum;i++){
-        //スーパークラスと重複する場合はオーバーライドを行う
+        //基底クラスと重複する場合はオーバーライドを行う
         if(pobj_c->ppobj_Method[i]->pobj_InheritsClass) continue;
 

BasicCompiler_Common/Class.h

@@ -105 +105 @@
     CMethod *GetMethodInfo( SUBINFO *psi );
     CMethod *GetStaticMethodInfo( SUBINFO *psi );
+    bool IsExistMethod( char *name );
+    bool IsExistStaticMethod( char *name );
 
 

BasicCompiler_Common/Intermediate_Step2.cpp

@@ -453 +453 @@
         lstrcmpi(com,"PRINT")==0||
         lstrcmpi(com,"RANDOMIZE")==0||
-        lstrcmpi(com,"WRITE")==0||
+        //lstrcmpi(com,"WRITE")==0|| TODO: Trace.Writeとの重複が未完成
         lstrcmpi(com,"MSGBOX")==0||
         lstrcmpi(com,"WINDOW")==0||

BasicCompiler_Common/Variable.cpp

@@ -724 +724 @@
 
 
-    ////////////////////
-    // グローバル変数
-    ////////////////////
-
-    for(i=MaxGlobalVarNum-1;i>=0;i--){  //レキシカルスコープを考慮してバックサーチ
-        if(GlobalVar[i].bLiving){
-            if(lstrcmp(VarName,GlobalVar[i].name)==0) break;
-        }
-    }
-
-    if(i>=0){
-        goto GlobalOk;
-    }
-
-
     //////////////////////////
     // クラスの静的メンバ
@@ -745 +730 @@
     if(member[0]){
         lstrcpy(temporary,member);
-        GetVarFormatString(temporary,array,lpPtrOffset,member,&i);
+        char tempMember[VN_SIZE];
+        char tempArray[VN_SIZE];
+        GetVarFormatString(temporary,tempArray,lpPtrOffset,tempMember,&i);
 
         char temp2[VN_SIZE];
@@ -754 +741 @@
 
         if(i!=MaxGlobalVarNum){
+            lstrcpy(member,tempMember);
+            lstrcpy(array,tempArray);
             goto GlobalOk;
         }
@@ -769 +758 @@
             goto GlobalOk;
         }
+    }
+
+
+    ////////////////////
+    // グローバル変数
+    ////////////////////
+
+    for(i=MaxGlobalVarNum-1;i>=0;i--){  //レキシカルスコープを考慮してバックサーチ
+        if(GlobalVar[i].bLiving){
+            if(lstrcmp(VarName,GlobalVar[i].name)==0) break;
+        }
+    }
+
+    if(i>=0){
+        goto GlobalOk;
     }
 
@@ -1019 +1023 @@
     }
 
-    //関数名
+    //関数（またはメソッド）名
     lstrcat(FullName,pCompilingSubInfo->name);
     lstrcat(FullName,"%");
@@ -1029 +1033 @@
     lstrcat(FullName,"%");
 
+    //変数名
     lstrcat(FullName,VarName);
 

BasicCompiler_Common/error.cpp

@@ -162 +162 @@
     if(num==116) lstrcpy(msg,"コンストラクタ及びデストラクタはパブリックアクセスにしなければなりません");
     if(num==117) lstrcpy(msg,"デストラクタの名前が \"~クラス名\" になっていません");
-    if(num==118) lstrcpy(msg,"参照するスーパークラスが存在しません");
-    if(num==119) sprintf(msg,"\"%s\" メンバはスーパークラスで定義されていません",KeyWord);
+    if(num==118) lstrcpy(msg,"参照する基底クラスが存在しません");
+    if(num==119) sprintf(msg,"\"%s\" メンバは基底クラスで定義されていません",KeyWord);
     if(num==120) lstrcpy(msg,"デストラクトするオブジェクトの型が不明です");
     if(num==121) lstrcpy(msg,"New演算子にはクラス以外の型を指定できません");

BasicCompiler_Common/hash.cpp

@@ -121 +121 @@
         //オブジェクトのメンバ関数の場合
 
+        bool isStatic = false;
+        CClass *pobj_c;
         if(lstrcmpi(ObjName,"Super")==0){
-            //スーパークラス参照の場合
-
-            if(pobj_CompilingClass==0){
-                SetError(118,NULL,cp);
-                goto finish;
-            }
-
-            //クラス内のメンバ関数をコンパイルしているとき
-            //※オーバーライドされた関数をサーチする
-            for(i=0;i<pobj_CompilingClass->iMethodNum;i++){
-                if(pobj_CompilingClass->ppobj_Method[i]->pobj_InheritsClass==0) continue;
-
-                if(lstrcmp(NestMember,pobj_CompilingClass->ppobj_Method[i]->psi->name)==0){
-                    ppArray_si[num]=pobj_CompilingClass->ppobj_Method[i]->psi;
-                    num++;
-                }
-            }
-
-            if(num==0) SetError(119,NestMember,cp);
-
-            goto finish;
-        }
-
-
-
-        //////////////////////////////////////////////
-        // 静的メソッド（クラス名が指定される場合）
-        //////////////////////////////////////////////
-
-        CClass *pobj_c;
-        pobj_c=pobj_DBClass->check(ObjName);
-        if(pobj_c){
-            for(i=0;i<pobj_c->iStaticMethodNum;i++){
-                if(lstrcmp(NestMember,pobj_c->ppobj_StaticMethod[i]->psi->name)==0){
-                    ppArray_si[num]=pobj_c->ppobj_StaticMethod[i]->psi;
-                    num++;
-                }
-            }
-
-            goto finish;
-        }
-
-
-        i=GetVarType(ObjName,(LONG_PTR *)&pobj_c,1);
-        if(i==-1) goto finish;  //エラーの場合
-        if(!(NATURAL_TYPE(i)==DEF_OBJECT)) goto finish;
+            //クラスメンバ関数内から基底クラスの呼び出し
+            pobj_c=pobj_CompilingClass;
+        }
+        else{
+            pobj_c=pobj_DBClass->check(ObjName);
+            if( ! pobj_c ){
+                //"->"によってオブジェクトを指定する通常のメンバ関数呼び出し
+                int type = GetVarType(ObjName,(LONG_PTR *)&pobj_c,0);
+                if(!(NATURAL_TYPE(type)==DEF_OBJECT)) goto finish;
+            }
+        }
+
+        // 静的メソッドから取得
+        for(i=0;i<pobj_c->iStaticMethodNum;i++){
+            if(lstrcmp(NestMember,pobj_c->ppobj_StaticMethod[i]->psi->name)==0){
+                ppArray_si[num]=pobj_c->ppobj_StaticMethod[i]->psi;
+                num++;
+            }
+        }
+
+        //動的メソッドから取得
 
         //※オーバーライドされた関数を先にサーチする必要があるため、バックサーチを行う
@@ -176 +153 @@
             }
         }
-        goto finish;
     }
 
@@ -221 +197 @@
             }
         }
-
-        if(num) goto finish;
-    }
+    }
+
+    if(num) goto finish;
+
 
     //ハッシュ値を取得