diff src/oct-stream.cc @ 6054:769b203ede37

[project @ 2006-10-16 17:53:53 by jwe]
author jwe
date Mon, 16 Oct 2006 17:53:53 +0000
parents 39cbf6a484bb
children c68896f193e3
line wrap: on
line diff
--- a/src/oct-stream.cc
+++ b/src/oct-stream.cc
@@ -4045,10 +4045,27 @@
 {
   int retval = -1;
 
-  int i = get_file_number (fid);
-
-  if (! error_state)
-    retval = do_remove (i, who);
+  if (fid.is_string () && fid.string_value () == "all")
+    {
+      // Skip stdin, stdout, and stderr.
+
+      for (int i = 3; i < curr_len; i++)
+	{
+	  octave_stream os = list(i);
+
+	  if (os.is_valid ())
+	    do_remove (i, who);
+	}
+
+      retval = 0;
+    }
+  else
+    {
+      int i = get_file_number (fid);
+
+      if (! error_state)
+	retval = do_remove (i, who);
+    }
 
   return retval;
 }