1 files changed, 71 insertions, 0 deletions
diff --git a/modules/fileio/macros/rmdir.sci b/modules/fileio/macros/rmdir.sci
new file mode 100755
index 000000000..8204ab3e8
--- /dev/null
+++ b/modules/fileio/macros/rmdir.sci
@@ -0,0 +1,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
+//------------------------------------------------------------------------