Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Hugo Ishimaru
asdf
Commits
03df017f
Commit
03df017f
authored
Apr 08, 2016
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Tweak asdf-tools so it can be built by bazel
parent
36e63221
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
15 additions
and
17 deletions
+15
-17
tools/pathnames.lisp
tools/pathnames.lisp
+4
-4
tools/release.lisp
tools/release.lisp
+10
-10
tools/test-upgrade.lisp
tools/test-upgrade.lisp
+1
-1
tools/version.lisp
tools/version.lisp
+0
-2
No files found.
tools/pathnames.lisp
View file @
03df017f
(
in-package
:asdf-tools
)
;;; ASDF directory
(
def
var
*asdf-dir*
(
def
un
asdf-dir
()
(
ensure-pathname
(
system-relative-pathname
:asdf/defsystem
())
:want-physical
t
:want-absolute
t
:want-existing
t
:truename
t
))
(
defun
pn
(
&rest
x
)
(
subpathname
*asdf-dir*
(
and
x
(
uiop:resolve-relative-location
x
))))
(
subpathname
(
asdf-dir
)
(
and
x
(
uiop:resolve-relative-location
x
))))
(
defun
nn
(
&rest
x
)
(
native-namestring
(
apply
'pn
x
)))
(
def
var
*uiop-dir*
(
pn
"uiop/"
))
(
def
var
*build-dir*
(
pn
"build/"
))
(
def
un
uiop-dir
()
(
pn
"uiop/"
))
(
def
un
build-dir
()
(
pn
"build/"
))
(
defun
call-with-asdf-dir
(
thunk
&rest
subs
)
(
with-current-directory
((
apply
'pn
subs
))
...
...
tools/release.lisp
View file @
03df017f
...
...
@@ -44,13 +44,13 @@
(
destination
(
ensure-pathname
name
:defaults
*build-dir*
:defaults
(
build-dir
)
:want-relative
t
:ensure-absolute
t
:ensure-subpath
t
:ensure-directory
t
))
(
tarball
(
ensure-pathname
(
tarname
name
)
:defaults
*build-dir*
:defaults
(
build-dir
)
:want-relative
t
:ensure-absolute
t
:ensure-subpath
t
:want-file
t
:ensure-directories-exist
t
)))
...
...
@@ -60,7 +60,7 @@
destination
))
(
ensure-directories-exist
destination
)
(
run*
`
(
cp
"-pHux"
--parents
,@
files
,
destination
)
:directory
base
:show
t
)
(
run*
`
(
tar
"zcf"
,
tarball
"-C"
,
*build-dir*
(
run*
`
(
tar
"zcf"
,
tarball
"-C"
,
(
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.
...
...
@@ -73,9 +73,9 @@
"list files in uiop"
(
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-from-file
)
))
(
deftestcmd
make-uiop-tarball
()
(
make-tarball-under-build
(
uiop-name
)
*uiop-dir*
(
uiop-files
)))
(
make-tarball-under-build
(
uiop-name
)
(
uiop-dir
)
(
uiop-files
)))
(
defun
asdf-defsystem-files
()
"list files in asdf/defsystem"
...
...
@@ -83,22 +83,22 @@
"asdf.asd"
"version.lisp-expr"
"header.lisp"
(
system-source-files
"asdf/defsystem"
)))
(
defun
asdf-defsystem-name
()
(
format
nil
"asdf-defsystem-~A"
*version*
))
(
format
nil
"asdf-defsystem-~A"
(
version-from-file
)
))
(
deftestcmd
make-asdf-defsystem-tarball
()
(
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-all-name
()
(
strcat
"asdf-"
*version*
))
(
strcat
"asdf-"
(
version-from-file
)
))
(
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
)))
(
make-tarball-under-build
(
asdf-all-name
)
(
asdf-dir
)
(
asdf-all-files
)))
(
defun
asdf-lisp-name
()
(
format
nil
"asdf-~A.lisp"
*version*
))
(
format
nil
"asdf-~A.lisp"
(
version-from-file
)
))
(
deftestcmd
make-asdf-lisp
()
(
build-asdf
)
(
concatenate-files
(
list
(
pn
"build/asdf.lisp"
))
...
...
tools/test-upgrade.lisp
View file @
03df017f
...
...
@@ -159,7 +159,7 @@ Use the preferred lisp implementation"
(
loop
:for
method
:in
upgrade-methods
:for
description
=
(
format
nil
"Testing ASDF upgrade on ~(~A~) from ~A to ~A using method ~(~{~A~^:~}~)"
lisp
tag
*version*
method
)
lisp
tag
(
version-from-file
)
method
)
:when
(
valid-upgrade-test-p
lisp
tag
method
)
:do
(
success-if
(
and
(
extract-tagged-asdf
tag
)
...
...
tools/version.lisp
View file @
03df017f
...
...
@@ -37,8 +37,6 @@
(
declare
(
ignore
epoch
))
(
debian-version-string
ver
nil
rel
)))
(
defparameter
*version*
(
version-from-file
))
;;; Bumping the version of ASDF
(
defparameter
*versioned-files*
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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