TExpVal Class Reference

#include <exp.h>

Public Member Functions
	TExpVal (const TExpValType &_ValType=evtUndef)
	TExpVal (const TFlt &_Flt)
	TExpVal (const double &_Flt)
	TExpVal (const TStr &_Str)
	~TExpVal ()
	TExpVal (TSIn &SIn)
void	Save (TSOut &SOut) const
TExpVal &	operator= (const TExpVal &)
bool	operator== (const TExpVal &ExpVal) const
bool	operator< (const TExpVal &ExpVal) const
void	AddToVec (const PExpVal &ExpVal)
void	AddToLst (const PExpVal &ExpVal)
TExpValType	GetValType () const
bool	IsFltVal (TFlt &_Flt) const
bool	IsFltVal (double &_Flt) const
double	GetFltVal () const
int	GetFltValAsInt (const bool &ThrowExceptP=true) const
TStr	GetStrVal () const
void	SaveTxt (TOLx &Lx) const
void	SaveTxt (const PSOut &SOut) const
TStr	GetStr () const

Static Public Member Functions
static PExpVal	New (const TExpValType &ValType=evtUndef)
static PExpVal	New (const TFlt &Flt)
static PExpVal	New (const double &Flt)
static PExpVal	New (const TStr &Str)
static PExpVal	Load (TSIn &SIn)
static PExpVal	MkClone (const PExpVal &ExpVal)
static PExpVal	GetUndefExpVal ()
static PExpVal	GetZeroExpVal ()

Private Attributes
TCRef	CRef
TInt	ValType
TAscFlt	Flt
TStr	Str
TExpValV	ValV
TExpValL	ValL

Static Private Attributes
static PExpVal	UndefExpVal =NULL
static PExpVal	ZeroExpVal =NULL

Friends
class	TPt< TExpVal >

Detailed Description

Definition at line 9 of file exp.h.

Constructor & Destructor Documentation

TExpVal::TExpVal ( const TExpValType &  _ValType = evtUndef )

inline

Definition at line 19 of file exp.h.

: ValType(_ValType){}

TExpVal::TExpVal ( const TFlt &  _Flt )

inline

Definition at line 20 of file exp.h.

: ValType(evtFlt), Flt(_Flt){}

TExpVal::TExpVal ( const double &  _Flt )

inline

Definition at line 21 of file exp.h.

: ValType(evtFlt), Flt(TFlt(_Flt)){}

TExpVal::TExpVal ( const TStr &  _Str )

inline

Definition at line 22 of file exp.h.

: ValType(evtStr), Str(_Str){}

TExpVal::~TExpVal ( )

inline

Definition at line 28 of file exp.h.

{}

TExpVal::TExpVal ( TSIn &  SIn )

inline

Definition at line 29 of file exp.h.

                    :
    ValType(SIn), Flt(SIn), Str(SIn), ValV(SIn), ValL(SIn){}

Member Function Documentation

void TExpVal::AddToLst ( const PExpVal &  ExpVal )

inline

Definition at line 42 of file exp.h.

                                      {
    IAssert(TExpValType(static_cast<int>(ValType))==evtLst); ValL.AddBack(ExpVal);}

void TExpVal::AddToVec ( const PExpVal &  ExpVal )

inline

Definition at line 40 of file exp.h.

                                      {
    IAssert(TExpValType(static_cast<int>(ValType))==evtVec); ValV.Add(ExpVal);}

double TExpVal::GetFltVal ( ) const

inline

Definition at line 50 of file exp.h.

                           {
    if (GetValType()==evtFlt){return Flt;} else {return 0;}}

int TExpVal::GetFltValAsInt

(

const bool &

ThrowExceptP = true

)

const

Definition at line 62 of file exp.cpp.

                                                          {
  double Flt=GetFltVal();
  if ((Flt<double(TInt::Mn))&&(double(TInt::Mx)<Flt)){
    if (ThrowExceptP){TExcept::Throw("Float too big for integer.");}
    else {Flt=0;}
  }
  return int(Flt);
}

TStr TExpVal::GetStr

(

)

const

Definition at line 99 of file exp.cpp.

                           {
  PSOut SOut=TMOut::New(); TMOut& MOut=*(TMOut*)SOut();
  SaveTxt(SOut);
  TStr ExpValStr=TStr::LoadTxt(MOut.GetSIn());
  return ExpValStr;
}

