40 lines
1.2 KiB
Common Lisp
40 lines
1.2 KiB
Common Lisp
|
;;; swank-buffer-streams.lisp --- Streams that output to a buffer
|
||
|
|
;;;
|
||
|
|
;;; Authors: Ed Langley <el-github@elangley.org>
|
||
|
|
;;;
|
||
|
|
;;; License: This code has been placed in the Public Domain. All warranties
|
||
|
|
;;; are disclaimed.
|
||
|
|
|
||
|
|
(in-package :swank)
|
||
|
|
|
||
|
|
(defpackage :swank-buffer-streams
|
||
|
|
(:use :cl)
|
||
|
|
(:import-from :swank
|
||
|
|
defslimefun
|
||
|
|
add-hook
|
||
|
|
encode-message
|
||
|
|
send-event
|
||
|
|
find-thread
|
||
|
|
dcase
|
||
|
|
current-socket-io
|
||
|
|
send-to-emacs
|
||
|
|
current-thread-id
|
||
|
|
wait-for-event
|
||
|
|
|
||
|
|
*emacs-connection*
|
||
|
|
*event-hook*)
|
||
|
|
(:export make-buffer-output-stream))
|
||
|
|
|
||
|
|
(in-package :swank-buffer-streams)
|
||
|
|
|
||
|
|
(defun get-temporary-identifier ()
|
||
|
|
(intern (symbol-name (gensym "BUFFER"))
|
||
|
|
:keyword))
|
||
|
|
|
||
|
|
(defun make-buffer-output-stream (&optional (target-identifier (get-temporary-identifier)))
|
||
|
|
(swank:ed-rpc '#:slime-make-buffer-stream-target (current-thread-id) target-identifier)
|
||
|
|
(values (swank:make-output-stream-for-target *emacs-connection* target-identifier)
|
||
|
|
target-identifier))
|
||
|
|
|
||
|
|
(provide :swank-buffer-streams)
|