Changeset 100 in dev for BasicCompiler_Common/Procedure.cpp

Timestamp:

Apr 24, 2007, 3:17:29 AM (18 years ago)

Author:

dai_9181

Message:

名前空間機能をグローバル関数に適用。

File:

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

BasicCompiler_Common/Procedure.cpp

@@ -1 +1 @@
 #include "common.h"
 
+string UserProc::GetFullName() const
+{
+    if( HasParentClass() ){
+        return (string)GetParentClass().name + "." + GetName();
+    }
+
+    return GetName();
+}
 bool UserProc::SetParamsAndReturnType( const char *sourceOfParams, int nowLine, bool isStatic ){
     int i = 0;
@@ -355 +363 @@
     return true;
 }
+bool UserProc::IsVirtual() const
+{
+    if( pMethod == NULL ){
+        return false;
+    }
+    return ( pMethod->bVirtual != 0 );
+}
+bool UserProc::EqualName( const string &name ) const
+{
+    SetError();
+    return true;
+}
+
+GlobalProc *GlobalProc::Create( const NamespaceScopes &namespaceScopes, char *buffer,int nowLine ){
+    int i2;
+    char temporary[8192];
+
+    int i=1;
+
+    Procedure::Kind kind = Procedure::Sub;
+    bool isMacro = false;
+    if(buffer[i]==ESC_FUNCTION) kind = Procedure::Function;
+    if(buffer[i]==ESC_MACRO){
+        isMacro = true;
+    }
+
+    i++;
+
+    bool isCdecl = false;
+    bool isExport = false;
+    while(1){
+        if(buffer[i]==1&&buffer[i+1]==ESC_CDECL&& isCdecl == false ){
+            isCdecl = true;
+
+            i+=2;
+        }
+        else if(buffer[i]==1&&buffer[i+1]==ESC_EXPORT&& isExport == false ){
+            isExport = true;
+
+            i+=2;
+        }
+        else break;
+    }
+
+    i2=0;
+    if(buffer[i]==1&&buffer[i+1]==ESC_OPERATOR){
+        SetError(126,NULL,nowLine);
+        return 0;
+    }
+    else{
+        for(;;i++,i2++){
+            if(!IsVariableChar(buffer[i])){
+                temporary[i2]=0;
+                break;
+            }
+            temporary[i2]=buffer[i];
+        }
+    }
+
+    if( isMacro ){
+        //大文字に変換
+        CharUpper(temporary);
+
+        //マクロ関数の場合は名前リストに追加
+        extern char **ppMacroNames;
+        extern int MacroNum;
+        ppMacroNames=(char **)HeapReAlloc(hHeap,0,ppMacroNames,(MacroNum+1)*sizeof(char *));
+        ppMacroNames[MacroNum]=(char *)HeapAlloc(hHeap,0,lstrlen(temporary)+1);
+        lstrcpy(ppMacroNames[MacroNum],temporary);
+        MacroNum++;
+    }
+
+    //重複チェック
+    if(GetDeclareHash(temporary)){
+        SetError(15,temporary,nowLine);
+        return 0;
+    }
+
+    extern int SubNum;
+    SubNum++;
+
+    GlobalProc *pGlobalProc = new GlobalProc( namespaceScopes, temporary, kind, isMacro, isCdecl, isExport );
+
+    //ID
+    static int id_base=0;
+    pGlobalProc->id = (id_base++);
+
+    if(isExport){
+        pGlobalProc->Using();
+    }
+
+    // パラメータを解析
+    // ※第1パラメータにに指定するデータの例："( s As String ) As String"
+    pGlobalProc->SetParamsAndReturnType( buffer + i, nowLine, true );
+
+#ifdef _DEBUG
+    pGlobalProc->_paramStr = buffer + i;
+#endif
+
+
+    return pGlobalProc;
+}
+bool GlobalProc::AddGlobalProc( const NamespaceScopes &namespaceScopes, char *buffer,int nowLine ){
+    GlobalProc *pGlobalProc = Create( namespaceScopes, buffer, nowLine );
+    if( pGlobalProc == NULL ){
+        return false;
+    }
+
+
+    /////////////////////////////////
+    // ハッシュデータに追加
+    /////////////////////////////////
+
+    int key;
+    key=hash_default(pGlobalProc->GetName().c_str());
+
+    extern GlobalProc **ppSubHash;
+    if(ppSubHash[key]){
+        GlobalProc *psi2;
+        psi2=ppSubHash[key];
+        while(1){
+            //重複エラーチェックを行う
+            if( pGlobalProc->GetName() == psi2->GetName() ){
+                if( Parameter::Equals( psi2->Params(), pGlobalProc->Params() ) ){
+                    SetError(15,pGlobalProc->GetName().c_str(),nowLine);
+                    return 0;
+                }
+            }
+
+            if(psi2->pNextData==0) break;
+            psi2=psi2->pNextData;
+        }
+        psi2->pNextData=pGlobalProc;
+    }
+    else{
+        ppSubHash[key]=pGlobalProc;
+    }
+
+    return true;
+}
+bool GlobalProc::EqualName( const string &name ) const
+{
+    char AreaName[VN_SIZE];     //オブジェクト変数
+    char NestName[VN_SIZE];     //入れ子メンバ
+    bool isNest = SplitMemberName( name.c_str(), AreaName, NestName );
+
+    if( isNest ){
+        if( GetNamespaceScopes().Equal( AreaName ) ){
+            if( GetName() == NestName ){
+                return true;
+            }
+        }
+    }
+    else{
+        if( GetNamespaceScopes().size() ){
+            // 名前空間の判断が必要なとき
+            if( !GetNamespaceScopes().IsUsing() ){
+                // この名前空間は暗黙的に参照できないとき
+                return false;
+            }
+        }
+        if( GetName() == name ){
+            return true;
+        }
+    }
+
+    return false;
+}
 
 bool DllProc::SetParamsAndReturnType( const char *sourceOfParams, int nowLine ){