TStr TExpVal::GetStrVal ( ) const

inline

Definition at line 53 of file exp.h.

{IAssert(GetValType()==evtStr); return Str;}

PExpVal TExpVal::GetUndefExpVal ( )

static

Definition at line 123 of file exp.cpp.

                               {
  if (UndefExpVal.Empty()){
    UndefExpVal=TExpVal::New();}
  return UndefExpVal;
}

TExpValType TExpVal::GetValType ( ) const

inline

Definition at line 45 of file exp.h.

{return TExpValType(int(ValType));}

PExpVal TExpVal::GetZeroExpVal ( )

static

Definition at line 129 of file exp.cpp.

                              {
  if (ZeroExpVal.Empty()){
    ZeroExpVal=TExpVal::New(double(0));}
  return ZeroExpVal;
}

bool TExpVal::IsFltVal ( TFlt &  _Flt ) const

inline

Definition at line 46 of file exp.h.

                                  {
    if (GetValType()==evtFlt){_Flt=Flt; return true;} else {return false;}}

bool TExpVal::IsFltVal ( double &  _Flt ) const

inline

Definition at line 48 of file exp.h.

                                    {
    if (GetValType()==evtFlt){_Flt=Flt; return true;} else {return false;}}

static PExpVal TExpVal::Load ( TSIn &  SIn )

inlinestatic

Definition at line 31 of file exp.h.

{return PExpVal(new TExpVal(SIn));}

PExpVal TExpVal::MkClone ( const PExpVal &  ExpVal )

static

Definition at line 106 of file exp.cpp.

                                             {
  PExpVal CloneExpVal=TExpVal::New();
  CloneExpVal->ValType=ExpVal->ValType;
  CloneExpVal->Flt=ExpVal->Flt;
  CloneExpVal->Str=ExpVal->Str;
  CloneExpVal->ValV.Gen(ExpVal->ValV.Len(), 0);
  for (int VecValN=0; VecValN<ExpVal->ValV.Len(); VecValN++){
    CloneExpVal->ValV.Add(MkClone(ExpVal->ValV[VecValN]));
  }
  TExpValLN ExpValLN=ExpVal->ValL.First();
  while (ExpValLN!=NULL){
    CloneExpVal->ValL.AddBack(MkClone(ExpValLN->GetVal()));
    ExpValLN=ExpValLN->Next();
  }
  return CloneExpVal;
}

static PExpVal TExpVal::New ( const TExpValType &  ValType = evtUndef )

inlinestatic

Definition at line 23 of file exp.h.

                                                         {
    return PExpVal(new TExpVal(ValType));}

static PExpVal TExpVal::New ( const TFlt &  Flt )

inlinestatic

Definition at line 25 of file exp.h.

{return PExpVal(new TExpVal(Flt));}

static PExpVal TExpVal::New ( const double &  Flt )

inlinestatic

Definition at line 26 of file exp.h.

{return PExpVal(new TExpVal(Flt));}

static PExpVal TExpVal::New ( const TStr &  Str )

inlinestatic

Definition at line 27 of file exp.h.

{return PExpVal(new TExpVal(Str));}

bool TExpVal::operator<

(

const TExpVal &

ExpVal

)

const

Definition at line 31 of file exp.cpp.

                                                   {
  if (ValType!=ExpVal.ValType){
    return ValType<ExpVal.ValType;}
  switch (ValType){
    case evtUndef: return false;
    case evtFlt: return Flt<ExpVal.Flt;
    case evtStr: return Str<ExpVal.Str;
    case evtVec:{
      int VecValN=0;
      while ((VecValN<ValV.Len())&&(VecValN<ExpVal.ValV.Len())){
        if (*ValV[VecValN]<*ExpVal.ValV[VecValN]){return true;}
        else if (*ValV[VecValN]==*ExpVal.ValV[VecValN]){VecValN++;}
        else {return false;}
      }
      return ValV.Len()<ExpVal.ValV.Len();}
    case evtLst:{
      if (ValL.Len()!=ExpVal.ValL.Len()){return false;}
      TExpValLN ValLN=ValL.First();
      TExpValLN ExpValLN=ExpVal.ValL.First();
      while ((ValLN!=NULL)&&(ExpValLN!=NULL)){
        if (*ValLN->GetVal()<*ExpValLN->GetVal()){
          return true;}
        else if (*ValLN->GetVal()==*ExpValLN->GetVal()){
          ValLN=ValLN->Next(); ExpValLN=ExpValLN->Next();}
        else {return false;}
      }
      return ValLN==NULL;}
    default: Fail; return false;
  }
}

