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
|
// 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
// Internal function
// Add a package description to a DESCRIPTION struct
// The DESCRIPTION struct looks like that
// DESCRIPTION
// |
// |-- packages
// | |-- toolbox_1 [1x1 struct]
// | | |-- 2.0 [1x1 struct]
// | | | |-- Toolbox: "toolbox_2"
// | | | |-- Title: "Toolbox Test 2"
// | | | |-- Version: "2.0"
// | | | `-- ..
// | | `-- 1.0 [1x1 struct]
// | | | |-- Toolbox: "toolbox_2"
// | | | |-- Title: "Toolbox Test 2"
// | | | |-- Version: "1.0"
// | | | `-- ..
// | |-- module_lycee
// | `-- ..
// |
// |-- categories
// |-- categories_flat
function tree_out = atomsDESCRIPTIONadd( tree_in , package_name , package_version , description )
// Check input parameters number
// =========================================================================
rhs = argn(2);
if rhs <> 4 then
error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"),"atomsDESCRIPTIONadd",4));
end
// Check input parameters type
// =========================================================================
if type(tree_in) <> 17 then
error(msprintf(gettext("%s: Wrong type for input argument #%d: Struct expected.\n"),"atomsDESCRIPTIONadd",1));
end
if type(package_name) <> 10 then
error(msprintf(gettext("%s: Wrong type for input argument #%d: Single string expected.\n"),"atomsDESCRIPTIONadd",2));
end
if type(package_version) <> 10 then
error(msprintf(gettext("%s: Wrong type for input argument #%d: Single string expected.\n"),"atomsDESCRIPTIONadd",3));
end
if type(description) <> 17 then
error(msprintf(gettext("%s: Wrong type for input argument #%d: Struct expected.\n"),"atomsDESCRIPTIONadd",4));
end
// Check input parameters size
// =========================================================================
if size(package_name,"*") <> 1 then
error(msprintf(gettext("%s: Wrong size for input argument #%d: Single string expected.\n"),"atomsDESCRIPTIONadd",2));
end
if size(package_version,"*") <> 1 then
error(msprintf(gettext("%s: Wrong size for input argument #%d: Single string expected.\n"),"atomsDESCRIPTIONadd",3));
end
// And now ... action
// =========================================================================
tree_out = tree_in;
if isfield(tree_out,"packages") then
packages_out = tree_out("packages");
else
packages_out = struct();
end
if isfield(packages_out,package_name) then
package_name_struct = packages_out(package_name);
else
package_name_struct = struct();
end
package_name_struct(package_version) = description;
packages_out(package_name) = package_name_struct;
tree_out("packages") = packages_out;
endfunction
|
