From e815763e69c621412830cada8ded53ccd1b8247f Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 31 Aug 2012 17:04:53 +0200 Subject: build-system/gnu: Add a `strip' phase. * guix/build/gnu-build-system.scm (strip): New procedure. (%standard-phases): Add it. * guix/build-system/gnu.scm (gnu-build): New `strip-binaries?', `strip-flags', and `strip-directories' keyword parameters. Pass them to BUILDER. --- guix/build-system/gnu.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'guix/build-system') diff --git a/guix/build-system/gnu.scm b/guix/build-system/gnu.scm index fd9a6d026e..7bdd4174bd 100644 --- a/guix/build-system/gnu.scm +++ b/guix/build-system/gnu.scm @@ -50,6 +50,10 @@ (tests? #t) (parallel-build? #t) (parallel-tests? #t) (patch-shebangs? #t) + (strip-binaries? #t) + (strip-flags ''("--strip-debug")) + (strip-directories ''("lib" "lib64" "libexec" + "bin" "sbin")) (phases '%standard-phases) (system (%current-system)) (modules '((guix build gnu-build-system) @@ -73,7 +77,10 @@ input derivation INPUTS, using the usual procedure of the GNU Build System." #:tests? ,tests? #:parallel-build? ,parallel-build? #:parallel-tests? ,parallel-tests? - #:patch-shebangs? ,patch-shebangs?))) + #:patch-shebangs? ,patch-shebangs? + #:strip-binaries? ,strip-binaries? + #:strip-flags ,strip-flags + #:strip-directories ,strip-directories))) (build-expression->derivation store name system builder -- cgit v1.2.3