Skip to content
Snippets Groups Projects
Commit c2fb9bbb authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Merge back tarball release tweaks from minimakefile branch

parent 70672f22
No related branches found
No related tags found
No related merge requests found
...@@ -131,43 +131,45 @@ ...@@ -131,43 +131,45 @@
(delete-directory-tree destination :validate #'(lambda (x) (equal x destination))) (delete-directory-tree destination :validate #'(lambda (x) (equal x destination)))
(values))) (values)))
(defun driver-files () (defun uiop-files ()
(list* "README.md" "uiop.asd" "asdf-driver.asd" (system-source-files :uiop))) "list files in uiop"
(defun driver-name () (list* "README.md" "uiop.asd" "asdf-driver.asd" (system-source-files "uiop")))
(defun uiop-name ()
(format nil "uiop-~A" *version*)) (format nil "uiop-~A" *version*))
(defun make-driver-tarball () (defun make-uiop-tarball ()
(make-tarball-under-build (driver-name) *uiop-dir* (driver-files))) (make-tarball-under-build (uiop-name) *uiop-dir* (uiop-files)))
(defun asdf-defsystem-files () (defun asdf-defsystem-files ()
(list* "asdf.asd" "build/asdf.lisp" "version.lisp-expr" "header.lisp" "list files in asdf/defsystem"
(system-source-files :asdf/defsystem))) (list* "build/asdf.lisp" ;; for bootstrap purposes
"asdf.asd" "version.lisp-expr" "header.lisp"
(system-source-files "asdf/defsystem")))
(defun asdf-defsystem-name () (defun asdf-defsystem-name ()
(format nil "asdf-defsystem-~A" *version*)) (format nil "asdf-defsystem-~A" *version*))
(defun make-asdf-defsystem-tarball () (defun make-asdf-defsystem-tarball ()
(build-asdf) (build-asdf)
(make-tarball-under-build (asdf-defsystem-name) *asdf-dir* (asdf-defsystem-files))) (make-tarball-under-build (asdf-defsystem-name) *asdf-dir* (asdf-defsystem-files)))
(defun asdf-git-name () (defun asdf-all-name ()
(strcat "asdf-" *version*)) (strcat "asdf-" *version*))
(defun all-asdf-files () (defun asdf-all-files ()
(remove-if #'(lambda (x) (string-prefix-p "ext/" x)) (remove-if #'(lambda (x) (string-prefix-p "ext/" x))
(run/lines '(git ls-files)))) (run/lines '(git ls-files))))
(defun make-git-tarball () (defun make-asdf-all-tarball ()
(build-asdf) (build-asdf)
(make-tarball-under-build (asdf-git-name) *asdf-dir* (all-asdf-files))) (make-tarball-under-build (asdf-all-name) *asdf-dir* (asdf-all-files)))
(defun asdf-lisp-name () (defun asdf-lisp-name ()
(format nil "asdf-~A.lisp" *version*)) (format nil "asdf-~A.lisp" *version*))
(defun make-asdf-lisp () (defun make-asdf-lisp ()
(build-asdf) (build-asdf)
(concatenate-files (list (pn "build/asdf.lisp")) (concatenate-files (list (pn "build/asdf.lisp"))
(pn "build/" (asdf-lisp-name)))) (pn "build/" (asdf-lisp-name))))
(defun make-archive () (defun make-archive ()
(make-driver-tarball) (make-uiop-tarball)
(make-asdf-defsystem-tarball) (make-asdf-defsystem-tarball)
(make-git-tarball) (make-asdf-all-tarball)
(make-asdf-lisp) (make-asdf-lisp)
(values)) (values))
...@@ -300,7 +302,7 @@ ...@@ -300,7 +302,7 @@
(defparameter *version-tag-glob* "[0-9][.][0-9]*") (defparameter *version-tag-glob* "[0-9][.][0-9]*")
(defun version-from-tag (&optional commit) (defun version-from-tag (&optional commit)
(first (run/lines `("git" "describe" "--tags" "--match" ,*version-tag-glob*) :show t))) (first (run/lines `("git" "describe" "--tags" "--match" ,*version-tag-glob* ,commit) :show t)))
(defun version-from-file (&optional commit) (defun version-from-file (&optional commit)
(if commit (if commit
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment