source: dev/trunk/ab5.0/abdev/ab_common/src/Lexical/Const.cpp

#include "stdafx.h"

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

bool CConst::Resolve( const ObjectModule &resolver, ResolveErrors &resolveErrors )
{
    type.Resolve( resolver, resolveErrors );
    return true;
}

void Consts::Add( const Symbol &symbol, _int64 i64data, const Type &type )
{
    CConst *newconst = new CConst( symbol, type, i64data );

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

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

CConst *Consts::GetObjectPtr( const Symbol &symbol )
{
    auto c = GetHashArrayElement(symbol.GetName());
    auto it = std::find_if(c.begin(), c.end(),
        [&](CConst* t) {return t->IsEqualSymbol(symbol);});
    return it != c.end()
        ? *it
        : nullptr;
}


int Consts::GetBasicType( const Symbol &symbol ){
    CConst *pConst = GetObjectPtr( symbol );

    if(!pConst) return 0;

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

    if(!pConst) return 0;

    return pConst->GetWholeData();
}
double Consts::GetDoubleData( const Symbol &symbol ){
    CConst *pConst = GetObjectPtr( symbol );

    if(!pConst) return 0;

    return pConst->GetDoubleData();
}
bool Consts::IsStringPtr( const Symbol &symbol, bool isUnicode ){
    CConst *pConst = GetObjectPtr( symbol );

    if(!pConst) return false;

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

    int charType = isUnicode
        ? MAKE_PTR_TYPE(DEF_WORD,1)
        : MAKE_PTR_TYPE(DEF_SBYTE,1);

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

bool ConstMacro::Resolve( const ObjectModule &resolver, ResolveErrors &resolveErrors )
{
    // 依存関係を解決すべきメンバは無い
    return true;
}

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

    int i = 0;
    if(parameterStr[i]!='(')
    {
        return false;
    }

    char temporary[VN_SIZE];
    int i2;
    for(i++,i2=0;;i++,i2++){
        if(parameterStr[i]=='\0')
        {
            return false;
        }
        if(parameterStr[i]==','||parameterStr[i]==')'){
            temporary[i2]=0;

            parameters.push_back( temporary );

            if(parameterStr[i]==')'){
                i++;
                if(parameterStr[i]!='=')
                {
                    return false;
                }
                break;
            }

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

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

    this->Put( new ConstMacro( symbol, parameters, temporary ) );

    return true;
}
ConstMacro *ConstMacros::Find( const Symbol &symbol )
{
    auto c = GetHashArrayElement(symbol.GetName());
    auto it = std::find_if(c.begin(), c.end(),
        [&](ConstMacro* t) {return t->IsEqualSymbol(symbol);});
    return it != c.end()
        ? *it
        : nullptr;
}