Mercurial > hg > octave-jordi
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; }