From dc291cb2a6d75af825b9e7d67d7f316ca6239087 Mon Sep 17 00:00:00 2001 From: David Botton Date: Fri, 16 Feb 2024 00:21:11 -0500 Subject: [PATCH] add .bat files for windows --- make-builder.bat | 1 + make-docs | 2 +- make-docs.bat | 1 + run-builder.bat | 1 + tools/clog-builder.lisp | 5 ++--- 5 files changed, 6 insertions(+), 4 deletions(-) create mode 100755 make-builder.bat create mode 100755 make-docs.bat create mode 100755 run-builder.bat diff --git a/make-builder.bat b/make-builder.bat new file mode 100755 index 0000000..b9cdef7 --- /dev/null +++ b/make-builder.bat @@ -0,0 +1 @@ +sbcl --eval "(ql:quickload :clog/tools)" --eval "(sb-ext:save-lisp-and-die #P\"builder.exe\" :toplevel (lambda () (clog-tools:clog-builder :port 0 :app t :start-browser t)(loop (sleep 10))) :executable t :compression t)" diff --git a/make-docs b/make-docs index 5661949..6940b84 100755 --- a/make-docs +++ b/make-docs @@ -1 +1 @@ -sbcl --dynamic-space-size 10240 --eval "(ql:quickload :clog/docs)" --eval "(clog:make-html)" +sbcl --dynamic-space-size 10240 --eval "(ql:quickload :clog/docs)" --eval "(clog:make-html)" --eval "(quit)" diff --git a/make-docs.bat b/make-docs.bat new file mode 100755 index 0000000..6940b84 --- /dev/null +++ b/make-docs.bat @@ -0,0 +1 @@ +sbcl --dynamic-space-size 10240 --eval "(ql:quickload :clog/docs)" --eval "(clog:make-html)" --eval "(quit)" diff --git a/run-builder.bat b/run-builder.bat new file mode 100755 index 0000000..eeea7c9 --- /dev/null +++ b/run-builder.bat @@ -0,0 +1 @@ +sbcl --eval "(ql:quickload :clog/tools)" --eval "(clog-tools:clog-builder :port 0 :app t :start-browser t)" diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index e7bd819..eb340bc 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -115,7 +115,7 @@ (let ((h (gethash panel-id (control-lists app)))) (if h h - (make-hash-table* :test #'equalp)))) + (make-hash-table* :test #'equalp)))) ;; return empty hash to avoid map fails (defun add-to-control-list (app panel-id control) "Add a CONTROL on to control-list on PANEL-ID" @@ -241,7 +241,6 @@ (get-control-list app panel-id)) snap))) - (defun save-panel (fname content panel-id hide-loc) "Save panel to FNAME" (write-file (panel-snap-shot content panel-id hide-loc) fname)) @@ -872,7 +871,7 @@ not a temporarily attached one when using select-control." (with-input-from-string (n result) (let ((*standard-output* s) (*print-case* :downcase)) - (format t ";;;; CLOG Builder generated code - modify original clog file") + (format t ";;;; CLOG Builder generated code - modify original .clog file and rerender") (loop (let ((l (read n nil))) (unless l (return))