deeba9b1e4af91c59632eaf1cf901a21d850a4cd
[sbcl.git] / src / code / lisp-stream.lisp
1 ;;;; the STREAM structure
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. cmucl-2.4.19 issues full WARNINGs
18 ;;; (not just STYLE-WARNINGs!) when processing this file, and when
19 ;;; processing other files which use LISP-STREAM. -- WHN 2000-12-13
20 (eval-when (:compile-toplevel :load-toplevel :execute)
21   (defconstant in-buffer-length 512))
22
23 (deftype in-buffer-type ()
24   `(simple-array (unsigned-byte 8) (,in-buffer-length)))
25
26 (defstruct (lisp-stream (:constructor nil))
27   ;; Buffered input.
28   (in-buffer nil :type (or in-buffer-type null))
29   (in-index in-buffer-length :type index)       ; index into IN-BUFFER
30   (in #'ill-in :type function)                  ; READ-CHAR function
31   (bin #'ill-bin :type function)                ; byte input function
32   (n-bin #'ill-bin :type function)              ; n-byte input function
33   (out #'ill-out :type function)                ; WRITE-CHAR function
34   (bout #'ill-bout :type function)              ; byte output function
35   (sout #'ill-out :type function)               ; string output function
36   (misc #'do-nothing :type function))           ; less-used methods
37 (def!method print-object ((x lisp-stream) stream)
38   (print-unreadable-object (x stream :type t :identity t)))