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
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) INRIA
// Copyright (C) DIGITEO - 2009 - Allan CORNET
//
// 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-en.txt
//===========================================================
function [y] = toolboxes(path,flag,force)
// INTERNAL macro should NOT used by users
// toolboxes loading
// path is a directory to explore for contribs
// flag & force removed never managed
//===========================================================
global %toolboxes
global %toolboxes_dir
//===========================================================
[lhs,rhs] = argn(0)
y = [];
if (rhs == 1) & typeof(path)=="constant" then
// return string to exec
y = 'exec(""" + %toolboxes_dir + %toolboxes(path) + filesep() + "loader.sce" + """);';
return
end
if rhs == 0 then
path = SCI + filesep() + 'contrib';
end
if rhs > 1 then
// Remove flag & force input arguments
warnobsolete("toolboxes", "5.3")
end
cur_wd = pwd();
chdir(path);
files = listfiles('.');
contribs = [];
for k = 1:size(files,'*')
if fileinfo(files(k)+'/loader.sce') <> [] then
contribs = [contribs ; files(k)];
end
end
if (contribs <> []) & (getscilabmode() == 'STD') then
delmenu(gettext("&Toolboxes"));
h = uimenu("parent", 0, "label", gettext("&Toolboxes"));
for k=1:size(contribs,'*')
m = uimenu(h,'label', string(contribs(k)), 'callback','execstr(toolboxes('+string(k)+'))');
end
unsetmenu(gettext("&Toolboxes"));
end
%toolboxes = contribs;
%toolboxes_dir = pathconvert(path);
chdir(cur_wd);
endfunction
//===========================================================
|
