Remove debug message
[scilab.git] / scilab / modules / scicos / macros / scicos_scicos / modelicac.sci
1 //  Scicos
2 //
3 //  Copyright (C) INRIA - METALAU Project <scicos@inria.fr>
4 //
5 // This program is free software; you can redistribute it and/or modify
6 // it under the terms of the GNU General Public License as published by
7 // the Free Software Foundation; either version 2 of the License, or
8 // (at your option) any later version.
9 //
10 // This program is distributed in the hope that it will be useful,
11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 // GNU General Public License for more details.
14 //
15 // You should have received a copy of the GNU General Public License
16 // along with this program; if not, write to the Free Software
17 // Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
18 //
19 // See the file ../license.txt
20 //
21
22 function  ok = modelicac(Flat, Flat_functions, xmlfileTMP, Jacobian, Cfile, with_gui, init)
23     //Scilab interface with external tool modelicac
24
25     MODELICAC_FILENAME = "modelicac";
26     if getos() == "Windows" then
27         MODELICAC_FILENAME = MODELICAC_FILENAME + ".exe";
28     end
29
30     if argn(2) < 7 then init = %f,end
31     incidence = "";
32     tmpdir = pathconvert(TMPDIR, %t, %t);  //for error log and  shell scripts
33     xmlfileTMP = pathconvert(xmlfileTMP, %f, %t);
34     Cfile = pathconvert(Cfile, %f, %t);
35
36     if fileinfo(Flat_functions) == [] then
37         Flat_functions = " ";
38     else
39         Flat_functions = """" + Flat_functions + """";
40     end
41
42     if ( (with_gui) & (fileinfo(xmlfileTMP) <> []) ) then // if GUI is running
43         XMLfiles = " -with-init-in """ + strsubst(xmlfileTMP, "\", "/") + """ -with-init-out """ + strsubst(xmlfileTMP,"\","/") + """";
44     else
45         XMLfiles = "";
46     end
47
48     exe = """" + pathconvert(getmodelicacpath() + MODELICAC_FILENAME, %f, %t) + """";
49
50     Flat = """" + Flat + """";
51     out = "-o """ + Cfile + """";
52
53     if Jacobian then
54         JAC = " -jac ";
55     else
56         JAC="";
57     end
58
59     instr = strcat([exe, Flat, Flat_functions, XMLfiles, out, JAC], " ");
60
61     if getos() == "Windows" then
62         if init then
63             mputl(instr,tmpdir+"igenm.bat");
64             instr = tmpdir + "igenm.bat";
65         else
66             mputl(instr, tmpdir + "genm2.bat");
67             instr = tmpdir + "genm2.bat";
68         end
69     end
70
71     [rep,stat,err]=unix_g(instr);
72     if stat <> 0 then
73         messagebox(err, _("Modelica compiler"), "error", "modal");
74         ok=%f;
75         return
76     end
77
78 endfunction
79