Ejemplo n.º 1
0
/*--------------------------------------------------------------------------*/
int sci_end_scicosim(char *fname, unsigned long fname_len)
{
    /* termine la simulation */
    int isrun = C2F(cosim).isrun;

    CheckRhs(-1, 0);
    if (!isrun)
    {
        Scierror(999, _("%s: scicosim is not running.\n"), fname);
    }
    else
    {
        end_scicos_sim();
        PutLhsVar();
    }
    return 0;
}
Ejemplo n.º 2
0
types::Function::ReturnValue sci_end_scicosim(types::typed_list &in, int _iRetCount, types::typed_list &/*out*/)
{
    if (in.size() != 0)
    {
        Scierror(77, _("%s: Wrong number of input argument(s): %d expected.\n"), funname.data(), 0);
        return types::Function::Error;
    }

    if (_iRetCount > 1)
    {
        Scierror(78, _("%s: Wrong number of output argument(s): %d expected.\n"), funname.data(), 1);
        return types::Function::Error;
    }

    const int isrun = C2F(cosim).isrun;
    if (!isrun)
    {
        Scierror(999, _("%s: scicosim is not running.\n"), funname.data());
        return types::Function::Error;
    }
    end_scicos_sim();

    return types::Function::OK;
}