Streams in Lisp

;;在做图的那部分已经见识过了
;;to see if we have a valid output stream
(output-stream-p *standard-output*) 
;;write a chracter to stream
(write-char #\x *standard-output*)

;;to see if we have a valid stream
(input-stream-p *standard-input*)
;;pop an item off the stream
(read-char *standard-input*)
;123
;\#1
;;reading and printing can be used too
;;;reading and writing with files
(with-open-file (my-stream "data.txt" :direction :output)
  (print "my data" my-stream))
(with-open-file (my-stream "data.txt" :direction :input)
  (read my-stream))
;;;some more complicated examples using print and read
(let ((animal-noises '((dog . woof)
                       (cat . meow))))
  (with-open-file (my-stream "animal-noises.txt" :direction :output)
    (print animal-noises my-stream)))
(with-open-file (my-stream "animal-noises.txt" :direction :input)
  (read my-stream))
;;if exists
(with-open-file (my-stream "data.txt" :direction :output :if-exists :error)
  (print "my data" my-stream)) 
(with-open-file (my-stream "data.txt" :direction :output :if-exists :supersede)
  (print "my data" my-stream))
;;stream over a socket
(defparameter my-socket (socket-server 4321)) ;ON THE SERVER
(defparameter my-stream (socket-accept my-socket)) ;ON THE SERVER
;;It's a bidirectional stream
;;princ may cause strange things
(print "Yo Server!" my-stream) ;ON THE CLIENT
(read my-stream) ;ON THE SERVER
(print "What up, Client!" my-stream) ;ON THE SERVER
(read my-stream) ;ON THE CLIENT
;;tidying up after ourselves
(close my-stream) ;ON BOTH
(socket-server-close my-socket) ;ON THE SERVER
;;;String Streams: The Oddball Type
;;;They are useful for debugging, 
;;;as well as for creating complex strings efficiently.
(defparameter foo (make-string-output-stream))
(princ "This will go into foo. " foo)
(princ "This will also go into foo. " foo)
(get-output-stream-string foo)
;;with-output-to-string
(with-output-to-string (*standard-output*)
  (princ "the sum of ")
  (princ 5)
  (princ " and ")
  (princ 2)
  (princ " is ")
  (princ (+ 2 5)))