pgsOperand pgsGenReal::eval(pgsVarMap &vars) const
{
// Evaluate parameters
pgsOperand min(m_min->eval(vars));
pgsOperand max(m_max->eval(vars));
pgsOperand precision(m_precision->eval(vars));
pgsOperand sequence(m_sequence->eval(vars));
pgsOperand seed(m_seed->eval(vars));
// Check parameters and create the generator
if (min->is_number() && max->is_number() && sequence->is_integer()
&& seed->is_integer() && precision->is_integer())
{
long aux_sequence, aux_seed, aux_precision;
sequence->value().ToLong(&aux_sequence);
seed->value().ToLong(&aux_seed);
precision->value().ToLong(&aux_precision);
return pnew pgsGenerator(pgsVariable::pgsTReal,
pnew pgsRealGen(pgsVariable::num(min), pgsVariable::num(max), aux_precision,
aux_sequence != 0, aux_seed));
}
else
{
// Deal with errors
if (!min->is_number())
{
throw pgsParameterException(wxString() << value()
<< wxT(":\nmin should be a number"));
}
else if (!max->is_number())
{
throw pgsParameterException(wxString() << value()
<< wxT(":\nmax should be a number"));
}
else if (!precision->is_integer())
{
throw pgsParameterException(wxString() << value()
<< wxT(":\nprecision should be an integer"));
}
else if (!sequence->is_integer())
{
throw pgsParameterException(wxString() << value()
<< wxT(":\nsequence should be an integer"));
}
else
{
throw pgsParameterException(wxString() << value()
<< wxT(":\nseed should be an integer"));
}
}
}
pgsRealGen * pgsRealGen::clone()
{
return pnew pgsRealGen(*this);
}