TExpVal& TExpVal::operator= ( const TExpVal &  )

inline

Definition at line 36 of file exp.h.

{Fail; return *this;}

bool TExpVal::operator==

(

const TExpVal &

ExpVal

)

const

Definition at line 6 of file exp.cpp.

                                                    {
  if (ValType!=ExpVal.ValType){return false;}
  switch (ValType){
    case evtUndef: return true;
    case evtFlt: return Flt==ExpVal.Flt;
    case evtStr: return Str==ExpVal.Str;
    case evtVec:{
      if (ValV.Len()!=ExpVal.ValV.Len()){return false;}
      for (int VecValN=0; VecValN<ExpVal.ValV.Len(); VecValN++){
        if (*ValV[VecValN]!=*ExpVal.ValV[VecValN]){return false;}}
      return true;}
    case evtLst:{
      if (ValL.Len()!=ExpVal.ValL.Len()){return false;}
      TExpValLN ValLN=ValL.First();
      TExpValLN ExpValLN=ExpVal.ValL.First();
      while (ValLN!=NULL){
        if (*ValLN->GetVal()!=*ExpValLN->GetVal()){return false;}
        ValLN=ValLN->Next();
        ExpValLN=ExpValLN->Next();
      }
      return true;}
    default: Fail; return false;
  }
}

void TExpVal::Save ( TSOut &  SOut ) const

inline

Definition at line 32 of file exp.h.

                               {
    ValType.Save(SOut);
    Flt.Save(SOut); Str.Save(SOut); ValV.Save(SOut); ValL.Save(SOut);}

void TExpVal::SaveTxt

(

TOLx &

Lx

)

const

Definition at line 71 of file exp.cpp.

                                    {
  TExpValType _ValType=TExpValType(int(ValType));
  switch (_ValType){
    case evtUndef: Lx.PutIdStr("Undef"); break;
    case evtFlt: Lx.PutFlt(Flt); break;
    case evtStr: Lx.PutQStr(Str); break;
    case evtVec:{
      Lx.PutSym(syLBrace);
      for (int ValN=0; ValN<ValV.Len(); ValN++){
        ValV[ValN]->SaveTxt(Lx);}
      Lx.PutSym(syRBrace);
      break;}
    case evtLst:{
      Lx.PutSym(syLBracket);
      TExpValLN ValLN=ValL.First();
      for (int ValN=0; ValN<ValL.Len(); ValN++){
        ValLN->GetVal()->SaveTxt(Lx); ValLN=ValLN->Next();}
      Lx.PutSym(syRBracket);
      break;}
    default: Fail;
  }
}

void TExpVal::SaveTxt

(

const PSOut &

SOut

)

const

Definition at line 94 of file exp.cpp.

                                             {
  TOLx Lx(SOut, TFSet()|oloCmtAlw|oloSigNum|oloCsSens);
  SaveTxt(Lx);
}

Friends And Related Function Documentation

friend class TPt< TExpVal >

friend

Definition at line 9 of file exp.h.

Member Data Documentation

TCRef TExpVal::CRef

private

Definition at line 9 of file exp.h.

TAscFlt TExpVal::Flt

private

Definition at line 14 of file exp.h.

TStr TExpVal::Str

private

Definition at line 15 of file exp.h.

PExpVal TExpVal::UndefExpVal =NULL

staticprivate

Definition at line 11 of file exp.h.

TExpValL TExpVal::ValL

private

Definition at line 17 of file exp.h.

TInt TExpVal::ValType

private

Definition at line 13 of file exp.h.

TExpValV TExpVal::ValV

private

Definition at line 16 of file exp.h.

PExpVal TExpVal::ZeroExpVal =NULL

staticprivate

Definition at line 12 of file exp.h.

---

The documentation for this class was generated from the following files:

• glib-core/exp.h
• glib-core/exp.cpp