src/pcl/gray-streams-class.lisp

   1 ;;;; class definitions for the SBCL Gray streams implementation, based on the
   2 ;;;; CMU CL Gray streams implementation, based on the stream-definition-by-user
   3 ;;;; proposal by David N. Gray
   4
   5 ;;;; This software is part of the SBCL system. See the README file for
   6 ;;;; more information.
   7
   8 ;;;; This software is in the public domain and is provided with absolutely no
   9 ;;;; warranty. See the COPYING and CREDITS files for more information.
  10
  11 (in-package "SB-GRAY")
  12 \f
  13 (defclass fundamental-stream (standard-object stream)
  14   ((open-p :initform t :accessor stream-open-p))
  15   #+sb-doc
  16   (:documentation "Base class for all Gray streams."))
  17
  18 ;;; Define the stream classes.
  19 (defclass fundamental-input-stream (fundamental-stream) nil
  20   #+sb-doc
  21   (:documentation "Superclass of all Gray input streams."))
  22
  23 (defclass fundamental-output-stream (fundamental-stream) nil
  24   #+sb-doc
  25   (:documentation "Superclass of all Gray output streams."))
  26
  27 (defclass fundamental-character-stream (fundamental-stream) nil
  28   #+sb-doc
  29   (:documentation
  30    "Superclass of all Gray streams whose element-type is a subtype of character."))
  31
  32 (defclass fundamental-binary-stream (fundamental-stream) nil
  33   #+sb-doc
  34   (:documentation "Superclass of all Gray streams whose element-type
  35 is a subtype of unsigned-byte or signed-byte."))
  36
  37 (defclass fundamental-character-input-stream
  38     (fundamental-input-stream fundamental-character-stream) nil
  39   #+sb-doc
  40   (:documentation "Superclass of all Gray input streams whose element-type
  41 is a subtype of character."))
  42
  43 (defclass fundamental-character-output-stream
  44     (fundamental-output-stream fundamental-character-stream) nil
  45   #+sb-doc
  46   (:documentation "Superclass of all Gray output streams whose element-type
  47 is a subtype of character."))
  48
  49 (defclass fundamental-binary-input-stream
  50     (fundamental-input-stream fundamental-binary-stream) nil
  51   #+sb-doc
  52   (:documentation "Superclass of all Gray input streams whose element-type
  53 is a subtype of unsigned-byte or signed-byte."))
  54
  55 (defclass fundamental-binary-output-stream
  56     (fundamental-output-stream fundamental-binary-stream) nil
  57   #+sb-doc
  58   (:documentation "Superclass of all Gray output streams whose element-type
  59 is a subtype of unsigned-byte or signed-byte."))
  60 \f
  61 ;;; This is not in the Gray stream proposal, so it is left here
  62 ;;; as example code.
  63 ;;;
  64 ;;; example character input and output streams
  65 #|
  66 (defclass character-output-stream (fundamental-character-output-stream)
  67   ((lisp-stream :initarg :lisp-stream
  68                 :accessor character-output-stream-lisp-stream)))
  69
  70 (defclass character-input-stream (fundamental-character-input-stream)
  71   ((lisp-stream :initarg :lisp-stream
  72                 :accessor character-input-stream-lisp-stream)))
  73 |#