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

build-system/gnu: Make the strip behavior of `static-package' configurable.

Browse source 
* guix/build-system/gnu.scm (static-package): Add #:strip-all? keyword
  parameter.
This commit is contained in:
Ludovic Courtès 2013-02-14 00:14:29 +01:00
parent ddff766e38
commit 790b8e0ebe
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
guix/build-system/gnu.scm
View file

@ -111,20 +111,24 @@ (define (static-libgcc-package p)
"A version of P linked with `-static-gcc'."
(package-with-extra-configure-variable p "LDFLAGS" "-static-libgcc"))
(define* (static-package p #:optional (loc (current-source-location)))
"Return a statically-linked version of package P."
(define* (static-package p #:optional (loc (current-source-location))
#:key (strip-all? #t))
"Return a statically-linked version of package P. If STRIP-ALL? is true,
use `--strip-all' as the arguments to `strip'."
(let ((args (package-arguments p)))
(package (inherit p)
(location (source-properties->location loc))
(arguments
(let ((a (default-keyword-arguments args
'(#:configure-flags '()
#:strip-flags #f))))
#:strip-flags '("--strip-debug")))))
(substitute-keyword-arguments a
((#:configure-flags flags)
`(cons* "--disable-shared" "LDFLAGS=-static" ,flags))
((#:strip-flags _)
''("--strip-all"))))))))
((#:strip-flags flags)
(if strip-all?
''("--strip-all")
flags))))))))
(define %store