1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
// Main Scilab initialisation file
// Copyright INRIA
mode(-1); // silent execution mode
// clean database when restarted
predef(0); //unprotect all variables
clear // erase all variables
clear %helps scicos_pal // explicitly clear %helps scicos_pal variables
clearglobal();
// Set stack size
newstacksize=1000000;
old=stacksize()
if old(1)<>newstacksize then stacksize(newstacksize),end
clear old newstacksize
// Startup message
t=[' '
' '
'Startup execution:'];
write(%io(2),t)
clear t;
// Special variables definition
ieee(2);%inf=1/0;ieee(0);%nan=%inf-%inf;
%s=poly(0,'s');%z=poly(0,'z');
$=poly(0,'$')
%T=%t;%F=%f; // boolean variables
SCI=getenv('SCI') // path of scilab main directory
if getenv('WIN32','NO')=='OK' then
WSCI=getenv('WSCI') // path of scilab main directory for Windows
end
// Load scilab functions libraries
errcatch(48,'continue');
write(%io(2),' loading initial environment')
load('SCI/macros/mtlb/lib')
load('SCI/macros/int/lib')
load('SCI/macros/algebre/lib')
load('SCI/macros/arma/lib')
load('SCI/macros/auto/lib')
load('SCI/macros/calpol/lib')
load('SCI/macros/comm/lib')
load('SCI/macros/elem/lib')
load('SCI/macros/metanet/lib')
load('SCI/macros/optim/lib')
load('SCI/macros/robust/lib')
load('SCI/macros/sci2for/lib')
load('SCI/macros/signal/lib')
load('SCI/macros/tdcs/lib')
load('SCI/macros/util/lib')
load('SCI/macros/xdess/lib')
load('SCI/macros/sound/lib')
load('SCI/macros/percent/lib')
// Create a temporary directory
TMPDIR=getenv('TMPDIR')
PWD = getcwd()
home= getenv('HOME','ndef');
if home=='ndef',home=unix_g('cd; pwd');end
// use MSDOS syntax?
MSDOS = %f
if getenv('WIN32','NO')=='OK' & (getenv('COMPILER','NO')=='VC++' | getenv('COMPILER','NO')=='ABSOFT') then
MSDOS = %t
end
// Protect variable previously defined
clear ans
predef('all')
//Scilab Help Chapters, %helps is a two column matrix of strings
%helps=initial_help_chapters()
// Define scicos palettes of blocks, scicos_menus and shortcuts
[scicos_pal,%scicos_menu,%scicos_short]=initial_scicos_tables()
%scicos_display_mode=0 // =1 if pixmap to be used for display
//Define Initial demo tables, demolist is a two column matrix of strings
demolist=initial_demos_tables()
clear initial_help_chapters initial_scicos_tables initial_demos_tables
// calling user initialization
//=============================
// Home dir
[startup,ierr]=file('open','home/.scilab','old','formatted');
if ierr==0 then
exec(startup,-1);file('close',startup);
clear startup ierr
else
[startup,ierr]=file('open','home/scilab.ini','old','formatted');
if ierr==0 then
exec(startup,-1);file('close',startup);
clear startup ierr
end
end
// working dir
if home<>PWD then
[startup,ierr]=file('open','.scilab','old','formatted');
if ierr==0 then
exec(startup,-1);file('close',startup);
clear startup ierr
else
[startup,ierr]=file('open','scilab.ini','old','formatted');
if ierr==0 then
exec(startup,-1);file('close',startup);
clear startup ierr
end
end
end
|
