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
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2006-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
//
// 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 del_help_chapter(help_to_del,modulemode)
// =========================================================================
// Author : Pierre MARECHAL
// Scilab team
// Copyright INRIA
// Date : August 1st 2006
//
// del_help_chapter(title,modulemode)
//
// Parameters
//
// title : a character string :
// - the help chapter title or
// - the module name
//
// Description
//
// This function deletes a entry in the helps list.
// =========================================================================
global %helps;
global %helps_modules;
// Check input arguments
// -------------------------------------------------------------------------
[lhs,rhs] = argn(0);
if (rhs<1) | (rhs>2) then error(39); end
if (rhs == 1) then modulemode=%F; end
if type(help_to_del) <> 10 then error(55,1); end
// Is the first parameter a module name ?
// -------------------------------------------------------------------------
is_module_name = %F;
module_list = getmodules();
is_module_name = find(module_list == help_to_del) <> []
// If yes, add the path
// -------------------------------------------------------------------------
if is_module_name then
help_to_del = pathconvert(SCI+"/modules/"+help_to_del+"/help/"+getlanguage(),%F,%F);
end
// Now, check if help_to_del is present in the %helps_modules matrix
// -------------------------------------------------------------------------
if modulemode then
k1 = find( %helps_modules(:,2) == help_to_del);
if k1 <> [] then
%helps_modules(k1,:) = [];
end
else
k1 = find( %helps(:,2) == help_to_del);
if k1 <> [] then
%helps(k1,:) = [];
end
end
if strindex(stripblanks(help_to_del),"(*)") == (length(stripblanks(help_to_del)) - 2) then
help_to_del = strsubst(help_to_del,"(*)","");
help_to_del = stripblanks(help_to_del);
for i=1:100
if modulemode then
k2 = find( %helps_modules(:,2) == help_to_del+' ('+string(i)+')' );
if k2 <> [] then
%helps_modules(k2,:) = [];
end
else
k2 = find( %helps(:,2) == help_to_del+' ('+string(i)+')' );
if k2 <> [] then
%helps(k2,:) = [];
end
end
end
end
endfunction
|
