67 lines
2.5 KiB
Common Lisp
Executable File
67 lines
2.5 KiB
Common Lisp
Executable File
;; -*-lisp-*-
|
|
|
|
(defpackage #:asteroid-bootstrap
|
|
(:nicknames #:ab)
|
|
(:use #:cl)
|
|
(:export #:*root* #:path))
|
|
|
|
(in-package #:asteroid-bootstrap)
|
|
|
|
(defvar *root* (make-pathname :name NIL :type NIL :defaults *load-pathname*))
|
|
|
|
(defun path (pathname)
|
|
(merge-pathnames pathname *root*))
|
|
|
|
;; we require quicklisp to load our transitive dependencies.
|
|
(load "~/quicklisp/setup.lisp")
|
|
|
|
|
|
;; Build script for creating asteroid executable using save-lisp-and-die
|
|
;; ASDF will automatically find the project via source-registry.conf
|
|
|
|
;; Load RADIANCE first, then handle environment
|
|
(ql:quickload :radiance)
|
|
|
|
(defmethod radiance:environment-directory (environment (kind (eql :configuration)))
|
|
(ab:path (make-pathname :directory `(:relative "config" ,environment))))
|
|
|
|
(defmethod radiance:environment-directory (environment (kind (eql :cache)))
|
|
(ab:path (make-pathname :directory `(:relative "cache" ,environment))))
|
|
|
|
(defmethod radiance:environment-directory (environment (kind (eql :data)))
|
|
(ab:path (make-pathname :directory `(:relative "data" ,environment))))
|
|
|
|
(defmethod radiance:environment-directory (environment (kind (eql :template)))
|
|
(ab:path (make-pathname :directory `(:relative "override" ,environment "template"))))
|
|
|
|
(defmethod radiance:environment-directory (environment (kind (eql :static)))
|
|
(ab:path (make-pathname :directory `(:relative "override" ,environment "static"))))
|
|
|
|
;; Ensure RADIANCE environment is set before loading
|
|
(unless (radiance:environment)
|
|
(setf (radiance:environment) "asteroid"))
|
|
|
|
;; Load the system with RADIANCE environment handling
|
|
(handler-bind ((radiance-core:environment-not-set
|
|
(lambda (c)
|
|
(declare (ignore c))
|
|
(invoke-restart 'continue))))
|
|
(ql:quickload :asteroid))
|
|
|
|
(log:info "~2&:configuration - ~A~%:cache - ~A~%:data - ~A~%:template - ~A~%:static - ~A~2%"
|
|
(radiance:environment-directory (radiance-core:environment) :configuration)
|
|
(radiance:environment-directory (radiance-core:environment) :cache)
|
|
(radiance:environment-directory (radiance-core:environment) :data)
|
|
(radiance:environment-directory (radiance-core:environment) :template)
|
|
(radiance:environment-directory (radiance-core:environment) :static))
|
|
|
|
;; Define the main function for the executable
|
|
(defun main ()
|
|
(asteroid:-main))
|
|
|
|
;; Save the executable
|
|
(sb-ext:save-lisp-and-die "asteroid"
|
|
:toplevel #'main
|
|
:executable t
|
|
:compression 22)
|