diff options
| author | siddhu8990 | 2016-03-29 22:11:40 +0530 |
|---|---|---|
| committer | siddhu8990 | 2016-03-29 22:11:40 +0530 |
| commit | fe32d3a31c1f9d26cbefad9e2512a641ef323f0a (patch) | |
| tree | 4e23c30042ade690c01ae12d9b01447a74ca2bba /macros/runsci2c.sci | |
| parent | d4a4045b5dff59c799ee846052152298dfe6c210 (diff) | |
| download | scilab2c-fe32d3a31c1f9d26cbefad9e2512a641ef323f0a.tar.gz scilab2c-fe32d3a31c1f9d26cbefad9e2512a641ef323f0a.tar.bz2 scilab2c-fe32d3a31c1f9d26cbefad9e2512a641ef323f0a.zip | |
Function conversion using scilab2c call (not working)
Diffstat (limited to 'macros/runsci2c.sci')
| -rw-r--r-- | macros/runsci2c.sci | 164 |
1 files changed, 83 insertions, 81 deletions
diff --git a/macros/runsci2c.sci b/macros/runsci2c.sci index 41495cb4..83cf7081 100644 --- a/macros/runsci2c.sci +++ b/macros/runsci2c.sci @@ -74,7 +74,7 @@ INIT_LoadLibraries(FileInfoDatFile); // ----------------------------------
// --- Perform SCI2C Translation. ---
// ----------------------------------
-if (RunMode == 'All' | RunMode == 'Translate')
+if (RunMode == 'All' | RunMode == 'Translate' | RunMode == "FunCall")
FlagContinueTranslation = 1;
while(FlagContinueTranslation == 1)
UpdateSCI2CInfo(FileInfoDatFile);
@@ -90,93 +90,95 @@ end // ---------------------------
// --- Copy library files. ---
// ---------------------------
-global SCI2CHOME
-
-allSources = SCI2CHOME + "/" + getAllSources(Target);
-allHeaders = SCI2CHOME + "/" +getAllHeaders(Target);
-allInterfaces = SCI2CHOME + "/" + getAllInterfaces(Target);
-allLibraries = SCI2CHOME + "/" + getAllLibraries(Target);
-
-mkdir(SCI2COutputPath+"/src/");
-mkdir(SCI2COutputPath+"/src/c/");
-mkdir(SCI2COutputPath+"/includes/");
-mkdir(SCI2COutputPath+"/interfaces/");
-mkdir(SCI2COutputPath+"/libraries/");
-
-// -- Sources
-PrintStepInfo('Copying sources', FileInfo.GeneralReport,'both');
-for i = 1:size(allSources, "*")
- // DEBUG only
- //disp("Copying "+allSources(i)+" in "+SCI2COutputPath+"/src/c/");
- copyfile(allSources(i), SCI2COutputPath+"/src/c/");
-end
-
-// -- Includes
-PrintStepInfo('Copying headers', FileInfo.GeneralReport,'both');
-for i = 1:size(allHeaders, "*")
- // DEBUG only
- //disp("Copying "+allHeaders(i)+" in "+SCI2COutputPath+"/includes/");
- copyfile(allHeaders(i), SCI2COutputPath+"/includes/");
-end
-
-// -- Interfaces
-PrintStepInfo('Copying interfaces', FileInfo.GeneralReport,'both');
-for i = 1:size(allInterfaces, "*")
- // DEBUG only
- //disp("Copying "+allInterfaces(i)+" in "+SCI2COutputPath+"/interfaces/");
- copyfile(allInterfaces(i), SCI2COutputPath+"/interfaces/");
-end
-
-// -- Libraries
-PrintStepInfo('Copying libraries', FileInfo.GeneralReport,'both');
-for i = 1:size(allLibraries, "*")
- // DEBUG only
- //disp("Copying "+allInterfaces(i)+" in "+SCI2COutputPath+"/interfaces/");
- copyfile(allLibraries(i), SCI2COutputPath+"/libraries/");
-end
+if(RunMode <> "FunCall")
+
+ global SCI2CHOME
+
+ allSources = SCI2CHOME + "/" + getAllSources(Target);
+ allHeaders = SCI2CHOME + "/" +getAllHeaders(Target);
+ allInterfaces = SCI2CHOME + "/" + getAllInterfaces(Target);
+ allLibraries = SCI2CHOME + "/" + getAllLibraries(Target);
+
+ mkdir(SCI2COutputPath+"/src/");
+ mkdir(SCI2COutputPath+"/src/c/");
+ mkdir(SCI2COutputPath+"/includes/");
+ mkdir(SCI2COutputPath+"/interfaces/");
+ mkdir(SCI2COutputPath+"/libraries/");
+
+ // -- Sources
+ PrintStepInfo('Copying sources', FileInfo.GeneralReport,'both');
+ for i = 1:size(allSources, "*")
+ // DEBUG only
+ //disp("Copying "+allSources(i)+" in "+SCI2COutputPath+"/src/c/");
+ copyfile(allSources(i), SCI2COutputPath+"/src/c/");
+ end
-// --------------------------
-// --- Generate Makefile. ---
-// --------------------------
-//If output format is chosen as 'Arduino', then copy makefile for arduino from
-//default folder, else generate makefile for standalone c code
-
-if (Target == 'Arduino')
-
- GenerateSetupFunction(FileInfo);
- mkdir(SCI2COutputPath+"/arduino/");
- mkdir(SCI2COutputPath+"/arduino/sci2c_arduino");
- //Copy arduino makefile
- arduinoFiles = SCI2CHOME + "/" + getArduinoFiles();
- PrintStepInfo('Copying arduino files', FileInfo.GeneralReport,'both');
- copyfile(arduinoFiles(1), SCI2COutputPath);
- for i = 2:size(arduinoFiles, "*")
- // DEBUG only
- //disp("Copying "+arduinoFiles(i)+" in "+SCI2COutputPath+"/arduino/sci2carduino");
- copyfile(arduinoFiles(i), SCI2COutputPath+"/arduino/sci2c_arduino/");
- end
+ // -- Includes
+ PrintStepInfo('Copying headers', FileInfo.GeneralReport,'both');
+ for i = 1:size(allHeaders, "*")
+ // DEBUG only
+ //disp("Copying "+allHeaders(i)+" in "+SCI2COutputPath+"/includes/");
+ copyfile(allHeaders(i), SCI2COutputPath+"/includes/");
+ end
-else
+ // -- Interfaces
+ PrintStepInfo('Copying interfaces', FileInfo.GeneralReport,'both');
+ for i = 1:size(allInterfaces, "*")
+ // DEBUG only
+ //disp("Copying "+allInterfaces(i)+" in "+SCI2COutputPath+"/interfaces/");
+ copyfile(allInterfaces(i), SCI2COutputPath+"/interfaces/");
+ end
- if BuildTool == "make"
- C_GenerateMakefile(FileInfo,SharedInfo);
- copyBlasLapackLibs(FileInfo,SharedInfo); //Previously .dll files and blas,lapack library not creating for cygwin by additing this works fine
- end
- if BuildTool == "nmake"
- copyBlasLapackLibs(FileInfo,SharedInfo);
- C_GenerateMakefile_msvc(FileInfo,SharedInfo);
- end
-end
+ // -- Libraries
+ PrintStepInfo('Copying libraries', FileInfo.GeneralReport,'both');
+ for i = 1:size(allLibraries, "*")
+ // DEBUG only
+ //disp("Copying "+allInterfaces(i)+" in "+SCI2COutputPath+"/interfaces/");
+ copyfile(allLibraries(i), SCI2COutputPath+"/libraries/");
+ end
+ // --------------------------
+ // --- Generate Makefile. ---
+ // --------------------------
+ //If output format is chosen as 'Arduino', then copy makefile for arduino from
+ //default folder, else generate makefile for standalone c code
+
+ if (Target == 'Arduino')
+
+ GenerateSetupFunction(FileInfo);
+ mkdir(SCI2COutputPath+"/arduino/");
+ mkdir(SCI2COutputPath+"/arduino/sci2c_arduino");
+ //Copy arduino makefile
+ arduinoFiles = SCI2CHOME + "/" + getArduinoFiles();
+ PrintStepInfo('Copying arduino files', FileInfo.GeneralReport,'both');
+ copyfile(arduinoFiles(1), SCI2COutputPath);
+ for i = 2:size(arduinoFiles, "*")
+ // DEBUG only
+ //disp("Copying "+arduinoFiles(i)+" in "+SCI2COutputPath+"/arduino/sci2carduino");
+ copyfile(arduinoFiles(i), SCI2COutputPath+"/arduino/sci2c_arduino/");
+ end
+
+ else
+
+ if BuildTool == "make"
+ C_GenerateMakefile(FileInfo,SharedInfo);
+ copyBlasLapackLibs(FileInfo,SharedInfo); //Previously .dll files and blas,lapack library not creating for cygwin by additing this works fine
+ end
+ if BuildTool == "nmake"
+ copyBlasLapackLibs(FileInfo,SharedInfo);
+ C_GenerateMakefile_msvc(FileInfo,SharedInfo);
+ end
+ end
-// ------------------------------
-// --- Generate SCI2C Header. ---
-// ------------------------------
-// FIXME : Give the user the ability to set this prefix
-FunctionPrefix = "SCI2C";
-C_GenerateSCI2CHeader(SCI2COutputPath+"/includes/", FunctionPrefix);
+ // ------------------------------
+ // --- Generate SCI2C Header. ---
+ // ------------------------------
+ // FIXME : Give the user the ability to set this prefix
+ FunctionPrefix = "SCI2C";
+ C_GenerateSCI2CHeader(SCI2COutputPath+"/includes/", FunctionPrefix);
+end // RunMode <> FunCall
// -----------------
// --- Epilogue. ---
|