323 lines
7.1 KiB
C++
323 lines
7.1 KiB
C++
// FloatValue.cpp: implementation of the CFloatValue class.
|
|
/*
|
|
* Copyright (c) 1996-2000 Erwin Coumans <coockie@acm.org>
|
|
*
|
|
* Permission to use, copy, modify, distribute and sell this software
|
|
* and its documentation for any purpose is hereby granted without fee,
|
|
* provided that the above copyright notice appear in all copies and
|
|
* that both that copyright notice and this permission notice appear
|
|
* in supporting documentation. Erwin Coumans makes no
|
|
* representations about the suitability of this software for any
|
|
* purpose. It is provided "as is" without express or implied warranty.
|
|
*
|
|
*/
|
|
|
|
#include "FloatValue.h"
|
|
#include "IntValue.h"
|
|
#include "StringValue.h"
|
|
#include "BoolValue.h"
|
|
#include "ErrorValue.h"
|
|
#include "VoidValue.h"
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include <config.h>
|
|
#endif
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
// Construction/Destruction
|
|
//////////////////////////////////////////////////////////////////////
|
|
|
|
CFloatValue::CFloatValue()
|
|
/*
|
|
pre: false
|
|
effect: constructs a new CFloatValue
|
|
*/
|
|
{
|
|
m_pstrRep=NULL;
|
|
}
|
|
|
|
|
|
|
|
CFloatValue::CFloatValue(float fl)
|
|
/*
|
|
pre:
|
|
effect: constructs a new CFloatValue containing value fl
|
|
*/
|
|
{
|
|
m_float = fl;
|
|
m_pstrRep=NULL;
|
|
}
|
|
|
|
|
|
|
|
CFloatValue::CFloatValue(float fl,STR_String name,AllocationTYPE alloctype)
|
|
/*
|
|
pre:
|
|
effect: constructs a new CFloatValue containing value fl
|
|
*/
|
|
{
|
|
|
|
m_float = fl;
|
|
SetName(name);
|
|
if (alloctype==CValue::STACKVALUE)
|
|
{
|
|
CValue::DisableRefCount();
|
|
|
|
}
|
|
m_pstrRep=NULL;
|
|
}
|
|
|
|
|
|
|
|
CFloatValue::~CFloatValue()
|
|
/*
|
|
pre:
|
|
effect: deletes the object
|
|
*/
|
|
{
|
|
if (m_pstrRep)
|
|
delete m_pstrRep;
|
|
}
|
|
|
|
|
|
|
|
CValue* CFloatValue::Calc(VALUE_OPERATOR op, CValue *val)
|
|
/*
|
|
pre:
|
|
ret: a new object containing the result of applying operator op to this
|
|
object and val
|
|
*/
|
|
{
|
|
//return val->CalcFloat(op, this);
|
|
switch (op)
|
|
{
|
|
case VALUE_POS_OPERATOR:
|
|
return new CFloatValue (m_float);
|
|
break;
|
|
case VALUE_NEG_OPERATOR:
|
|
return new CFloatValue (-m_float);
|
|
break;
|
|
case VALUE_NOT_OPERATOR:
|
|
return new CErrorValue (op2str(op) + "only allowed on booleans");
|
|
break;
|
|
case VALUE_AND_OPERATOR:
|
|
case VALUE_OR_OPERATOR:
|
|
return new CErrorValue(val->GetText() + op2str(op) + "only allowed on booleans");
|
|
break;
|
|
default:
|
|
return val->CalcFinal(VALUE_FLOAT_TYPE, op, this);
|
|
break;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
CValue* CFloatValue::CalcFinal(VALUE_DATA_TYPE dtype, VALUE_OPERATOR op, CValue *val)
|
|
/*
|
|
pre: the type of val is dtype
|
|
ret: a new object containing the result of applying operator op to val and
|
|
this object
|
|
*/
|
|
{
|
|
CValue *ret;
|
|
|
|
switch(dtype)
|
|
{
|
|
case VALUE_INT_TYPE:
|
|
{
|
|
switch (op)
|
|
{
|
|
case VALUE_MOD_OPERATOR:
|
|
ret = new CFloatValue(fmod(((CIntValue *) val)->GetInt(), m_float));
|
|
break;
|
|
case VALUE_ADD_OPERATOR:
|
|
ret = new CFloatValue(((CIntValue *) val)->GetInt() + m_float);
|
|
break;
|
|
case VALUE_SUB_OPERATOR:
|
|
ret = new CFloatValue(((CIntValue *) val)->GetInt() - m_float);
|
|
break;
|
|
case VALUE_MUL_OPERATOR:
|
|
ret = new CFloatValue(((CIntValue *) val)->GetInt() * m_float);
|
|
break;
|
|
case VALUE_DIV_OPERATOR:
|
|
if (m_float == 0)
|
|
ret = new CErrorValue("Division by zero");
|
|
else
|
|
ret = new CFloatValue (((CIntValue *) val)->GetInt() / m_float);
|
|
break;
|
|
case VALUE_EQL_OPERATOR:
|
|
ret = new CBoolValue(((CIntValue *) val)->GetInt() == m_float);
|
|
break;
|
|
case VALUE_NEQ_OPERATOR:
|
|
ret = new CBoolValue(((CIntValue *) val)->GetInt() != m_float);
|
|
break;
|
|
case VALUE_GRE_OPERATOR:
|
|
ret = new CBoolValue(((CIntValue *) val)->GetInt() > m_float);
|
|
break;
|
|
case VALUE_LES_OPERATOR:
|
|
ret = new CBoolValue(((CIntValue *) val)->GetInt() < m_float);
|
|
break;
|
|
case VALUE_GEQ_OPERATOR:
|
|
ret = new CBoolValue(((CIntValue *) val)->GetInt() >= m_float);
|
|
break;
|
|
case VALUE_LEQ_OPERATOR:
|
|
ret = new CBoolValue(((CIntValue *) val)->GetInt() <= m_float);
|
|
break;
|
|
default:
|
|
ret = new CErrorValue("illegal operator. please send a bug report.");
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
case VALUE_EMPTY_TYPE:
|
|
case VALUE_FLOAT_TYPE:
|
|
{
|
|
switch (op)
|
|
{
|
|
case VALUE_MOD_OPERATOR:
|
|
ret = new CFloatValue(fmod(((CFloatValue *) val)->GetFloat(), m_float));
|
|
break;
|
|
case VALUE_ADD_OPERATOR:
|
|
ret = new CFloatValue(((CFloatValue *) val)->GetFloat() + m_float);
|
|
break;
|
|
case VALUE_SUB_OPERATOR:
|
|
ret = new CFloatValue(((CFloatValue *) val)->GetFloat() - m_float);
|
|
break;
|
|
case VALUE_MUL_OPERATOR:
|
|
ret = new CFloatValue(((CFloatValue *) val)->GetFloat() * m_float);
|
|
break;
|
|
case VALUE_DIV_OPERATOR:
|
|
if (m_float == 0)
|
|
ret = new CErrorValue("Division by zero");
|
|
else
|
|
ret = new CFloatValue (((CFloatValue *) val)->GetFloat() / m_float);
|
|
break;
|
|
case VALUE_EQL_OPERATOR:
|
|
ret = new CBoolValue(((CFloatValue *) val)->GetFloat() == m_float);
|
|
break;
|
|
case VALUE_NEQ_OPERATOR:
|
|
ret = new CBoolValue(((CFloatValue *) val)->GetFloat() != m_float);
|
|
break;
|
|
case VALUE_GRE_OPERATOR:
|
|
ret = new CBoolValue(((CFloatValue *) val)->GetFloat() > m_float);
|
|
break;
|
|
case VALUE_LES_OPERATOR:
|
|
ret = new CBoolValue(((CFloatValue *) val)->GetFloat() < m_float);
|
|
break;
|
|
case VALUE_GEQ_OPERATOR:
|
|
ret = new CBoolValue(((CFloatValue *) val)->GetFloat() >= m_float);
|
|
break;
|
|
case VALUE_LEQ_OPERATOR:
|
|
ret = new CBoolValue(((CFloatValue *) val)->GetFloat() <= m_float);
|
|
break;
|
|
case VALUE_NEG_OPERATOR:
|
|
ret = new CFloatValue (-m_float);
|
|
break;
|
|
case VALUE_POS_OPERATOR:
|
|
ret = new CFloatValue (m_float);
|
|
break;
|
|
|
|
default:
|
|
ret = new CErrorValue("illegal operator. please send a bug report.");
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
case VALUE_STRING_TYPE:
|
|
{
|
|
switch(op)
|
|
{
|
|
case VALUE_ADD_OPERATOR:
|
|
ret = new CStringValue(val->GetText() + GetText(),"");
|
|
break;
|
|
case VALUE_EQL_OPERATOR:
|
|
case VALUE_NEQ_OPERATOR:
|
|
case VALUE_GRE_OPERATOR:
|
|
case VALUE_LES_OPERATOR:
|
|
case VALUE_GEQ_OPERATOR:
|
|
case VALUE_LEQ_OPERATOR:
|
|
ret = new CErrorValue("[Cannot compare string with float]" + op2str(op) + GetText());
|
|
break;
|
|
default:
|
|
ret = new CErrorValue("[operator not allowed on strings]" + op2str(op) + GetText());
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
case VALUE_BOOL_TYPE:
|
|
ret = new CErrorValue("[operator not valid on boolean and float]" + op2str(op) + GetText());
|
|
break;
|
|
case VALUE_ERROR_TYPE:
|
|
ret = new CErrorValue(val->GetText() + op2str(op) + GetText());
|
|
break;
|
|
default:
|
|
ret = new CErrorValue("illegal type. contact your dealer (if any)");
|
|
break;
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
|
|
|
|
void CFloatValue::SetFloat(float fl)
|
|
{
|
|
m_float = fl;
|
|
SetModified(true);
|
|
}
|
|
|
|
|
|
|
|
float CFloatValue::GetFloat()
|
|
/*
|
|
pre:
|
|
ret: the float stored in the object
|
|
*/
|
|
{
|
|
return m_float;
|
|
}
|
|
|
|
|
|
|
|
float CFloatValue::GetNumber()
|
|
{
|
|
return m_float;
|
|
}
|
|
|
|
|
|
|
|
void CFloatValue::SetValue(CValue* newval)
|
|
{
|
|
m_float = newval->GetNumber();
|
|
SetModified(true);
|
|
}
|
|
|
|
|
|
|
|
const STR_String & CFloatValue::GetText()
|
|
{
|
|
if (!m_pstrRep)
|
|
m_pstrRep = new STR_String();
|
|
|
|
m_pstrRep->Format("%f",m_float);
|
|
return *m_pstrRep;
|
|
}
|
|
|
|
|
|
|
|
CValue* CFloatValue::GetReplica()
|
|
{
|
|
CFloatValue* replica = new CFloatValue(*this);
|
|
replica->m_pstrRep = NULL;
|
|
CValue::AddDataToReplica(replica);
|
|
|
|
return replica;
|
|
}
|
|
|
|
|
|
|
|
PyObject* CFloatValue::ConvertValueToPython()
|
|
{
|
|
return PyFloat_FromDouble(m_float);
|
|
}
|
|
|