Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
A
asdf
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Container Registry
Model registry
Operate
Environments
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Hugo Ishimaru
asdf
Commits
e61dd22d
Commit
e61dd22d
authored
9 years ago
by
Francois-Rene Rideau
Browse files
Options
Downloads
Patches
Plain Diff
Merge tarball release fixes from master.
parent
b8969954
No related branches found
Branches containing commit
No related tags found
Tags containing commit
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
tools/release.lisp
+56
-51
56 additions, 51 deletions
tools/release.lisp
with
56 additions
and
51 deletions
tools/release.lisp
+
56
−
51
View file @
e61dd22d
...
...
@@ -31,69 +31,74 @@
(
defun
tarname
(
name
)
(
strcat
name
".tar.gz"
))
(
deftestcmd
make-tarball-from-git
(
name
base
files
(
type
"tar.gz"
))
(
with-asdf-dir
(
base
)
(
let
((
tarball
(
strcat
name
"."
type
)))
(
git
`
(
archive
-o
,
(
pn
"build"
tarball
)
:prefix
(
,
name
/
)
,
*version*
--
,@
files
)
:show
t
))))
(
deftestcmd
make-tarball-from-git-plus
(
name
base
files
asdf-lisp
version-file
)
;; make a tarball, then add build/asdf.lisp to it
(
make-tarball-from-git
name
base
files
"tar"
)
(
let*
((
tarball
(
strcat
name
".tar"
)))
(
with-asdf-dir
(
"build/"
)
(
when
asdf-lisp
(
build-asdf
)
(
ensure-directories-exist
(
pn
"build"
name
"build/"
))
(
run*
`
(
cp
-a
asdf.lisp
(
,
name
/build/
)))
;; TODO: find which tar it is and tell --uid 0 --gid 0 to BSD tar
;; and --owner root --group root to GNU tar,
;; falling back to nothing. Sigh.
(
run*
`
(
env
"COPYFILE_DISABLE=1"
tar
"-rf"
,
tarball
(
,
name
/build/asdf.lisp
))
:show
t
)
(
run*
`
(
rm
-f
(
,
name
/build/asdf.lisp
)))
(
delete-empty-directory
(
pn
"build"
name
"build/"
)))
(
when
version-file
(
ensure-directories-exist
(
pn
"build"
name
""
))
(
run*
`
(
cp
-a
..
/version.lisp-expr
(
,
name
/
)))
(
run*
`
(
env
"COPYFILE_DISABLE=1"
tar
"-rf"
,
tarball
(
,
name
/version.lisp-expr
))
:show
t
)
(
run*
`
(
rm
-f
(
,
name
/version.lisp-expr
))))
(
let
((
dir
(
pn
"build"
name
""
)))
(
when
(
directory-exists-p
dir
)
(
delete-empty-directory
dir
)))
(
run*
`
(
gzip
-f9
,
tarball
)
:show
t
))))
(
defun
make-tarball-under-build
(
name
base
files
)
(
check-type
name
string
)
(
ensure-pathname
base
:want-absolute
t
:want-existing
t
:want-directory
t
)
(
dolist
(
f
files
)
(
check-type
f
string
))
(
let*
((
base
(
ensure-pathname
base
:want-absolute
t
:want-directory
t
:want-existing
t
:truename
t
))
(
destination
(
ensure-pathname
name
:defaults
*build-dir*
:want-relative
t
:ensure-absolute
t
:ensure-subpath
t
:ensure-directory
t
))
(
tarball
(
ensure-pathname
(
tarname
name
)
:defaults
*build-dir*
:want-relative
t
:ensure-absolute
t
:ensure-subpath
t
:want-file
t
:ensure-directories-exist
t
)))
(
assert
(
<
6
(
length
(
pathname-directory
destination
))))
(
when
(
probe-file*
destination
)
(
error
"Destination ~S already exists, not taking chances - you can delete it yourself."
destination
))
(
ensure-directories-exist
destination
)
(
run
`
(
cp
"-pHux"
--parents
,@
files
,
destination
)
:directory
base
:show
t
)
(
run
`
(
tar
"zcfC"
,
tarball
,
*build-dir*
;; TODO: Have better autodetection for which tar is being used,
;; and fall back to no option if not recognized.
#+
linux
(
*
:owner
root
:group
root
)
;; assume GNU tar on Linux.
#+
darwin
(
*
:uid
0
:gid
0
)
;; assume BSD tar on Darwin.
(
,
name
/
))
:show
t
)
(
delete-directory-tree
destination
:validate
#'
(
lambda
(
x
)
(
equal
x
destination
)))
(
values
)))
(
defun
uiop-files
()
"list files in uiop"
(
list*
"README"
"uiop.asd"
"asdf-driver.asd"
(
system-source-files
:
uiop
)))
(
defun
driver
-name
()
(
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-from-git-plus
(
driver-name
)
"uiop/"
(
remove
"version.lisp-expr"
(
uiop-files
)
:test
'equal
)
nil
t
))
(
deftestcmd
make-uiop-tarball
()
(
make-tarball-under-build
(
uiop-name
)
*uiop-dir*
(
uiop-files
)))
(
defun
asdf-defsystem-files
()
"list files in asdf/defsystem"
(
list*
"asdf.asd"
"version.lisp-expr"
"header.lisp"
(
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
()
(
format
nil
"asdf-defsystem-~A"
*version*
))
(
def
un
make-asdf-defsystem-tarball
()
(
make-tarball-from-git-plus
(
asdf-defsystem-name
)
""
(
asdf-defsystem-files
)))
(
def
testcmd
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
make-git-tarball
()
(
make-tarball-from-git-plus
(
asdf-git-name
)
""
nil
))
(
defun
asdf-all-files
()
(
remove-if
#'
(
lambda
(
x
)
(
string-prefix-p
"ext/"
x
))
(
with-asdf-dir
()
(
run/lines
'
(
git
ls-files
)))))
(
deftestcmd
make-asdf-all-tarball
()
(
build-asdf
)
(
make-tarball-under-build
(
asdf-all-name
)
*asdf-dir*
(
asdf-all-files
)))
(
defun
asdf-lisp-name
()
(
format
nil
"asdf-~A.lisp"
*version*
))
(
deftestcmd
make-asdf-lisp
()
(
build-asdf
)
(
concatenate-files
(
list
(
pn
"build/asdf.lisp"
))
...
...
@@ -101,9 +106,9 @@
(
deftestcmd
make-archive
()
"build tarballs for release"
(
make-
driver
-tarball
)
(
make-
uiop
-tarball
)
(
make-asdf-defsystem-tarball
)
(
make-
git
-tarball
)
(
make-
asdf-all
-tarball
)
(
make-asdf-lisp
))
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
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!
Save comment
Cancel
Please
register
or
sign in
to comment