Remove some warnings in the C code (mostly unused variables)
[scilab.git] / scilab / modules / external_objects / src / cpp / getNamedVariable.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::getNamedVariable(char * fname, const int envId, void * pvApiCtx)
19 {
20     char * varName = 0;
21     int idObj;
22
23     CheckInputArgument(pvApiCtx, 1, 1);
24     CheckOutputArgument(pvApiCtx, 1, 1);
25
26     ScilabAbstractEnvironment & env = ScilabEnvironments::getEnvironment(envId);
27     ScilabGatewayOptions & options = env.getGatewayOptions();
28     OptionsHelper::setCopyOccured(false);
29     ScilabObjects::initialization(env, pvApiCtx);
30     options.setIsNew(false);
31
32     varName = ScilabObjects::getSingleString(1, pvApiCtx);
33
34     try
35     {
36         idObj = env.getNamedVariable(varName);
37     }
38     catch (std::exception & e)
39     {
40         freeAllocatedSingleString(varName);
41         throw;
42     }
43     freeAllocatedSingleString(varName);
44
45     try
46     {
47         ScilabObjects::createEnvironmentObjectAtPos(EXTERNAL_OBJECT, Rhs + 1, idObj, envId, pvApiCtx);
48     }
49     catch (ScilabAbstractEnvironmentException & e)
50     {
51         env.removeobject(idObj);
52         throw;
53     }
54
55     LhsVar(1) = Rhs + 1;
56     PutLhsVar();
57
58     return 0;
59 }
60 }