mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

lisp eval working to capture stdio

Browse source
This commit is contained in:
David Botton 2021-02-08 10:32:06 -05:00
parent 777d81f6b6
commit c7de87fa0a
1 changed files with 18 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

26
demos/03-demo.lisp
View file

@ -194,25 +194,35 @@
(html-id (current-win app))
(escape-string (copy-buf app))))))
(defun capture-eval (form)
(let ((result (make-array '(0) :element-type 'base-char
:fill-pointer 0 :adjustable t))
(eval-result))
(with-output-to-string (stream result)
(let ((*standard-output* stream)
(*error-output* stream))
(setf eval-result (eval (read-from-string form)))))
(format nil "~A~%=>~A~%" result eval-result)))
(defun do-ide-lisp-eval-buf (obj)
(let* ((app (connection-data-item obj "app-data"))
(form (copy-buf app))
(result (eval (read-from-string form))))
(let* ((app (connection-data-item obj "app-data"))
(form-string (copy-buf app))
(result (capture-eval form-string)))
(do-ide-file-new obj)
(js-execute obj (format nil "editor_~A.setValue('~A')"
(html-id (current-win app))
(escape-string result)))))
(defun do-ide-lisp-eval-file (obj)
(let* ((app (connection-data-item obj "app-data"))
(form (js-query obj (format nil "editor_~A.getValue()"
(html-id (current-win app)))))
(result (eval (read-from-string form))))
(let* ((app (connection-data-item obj "app-data"))
(form-string (js-query obj (format nil "editor_~A.getValue()"
(html-id (current-win app)))))
(result (capture-eval form-string)))
(do-ide-file-new obj)
(js-execute obj (format nil "editor_~A.setValue('~A')"
(html-id (current-win app))
(escape-string result)))))
(defun on-new-window (body)
(let ((app (make-instance 'app-data)))
(setf (connection-data-item body "app-data") app)