68 lines
2.1 KiB
Common Lisp
68 lines
2.1 KiB
Common Lisp
#+linux
|
|
(declaim
|
|
(sb-ext:muffle-conditions cl:warning)
|
|
(sb-ext:muffle-conditions cl:style-warning)
|
|
(sb-ext:muffle-conditions sb-ext:compiler-note))
|
|
|
|
#+linux
|
|
(load #P"/build/build_linux/asdf.lisp")
|
|
|
|
#+linux
|
|
(progn
|
|
(labels ((all-subdirectories (path)
|
|
(let ((subdirs (uiop:subdirectories path)))
|
|
(append subdirs
|
|
(mapcan #'all-subdirectories subdirs)))))
|
|
(setf asdf:*central-registry*
|
|
(list* #p"/build/"
|
|
(all-subdirectories "ocicl"))))
|
|
|
|
(asdf:load-system :lispostory))
|
|
|
|
#+linux
|
|
(lispostory:create-exe-and-die)
|
|
|
|
#+darwin
|
|
(defun split-and-strip (str)
|
|
(mapcar (lambda (s) (string-trim '(#\Newline) s))
|
|
(remove-if (lambda (s) (string-equal "" s)) (uiop:split-string str :separator " "))))
|
|
|
|
#+darwin
|
|
(defun run-shell-program (shell-cmd)
|
|
(let ((cmd (split-and-strip shell-cmd)))
|
|
(multiple-value-bind (output error-output exit-code)
|
|
(uiop:run-program cmd
|
|
:output :string
|
|
:error-output :string
|
|
:ignore-error-status t)
|
|
(format t "Output: ~a~%" output)
|
|
(when (not (string-equal error-output ""))
|
|
(format t "Error: ~a~%" error-output))
|
|
(format t "Exit code: ~a~%" exit-code))))
|
|
|
|
#+darwin
|
|
(defun run-builder ()
|
|
(let* ((shell-cmd "container run --arch amd64
|
|
--volume /Users/grant/programming/projects/lispostory:/build lispostory-builder
|
|
sbcl --load /build/build_linux/build.lisp"))
|
|
(run-shell-program shell-cmd)))
|
|
|
|
#+darwin
|
|
(defun build-builder ()
|
|
(run-shell-program "container build -a amd64 --tag lispostory-builder --file ./linux-builder.Dockerfile ."))
|
|
|
|
#+darwin
|
|
(defun deploy ()
|
|
(run-shell-program "rsync -t /Users/grant/programming/projects/lispostory/lispostory
|
|
hgranthorner.dev:/root/lispostory/lispostory"))
|
|
|
|
#+darwin
|
|
(defun test-deployment ()
|
|
(run-shell-program "ssh hgranthorner.dev ./lispostory/lispostory --version"))
|
|
|
|
(comment
|
|
(build-builder)
|
|
(run-builder)
|
|
(deploy)
|
|
(test-deployment))
|