jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

scilab: swig generates loader script

Browse source
This commit is contained in:
Simon Marchetto 2014-10-20 14:49:25 +02:00
commit f069cba2b4
1 changed files with 81 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

82
Source/Modules/scilab.cxx
View file

@ -61,10 +61,13 @@ protected:
bool createGatewayXML; bool createGatewayXML;
File *gatewayXMLFile; File *gatewayXMLFile;
String *gatewayXML; String *gatewayXML;
String *gatewayID; String *gatewayID;
int primitiveID; int primitiveID;
bool createLoader;
File *loaderFile;
String* loaderScript;
String *libraryName; String *libraryName;
public: public:
@ -91,6 +94,10 @@ public:
gatewayXMLFile = NULL; gatewayXMLFile = NULL;
gatewayID = NULL; gatewayID = NULL;
createLoader = false;
loaderFile = NULL;
loaderScript = NULL;
libraryName = NULL; libraryName = NULL;
/* Manage command line arguments */ /* Manage command line arguments */
@ -132,6 +139,7 @@ public:
Swig_mark_arg(argIndex); Swig_mark_arg(argIndex);
generateBuilder = false; generateBuilder = false;
createGatewaySource = true; createGatewaySource = true;
createLoader = true;
} else if (strcmp(argv[argIndex], "-gatewayxml") == 0) { } else if (strcmp(argv[argIndex], "-gatewayxml") == 0) {
Swig_mark_arg(argIndex); Swig_mark_arg(argIndex);
createGatewayXML = true; createGatewayXML = true;
@ -218,6 +226,11 @@ public:
createGatewayXMLFile(moduleName); createGatewayXMLFile(moduleName);
} }
// Create loader script if required
if (createLoader) {
createLoaderFile(moduleName);
}
// Module initialization function // Module initialization function
String *moduleInitFunctionName = NewString(""); String *moduleInitFunctionName = NewString("");
Printf(moduleInitFunctionName, "%s_Init", moduleName); Printf(moduleInitFunctionName, "%s_Init", moduleName);
@ -272,6 +285,10 @@ public:
saveGatewayXMLFile(); saveGatewayXMLFile();
} }
if (createLoader) {
saveLoaderFile(moduleName);
}
/* Cleanup files */ /* Cleanup files */
Delete(runtimeSection); Delete(runtimeSection);
Delete(headerSection); Delete(headerSection);
@ -845,6 +862,10 @@ public:
addFunctionInGatewaySource(scilabFunctionName, wrapperFunctionName); addFunctionInGatewaySource(scilabFunctionName, wrapperFunctionName);
} }
if (createLoader) {
addFunctionInLoader(scilabFunctionName);
}
if (gatewayXMLFile) { if (gatewayXMLFile) {
Printf(gatewayXML, "<PRIMITIVE gatewayId=\"%s\" primitiveId=\"%d\" primitiveName=\"%s\"/>\n", gatewayID, primitiveID++, scilabFunctionName); Printf(gatewayXML, "<PRIMITIVE gatewayId=\"%s\" primitiveId=\"%d\" primitiveName=\"%s\"/>\n", gatewayID, primitiveID++, scilabFunctionName);
} }
@ -1093,6 +1114,65 @@ public:
} }
/* -----------------------------------------------------------------------
* createLoaderScriptFile()
* Creates the loader script file (loader.sce)
* ----------------------------------------------------------------------- */
void createLoaderFile(String *moduleName) {
String *loaderFilename = NewString("");
Printf(loaderFilename, "loader.sce");
loaderFile = NewFile(loaderFilename, "w", SWIG_output_files());
if (!loaderFile) {
FileErrorDisplay(loaderFilename);
SWIG_exit(EXIT_FAILURE);
}
String *libName = NewString("");
Printf(libName, "lib%s", moduleName);
emitBanner(loaderFile);
loaderScript = NewString("");
Printf(loaderScript, "%s_path = get_absolute_file_path('loader.sce');\n", libName);
Printf(loaderScript, "[bOK, ilib] = c_link('%s');\n", libName);
Printf(loaderScript, "if bOK then\n");
Printf(loaderScript, " ulink(ilib);\n");
Printf(loaderScript, "end\n");
Printf(loaderScript, "list_functions = [..\n");
}
/* -----------------------------------------------------------------------
* addFunctionInLoaderScript()
* Add a function in the loader script table
* ----------------------------------------------------------------------- */
void addFunctionInLoader(const_String_or_char_ptr scilabFunctionName) {
Printf(loaderScript, " '%s'; ..\n", scilabFunctionName);
}
/* -----------------------------------------------------------------------
* saveLoaderScriptFile()
* Terminates and saves the loader script
* ----------------------------------------------------------------------- */
void saveLoaderFile(String *moduleName) {
Printf(loaderScript, "];\n");
String *libName = NewString("");
Printf(libName, "lib%s", moduleName);
Printf(loaderScript, "addinter(fullfile(%s_path, '%s' + getdynlibext()), '%s', list_functions);\n", libName, libName, libName);
Printf(loaderScript, "clear %s_path;\n", libName);
Printf(loaderScript, "clear bOK;\n");
Printf(loaderScript, "clear ilib;\n");
Printf(loaderScript, "clear list_functions;\n");
Printv(loaderFile, loaderScript, NIL);
Delete(loaderFile);
}
}; };
extern "C" Language *swig_scilab(void) { extern "C" Language *swig_scilab(void) {