ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

ant-build-system: Add unpack phase.

Browse source 
* guix/build/ant-build-system.scm (unpack): New procedure.
(%standard-phases): Use it.
This commit is contained in:
Ricardo Wurmus 2016-05-10 15:50:28 +02:00 committed by Ricardo Wurmus
parent 987a118334
commit 932f2b70a6
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
guix/build/ant-build-system.scm
View file

@ -86,6 +86,17 @@ (define (generate-classpath inputs)
(find-files dir "\\.*jar$")))
inputs)) ":"))
(define* (unpack #:key source #:allow-other-keys)
"Unpack the jar archive SOURCE. When SOURCE is not a jar archive fall back
to the default GNU unpack strategy."
(if (string-suffix? ".jar" source)
(begin
(mkdir "src")
(with-directory-excursion "src"
(zero? (system* "jar" "-xf" source))))
;; Use GNU unpack strategy for things that aren't jar archives.
((assq-ref gnu:%standard-phases 'unpack) #:source source)))
(define* (configure #:key inputs outputs (jar-name #f)
#:allow-other-keys)
(when jar-name
@ -151,6 +162,7 @@ (define* (install #:key (make-flags '()) #:allow-other-keys)
(define %standard-phases
(modify-phases gnu:%standard-phases
(replace 'unpack unpack)
(replace 'configure configure)
(replace 'build build)
(replace 'check check)