3 ;;; This code is in the public domain.
5 ;;; The cmucl implementation of simple-streams was done by Paul Foley,
6 ;;; who placed the code in the public domain. Sbcl port by Rudi
10 (defpackage sb-simple-streams
12 (:import-from
#:sb-kernel
#:ansi-stream
#:charpos
#:line-length
)
13 (:import-from
#:sb-gray
#:fundamental-stream
)
14 (:import-from
#:sb-impl
15 #:in-stream-from-designator
#:out-stream-from-designator
)
17 ;; FIXME: Using deffoo! or equivalent might be nicer.
18 (:implement
#:common-lisp
#:sb-kernel
#:sb-int
)
19 (:export
;; Stream classes
23 #:SINGLE-CHANNEL-SIMPLE-STREAM
24 #:DIRECT-SIMPLE-STREAM
25 #:BUFFER-INPUT-SIMPLE-STREAM
26 #:BUFFER-OUTPUT-SIMPLE-STREAM
29 #:MAPPED-FILE-SIMPLE-STREAM
30 #:DUAL-CHANNEL-SIMPLE-STREAM
31 #:TERMINAL-SIMPLE-STREAM
32 #:SOCKET-SIMPLE-STREAM
33 #:SOCKET-BASE-SIMPLE-STREAM
34 #:HIPER-SOCKET-SIMPLE-STREAM
35 #:STRING-SIMPLE-STREAM
37 #:STRING-INPUT-SIMPLE-STREAM
38 #:STRING-OUTPUT-SIMPLE-STREAM
39 #:FILL-POINTER-OUTPUT-SIMPLE-STREAM
40 #:LIMITED-STRING-OUTPUT-SIMPLE-STREAM
42 #:ANNOTATION-OUTPUT-SIMPLE-STREAM
44 #:*STANDARD-INPUT
* #:*STANDARD-OUTPUT
* #:*ERROR-OUTPUT
*
45 #:*QUERY-IO
* #:*DEBUG-IO
* #:*TRACE-OUTPUT
* #:*TERMINAL-IO
*
47 #:STREAM-INPUT-HANDLE
#:STREAM-OUTPUT-HANDLE
49 ;; Device-level functions
50 #:DEVICE-OPEN
#:DEVICE-CLOSE
#:DEVICE-BUFFER-LENGTH
51 #:DEVICE-FILE-POSITION
#:DEVICE-FILE-LENGTH
#:DEVICE-READ
52 #:DEVICE-CLEAR-INPUT
#:DEVICE-WRITE
#:DEVICE-CLEAR-OUTPUT
53 #:DEVICE-EXTEND
#:DEVICE-FINISH-RECORD
54 ;; Implementation functions/macros
55 #:WITH-STREAM-CLASS
#:SM
#:FUNCALL-STM-HANDLER
56 #:FUNCALL-STM-HANDLER-2
#:ADD-STREAM-INSTANCE-FLAGS
57 #:REMOVE-STREAM-INSTANCE-FLAGS
58 ;; User-level functions (mostly reexported from COMMON-LISP)
59 #:PARSE-FILESPEC
#:DEFINE-FILESPEC
#:DEFAULT-OPEN-CLASS
#:OPEN
60 #:CLOSE
#:READ-BYTE
#:READ-CHAR
#:READ-CHAR-NO-HANG
#:UNREAD-CHAR
61 #:PEEK-CHAR
#:LISTEN
#:READ-LINE
#:READ-SEQUENCE
#:CLEAR-INPUT
62 #:WRITE-BYTE
#:WRITE-CHAR
#:WRITE-STRING
#:WRITE-SEQUENCE
#:TERPRI
63 #:FRESH-LINE
#:FINISH-OUTPUT
#:FORCE-OUTPUT
#:CLEAR-OUTPUT
64 #:FILE-POSITION
#:FILE-LENGTH
#:LINE-LENGTH
#:CHARPOS
65 #:STREAM-ELEMENT-TYPE
#:STREAM-EXTERNAL-FORMAT
#:STREAMP
66 #:OPEN-STREAM-P
#:INPUT-STREAM-P
#:OUTPUT-STREAM-P
67 #:INTERACTIVE-STREAM-P
#:READ-VECTOR
#:WRITE-VECTOR
#:READ-OCTETS
68 #:WRITE-OCTETS
#:DEF-STREAM-CLASS
#:WAIT-FOR-INPUT-AVAILABLE
69 ;; higher level things (reexported from COMMON-LISP)
70 #:WITH-OPEN-FILE
#:WITH-OPEN-STREAM
#:FORMAT
#:PPRINT
#:PRIN1
71 #:PRIN1-TO-STRING
#:PRINC
#:PRINC-TO-STRING
#:PRINT
#:READ
72 #:READ-DELIMITED-LIST
#:READ-FROM-STRING
#:WRITE
#:WRITE-LINE
73 #:WRITE-TO-STRING
#:READ-PRESERVING-WHITESPACE
))
77 (defgeneric stream-file-position
(stream &optional position
))
78 (defgeneric stream-file-length
(stream))
79 (export '(stream-file-position stream-file-length
))