Merge remote-tracking branch 'origin/master' into YaSp
[scilab.git] / scilab / etc / scilab.start
index ab33aeb..b80e319 100644 (file)
 mode(-1);  // silent execution mode
 
 // clean database when restarted ======================================
-predef("clear"); //unprotect all variables
+//predef("clear"); //unprotect all variables
 clear  // erase all variables
 clearglobal();
 
-// Set stack size   ===================================================
-function setStackSize()
-  defaultstacksize = 10000000;
-  old = stacksize()
-  params = sciargs();
-  nparam = find(params == "-mem");
-  if (nparam) then
-    ierr = execstr("newstacksize=" + params(nparam + 1), "errcatch");
-    if (ierr == 0) then
-      if old(1) <> newstacksize then
-        stacksize(newstacksize);
-      end
-    else
-      if old(1) <> defaultstacksize then
-        stacksize(defaultstacksize);
-      end
-    end
-  else
-    if old(1) <> defaultstacksize then
-      stacksize(defaultstacksize);
-    end
-  end
-endfunction
-setStackSize();
-clear setStackSize;
-
-// Special variables definition =======================================
-oldieee=ieee()
-ieee(2);
-%inf = 1/0;
-ieee(0);
-%nan = %inf-%inf;
-// boolean variables
-%T = %t;
-%F = %f;
 %tk = (with_module("tclsci") & getscilabmode() <> "NWNI");
 
-ieee(oldieee);
-clear oldieee
-
 // Default Obsolete Warning policy  ===================================
 global %modalWarning;
 // False -> Scilab will only display a Warning message in the console
@@ -69,30 +31,19 @@ clear %modalWarning;
 PWD = pwd();
 
 // Startup message  ===================================================
-if (sciargs() <> "-nb") & ~fromjava() & ~fromc() & getscilabmode() == "STD" then
-  write(%io(2),[" ";gettext("Startup execution:")]);
-  write(%io(2),gettext("  loading initial environment"));
+
+// if (sciargs() <> "-nb") & ~fromjava() & ~fromc() & getscilabmode() == "STD" then
+if (sciargs() <> "-nb") & getscilabmode() == "STD" then
+  printf("\n\n%s\n", gettext("Startup execution:"));
+  printf(gettext("  loading initial environment") + "\n");
 end
 
 if ((getscilabmode() == "NWNI" | getscilabmode() == "NW") & ~fromjava() & ~fromc() & sciargs()<>"-nb")
    [v, opts] = getversion()
-   write(%io(2), strsubst(v, "scilab-", "Scilab ") + " (" + opts($-1) + ", " + opts($) + ")");
+   printf(strsubst(v, "scilab-", "Scilab ") + " (" + opts($-1) + ", " + opts($) + ")");
    clear v, opts;
 end
 
-// loads modules ======================================================
-modules    = getmodules();
-
-// Map 'load' to 'old binary files load' called %_load to be able to load Scilab libraries
-warning("off");
-load = %_load;
-warning("on");
-
-for i=1:size(modules,"*")
-  exec("SCI/modules/" + modules(i) + "/etc/" + modules(i) + ".start", -1);
-end
-clear modules i load;
-
 // Create some configuration variables ================================
 home = getenv("HOME", SCI);
 if getos() <> "Windows" then
@@ -112,10 +63,6 @@ if with_module("atoms") then
   clear atomsSystemInit;
 end
 
-
-// Protect variable previously defined  ================================
-predef("all");
-
 // At startup, no interactive vertical paging by default. ==============
 lines(0);