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 e3b2cf4c7a
commit 9011e97f8d
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'." "A version of P linked with `-static-gcc'."
(package-with-extra-configure-variable p "LDFLAGS" "-static-libgcc")) (package-with-extra-configure-variable p "LDFLAGS" "-static-libgcc"))
(define* (static-package p #:optional (loc (current-source-location))) (define* (static-package p #:optional (loc (current-source-location))
"Return a statically-linked version of package P." #: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))) (let ((args (package-arguments p)))
(package (inherit p) (package (inherit p)
(location (source-properties->location loc)) (location (source-properties->location loc))
(arguments (arguments
(let ((a (default-keyword-arguments args (let ((a (default-keyword-arguments args
'(#:configure-flags '() '(#:configure-flags '()
#:strip-flags #f)))) #:strip-flags '("--strip-debug")))))
(substitute-keyword-arguments a (substitute-keyword-arguments a
((#:configure-flags flags) ((#:configure-flags flags)
`(cons* "--disable-shared" "LDFLAGS=-static" ,flags)) `(cons* "--disable-shared" "LDFLAGS=-static" ,flags))
((#:strip-flags _) ((#:strip-flags flags)
''("--strip-all")))))))) (if strip-all?
''("--strip-all")
flags))))))))
(define %store (define %store