Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Hugo Ishimaru
asdf
Commits
c2fb9bbb
Commit
c2fb9bbb
authored
Jul 06, 2015
by
Francois-Rene Rideau
Browse files
Merge back tarball release tweaks from minimakefile branch
parent
70672f22
Changes
1
Hide whitespace changes
Inline
Side-by-side
bin/asdf-builder
View file @
c2fb9bbb
...
...
@@ -131,43 +131,45 @@
(delete-directory-tree destination :validate #'(lambda (x) (equal x destination)))
(values)))
(defun driver-files ()
(list* "README.md" "uiop.asd" "asdf-driver.asd" (system-source-files :uiop)))
(defun driver-name ()
(defun uiop-files ()
"list files in uiop"
(list* "README.md" "uiop.asd" "asdf-driver.asd" (system-source-files "uiop")))
(defun uiop-name ()
(format nil "uiop-~A" *version*))
(defun make-
driver
-tarball ()
(make-tarball-under-build (
driver
-name) *uiop-dir* (
driver
-files)))
(defun make-
uiop
-tarball ()
(make-tarball-under-build (
uiop
-name) *uiop-dir* (
uiop
-files)))
(defun asdf-defsystem-files ()
(list* "asdf.asd" "build/asdf.lisp" "version.lisp-expr" "header.lisp"
(system-source-files :asdf/defsystem)))
"list files in 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 ()
(format nil "asdf-defsystem-~A" *version*))
(defun make-asdf-defsystem-tarball ()
(build-asdf)
(make-tarball-under-build (asdf-defsystem-name) *asdf-dir* (asdf-defsystem-files)))
(defun asdf-
git
-name ()
(defun asdf-
all
-name ()
(strcat "asdf-" *version*))
(defun a
ll-asdf
-files ()
(defun a
sdf-all
-files ()
(remove-if #'(lambda (x) (string-prefix-p "ext/" x))
(run/lines '(git ls-files))))
(defun make-
git
-tarball ()
(defun make-
asdf-all
-tarball ()
(build-asdf)
(make-tarball-under-build (asdf-
git
-name) *asdf-dir* (a
ll-asdf
-files)))
(make-tarball-under-build (asdf-
all
-name) *asdf-dir* (a
sdf-all
-files)))
(defun asdf-lisp-name ()
(format nil "asdf-~A.lisp" *version*))
(defun make-asdf-lisp ()
(build-asdf)
(concatenate-files (list (pn "build/asdf.lisp"))
(pn "build/" (asdf-lisp-name))))
(defun make-archive ()
(make-
driver
-tarball)
(make-
uiop
-tarball)
(make-asdf-defsystem-tarball)
(make-
git
-tarball)
(make-
asdf-all
-tarball)
(make-asdf-lisp)
(values))
...
...
@@ -300,7 +302,7 @@
(defparameter *version-tag-glob* "[0-9][.][0-9]*")
(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)
(if commit
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment