Changeset 12558

Timestamp:

03/17/10 19:14:27 (13 years ago)

Author:

astalla

Message:

Exposed in/out streams and reader/writers of Stream.

File:

• trunk/abcl/src/org/armedbear/lisp/Stream.java (modified) (4 diffs)

trunk/abcl/src/org/armedbear/lisp/Stream.java

@@ -123 +123 @@
 
     public Stream(Symbol structureClass, InputStream stream) {
-        super(structureClass);
+        this(structureClass);
         initAsBinaryInputStream(stream);
     }
 
     public Stream(Symbol structureClass, Reader r) {
-        super(structureClass);
+        this(structureClass);
         initAsCharacterInputStream(r);
     }
 
     public Stream(Symbol structureClass, OutputStream stream) {
-        super(structureClass);
+        this(structureClass);
         initAsBinaryOutputStream(stream);
     }
 
     public Stream(Symbol structureClass, Writer w) {
-        super(structureClass);
+        this(structureClass);
         initAsCharacterOutputStream(w);
     }
@@ -150 +150 @@
     public Stream(Symbol structureClass, InputStream inputStream,
                   LispObject elementType, LispObject format) {
-        super(structureClass);
+        this(structureClass);
         this.elementType = elementType;
         setExternalFormat(format);
@@ -179 +179 @@
     // Output stream constructors.
     public Stream(Symbol structureClass, OutputStream outputStream, LispObject elementType, LispObject format) {
-        super(structureClass);
+        this(structureClass);
         this.elementType = elementType;
         setExternalFormat(format);
@@ -2558 +2558 @@
         }
     };
+
+    public InputStream getInputStream() {
+  return in;
+    }
+
+    public OutputStream getOutputStream() {
+  return out;
+    }
+
+    public Writer getWriter() {
+  return writer;
+    }
+
+    public PushbackReader getReader() {
+  return reader;
+    }
+
 }