Re: [PATCH 3/3] gnu: btrfs-progs: Add "static" output.

[Leo Famulari]

On Sat, Apr 02, 2016 at 03:29:34PM +0200, Tobias Geerinckx-Rice wrote:
> * gnu/packages/linux.scm (btrfs-progs)[outputs]: New field.
>   [inputs]: Add "static" outputs of util-linux for libuuid and libblkid.
>   [arguments]: Add 'build-static and 'install-static phases.
> ---
>  gnu/packages/linux.scm | 16 +++++++++++++++-
>  1 file changed, 15 insertions(+), 1 deletion(-)
> 
> diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
> index 0260b0e..a3f61c2 100644
> --- a/gnu/packages/linux.scm
> +++ b/gnu/packages/linux.scm
> @@ -2507,12 +2507,26 @@ and copy/paste text in the console and in xterm.")
>                 (base32
>                  "1znf2zhb56zbmdjk3lq107678xwsqwc5gczspypmc5i31qnppy7f"))))
>      (build-system gnu-build-system)
> +    (outputs '("out"
> +               "static"))      ; static versions of binaries in "out" 
> (~16MiB!)
>      (arguments
> -     '(#:test-target "test"
> +     '(#:phases (modify-phases %standard-phases
> +                 (add-after 'build 'build-static
> +                   (lambda _ (zero? (system* "make" "static"))))
> +                 (add-after 'install 'install-static
> +                   (let ((staticbin (string-append (assoc-ref %outputs 
> "static")
> +                                                  "/bin")))
> +                     (lambda _
> +                       (zero? (system* "make"
> +                                       (string-append "bindir=" staticbin)
> +                                       "install-static"))))))
> +       #:test-target "test"
>         #:parallel-tests? #f)) ; tests fail when run in parallel
>      (inputs `(("e2fsprogs" ,e2fsprogs)
>                ("libblkid" ,util-linux)
> +              ("libblkid:static" ,util-linux "static")
>                ("libuuid" ,util-linux)
> +              ("libuuid:static" ,util-linux "static")

I really like giving a descriptive name to uses of "grab-bag" packages
like util-linux. LGTM!

>                ("zlib" ,zlib)
>                ("lzo" ,lzo)))
>      (native-inputs `(("pkg-config" ,pkg-config)
> -- 
> 2.7.0
> 
>