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

sript updates added edit scripts

Browse source
This commit is contained in:
David Botton 2024-09-08 12:43:36 -04:00
parent 519300f185
commit 8f7ae3b507
9 changed files with 17 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

15
OCICL.md vendored
View file

@ -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
=============

1
templates/common/edit-ocicl.bat.lt vendored Normal file
View file

@ -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)"

1
templates/common/edit-ocicl.lt vendored Normal file
View file

@ -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)"

1
templates/common/edit-ql.bat.lt vendored Normal file
View file

@ -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)"

1
templates/common/edit-ql.lt vendored Normal file
View file

@ -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)"

2
templates/common/run-ocicl.bat.lt vendored
View file

@ -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)"
sbcl --userinit init --eval "(setf asdf:*compile-file-failure-behaviour* :warn)" --eval "(asdf:load-system :<%= (@ sys-name) %>)" --eval "(<%= (@ sys-name) %>:start-app)"

2
templates/common/run-ocicl.lt vendored
View file

@ -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)"
sbcl --userinit init --eval "(setf asdf:*compile-file-failure-behaviour* :warn)" --eval "(asdf:load-system :<%= (@ sys-name) %>)" --eval "(<%= (@ sys-name) %>:start-app)"

2
templates/common/run-ql.bat.lt vendored
View file

@ -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)"
sbcl --eval "(pushnew (uiop:getcwd) ql:*local-project-directories* :test #'equalp)" --eval "(ql:quickload :<%= (@ sys-name) %>)" --eval "(<%= (@ sys-name) %>:start-app)"

2
templates/common/run-ql.lt vendored
View file

@ -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)"
sbcl --eval "(pushnew (uiop:getcwd) ql:*local-project-directories* :test #'equalp)" --eval "(ql:quickload :<%= (@ sys-name) %>)" --eval "(<%= (@ sys-name) %>:start-app)"