TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: bzip2: Add static output.

Browse source 
* gnu/packages/compression.scm (bzip2)[arguments]: Add phase for moving static
library.
[outputs]: New field.
This commit is contained in:
Marius Bakke 2018-07-14 22:39:01 +02:00
parent 5212c52ce5
commit 45719c1dfb
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/compression.scm
View file

@ -293,6 +293,14 @@ (define-public bzip2
(symlink so-file base) (symlink so-file base)
(loop so-file (cdr numbers)))))) (loop so-file (cdr numbers))))))
#t))) #t)))
(add-after 'install-shared-lib 'move-static-lib
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(static (assoc-ref outputs "static")))
(with-directory-excursion (string-append out "/lib")
(install-file "libbz2.a" (string-append static "/lib"))
(delete-file "libbz2.a")
#t))))
(add-after 'install-shared-lib 'patch-scripts (add-after 'install-shared-lib 'patch-scripts
(lambda* (#:key outputs inputs #:allow-other-keys) (lambda* (#:key outputs inputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))) (let* ((out (assoc-ref outputs "out")))
@ -307,6 +315,7 @@ (define-public bzip2
,@(if (%current-target-system) ,@(if (%current-target-system)
'(#:tests? #f) '(#:tests? #f)
'()))) '())))
(outputs '("out" "static"))
(synopsis "High-quality data compression program") (synopsis "High-quality data compression program")
(description (description
"bzip2 is a freely available, patent free (see below), high-quality data "bzip2 is a freely available, patent free (see below), high-quality data