me
/
guix
Archived
1
0
Fork 0
Code

gnu: ant-apache-bcel: Fix inheritance by using gexp. 

* gnu/packages/java.scm (ant-apache-bcel)[arguments]: Use gexp; also remove
trailing #T from build phases.
master
Ricardo Wurmus 2023-01-09 00:44:26 +01:00
parent 882baf4b7d
commit f05d228472
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 18 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
gnu/packages/java.scm
View File

@ -1713,27 +1713,24 @@ build process and its dependencies, whereas Make uses Makefile format.")
(arguments
(substitute-keyword-arguments (package-arguments ant/java8)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'link-bcel
(lambda* (#:key inputs #:allow-other-keys)
(for-each (lambda (file)
(symlink file
(string-append "lib/optional/"
(basename file))))
(find-files (assoc-ref inputs "java-commons-bcel")
"\\.jar$"))
#t))
(add-after 'build 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(share (string-append out "/share/java"))
(bin (string-append out "/bin"))
(lib (string-append out "/lib")))
(mkdir-p share)
(install-file (string-append lib "/ant-apache-bcel.jar") share)
(delete-file-recursively bin)
(delete-file-recursively lib)
#t)))))))
#~(modify-phases #$phases
(add-after 'unpack 'link-bcel
(lambda* (#:key inputs #:allow-other-keys)
(for-each (lambda (file)
(symlink file
(string-append "lib/optional/"
(basename file))))
(find-files (assoc-ref inputs "java-commons-bcel")
"\\.jar$"))))
(add-after 'build 'install
(lambda _
(let ((share (string-append #$output "/share/java"))
(bin (string-append #$output "/bin"))
(lib (string-append #$output "/lib")))
(mkdir-p share)
(install-file (string-append lib "/ant-apache-bcel.jar") share)
(delete-file-recursively bin)
(delete-file-recursively lib))))))))
(inputs
(modify-inputs (package-inputs ant/java8)
(prepend java-commons-bcel)))))