diff options
| -rw-r--r-- | macros/scilab2c.sci | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/macros/scilab2c.sci b/macros/scilab2c.sci new file mode 100644 index 00000000..3585b39c --- /dev/null +++ b/macros/scilab2c.sci @@ -0,0 +1,59 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2009-2009 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +function scilab2c(varargin) + [lhs, rhs] = argn(); + if rhs == 0 +// scilab2c() +// launch gui +// scilab2c_gui(); + disp("Launching GUI : Not implemented now..."); + return; + end + + if rhs == 2 +// scilab2c(arg1, arg2) + if typeof(varargin(1)) <> "string" + error(msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"),"scilab2c",1)); + return + end + + if typeof(varargin(2)) <> "string" + error(msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"),"scilab2c",2)); + return + end + + //disp("That''s a good starting point") + //disp("Input File = "+varargin(1)) + //disp("Output File = "+varargin(2)) + UserScilabMainFile = varargin(1); + UserSciFilesPaths = []; + //RunMode = 'GenLibraryStructure'; + //RunMode = 'Translate'; + RunMode = 'All'; + +// --- LAUNCH USER SCI CODE TO TEST IT BEFORE TRANSLATING IT!!! --- + runscicode(UserScilabMainFile, UserSciFilesPaths); +// --- ASK USER FOR CONTINUATION. --- + userchoice = input('Start translation [y/n]?','s'); + if (userchoice == 'y') +// --- LAUNCH SCI2C --- + runsci2c(UserScilabMainFile, UserSciFilesPaths, TMPDIR, RunMode); +// cd(SCI2CDirectory); + end + + + return + end + + error(msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"),"scilab2c",2)); +endfunction |