src/code/lisp-stream.lisp

   1 ;;;; the abstract class LISP-STREAM
   2
   3 ;;;; This software is part of the SBCL system. See the README file for
   4 ;;;; more information.
   5 ;;;;
   6 ;;;; This software is derived from the CMU CL system, which was
   7 ;;;; written at Carnegie Mellon University and released into the
   8 ;;;; public domain. The software is in the public domain and is
   9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
  10 ;;;; files for more information.
  11
  12 (in-package "SB!IMPL")
  13
  14 ;;; the size of a stream in-buffer
  15 ;;;
  16 ;;; KLUDGE: The EVAL-WHEN wrapper isn't needed except when using CMU
  17 ;;; CL as a cross-compilation host. Without it, cmucl-2.4.19 issues
  18 ;;; full WARNINGs (not just STYLE-WARNINGs!) when processing this
  19 ;;; file, and when processing other files which use LISP-STREAM.
  20 ;;; -- WHN 2000-12-13
  21 (eval-when (:compile-toplevel :load-toplevel :execute)
  22   (defconstant +in-buffer-length+ 512))
  23
  24 (deftype in-buffer-type ()
  25   `(simple-array (unsigned-byte 8) (,+in-buffer-length+)))
  26
  27 ;;; base class for ANSI standard streams (as opposed to the Gray streams
  28 ;;; extension)
  29 (defstruct (lisp-stream (:constructor nil)
  30                         (:copier nil))
  31   ;; buffered input
  32   (in-buffer nil :type (or in-buffer-type null))
  33   (in-index +in-buffer-length+ :type index)     ; index into IN-BUFFER
  34   (in #'ill-in :type function)                  ; READ-CHAR function
  35   (bin #'ill-bin :type function)                ; byte input function
  36   (n-bin #'ill-bin :type function)              ; n-byte input function
  37   (out #'ill-out :type function)                ; WRITE-CHAR function
  38   (bout #'ill-bout :type function)              ; byte output function
  39   (sout #'ill-out :type function)               ; string output function
  40   (misc #'do-nothing :type function))           ; less-used methods
  41 (def!method print-object ((x lisp-stream) stream)
  42   (print-unreadable-object (x stream :type t :identity t)))