# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1285055462 14400
# Node ID ffe58182db893fe1b1a8dcd1d7681c03ff69f586
# Parent  aca961a3f387c74d077c6114fa2c171480007e42
src/oct-stream.h (octave_base_stream::file_number): return 0, 1, and 2 for stdin, stdout, and stderr, -1 otherwise

diff -r aca961a3f387 -r ffe58182db89 src/ChangeLog
--- a/src/ChangeLog	Tue Sep 21 03:35:46 2010 -0400
+++ b/src/ChangeLog	Tue Sep 21 03:51:02 2010 -0400
@@ -1,3 +1,8 @@
+2010-09-21  John W. Eaton  <jwe@octave.org>
+
+	* oct-stream.h (octave_base_stream::file_number): Return 0, 1,
+	and 2 for named stdin, stdout, and stderr streams; -1 otherwise.
+
 2010-09-21  John W. Eaton  <jwe@octave.org>
 
 	* syscalls.cc (Fgethostname): New function.
diff -r aca961a3f387 -r ffe58182db89 src/oct-stream.h
--- a/src/oct-stream.h	Tue Sep 21 03:35:46 2010 -0400
+++ b/src/oct-stream.h	Tue Sep 21 03:51:02 2010 -0400
@@ -383,7 +383,19 @@
         }
     }
 
-  virtual int file_number (void) const { return -1; }
+  virtual int file_number (void) const
+  {
+    // Kluge alert!
+
+    if (name () == "stdin")
+      return 0;
+    else if (name () == "stdout")
+      return 1;
+    else if (name () == "stderr")
+      return 2;
+    else
+      return -1;
+  }
 
   bool ok (void) const { return ! fail; }