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
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2007 - INRIA - 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.1-en.txt
// rmdir remove a directory
function [status,msg]=rmdir(varargin)
lhs=argn(1);
rhs=argn(2);
DirName = "";
status = 0;
msg = "";
SubDirMode = %F;
select rhs
case 0
error(msprintf(gettext("%s: Wrong number of input argument(s).\n"),"rmdir"));
break
case 1
DirName = varargin(1);
break
case 2
DirName = varargin(1) ;
SubDir = convstr(varargin(2),"u");
if (SubDir == "S") then
SubDirMode = %T;
else
error(msprintf(gettext("%s: Wrong value for input argument #%d: Must be ''%s''.\n"),"rmdir",2,"s"));
end
break
else
error(msprintf(gettext("%s: Wrong number of input argument(s).\n"),"rmdir"));
end
if ~SubDirMode then
if findfiles(DirName)<>[] then
status = 0
msg = gettext("Error: The directory is not empty.")
else
[status,msg] = hidden_rmdir(DirName);
end
else
[status,msg] = hidden_rmdir(DirName);
end
endfunction
//------------------------------------------------------------------------
function [status,msg]=hidden_rmdir(DirName)
status = 0;
msg = "";
if isdir(DirName) then
bOK = removedir(DirName);
if bOK then
msg = "";
status = 1;
else
msg = msprintf(gettext("%s: An error occurred: %s\n"),"rmdir", gettext("Undefined"));
status = 0;
end
else
msg = msprintf(gettext("%s: An error occurred: %s\n"),"rmdir", gettext("The system cannot find the file specified."));
status = 0;
end
endfunction
//------------------------------------------------------------------------
|
