source: dev/trunk/ab5.0/abdev/BasicCompiler_Common/src/Const.cpp@ 578

#include "stdafx.h"

#include <Compiler.h>

using namespace ActiveBasic::Compiler;

double CConst::GetDoubleData(){
    double dbl;
    memcpy(&dbl,&i64data,sizeof(_int64));
    return dbl;
}

void Consts::Add( const NamespaceScopes &namespaceScopes, const std::string &name , const char *Expression)
{
    _int64 i64data;
    Type resultType;
    if( !StaticCalculation(false, Expression, 0, &i64data, resultType) ){
        //変数の場合
        //何もしない（実行領域コンパイル時にdim宣言として扱う）
        return;
    }

    //リテラル値の場合
    //登録を行う

    CConst *newconst = new CConst(namespaceScopes, name, resultType, i64data);

    //ハッシュリストに追加
    Put( newconst );
}
void Consts::Add(const NamespaceScopes &namespaceScopes, const std::string &name, int value){
    CConst *newconst = new CConst( namespaceScopes, name, value);

    //ハッシュリストに追加
    Put( newconst );
}

CConst *Consts::GetObjectPtr( const std::string &name ){
    char ObjName[VN_SIZE];      //オブジェクト変数
    char NestMember[VN_SIZE];   //入れ子メンバ
    bool isObjectMember = SplitMemberName( name.c_str(), ObjName, NestMember );

    CConst *pConst = GetHashArrayElement( NestMember );
    while( pConst )
    {
        if( pConst->IsEqualSymbol( LexicalAnalyzer::FullNameToSymbol( name ) ) )
        {
            break;
        }
        pConst = pConst->GetChainNext();
    }

    return pConst;
}


int Consts::GetBasicType(const char *Name){
    CConst *pConst = GetObjectPtr(Name);

    if(!pConst) return 0;

    return pConst->GetType().GetBasicType();
}
_int64 Consts::GetWholeData(const char *Name){
    CConst *pConst = GetObjectPtr(Name);

    if(!pConst) return 0;

    return pConst->GetWholeData();
}
double Consts::GetDoubleData(const char *Name){
    CConst *pConst = GetObjectPtr(Name);

    if(!pConst) return 0;

    return pConst->GetDoubleData();
}
bool Consts::IsStringPtr( const char *Name ){
    CConst *pConst = GetObjectPtr(Name);

    if(!pConst) return false;

    const Type &type = pConst->GetType();

    return ( type.GetBasicType() == typeOfPtrChar && type.GetIndex() == LITERAL_STRING );
}

// マクロ定数を追加するための関数
void ConstMacros::Add( const NamespaceScopes &namespaceScopes, const std::string &name, const char *parameterStr )
{
    std::vector<std::string> parameters;

    int i = 0;
    if(parameterStr[i]!='(')
    {
        compiler.errorMessenger.OutputFatalError();
        return;
    }

    char temporary[VN_SIZE];
    int i2;
    for(i++,i2=0;;i++,i2++){
        if(parameterStr[i]=='\0'){
            compiler.errorMessenger.Output(1,NULL,cp);
            return;
        }
        if(parameterStr[i]==','||parameterStr[i]==')'){
            temporary[i2]=0;

            parameters.push_back( temporary );

            if(parameterStr[i]==')'){
                i++;
                if(parameterStr[i]!='='){
                    extern int cp;
                    compiler.errorMessenger.Output(1,NULL,cp);
                    return;
                }
                break;
            }

            i2=-1;
            continue;
        }
        temporary[i2]=parameterStr[i];
    }

    //データ
    lstrcpy(temporary,parameterStr+i+1);

    Put( new ConstMacro( namespaceScopes, name, parameters, temporary ) );
}
ConstMacro *ConstMacros::Find( const std::string &name ){
    char ObjName[VN_SIZE];      //オブジェクト変数
    char NestMember[VN_SIZE];   //入れ子メンバ
    bool isObjectMember = SplitMemberName( name.c_str(), ObjName, NestMember );

    ConstMacro *pConstMacro = GetHashArrayElement( NestMember );
    while( pConstMacro )
    {
        if( pConstMacro->IsEqualSymbol( LexicalAnalyzer::FullNameToSymbol( name ) ) )
        {
            break;
        }
        pConstMacro = pConstMacro->GetChainNext();
    }

    return pConstMacro;
}