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   warnobsolete("preferences", "5.4.1");
  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