2002-10-12 11:37:38 +00:00
|
|
|
|
|
|
|
// BoolValue.cpp: implementation of the CBoolValue 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 "BoolValue.h"
|
|
|
|
#include "StringValue.h"
|
|
|
|
#include "ErrorValue.h"
|
|
|
|
#include "VoidValue.h"
|
2002-11-25 15:29:57 +00:00
|
|
|
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
|
|
#include <config.h>
|
|
|
|
#endif
|
2002-10-12 11:37:38 +00:00
|
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
|
|
// Construction/Destruction
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
|
|
|
2009-06-08 20:08:19 +00:00
|
|
|
const STR_String CBoolValue::sTrueString = "TRUE";
|
|
|
|
const STR_String CBoolValue::sFalseString = "FALSE";
|
|
|
|
|
2002-10-12 11:37:38 +00:00
|
|
|
CBoolValue::CBoolValue()
|
|
|
|
/*
|
|
|
|
pre: false
|
|
|
|
effect: constructs a new CBoolValue
|
|
|
|
*/
|
|
|
|
{
|
|
|
|
trace("Bool constructor error");
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
CBoolValue::CBoolValue(bool inBool)
|
|
|
|
: m_bool(inBool)
|
|
|
|
{
|
|
|
|
} // Constructs a new CBoolValue containing <inBool>
|
|
|
|
|
|
|
|
|
|
|
|
|
2009-06-08 20:08:19 +00:00
|
|
|
CBoolValue::CBoolValue(bool innie,const char *name,AllocationTYPE alloctype)
|
2002-10-12 11:37:38 +00:00
|
|
|
{
|
|
|
|
m_bool = innie;
|
|
|
|
SetName(name);
|
|
|
|
|
|
|
|
if (alloctype == CValue::STACKVALUE)
|
|
|
|
CValue::DisableRefCount();
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void CBoolValue::SetValue(CValue* newval)
|
|
|
|
{
|
|
|
|
m_bool = (newval->GetNumber() != 0);
|
|
|
|
SetModified(true);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
CValue* CBoolValue::Calc(VALUE_OPERATOR op, CValue *val)
|
|
|
|
/*
|
|
|
|
pre:
|
|
|
|
ret: a new object containing the result of applying operator op to this
|
|
|
|
object and val
|
|
|
|
*/
|
|
|
|
{
|
|
|
|
switch (op)
|
|
|
|
{
|
|
|
|
case VALUE_POS_OPERATOR:
|
|
|
|
case VALUE_NEG_OPERATOR:
|
|
|
|
{
|
|
|
|
return new CErrorValue (op2str(op) + GetText());
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case VALUE_NOT_OPERATOR:
|
|
|
|
{
|
|
|
|
return new CBoolValue (!m_bool);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
default:
|
|
|
|
{
|
|
|
|
return val->CalcFinal(VALUE_BOOL_TYPE, op, this);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
CValue* CBoolValue::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_EMPTY_TYPE:
|
|
|
|
case VALUE_BOOL_TYPE:
|
|
|
|
{
|
|
|
|
switch(op)
|
|
|
|
{
|
|
|
|
case VALUE_AND_OPERATOR:
|
|
|
|
{
|
|
|
|
ret = new CBoolValue (((CBoolValue *) val)->GetBool() && m_bool);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case VALUE_OR_OPERATOR:
|
|
|
|
{
|
|
|
|
ret = new CBoolValue (((CBoolValue *) val)->GetBool() || m_bool);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case VALUE_EQL_OPERATOR:
|
|
|
|
{
|
|
|
|
ret = new CBoolValue (((CBoolValue *) val)->GetBool() == m_bool);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case VALUE_NEQ_OPERATOR:
|
|
|
|
{
|
|
|
|
ret = new CBoolValue (((CBoolValue *) val)->GetBool() != m_bool);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case VALUE_NOT_OPERATOR:
|
|
|
|
{
|
|
|
|
return new CBoolValue (!m_bool);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
default:
|
|
|
|
{
|
|
|
|
ret = new CErrorValue(val->GetText() + op2str(op) +
|
|
|
|
"[operator not allowed on booleans]");
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case VALUE_STRING_TYPE:
|
|
|
|
{
|
|
|
|
switch(op)
|
|
|
|
{
|
|
|
|
case VALUE_ADD_OPERATOR:
|
|
|
|
{
|
|
|
|
ret = new CStringValue(val->GetText() + GetText(),"");
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
default:
|
|
|
|
{
|
|
|
|
ret = new CErrorValue(val->GetText() + op2str(op) + "[Only + allowed on boolean and string]");
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
default:
|
|
|
|
ret = new CErrorValue("[type mismatch]" + op2str(op) + GetText());
|
|
|
|
}
|
|
|
|
|
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
bool CBoolValue::GetBool()
|
|
|
|
/*
|
|
|
|
pre:
|
|
|
|
ret: the bool stored in the object
|
|
|
|
*/
|
|
|
|
{
|
|
|
|
return m_bool;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
2009-04-20 15:06:46 +00:00
|
|
|
double CBoolValue::GetNumber()
|
2002-10-12 11:37:38 +00:00
|
|
|
{
|
2009-04-20 15:06:46 +00:00
|
|
|
return (double)m_bool;
|
2002-10-12 11:37:38 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
const STR_String& CBoolValue::GetText()
|
|
|
|
{
|
|
|
|
return m_bool ? sTrueString : sFalseString;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
CValue* CBoolValue::GetReplica()
|
|
|
|
{
|
|
|
|
CBoolValue* replica = new CBoolValue(*this);
|
2009-06-08 20:08:19 +00:00
|
|
|
replica->ProcessReplica();
|
2002-10-12 11:37:38 +00:00
|
|
|
|
|
|
|
return replica;
|
|
|
|
}
|
|
|
|
|
2009-09-29 21:42:40 +00:00
|
|
|
#ifndef DISABLE_PYTHON
|
2002-10-12 11:37:38 +00:00
|
|
|
PyObject* CBoolValue::ConvertValueToPython()
|
|
|
|
{
|
2009-06-29 02:25:54 +00:00
|
|
|
return PyBool_FromLong(m_bool != 0);
|
2002-10-12 11:37:38 +00:00
|
|
|
}
|
2009-09-29 21:42:40 +00:00
|
|
|
#endif // DISABLE_PYTHON
|