Updated Scilab2C

1 files changed, 67 insertions, 0 deletions

diff --git a/macros/runscicode.sci b/macros/runscicode.sci
new file mode 100644
index 00000000..94b76a17
--- /dev/null
+++ b/macros/runscicode.sci
@@ -0,0 +1,67 @@
+function runscicode(UserScilabMainFile, UserSciFilesPaths)
+// function runscicode(SCI2CInputPrmFile)
+// -----------------------------------------------------------------
+// ===         hArtes/PoliBa/GAP SCI2C tool                      ===
+// ===         Authors:                                          ===
+// ===            Raffaele Nutricato                             ===
+// ===            raffaele.nutricato@tiscali.it                  ===
+// ===            Alberto Morea                                  ===
+//
+// Run the code written by the user before translating it.
+//
+// Input data:
+// ---
+// Output data:
+// ---
+//
+// Status:
+// 11-Apr-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// -------------------
+// --- Soft reset. ---
+// -------------------
+//mode(-1);
+//clc;
+// -----------------------
+// --- End Soft reset. ---
+// -----------------------
+
+// -------------------------
+// --- Input Parameters. ---
+// -------------------------
+//RunSci2CMainDir = pwd();
+// -----------------------------
+// --- End input Parameters. ---
+// -----------------------------
+
+//cd(fullfile(RunSci2CMainDir,'ToolInitialization'));
+//exec('INIT_SCI2CLoader.sce');
+//cd(RunSci2CMainDir);
+
+// --- Read user parameters. ---
+//exec(SCI2CInputPrmFile);
+
+// --- Add all user paths. ---
+for cntpath = 1:size(UserSciFilesPaths,1)
+   getd(UserSciFilesPaths(cntpath));
+end
+
+// --- Execute code. ---
+disp('-----------------------------------');
+disp('--- Executing your SCILAB code. ---');
+disp('-----------------------------------');
+exec(UserScilabMainFile);
+[tmppath,tmpfile,tmpext] = fileparts(UserScilabMainFile);
+//cd(tmppath);
+execstr(tmpfile);
+//cd(RunSci2CMainDir);
+disp('------------------------------------------');
+disp('--- End Execution of your SCILAB code. ---');
+disp('------------------------------------------');
+
+
+endfunction
\ No newline at end of file