me
/
guix
Archived
1
0
Fork 0
Code

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

* guix/build-system/gnu.scm (static-package): Add #:strip-all? keyword
  parameter.
master
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 @@ flags for VARIABLE, the associated value is augmented."
"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