Changeset 14820

Timestamp:

Jun 10, 2011, 4:02:40 PM (13 years ago)

Author:

gz

Message:

Add a couple stream-length methods

File:

• trunk/source/level-1/l1-streams.lisp (modified) (2 diffs)

trunk/source/level-1/l1-streams.lisp

@@ -4718 +4718 @@
   
   
+(defmethod stream-length ((s string-input-stream) &optional new)
+  (unless new
+    (let ((ioblock (basic-stream-ioblock s)))
+      (%i- (string-input-stream-ioblock-end ioblock)
+           (string-input-stream-ioblock-start ioblock)))))
+
 (defmethod stream-eofp ((s string-input-stream))
   (let* ((ioblock (basic-stream-ioblock s))
@@ -6593 +6599 @@
       (the fixnum (- (the fixnum (io-buffer-idx inbuf)) origin)))))
 
+(defmethod stream-length ((s vector-input-stream) &optional new)
+  (unless new
+    (let ((ioblock (basic-stream-ioblock s)))
+      (%i- (io-buffer-limit (ioblock-inbuf ioblock))
+           (vector-stream-ioblock-displacement ioblock)))))
+
+
 ; end of L1-streams.lisp