Skip to content
This repository has been archived by the owner on Jun 17, 2023. It is now read-only.

Commit

Permalink
Added delivery scripts
Browse files Browse the repository at this point in the history
  • Loading branch information
fourier committed Apr 19, 2019
1 parent e0dfdfc commit fc7fac5
Show file tree
Hide file tree
Showing 2 changed files with 52 additions and 0 deletions.
3 changes: 3 additions & 0 deletions delivery_win32.bat
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
@echo off
set LW_PATH="C:\Program Files (x86)\LispWorks\lispworks-7-1-0-x86-win32.exe"
%LW_PATH% -build src/delivery-script.lisp
49 changes: 49 additions & 0 deletions src/delivery-script.lisp
Original file line number Diff line number Diff line change
@@ -0,0 +1,49 @@
;;; Automatically generated delivery script

(in-package "CL-USER")

(load-all-patches)

#+MSWINDOWS (load "C:/apps/asdf/asdf.lisp")

;;; The following lines added by ql:add-to-init-file:
#-quicklisp
(let ((quicklisp-init #+:MSWINDOWS "C:/apps/quicklisp/setup.lisp"
#-:MSWINDOWS (merge-pathnames ".quicklisp/setup.lisp"
(user-homedir-pathname))))
(when (probe-file quicklisp-init)
(load quicklisp-init)))

;; add Sources/ directory to quicklisp local directories
;; add Sources/ directory to quicklisp local directories
(push (pathname #+:MSWINDOWS "C:/Sources/lisp" #-:MSWINDOWS "~/Sources/lisp") ql:*local-project-directories*)
(ql:register-local-projects)

;; Extend the stack size to be able to load all dependencies
(hcl:extend-current-stack 400)

;;; Load the application:

(ql:quickload :maze-gen)


;;; Load the exmaple file that defines WRITE-MACOS-APPLICATION-BUNDLE
;;; to create the bundle.
#+cocoa
(compile-file (sys:example-file "configuration/macos-application-bundle.lisp") :load t)

(deliver 'maze-gen::main-ui
#+cocoa
(create-macos-application-bundle
"~/Sources/lisp/maze-gen/Maze Gen.app"
;; Do not copy file associations...
:document-types nil
;; ...or CFBundleIdentifier from the LispWorks bundle
:identifier "com.github.fourier.maze-gen")
#+MSWINDOWS
"C:/Sources/lisp/maze-gen/maze-gen.exe"
4
:interface :capi
;; :keep-symbols '(maze-gen::geometry-settings) ;; why doesn't work ?
:startup-bitmap-file nil)

0 comments on commit fc7fac5

Please sign in to comment.