scilab/contrib/toolbox_skeleton/sci_gateway/c/sci_cerror6.c

   1 /* ==================================================================== */
   2 /* Template toolbox_skeleton */
   3 /* This file is released under the 3-clause BSD license. See COPYING-BSD. */
   4 /* ==================================================================== */
   5 #include "api_scilab.h"
   6 #include "Scierror.h"
   7 #include "sci_malloc.h"
   8 #include <localization.h>
   9
  10 static const char fname[] = "cerror6";
  11 /* ==================================================================== */
  12 int sci_cerror6(scilabEnv env, int nin, scilabVar* in, int nopt, scilabOpt* opt, int nout, scilabVar* out)
  13 {
  14     if (nin != 1)
  15     {
  16         Scierror(999, _d("toolbox_skeleton", "%s: I'm waiting for only one argument.\n"), fname);
  17         return STATUS_ERROR;
  18     }
  19     else
  20     {
  21         Scierror(999, _d("toolbox_skeleton", "%s: Yeah! %d is a good number of arguments but I prefer fail, sorry.\n"), fname, 1);
  22         return STATUS_ERROR;
  23     }
  24 }
  25 /* ==================================================================== */