Changeset 4124

Timestamp:

09/29/03 14:23:52 (19 years ago)

Author:

piso

Message:

checkBinaryInputStream(), checkBinaryOutputStream()

File:

• trunk/j/src/org/armedbear/lisp/Lisp.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Lisp.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Lisp.java,v 1.156 2003-09-28 20:13:26 piso Exp $
+ * $Id: Lisp.java,v 1.157 2003-09-29 14:23:52 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -790 +790 @@
                 return (CharacterOutputStream) out;
         }
-        throw new ConditionThrowable(new TypeError(obj, "output stream"));
+        throw new ConditionThrowable(new TypeError(obj, "character output stream"));
+    }
+
+    public static final BinaryInputStream checkBinaryInputStream(LispObject obj)
+        throws ConditionThrowable
+    {
+        if (obj == null)
+            throw new NullPointerException();
+        if (obj instanceof BinaryInputStream)
+            return (BinaryInputStream) obj;
+        if (obj instanceof TwoWayStream) {
+            LispInputStream in = ((TwoWayStream)obj).getInputStream();
+            if (in instanceof BinaryInputStream)
+                return (BinaryInputStream) in;
+        }
+        throw new ConditionThrowable(new TypeError(obj, "binary input stream"));
+    }
+
+    public static final BinaryOutputStream checkBinaryOutputStream(LispObject obj)
+        throws ConditionThrowable
+    {
+        if (obj == null)
+            throw new NullPointerException();
+        if (obj instanceof BinaryOutputStream)
+            return (BinaryOutputStream) obj;
+        if (obj instanceof TwoWayStream) {
+            LispOutputStream out = ((TwoWayStream)obj).getOutputStream();
+            if (out instanceof BinaryOutputStream)
+                return (BinaryOutputStream) out;
+        }
+        throw new ConditionThrowable(new TypeError(obj, "binary output stream"));
     }