First version of SCI2C gui

2 files changed, 573 insertions, 0 deletions

diff --git a/macros/cb_sci2c_gui.sci b/macros/cb_sci2c_gui.sci
new file mode 100644
index 00000000..65509c20
--- /dev/null
+++ b/macros/cb_sci2c_gui.sci
@@ -0,0 +1,145 @@
+//
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - INRIA - Vincent COUVERT 
+// 
+// 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
+//
+
+// Callback function for SCI2C GUI (See sci2c_gui.sci)
+
+function cb_sci2c_gui
+
+//
+// --- File to convert ---
+//
+if get(gcbo,"tag")=="filebtn" then
+  
+  filename = uigetfile("*.sci", getcwd(), gettext("Select the file to translate"));
+  if ~isempty(filename) then
+    set(findobj("tag", "fileedit"), "string", filename);
+  end
+  
+//
+// --- Sub-functions directory ---
+//
+elseif get(gcbo,"tag")=="subfunsbtn" then
+  
+  directory = uigetdir(getcwd(), gettext("Select your sub-functions directory"));
+  if ~isempty(directory) then
+    set(findobj("tag", "subfunsedit"), "string", directory);
+  end
+  
+//
+// --- Header file ---
+//
+elseif get(gcbo,"tag")=="headerbtn" then
+  
+  filename = uigetfile("*.h", getcwd(), gettext("Select SciLib main header file"));
+  if ~isempty(filename) then
+    set(findobj("tag", "headeredit"), "string", filename);
+  end
+  
+//
+// --- Output directory ---
+//
+elseif get(gcbo,"tag")=="outbtn" then
+  
+  directory = uigetdir(getcwd(), gettext("Select the directory for generated files"));
+  if ~isempty(directory) then
+    set(findobj("tag", "outedit"), "string", directory);
+  end
+  
+//
+// --- Run mode option ---
+//
+elseif or(get(gcbo, "tag")==["runradioall","runradiotranslate","runradiogenlib"]) then
+  
+  set(findobj("tag", "runradioall"), "value", 0);
+  set(findobj("tag", "runradiotranslate"), "value", 0);
+  set(findobj("tag", "runradiogenlib"), "value", 0);
+  
+  set(gcbo, "value", 1);
+  
+//
+// --- Copy Scilab code into C option ---
+//
+elseif or(get(gcbo, "tag")==["sciintocradioyes","sciintocradiono"]) then
+  
+  set(findobj("tag", "sciintocradioyes"), "value", 0);
+  set(findobj("tag", "sciintocradiono"), "value", 0);
+
+  set(gcbo, "value", 1);
+  
+//
+// --- Paths style option ---
+//
+elseif or(get(gcbo, "tag")==["pathsradiowin","pathsradiounix","pathsradiocygwin"]) then
+
+  set(findobj("tag", "pathsradiowin"), "value", 0);
+  set(findobj("tag", "pathsradiounix"), "value", 0);
+  set(findobj("tag", "pathsradiocygwin"), "value", 0);
+  
+  set(gcbo, "value", 1);
+  
+//
+// --- Cancel conversion ---
+//
+elseif get(gcbo, "tag")=="cancelbtn" | get(gcbo, "tag")=="close_menu" then
+  delete(findobj("tag", "sci2cfig"));
+
+//
+// --- Launch conversion ---
+//
+elseif get(gcbo, "tag")=="convertbtn" then
+  UserScilabMainFile =  get(findobj("tag", "fileedit"), "string");
+  
+  UserSciFilesPaths = get(findobj("tag", "subfunsedit"), "string");
+  
+  Sci2CLibMainHeaderFName = get(findobj("tag", "headeredit"), "string");
+  
+  UserSciCodeMainDir = get(findobj("tag", "outedit"), "string");
+  
+  if get(findobj("tag", "runradioall"), "value") == 1 then
+    RunMode = "All";
+  elseif get(findobj("tag", "runradiotranslate"), "value") == 1 then
+    RunMode = "Translate";
+  else
+    RunMode = "GenLibraryStructure";
+  end
+  
+  CopySciCodeIntoCCode = get(findobj("tag", "sciintocradioyes"), "value") == 1;
+  
+  if get(findobj("tag", "pathsradiowin"), "value") == 1 then
+    CCompilerPathStyle = "windows";
+  elseif get(findobj("tag", "pathsradiounix"), "value") == 1 then
+    CCompilerPathStyle = "unix";
+  else
+    CCompilerPathStyle = "cygwin";
+  end
+  
+  mprintf("UserScilabMainFile = %s\n", UserScilabMainFile);
+  mprintf("UserSciFilesPaths = %s\n", UserSciFilesPaths);
+  mprintf("Sci2CLibMainHeaderFName = %s\n", Sci2CLibMainHeaderFName);
+  mprintf("UserSciCodeMainDir = %s\n", UserSciCodeMainDir);
+  mprintf("RunMode = %s\n", RunMode);
+  mprintf("CopySciCodeIntoCCode = %d\n", bool2s(CopySciCodeIntoCCode));
+  mprintf("CCompilerPathStyle = %s\n", CCompilerPathStyle);
+
+//
+// --- sci2c help ---
+//
+elseif get(gcbo, "tag")=="sci2c_help_menu" then
+  help sci2c
+
+//
+// --- About SCI2C ---
+//
+elseif get(gcbo, "tag")=="about_sci2c_menu" then
+  help(gettext("About_SCI2C_tools"))
+end
+
+endfunction
diff --git a/macros/sci2c_gui.sci b/macros/sci2c_gui.sci
new file mode 100644
index 00000000..ab541d33
--- /dev/null
+++ b/macros/sci2c_gui.sci
@@ -0,0 +1,428 @@
+//
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - INRIA - Vincent COUVERT 
+// 
+// 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 sci2c_gui()
+
+// Sizes
+widgeth = 20;
+btnh = 22;
+btnw = 80;
+defaultfont = "arial";
+margin = 13;
+radiow = 85;
+
+// Figure creation
+sci2cfig = figure("figure_name", gettext("Scilab to C conversion tool"),"tag","sci2cfig");
+
+// Remove Scilab graphics menus & toolbar
+delmenu(sci2cfig.figure_id, gettext("&File"));
+delmenu(sci2cfig.figure_id, gettext("&Tools"));
+delmenu(sci2cfig.figure_id, gettext("&Edit"));
+delmenu(sci2cfig.figure_id, gettext("&?"));
+toolbar(sci2cfig.figure_id, "off");
+
+h = uimenu("parent", sci2cfig, "label", gettext("File"));
+uimenu("parent", h, "label", gettext("Close"), "callback", "cb_sci2c_gui", "tag", "close_menu");
+
+h = uimenu("parent", sci2cfig, "label", gettext("?"));
+uimenu("parent", h, "label", gettext("Sci2c help page"), "callback", "cb_sci2c_gui", "tag", "sci2c_help_menu");
+uimenu("parent", h, "label", gettext("About SCI2C tools..."), "callback", "cb_sci2c_gui", "tag", "about_sci2c_menu");
+
+figw = 500;
+figh = 17*margin + btnh + 7*widgeth;
+sci2cfig.axes_size = [figw figh];
+sci2cfig.auto_resize = "off";
+sci2cfig.visible = "off"; // to be sure that no plot can appear in the window
+
+//-------------------
+// --- Validation ---
+//-------------------
+
+// Convert button
+convertbtn = uicontrol("parent", sci2cfig,...
+    "backgroundcolor", [0.8 0.8 0.8],...
+    "style", "pushbutton",...
+    "string", gettext("Convert"),...
+    "position", [figw-2*margin-2*btnw margin btnw btnh],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "tag","convertbtn",...
+    "callback","cb_sci2c_gui");
+
+// Cancel button
+cancelbtn = uicontrol("parent", sci2cfig,...
+    "backgroundcolor", [0.8 0.8 0.8],...
+    "style", "pushbutton",...
+    "string", gettext("Cancel"),...
+    "position", [figw-margin-btnw margin btnw btnh],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "tag", "cancelbtn",...
+    "callback","cb_sci2c_gui");
+
+//----------------
+// --- Options ---
+//----------------
+// Frame
+optframe = uicontrol("parent", sci2cfig,...
+    "relief", "groove",...
+    "style", "frame",...
+    "units", "pixels",...
+    "position", [margin 2*margin+btnh figw-2*margin 4*margin+3*widgeth],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "fontweight", "bold", ...
+    "horizontalalignment", "center");
+// Frame title
+opttitle = uicontrol("parent", sci2cfig,...
+    "style", "text",...
+    "string", gettext("Options"),...
+    "units", "pixels",...
+    "position", [2*margin 2*margin+btnh+4*margin+3*widgeth-8 50 14],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 11,...
+    "horizontalalignment", "center");
+
+// --- Paths style ---
+pathsy = 2*margin+btnh+margin;
+pathslabel = uicontrol("parent", sci2cfig,...
+    "style", "text",...
+    "string", gettext("Paths style in C code: "),...
+    "position",[2*margin pathsy 160 widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12); 
+pathsradiowin = uicontrol("parent", sci2cfig,...
+    "style", "radiobutton",...
+    "string", gettext("Windows"),...
+    "position",[2*margin+160 pathsy radiow widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "min", 0, ...
+    "max", 1, ...
+    "value", 1,...
+    "callback", "cb_sci2c_gui",...
+    "tag", "pathsradiowin"); 
+pathsradiounix = uicontrol("parent", sci2cfig,...
+    "style", "radiobutton",...
+    "string", gettext("Unix"),...
+    "position",[2*margin+160+radiow pathsy radiow widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "min", 0, ...
+    "max", 1, ...
+    "value", 0,...
+    "callback", "cb_sci2c_gui",...
+    "tag", "pathsradiounix"); 
+pathsradiocygwin = uicontrol("parent", sci2cfig,...
+    "style", "radiobutton",...
+    "string", gettext("Cygwin"),...
+    "position",[2*margin+160+2*radiow pathsy radiow widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "min", 0, ...
+    "max", 1, ...
+    "value", 0,...
+    "callback", "cb_sci2c_gui",...
+    "tag", "pathsradiocygwin"); 
+
+// --- Copy Scilab code into C option ---
+sciintocy = pathsy + margin + btnh ;
+sciintoclabel = uicontrol("parent", sci2cfig,...
+    "style", "text",...
+    "string", gettext("Copy Scilab code into C: "),...
+    "position",[2*margin sciintocy 160 widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12); 
+sciintocradioyes = uicontrol("parent", sci2cfig,...
+    "style", "radiobutton",...
+    "string", gettext("Yes"),...
+    "position",[2*margin+160 sciintocy radiow widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "min", 0, ...
+    "max", 1, ...
+    "value", 0,...
+    "callback", "cb_sci2c_gui",...
+    "tag", "sciintocradioyes"); 
+sciintocradiono = uicontrol("parent", sci2cfig,...
+    "style", "radiobutton",...
+    "string", gettext("No"),...
+    "position",[2*margin+160+radiow sciintocy radiow widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "min", 0, ...
+    "max", 1, ...
+    "value", 1,...
+    "callback", "cb_sci2c_gui",...
+    "tag", "sciintocradiono"); 
+
+// --- Run mode option ---
+runy = sciintocy + margin + widgeth;
+runlabel = uicontrol("parent", sci2cfig,...
+    "style", "text",...
+    "string", gettext("Run mode: "),...
+    "position",[2*margin runy 160 widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12); 
+runradioall = uicontrol("parent", sci2cfig,...
+    "style", "radiobutton",...
+    "string", gettext("All"),...
+    "position",[2*margin+160 runy radiow widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "min", 0, ...
+    "max", 1, ...
+    "value", 0,...
+    "callback", "cb_sci2c_gui",...
+    "tag", "runradioall"); 
+runradiotranslate = uicontrol("parent", sci2cfig,...
+    "style", "radiobutton",...
+    "string", gettext("Translate"),...
+    "position",[2*margin+160+radiow runy radiow widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "min", 0, ...
+    "max", 1, ...
+    "value", 0,...
+    "callback", "cb_sci2c_gui",...
+    "tag", "runradiotranslate"); 
+runradiogenlib = uicontrol("parent", sci2cfig,...
+    "style", "radiobutton",...
+    "string", gettext("Generate library"),...
+    "position",[2*margin+160+2*radiow runy 120 widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "min", 0, ...
+    "max", 1, ...
+    "value", 1,...
+    "callback", "cb_sci2c_gui",...
+    "tag", "runradiogenlib"); 
+
+// ------------------------
+// --- Output directory ---
+// ------------------------
+// Frame
+optframemaxy = 2*margin+btnh + 4*margin+3*widgeth;
+outframe = uicontrol("parent", sci2cfig,...
+    "relief", "groove",...
+    "style", "frame",...
+    "units", "pixels",...
+    "position", [margin optframemaxy+margin figw-2*margin widgeth+2*margin],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "fontweight", "bold", ...
+    "horizontalalignment", "center");
+// Frame title
+outtitle = uicontrol("parent", sci2cfig,...
+    "style", "text",...
+    "string", gettext("Output directory"),...
+    "units", "pixels",...
+    "position", [2*margin optframemaxy+margin+widgeth+2*margin-8 90 14],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 11,...
+    "horizontalalignment", "center");
+outlabel = uicontrol("parent", sci2cfig,...
+    "style", "text",...
+    "string", gettext("Directory name: "),...
+    "position",[2*margin optframemaxy+2*margin-1 100 widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12);
+outedit = uicontrol("parent", sci2cfig,...
+    "style", "edit",...
+    "string", getcwd(),...
+    "units", "pixels",...
+    "position",[3*margin+100 optframemaxy+2*margin-1 figw-6*margin-100-btnw widgeth],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12, ...
+    "tag", "outedit");
+outbtn = uicontrol("parent", sci2cfig,...
+    "backgroundcolor", [0.8 0.8 0.8],...
+    "style", "pushbutton",...
+    "string", gettext("Browse"),...
+    "position",[figw-2*margin-btnw optframemaxy+2*margin btnw btnh],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "callback", "cb_sci2c_gui",...
+    "tag", "outbtn");
+
+// -------------------------------
+// --- SciLib main header file ---
+// -------------------------------
+// Frame
+outframemaxy = optframemaxy + 2*margin + widgeth + margin;
+headerframe = uicontrol("parent", sci2cfig,...
+    "relief", "groove",...
+    "style", "frame",...
+    "units", "pixels",...
+    "position", [margin outframemaxy+margin figw-2*margin widgeth+2*margin],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "fontweight", "bold", ...
+    "horizontalalignment", "center");
+// Frame title
+headertitle = uicontrol("parent", sci2cfig,...
+    "style", "text",...
+    "string", gettext("Scilab library header"),...
+    "units", "pixels",...
+    "position", [2*margin outframemaxy+margin+widgeth+2*margin-8 110 14],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 11,...
+    "horizontalalignment", "center");
+headerlabel = uicontrol("parent", sci2cfig,...
+    "style", "text",...
+    "string", gettext("File name: "),...
+    "position",[2*margin outframemaxy+2*margin-1 100 widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12);
+headeredit = uicontrol("parent", sci2cfig,...
+    "style", "edit",...
+    "string", gettext("<enter a file name>"),...
+    "units", "pixels",...
+    "position",[3*margin+100 outframemaxy+2*margin-1 figw-6*margin-100-btnw widgeth],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12, ...
+    "tag", "headeredit");
+headerbtn = uicontrol("parent", sci2cfig,...
+    "backgroundcolor", [0.8 0.8 0.8],...
+    "style", "pushbutton",...
+    "string", gettext("Browse"),...
+    "position",[figw-2*margin-btnw outframemaxy+2*margin btnw btnh],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "callback", "cb_sci2c_gui",...
+    "tag", "headerbtn");
+
+// -------------------------
+// --- File(s) selection ---
+// -------------------------
+// Frame
+headerframemaxy = outframemaxy + 2*margin + widgeth + margin;
+selframe = uicontrol("parent", sci2cfig,...
+    "relief", "groove",...
+    "style", "frame",...
+    "units", "pixels",...
+    "position", [margin headerframemaxy+margin figw-2*margin 3*margin+2*widgeth],...
+    "fontname", "arial",...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "fontweight", "bold", ...
+    "horizontalalignment", "center");
+// Frame title
+seltitle = uicontrol("parent", sci2cfig,...
+    "style", "text",...
+    "string", gettext("Input file"),...
+    "units", "pixels",...
+    "position", [2*margin headerframemaxy+margin+3*margin+2*widgeth-8 50 14],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 11,...
+    "horizontalalignment", "center", ...
+    "tag", "seltitle");
+
+// --- Sub-functions selection ---
+subfunslabel = uicontrol("parent", sci2cfig,...
+    "style", "text",...
+    "string", gettext("Sub-functions: "),...
+    "position",[2*margin headerframemaxy+2*margin-1 100 widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12);
+subfunsedit = uicontrol("parent", sci2cfig,...
+    "style", "edit",...
+    "string", getcwd(),...
+    "units", "pixels",...
+    "position",[3*margin+100 headerframemaxy+2*margin-1 figw-6*margin-100-btnw widgeth],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12, ...
+    "tag", "subfunsedit");
+subfunsbtn = uicontrol("parent", sci2cfig,...
+    "backgroundcolor", [0.8 0.8 0.8],...
+    "style", "pushbutton",...
+    "string", gettext("Browse"),...
+    "position",[figw-2*margin-btnw headerframemaxy+2*margin btnw btnh],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "callback", "cb_sci2c_gui",...
+    "tag", "subfunsbtn");
+
+// --- File selection ---
+filelabel = uicontrol("parent", sci2cfig,...
+    "style", "text",...
+    "string", gettext("Main file name: "),...
+    "position",[2*margin headerframemaxy+3*margin-1+widgeth 100 widgeth],...
+    "horizontalalignment", "left",...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "tag", "filelabel");
+
+fileedit = uicontrol("parent", sci2cfig,...
+    "style", "edit",...
+    "string", gettext("<enter a file name>"),...
+    "position",[3*margin+100 headerframemaxy+3*margin-1+widgeth figw-6*margin-100-btnw widgeth],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "tag", "fileedit");
+
+filebtn = uicontrol("parent", sci2cfig,...
+    "backgroundcolor", [0.8 0.8 0.8],...
+    "style", "pushbutton",...
+    "string", gettext("Browse"),...
+    "position",[figw-2*margin-btnw headerframemaxy+3*margin+widgeth btnw btnh],...
+    "fontname", defaultfont,...
+    "fontunits", "points",...
+    "fontsize", 12,...
+    "callback", "cb_sci2c_gui",...
+    "tag", "filebtn");
+
+endfunction