types::Function::ReturnValue sci_scicos_debug(types::typed_list &in, int _iRetCount, types::typed_list &out)
{
if (in.size() > 1)
{
Scierror(999, _("%s: Wrong number of input arguments: %d or %d expected.\n"), funname.c_str(), 0, 1);
return types::Function::Error;
}
if (_iRetCount != 1)
{
Scierror(999, _("%s: Wrong number of output arguments: %d expected.\n"), funname.c_str(), 1);
return types::Function::Error;
}
if (in.empty())
{
types::Double* ret = new types::Double(C2F(cosdebug).cosd);
out.push_back(ret);
}
else
{
if (!in[0]->isDouble())
{
Scierror(999, _("%s: Wrong type for input argument #%d : A real matrix expected.\n"), funname.data(), 1);
return types::Function::Error;
}
types::Double* pIn = in[0]->getAs<types::Double>();
if (!pIn->isScalar())
{
Scierror(999, _("%s: Wrong size for input argument #%d : A real scalar expected.\n"), funname.data(), 1);
return types::Function::Error;
}
if (pIn->get(0) != floor(pIn->get(0)))
{
Scierror(999, _("%s: Wrong value for input argument #%d : An integer value expected.\n"), funname.data(), 1);
return types::Function::Error;
}
C2F(cosdebug).cosd = pIn->get(0);
}
return types::Function::OK;
}
types::Function::ReturnValue sci_disp(types::typed_list &in, int _iRetCount, types::typed_list &out)
{
types::typed_list::reverse_iterator it;
if (in.empty())
{
Scierror(999, _("%s: Wrong number of input arguments: At least %d expected.\n"), "disp", 1);
return types::Function::Error;
}
for (it = in.rbegin() ; it != in.rend() ; it++)
{
scilabForcedWriteW(L"\n");
if (VariableToString(*it, SPACES_LIST) == types::Function::Error)
{
return types::Function::Error;
}
}
return types::Function::OK;
}
