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
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2009 - DIGITEO - Pierre MARECHAL <pierre.marechal@scilab.org>
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
// Add toolboxes to the list of packages that are automatically loaded at Scilab start
// This function has an impact on the following files :
// -> ATOMSDIR/autoloaded
// End-User function
function nbAdd = atomsAutoloadAdd(packages,section)
rhs = argn(2);
nbAdd = 0;
autoloaded = []; // Column vector that contains autoloaded packages
// Load Atoms Internals lib if it's not already loaded
// =========================================================================
if ~ exists("atomsinternalslib") then
load("SCI/modules/atoms/macros/atoms_internals/lib");
end
// Check write access on allusers zone
// =========================================================================
ATOMSALLUSERSWRITEACCESS = atomsAUWriteAccess();
// Check number of input arguments
// =========================================================================
if rhs < 1 | rhs > 2 then
error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"atomsAutoloadAdd",1,2));
end
// Check input parameters type
// =========================================================================
if type(packages) <> 10 then
error(msprintf(gettext("%s: Wrong type for input argument #%d: String array expected.\n"),"atomsAutoloadAdd",1));
end
if (size(packages(1,:),"*") < 1) | (size(packages(1,:),"*") > 3) then
error(msprintf(gettext("%s: Wrong size for input argument #%d: mx1, mx2 or mx3 string matrix expected.\n"),"atomsAutoloadAdd",1));
end
// Allusers/user management
// - If section is equal to "allusers", module(s) will added to the
// "autoload" list of the "allusers" section :
// → SCI/.atoms/autoloaded
// - Otherwise, module(s) will added to the "autoload" list of the "user"
// section
// → SCIHOME/atoms/autoloaded
// =========================================================================
if rhs < 2 then
// By default:
// → Add the module to the "autoload" list of the "allusers" section
// if we have the write access to SCI directory
// → Add the module to the "autoload" list of the "user" section otherwise
if ATOMSALLUSERSWRITEACCESS then
section = "allusers";
else
section = "user";
end
else
// Process the 2nd input argument : allusers
// Allusers can be equal to "user" or "allusers"
if type(section) <> 10 then
error(msprintf(gettext("%s: Wrong type for input argument #%d: Single string expected.\n"),"atomsAutoloadAdd",2));
end
if and(section<>["user","allusers"]) then
error(msprintf(gettext("%s: Wrong value for input argument #%d: ''user'' or ''allusers'' expected.\n"),"atomsAutoloadAdd",2));
end
// Check if we have the write access
if (section=="allusers") & ~ ATOMSALLUSERSWRITEACCESS then
error(msprintf(gettext("%s: You haven''t write access on this directory : %s.\n"),"atomsAutoloadAdd",pathconvert(SCI+"/.atoms")));
end
end
// Does the SCIHOME/atoms/autoloaded exist, if yes load it
// =========================================================================
autoloaded = atomsAutoloadLoad(section);
// Complete packages matrix with empty columns
// =========================================================================
if size(packages(1,:),"*") == 1 then
packages = [ packages emptystr(size(packages(:,1),"*"),1) emptystr(size(packages(:,1),"*"),1) ];
elseif size(packages(1,:),"*") == 2 then
packages = [ packages emptystr(size(packages(:,1),"*"),1) ];
end
// Loop on input parameter
// =========================================================================
for i=1:size(packages(:,1),"*")
// The module's installed version hasn't been specified or is empty
// → Set the MRV available
// =====================================================================
if isempty(packages(i,2)) then
if ~ isempty(packages(i,3)) then
searched_section = packages(i,3);
elseif section=="user" then
// User can add a module to its "user" autoload list even if it's
// installed in the "allusers" section
searched_section = "all";
else
// A module installed in the user section cannot be add in the
// "autoload" list of all users
searched_section = "allusers";
end
this_module_versions = atomsGetInstalledVers(packages(i,1),searched_section);
if isempty(this_module_versions) then
error(msprintf(gettext("%s: Module ''%s'' is not installed (''%s'' section).\n"),"atomsLoad",packages(i,1),searched_section));
else
packages(i,2) = this_module_versions(1);
end
else
if ~atomsIsInstalled([packages(i,1) packages(i,2)]) then
error(msprintf(gettext("%s: Module ''%s - %s'' is not installed.\n"),"atomsLoad",packages(i,1),packages(i,2)));
end
// If the packaging version is not mentioned, define it
if isempty(strindex(packages(i,2),"-")) then
this_package_details = atomsGetInstalledDetails(packages(i,1:3));
packages(i,2) = this_package_details(2);
end
end
// The module's installed section hasn't been specified or is empty
// =====================================================================
if isempty(packages(i,3)) then
if atomsIsInstalled([packages(i,1) packages(i,2)],section) then
packages(i,3) = section;
elseif section=="user" & atomsIsInstalled([packages(i,1) packages(i,2)],"allusers") then
packages(i,3) = "allusers";
elseif section=="allusers" & atomsIsInstalled([packages(i,1) packages(i,2)],"user") then
mprintf(gettext("%s: The following module is installed in the user section, you cannot add it to the ""autoload"" list for all users:\n"),"atomsAutoloadAdd");
printf(gettext("\t - ''%s - %s''\n"),packages(i,1),packages(i,2));
error("");
else
mprintf(gettext("%s: The following module is not installed:\n"),"atomsAutoloadAdd");
mprintf(gettext("\t - ''%s - %s''\n"),packages(i,1),packages(i,2));
end
else
// Check if modules are installed
if ~ atomsIsInstalled([packages(i,1) packages(i,2)],packages(i,3)) then
mprintf(gettext("%s: The following modules are not installed:\n"),"atomsAutoloadAdd");
mprintf("\t - ''%s - %s'' (''%s'' section)\n",packages(i,1),packages(i,2),packages(i,3));
error("");
end
// A module installed in the user section cannot be add in the
// "autoload" list of all users
if (section=="allusers") & (packages(i,3)=="user") then
mprintf(gettext("%s: The following module is installed in the user section, you cannot add it to the ""autoload"" list for all users:\n"),"atomsAutoloadAdd");
mprintf(gettext("\t - ''%s - %s''\n"),packages(i,1),packages(i,2));
error("");
end
end
// Now we can really add it if it doesn't already exist in the list
// =====================================================================
if ~ atomsAutoloadCheck(packages(i,:),section) then
nbAdd = nbAdd + 1;
autoloaded = [ autoloaded ; packages(i,:) ];
end
end
// Apply changes
// =========================================================================
if nbAdd > 0 then
atomsAutoloadSave(autoloaded,section);
end
endfunction
|
