source: dev/BasicCompiler_Common/hash.cpp@ 6

#include "../BasicCompiler_Common/common.h"

#ifdef _AMD64_
#include "../BasicCompiler64/opcode.h"
#else
#include "../BasicCompiler32/opcode.h"
#endif

int hash_default(char *name){
    int key;

    for(key=0;*name!='\0';name++){
        key=((key<<8)+ *name )%MAX_HASH;
    }

    return key;
}

CONSTINFO *GetConstHash(char *name){
    //ハッシュ値を取得
    int key;
    key=hash_default(name);

    //格納位置を取得
    extern CONSTINFO **ppConstHash;
    CONSTINFO *pci;
    pci=ppConstHash[key];
    while(pci){
        if(lstrcmp(pci->name,name)==0) break;

        pci=pci->pNextData;
    }

    return pci;
}

DECLAREINFO *GetDeclareHash(char *name){
    //ハッシュ値を取得
    int key;
    key=hash_default(name);

    //格納位置を取得
    extern DECLAREINFO **ppDeclareHash;
    DECLAREINFO *pdi;
    pdi=ppDeclareHash[key];
    while(pdi){
        if(lstrcmp(pdi->name,name)==0) break;

        pdi=pdi->pNextData;
    }

    return pdi;
}

SUBINFO **GetOverloadObjectSubHash(char *name,CClass *pobj_c, int *pNum){
    int i;


    //格納のための構造体配列を用意
    extern HANDLE hHeap;
    SUBINFO **ppArray_si;
    int num=0;
    ppArray_si=(SUBINFO **)HeapAlloc(hHeap,0,sizeof(SUBINFO *)*1024);


    //オブジェクトのメンバ関数の場合
    //※オーバーライドされた関数を先にサーチする必要があるため、バックサーチを行う
    for(i=pobj_c->iMethodNum-1;i>=0;i--){
        if(lstrcmp(name,pobj_c->ppobj_Method[i]->psi->name)==0){
            ppArray_si[num]=pobj_c->ppobj_Method[i]->psi;
            num++;
        }
    }

    *pNum=num;
    return ppArray_si;
}

SUBINFO **GetOverloadSubHash(char *lpszName,int *pNum){
    extern SUBINFO *pSubInfo;
    extern int SubInfoNum;
    extern int cp;
    int i;


    char name[VN_SIZE];

    if(lpszName[0]=='.'){
        GetWithName(name);
        lstrcat(name,lpszName);
    }
    else lstrcpy(name,lpszName);


    //格納のための構造体配列を用意
    extern HANDLE hHeap;
    SUBINFO **ppArray_si;
    int num=0;
    ppArray_si=(SUBINFO **)HeapAlloc(hHeap,0,sizeof(SUBINFO *)*1024);


    char ObjName[VN_SIZE];      //オブジェクト変数
    char NestMember[VN_SIZE];   //入れ子メンバ
    BOOL bObjectMember;
    lstrcpy(ObjName,name);
    for(i=lstrlen(ObjName)-1;i>=0;i--){
        if(ObjName[i]=='.'||(ObjName[i]==1&&ObjName[i+1]==ESC_PSMEM))
            break;
    }
    if(i==-1) bObjectMember=0;
    else{
        if(ObjName[i]=='.')
            lstrcpy(NestMember,ObjName+i+1);
        else
            lstrcpy(NestMember,ObjName+i+2);
        ObjName[i]=0;
        bObjectMember=1;
    }

    if(bObjectMember){
        //オブジェクトのメンバ関数の場合

        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;

        //※オーバーライドされた関数を先にサーチする必要があるため、バックサーチを行う
        for(i=pobj_c->iMethodNum-1;i>=0;i--){
            if(lstrcmp(NestMember,pobj_c->ppobj_Method[i]->psi->name)==0){
                ppArray_si[num]=pobj_c->ppobj_Method[i]->psi;
                num++;
            }
        }
        goto finish;
    }

    if(pobj_CompilingClass){
        //自身のオブジェクトのメンバ関数を検索


        //////////////////////////////////////////////
        // 静的メソッド
        //////////////////////////////////////////////

        CClass *pobj_c = pobj_CompilingClass;

        for(i=0;i<pobj_c->iStaticMethodNum;i++){
            if(lstrcmp(name,pobj_c->ppobj_StaticMethod[i]->psi->name)==0){
                ppArray_si[num]=pobj_c->ppobj_StaticMethod[i]->psi;
                num++;
            }
        }


        ///////////////////////
        // 動的メソッド（一般）
        ///////////////////////
        for(i=0;i<pobj_CompilingClass->iMethodNum;i++){
            //オーバーライドされた関数を飛び越す
            if(pobj_CompilingClass->ppobj_Method[i]->pobj_InheritsClass==0) break;
        }
        for(;i<pobj_CompilingClass->iMethodNum;i++){
            if(lstrcmp(name,pobj_CompilingClass->ppobj_Method[i]->psi->name)==0){
                ppArray_si[num]=pobj_CompilingClass->ppobj_Method[i]->psi;
                num++;
            }
        }

        //オーバーライドされたメンバ関数
        for(i=0;i<pobj_CompilingClass->iMethodNum;i++){
            //オーバーライドされた関数を飛び越す
            if(pobj_CompilingClass->ppobj_Method[i]->pobj_InheritsClass){
                if(lstrcmp(name,pobj_CompilingClass->ppobj_Method[i]->psi->name)==0){
                    ppArray_si[num]=pobj_CompilingClass->ppobj_Method[i]->psi;
                    num++;
                }
            }
        }

        if(num) goto finish;
    }

    //ハッシュ値を取得
    int key;
    key=hash_default(name);

    //格納位置を取得
    extern SUBINFO **ppSubHash;
    SUBINFO *psi;
    psi=ppSubHash[key];
    while(psi){
        if(!psi->pobj_ParentClass){
            if(lstrcmp(psi->name,name)==0){
                ppArray_si[num]=psi;
                num++;
            }
        }

        psi=psi->pNextData;
    }

finish:

    *pNum=num;
    return ppArray_si;
}

//オーバーロードされていない関数を取得（昔のコンパイラソースコードとの互換性保持）
SUBINFO *GetSubHash(char *lpszName,BOOL bError){
    int num;
    SUBINFO **ppsi,*psi;
    ppsi = GetOverloadSubHash(lpszName,&num);

    //関数が存在しないとき
    if(num == 0){
        HeapDefaultFree(ppsi);
        return 0;
    }

    //一つ以上の関数が存在するときは内部エラー（デバッグ用）
    if(num > 1){
        if(bError) SetError(300,NULL,cp);
    }

    psi = ppsi[0];

    HeapDefaultFree(ppsi);

    return psi;
}
SUBINFO *GetMethodHash(char *ObjectName,char *MethodName,char *Parameter,BOOL bError){
    char temporary[VN_SIZE];
    sprintf(temporary,"%s.%s",ObjectName,MethodName);

    int num;
    SUBINFO **ppsi,*psi;
    ppsi = GetOverloadSubHash(temporary,&num);

    //関数が存在しないとき
    if(num == 0){
        HeapDefaultFree(ppsi);
        return 0;
    }

    //オーバーロードを解決
    psi=OverloadSolutionWithStrParam(temporary,ppsi,num,Parameter,ObjectName,NULL);
    HeapDefaultFree(ppsi);

    return psi;
}