Mercurial > octave-nkf

changeset 8438:ed746d578a48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improve delete
author Jaroslav Hajek <highegg@gmail.com>
date Sun, 28 Dec 2008 06:34:38 +0100
parents f00578b495e9
children a6b4d8fdbea1
files scripts/ChangeLog scripts/miscellaneous/delete.m
diffstat 2 files changed, 16 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Sat Dec 27 17:01:52 2008 +0100
+++ b/scripts/ChangeLog	Sun Dec 28 06:34:38 2008 +0100
@@ -1,3 +1,8 @@
+2008-12-28  Jaroslav Hajek <highegg@gmail.com>
+
+	* miscellaneous/delete.m: Allow filename globs. Display warnings if
+	operation fails.
+
 2008-12-26  Francesco Potortì  <pot@gnu.org>
 
 	* general/prepad.m: Add reference to postpad.
--- a/scripts/miscellaneous/delete.m	Sat Dec 27 17:01:52 2008 +0100
+++ b/scripts/miscellaneous/delete.m	Sun Dec 28 06:34:38 2008 +0100
@@ -30,7 +30,17 @@
 
   if (nargin == 1)
     if (ischar (arg))
-      unlink (arg);
+      files = glob (arg).';
+      if (isempty (files))
+        warning ("delete: no such file: %s", arg);
+      endif
+      for i = 1:length (files)
+        file = files{i};
+        [err, msg] = unlink (file);
+        if (err)
+          warning ("delete: %s: %s", file, msg);
+        endif
+      endfor
     elseif (all (ishandle (arg(:))))
       ## Delete a graphics object.
       __go_delete__ (arg);