From 8f7ae3b507caa6e656515910c09c0d7785c4ce2a Mon Sep 17 00:00:00 2001 From: David Botton Date: Sun, 8 Sep 2024 12:43:36 -0400 Subject: [PATCH] sript updates added edit scripts --- OCICL.md | 15 +++++++++------ templates/common/edit-ocicl.bat.lt | 1 + templates/common/edit-ocicl.lt | 1 + templates/common/edit-ql.bat.lt | 1 + templates/common/edit-ql.lt | 1 + templates/common/run-ocicl.bat.lt | 2 +- templates/common/run-ocicl.lt | 2 +- templates/common/run-ql.bat.lt | 2 +- templates/common/run-ql.lt | 2 +- 9 files changed, 17 insertions(+), 10 deletions(-) create mode 100644 templates/common/edit-ocicl.bat.lt create mode 100644 templates/common/edit-ocicl.lt create mode 100644 templates/common/edit-ql.bat.lt create mode 100644 templates/common/edit-ql.lt diff --git a/OCICL.md b/OCICL.md index 8c8abc7..65a0a0d 100644 --- a/OCICL.md +++ b/OCICL.md @@ -23,25 +23,28 @@ Then start to dev with the CLOG Builder: ``` sbcl --userinit init --eval "(asdf:load-system :clog/tools)" --eval "(clog-tools:clog-builder :port 0 :app t)" - -and after first run can use "bash run-ocicl" (or chmod 775 run-oicl to make the batch file executable) ``` +and after first run can use "bash run-ocicl" (or chmod 775 run-oicl to make the batch file executable) + (or replace ecl for sbcl) On Windows: ``` sbcl --userinit init --eval "(setf asdf:*compile-file-failure-behaviour* :warn)" --eval "(asdf:load-system :clog/tools)" --eval "(clog-tools:clog-builder :port 0 :app t)" - +``` and after first run can use "run-ocicl.bat" -``` -Update ocicl *frequenlty* with: + +Update ocicl libraries like CLOG with: ``` -ocicl latest +./updat-ocicl ``` +Only check the systems.cvs file in, on the systems directory. A new check out +can run the setup-ocicl script to load the libraries again. + I N S T A L L ============= diff --git a/templates/common/edit-ocicl.bat.lt b/templates/common/edit-ocicl.bat.lt new file mode 100644 index 0000000..bfb838d --- /dev/null +++ b/templates/common/edit-ocicl.bat.lt @@ -0,0 +1 @@ +sbcl --userinit init --eval "(setf asdf:*compile-file-failure-behaviour* :warn)" --eval "(asdf:load-system :<%= (@ sys-name) %>/tools)" --eval "(clog-tools:clog-builder :port 0 :app t)" \ No newline at end of file diff --git a/templates/common/edit-ocicl.lt b/templates/common/edit-ocicl.lt new file mode 100644 index 0000000..bfb838d --- /dev/null +++ b/templates/common/edit-ocicl.lt @@ -0,0 +1 @@ +sbcl --userinit init --eval "(setf asdf:*compile-file-failure-behaviour* :warn)" --eval "(asdf:load-system :<%= (@ sys-name) %>/tools)" --eval "(clog-tools:clog-builder :port 0 :app t)" \ No newline at end of file diff --git a/templates/common/edit-ql.bat.lt b/templates/common/edit-ql.bat.lt new file mode 100644 index 0000000..fe0277a --- /dev/null +++ b/templates/common/edit-ql.bat.lt @@ -0,0 +1 @@ +sbcl --eval "(pushnew (uiop:getcwd) ql:*local-project-directories* :test #'equalp)" --eval "(ql:quickload :<%= (@ sys-name) %>/tools)" --eval "(clog-tools:clog-builder :project :<%= (@ sys-name) %> :port 0 :app t)" \ No newline at end of file diff --git a/templates/common/edit-ql.lt b/templates/common/edit-ql.lt new file mode 100644 index 0000000..fe0277a --- /dev/null +++ b/templates/common/edit-ql.lt @@ -0,0 +1 @@ +sbcl --eval "(pushnew (uiop:getcwd) ql:*local-project-directories* :test #'equalp)" --eval "(ql:quickload :<%= (@ sys-name) %>/tools)" --eval "(clog-tools:clog-builder :project :<%= (@ sys-name) %> :port 0 :app t)" \ No newline at end of file diff --git a/templates/common/run-ocicl.bat.lt b/templates/common/run-ocicl.bat.lt index bfb838d..35c349a 100644 --- a/templates/common/run-ocicl.bat.lt +++ b/templates/common/run-ocicl.bat.lt @@ -1 +1 @@ -sbcl --userinit init --eval "(setf asdf:*compile-file-failure-behaviour* :warn)" --eval "(asdf:load-system :<%= (@ sys-name) %>/tools)" --eval "(clog-tools:clog-builder :port 0 :app t)" \ No newline at end of file +sbcl --userinit init --eval "(setf asdf:*compile-file-failure-behaviour* :warn)" --eval "(asdf:load-system :<%= (@ sys-name) %>)" --eval "(<%= (@ sys-name) %>:start-app)" \ No newline at end of file diff --git a/templates/common/run-ocicl.lt b/templates/common/run-ocicl.lt index bfb838d..35c349a 100644 --- a/templates/common/run-ocicl.lt +++ b/templates/common/run-ocicl.lt @@ -1 +1 @@ -sbcl --userinit init --eval "(setf asdf:*compile-file-failure-behaviour* :warn)" --eval "(asdf:load-system :<%= (@ sys-name) %>/tools)" --eval "(clog-tools:clog-builder :port 0 :app t)" \ No newline at end of file +sbcl --userinit init --eval "(setf asdf:*compile-file-failure-behaviour* :warn)" --eval "(asdf:load-system :<%= (@ sys-name) %>)" --eval "(<%= (@ sys-name) %>:start-app)" \ No newline at end of file diff --git a/templates/common/run-ql.bat.lt b/templates/common/run-ql.bat.lt index 24ede20..42fa37a 100644 --- a/templates/common/run-ql.bat.lt +++ b/templates/common/run-ql.bat.lt @@ -1 +1 @@ -sbcl --eval "(pushnew (uiop:getcwd) ql:*local-project-directories* :test #'equalp)"--eval "(ql:quickload :<%= (@ sys-name) %>/tools)" --eval "(clog-tools:clog-builder :project :<%= (@ sys-name) %> :port 0 :app t)" \ No newline at end of file +sbcl --eval "(pushnew (uiop:getcwd) ql:*local-project-directories* :test #'equalp)" --eval "(ql:quickload :<%= (@ sys-name) %>)" --eval "(<%= (@ sys-name) %>:start-app)" \ No newline at end of file diff --git a/templates/common/run-ql.lt b/templates/common/run-ql.lt index fe0277a..42fa37a 100644 --- a/templates/common/run-ql.lt +++ b/templates/common/run-ql.lt @@ -1 +1 @@ -sbcl --eval "(pushnew (uiop:getcwd) ql:*local-project-directories* :test #'equalp)" --eval "(ql:quickload :<%= (@ sys-name) %>/tools)" --eval "(clog-tools:clog-builder :project :<%= (@ sys-name) %> :port 0 :app t)" \ No newline at end of file +sbcl --eval "(pushnew (uiop:getcwd) ql:*local-project-directories* :test #'equalp)" --eval "(ql:quickload :<%= (@ sys-name) %>)" --eval "(<%= (@ sys-name) %>:start-app)" \ No newline at end of file