3 ;; copyright (C) 2012, 2013 David Vazquez
4 ;; Copyright (C) 2012 Raimon Grau
6 ;; JSCL is free software: you can redistribute it and/or
7 ;; modify it under the terms of the GNU General Public License as
8 ;; published by the Free Software Foundation, either version 3 of the
9 ;; License, or (at your option) any later version.
11 ;; JSCL is distributed in the hope that it will be useful, but
12 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 ;; General Public License for more details.
16 ;; You should have received a copy of the GNU General Public License
17 ;; along with JSCL. If not, see <http://www.gnu.org/licenses/>.
19 ;;; TODO: Use structures to represent streams, but we would need
22 (defvar *standard-output*
24 (lambda (ch) (%write-string (string ch)))
25 (lambda (string) (%write-string string))))
28 (and (vectorp x) (eq (aref x 0) 'stream)))
30 (defun write-char (char &optional (stream *standard-output*))
31 (funcall (aref stream 1) char))
33 (defun write-string (string &optional (stream *standard-output*))
34 (funcall (aref stream 2) string))
37 (defun make-string-output-stream ()
38 (let ((buffer (make-string 0)))
42 (vector-push-extend ch buffer))
44 (dotimes (i (length string))
45 (vector-push-extend (aref string i) buffer)))
49 (defun get-output-stream-string (stream)
50 (eq (aref stream 3) 'string-stream)
51 (prog1 (aref stream 4)
52 (aset stream 4 (make-string 0))))
54 (defmacro with-output-to-string ((var) &body body)
55 `(let ((,var (make-string-output-stream)))
57 (get-output-stream-string ,var)))