scilab/modules/external_objects/src/cpp/getsetOptions.cpp

   1 /*
   2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3  * Copyright (C) 2012 - Scilab Enterprises - Calixte DENIZET
   4  *
   5  * This file must be used under the terms of the CeCILL.
   6  * This source file is licensed as described in the file COPYING, which
   7  * you should have received as part of this distribution.  The terms
   8  * are also available at
   9  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  10  *
  11  */
  12
  13 #include "ScilabGateway.hxx"
  14
  15 namespace org_modules_external_objects
  16 {
  17
  18 int ScilabGateway::getsetOptions(char * fname, const int envId, ScilabAbstractOptionsSetter & setter, void * pvApiCtx)
  19 {
  20     SciErr sciErr;
  21     int * addr = 0;
  22     int val = 0;
  23
  24     CheckInputArgument(pvApiCtx, 0, 1);
  25     CheckOutputArgument(pvApiCtx, 1, 1);
  26
  27     ScilabAbstractEnvironment & env = ScilabEnvironments::getEnvironment(envId);
  28     ScilabGatewayOptions & options = env.getGatewayOptions();
  29     OptionsHelper::setCopyOccured(false);
  30     ScilabObjects::initialization(env, pvApiCtx);
  31     options.setIsNew(false);
  32
  33     if (Rhs == 0)
  34     {
  35         createScalarBoolean(pvApiCtx, 1, (int)setter.get());
  36
  37         LhsVar(1) = 1;
  38         PutLhsVar();
  39
  40         return 0;
  41     }
  42
  43     sciErr = getVarAddressFromPosition(pvApiCtx, 1, &addr);
  44     if (sciErr.iErr)
  45     {
  46         throw ScilabAbstractEnvironmentException(__LINE__, __FILE__, gettext("Invalid variable: cannot retrieve the data"));
  47     }
  48
  49     if (!isBooleanType(pvApiCtx, addr))
  50     {
  51         throw ScilabAbstractEnvironmentException(__LINE__, __FILE__, gettext("Wrong type for input argument #%d: A boolean expected."), 1);
  52     }
  53
  54     if (!isScalar(pvApiCtx, addr))
  55     {
  56         throw ScilabAbstractEnvironmentException(__LINE__, __FILE__, gettext("Wrong type for input argument #%d: A single boolean expected."), 1);
  57     }
  58
  59     getScalarBoolean(pvApiCtx, addr, &val);
  60     setter.set(val == 1);
  61
  62     LhsVar(1) = 0;
  63     PutLhsVar();
  64
  65     return 0;
  66 }
  67 }