load: avoid creation of double axes in figure
[scilab.git] / scilab / modules / tclsci / sci_gateway / cpp / tclsci_gw.cpp
1 /*
2 *  Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 *  Copyright (C) 2015 - Scilab Enterprises - Cedric Delamarre
4 *
5  * Copyright (C) 2012 - 2016 - Scilab Enterprises
6  *
7  * This file is hereby licensed under the terms of the GNU GPL v2.0,
8  * pursuant to article 5.3.4 of the CeCILL v.2.1.
9  * This file was originally licensed under the terms of the CeCILL v2.1,
10  * and continues to be available under such terms.
11  * For more information, see the COPYING file which you should have received
12  * along with this program.
13 *
14 */
15
16 #include "tclsci_gw.hxx"
17 #include "context.hxx"
18 #include "configvariable.hxx"
19 #include "function.hxx"
20
21 extern "C"
22 {
23 #include "gw_tclsci.h"
24 }
25
26 #define MODULE_NAME L"tclsci"
27
28 int TclsciModule::Load()
29 {
30     symbol::Context::getInstance()->addFunction(types::Function::createFunction(L"TCL_DoOneEvent",   &sci_TCL_DoOneEvent,   MODULE_NAME));
31     symbol::Context::getInstance()->addFunction(types::Function::createFunction(L"TCL_EvalStr",      &sci_TCL_EvalStr,      MODULE_NAME));
32     symbol::Context::getInstance()->addFunction(types::Function::createFunction(L"TCL_GetVar",       &sci_TCL_GetVar,       MODULE_NAME));
33     symbol::Context::getInstance()->addFunction(types::Function::createFunction(L"TCL_SetVar",       &sci_TCL_SetVar,       MODULE_NAME));
34     symbol::Context::getInstance()->addFunction(types::Function::createFunction(L"sci_opentk",       &sci_opentk,           MODULE_NAME));
35     symbol::Context::getInstance()->addFunction(types::Function::createFunction(L"TCL_GetVersion",   &sci_TCL_GetVersion,   MODULE_NAME));
36     symbol::Context::getInstance()->addFunction(types::Function::createFunction(L"TCL_UnsetVar",     &sci_TCL_UnsetVar,     MODULE_NAME));
37     symbol::Context::getInstance()->addFunction(types::Function::createFunction(L"TCL_ExistVar",     &sci_TCL_ExistVar,     MODULE_NAME));
38     symbol::Context::getInstance()->addFunction(types::Function::createFunction(L"TCL_UpVar",        &sci_TCL_UpVar,        MODULE_NAME));
39     symbol::Context::getInstance()->addFunction(types::Function::createFunction(L"TCL_DeleteInterp", &sci_TCL_DeleteInterp, MODULE_NAME));
40     symbol::Context::getInstance()->addFunction(types::Function::createFunction(L"TCL_ExistInterp",  &sci_TCL_ExistInterp,  MODULE_NAME));
41     symbol::Context::getInstance()->addFunction(types::Function::createFunction(L"TCL_ExistArray",   &sci_TCL_ExistArray,   MODULE_NAME));
42     symbol::Context::getInstance()->addFunction(types::Function::createFunction(L"TCL_EvalFile",     &sci_TCL_EvalFile,     MODULE_NAME));
43     return 1;
44 }