mirror of
https://github.com/dimitri/pgloader.git
synced 2025-08-08 07:16:58 +02:00
6e325f67e0
This should make it easier to build pgloader with CCL rather than SBCL, all from the bundle distribution, and also easier to support windows. In passing, add a new file in the bundle distribution: version.sexp should contain a CL string containing the pgloader version string.
48 lines
1.6 KiB
Common Lisp
48 lines
1.6 KiB
Common Lisp
;;;
|
|
;;; Create a build/bin/pgloader executable from the source code, using
|
|
;;; Quicklisp to load pgloader and its dependencies.
|
|
;;;
|
|
|
|
(in-package #:cl-user)
|
|
|
|
(require :asdf) ; should work in SBCL and CCL
|
|
|
|
(let* ((cwd (uiop:getcwd))
|
|
(bundle.lisp (uiop:merge-pathnames* "bundle.lisp" cwd))
|
|
(version-file (uiop:merge-pathnames* "version.sexp" cwd))
|
|
(version-string (uiop:read-file-form version-file))
|
|
(asdf:*central-registry* (list cwd)))
|
|
|
|
(format t "Loading bundle.lisp~%")
|
|
(load bundle.lisp)
|
|
|
|
(format t "Loading system pgloader ~a~%" version-string)
|
|
(asdf:load-system :pgloader :verbose nil)
|
|
(load (asdf:system-relative-pathname :pgloader "src/hooks.lisp"))
|
|
|
|
(let* ((pgl (find-package "PGLOADER"))
|
|
(version-symbol (find-symbol "*VERSION-STRING*" pgl)))
|
|
(setf (symbol-value version-symbol) version-string)))
|
|
|
|
(defun pgloader-image-main ()
|
|
(let ((argv #+sbcl sb-ext:*posix-argv*
|
|
#+ccl ccl:*command-line-argument-list*))
|
|
(pgloader::main argv)))
|
|
|
|
(let* ((cwd (uiop:getcwd))
|
|
(bin-dir (uiop:merge-pathnames* "bin/" cwd))
|
|
(bin-filename (uiop:merge-pathnames* "pgloader" bin-dir)))
|
|
|
|
(ensure-directories-exist bin-dir)
|
|
|
|
#+ccl
|
|
(ccl:save-application bin-filename
|
|
:toplevel-function #'cl-user::pgloader-image-main
|
|
:prepend-kernel t)
|
|
#+sbcl
|
|
(sb-ext:save-lisp-and-die bin-filename
|
|
:toplevel #'cl-user::pgloader-image-main
|
|
:executable t
|
|
:save-runtime-options t
|
|
:compression t))
|