build-app.lisp

;;;; build-app.lisp
;;;;
;;;; This file is loaded by the Makefile to produce a qvm[.exe] binary.
;;;;

(unless *load-truename*
  (error "This file is meant to be loaded."))

(pushnew :hunchentoot-no-ssl *features*)
#+forest-sdk (pushnew :drakma-no-ssl *features*)

(require 'asdf)

(let ((*default-pathname-defaults* (make-pathname :type nil
                                                  :name nil
                                                  :defaults *load-truename*))
      (output-file (make-pathname :name "qvm"
                                  :type #+win32 "exe" #-win32 nil))
      (system-table (make-hash-table :test 'equal))
      (toplevel (lambda ()
                  (with-simple-restart (abort "Abort")
                    (funcall (read-from-string "qvm-app::%main")
                             sb-ext:*posix-argv*)))))
  (labels ((load-systems-table ()
             (unless (probe-file "system-index.txt")
               (error "Generate system-index.txt with 'make system-index.txt' first."))
             (setf (gethash "qvm-app" system-table) (merge-pathnames "qvm-app.asd"))
             (with-open-file (stream "system-index.txt")
               (loop
                 :for system-file := (read-line stream nil)
                 :while system-file
                 :do (setf (gethash (pathname-name system-file) system-table)
                           (merge-pathnames system-file)))))
           (local-system-search (name)
             (values (gethash name system-table))))
    (load-systems-table)
    (push #'local-system-search asdf:*system-definition-search-functions*)
    (asdf:load-system "qvm-app")
    (load "app/src/build-configuration.lisp")
    (funcall (read-from-string "qvm-app::setup-debugger"))
    (when (find "--qvm-sdk" sb-ext:*posix-argv* :test 'string=)
      (load "app/src/mangle-shared-objects.lisp"))
    (sb-ext:save-lisp-and-die output-file
                              :compression #+sb-core-compression t
                                           #-sb-core-compression nil
                              :save-runtime-options t
                              :executable t
                              :toplevel toplevel)))