b63033f93b3bdf23fda53ae23dd073e9f12b89a2
[scilab.git] / scilab / modules / tclsci / macros / config.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2004 - Jaime Urzua Grez
3 // 
4
5 function config()
6 // Scilab basic configuration
7 // This file is part of sciGUI toolbox
8 //
9 // This program is free software; you can redistribute it and/or modify
10 //it under the terms of the GNU General Public License as published by
11 //the Free Software Foundation; either version 2 of the License, or
12 //(at your option) any later version.
13   sciGUI_init()
14   
15   vt=format();
16   if (vt(1)==0) then v4="v"; else v4="e"; end;
17   v5=string(vt(2));
18   format('v',10);
19   v1=stacksize();
20   v1=string(v1(1));
21   v2=gstacksize();
22   v2=string(v2(1));
23   v3=string(ieee());
24   if (vt(1)==0) then v4="v"; else v4="e"; end;
25   v5=string(vt(2));
26   vt=lines();
27   v6=string(vt(2));
28   v7=string(vt(1));
29   if (exists("%ODEOPTIONS")==1) then
30     locode=%ODEOPTIONS;
31   else
32     locode=[1,0,0,%inf,0,2,500,12,5,0,-1,-1];
33   end
34   v8=""
35   for j=1:length(locode),
36     if ((j==4)&(locode(4)==%inf)) then
37       v8=v8+'%inf '
38     else
39       v8=v8+string(locode(j))+' ';
40     end
41   end
42   vt=v1+' '+v2+' '+v3+' '+v4+' '+v5+' '+v6+' '+v7+' '+v8;
43   TCL_EvalStr('sciGUIConfig -1 {'+vt+'}');
44   format(v4,evstr(v5));
45 endfunction