scilab/modules/external_objects/src/cpp/array.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::array(char * fname, const int envId, void * pvApiCtx)
  19 {
  20     SciErr err;
  21     int ret = 0;
  22     int * addr = 0;
  23     char * className = 0;
  24     int * args = 0;
  25
  26     ScilabAbstractEnvironment & env = ScilabEnvironments::getEnvironment(envId);
  27
  28     if (Rhs < 2)
  29     {
  30         throw ScilabAbstractEnvironmentException(__LINE__, __FILE__, gettext("Wrong number of arguments : more than %d expected."), 2);
  31     }
  32
  33     OptionsHelper::setCopyOccured(false);
  34     ScilabObjects::initialization(env, pvApiCtx);
  35     env.getGatewayOptions().setIsNew(false);
  36
  37     className = ScilabObjects::getSingleString(1, pvApiCtx);
  38
  39     args = new int[Rhs - 1];
  40
  41     for (int i = 0; i < Rhs - 1; i++)
  42     {
  43         err = getVarAddressFromPosition(pvApiCtx, i + 2, &addr);
  44         if (err.iErr)
  45         {
  46             delete[] args;
  47             freeAllocatedSingleString(className);
  48             throw ScilabAbstractEnvironmentException(__LINE__, __FILE__, gettext("Invalid variable: cannot retrieve the data"));
  49         }
  50
  51         args[i] = ScilabObjects::isPositiveIntegerAtAddress(addr, pvApiCtx);
  52
  53         if (args[i] == -1 || args[i] == 0)
  54         {
  55             delete[] args;
  56             freeAllocatedSingleString(className);
  57             throw ScilabAbstractEnvironmentException(__LINE__, __FILE__, gettext("A strictly positive integer is expected at position %d."), i + 2);
  58         }
  59     }
  60
  61     try
  62     {
  63         ret = env.createarray(className, args, Rhs - 1);
  64     }
  65     catch (std::exception & e)
  66     {
  67         delete[] args;
  68         freeAllocatedSingleString(className);
  69         throw;
  70     }
  71
  72     delete[] args;
  73     freeAllocatedSingleString(className);
  74
  75     try
  76     {
  77         ScilabObjects::createEnvironmentObjectAtPos(EXTERNAL_OBJECT, Rhs + 1, ret, envId, pvApiCtx);
  78     }
  79     catch (ScilabAbstractEnvironmentException & e)
  80     {
  81         env.removeobject(ret);
  82         throw;
  83     }
  84
  85     LhsVar(1) = Rhs + 1;
  86     PutLhsVar();
  87
  88     return 0;
  89 }
  90 }