[flexi-streams-cvs] r11 - branches/hans

[hhubner at common-lisp.net]

Author: hhubner
Date: Tue May  6 09:27:01 2008
New Revision: 11

Modified:
   branches/hans/input.lisp
Log:
Update docstring


Modified: branches/hans/input.lisp
==============================================================================
--- branches/hans/input.lisp	(original)
+++ branches/hans/input.lisp	Tue May  6 09:27:01 2008
@@ -274,16 +274,16 @@
 
 (defmacro define-char-reader ((stream-var stream-class) &body body)
   "Helper macro to define methods for STREAM-READ-CHAR and
-BUFFER-READ-CHAR.  Defines a method for the class STREAM-CLASS using
+OCTETS-TO-STRING%.  Defines a method for the class STREAM-CLASS using
 the variable STREAM-VAR and the code body BODY wrapped with some
 standard code common to all methods defined here.  The return value of
 BODY is a character code.  In case of encoding problems, BODY must
 return the value returned by \(RECOVER-FROM-ENCODING-ERROR ...).  In
-addition, a method on BUFFER-READ-CHAR is defined with the first
-argument being the buffer, the second argument a STREAM-CLASS instance
-used only for dispatching.  The BUFFER-READ-CHAR generic function is
-used to shortcut through the streams mechanic from the
-OCTETS-TO-STRING function."
+addition, a method on OCTETS-TO-STRING% is defined with the first
+argument being the STREAM-CLASS (which is used only for dispatching),
+the second argument being the vector of octets to convert and the
+BEGIN and END keyword arguments which can be used to limit the
+conversion to a subsequence of the octet vector."
   (with-unique-names (char-code body-fn octets-var)
     (let ((body body))
       `(progn
@@ -655,15 +655,4 @@
                     (t (= octet peek-type)))
         finally (unless (eql octet eof-value)
                   (unread-byte octet flexi-input-stream))
-                (return octet)))
-
-(defun test-buffer-code-char ()
-  (let* ((vector (make-array 2 :element-type '(unsigned-byte 8) :initial-element (char-code #\F)))
-         (buffer (make-to-string-conversion-buffer :vector vector
-                                                   :position 0
-                                                   :end 2
-                                                   :eol-style :nl))
-         (dummy-stream (make-flexi-stream (make-string-input-stream "") :external-format (make-external-format :ascii))))
-    (dotimes (i 1000000)
-      (null (buffer-read-char buffer dummy-stream))
-      (setf (tscb-position buffer) 0))))
\ No newline at end of file
+                (return octet)))
\ No newline at end of file