04/06: gnu: openssl: Move static libraries to "static" output.

[Ludovic Courtès]

civodul pushed a commit to branch core-updates
in repository guix.

commit 8c78aeb72436ff4b152cfd29f593753e2e759b75
Author: Ludovic Courtès <address@hidden>
Date:   Mon May 2 15:43:11 2016 +0200

    gnu: openssl: Move static libraries to "static" output.
    
    * gnu/packages/tls.scm (openssl)[outputs]: New field.
    [arguments]: Add 'move-static-libraries' phase.
---
 gnu/packages/tls.scm |   15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm
index d013cdf..08c869b 100644
--- a/gnu/packages/tls.scm
+++ b/gnu/packages/tls.scm
@@ -211,6 +211,8 @@ required structures.")
              (patches (search-patches "openssl-runpath.patch"
                                       "openssl-c-rehash-in.patch"))))
    (build-system gnu-build-system)
+   (outputs '("out"
+              "static"))                          ;6MiB of .a files
    (native-inputs `(("perl" ,perl)))
    (arguments
     `(#:disallowed-references (,perl)
@@ -267,6 +269,19 @@ required structures.")
                        (find-files (string-append out "/lib")
                                    "\\.so"))
              #t)))
+        (add-after 'install 'move-static-libraries
+          (lambda* (#:key outputs #:allow-other-keys)
+            ;; Move static libraries to the "static" output.
+            (let* ((out    (assoc-ref outputs "out"))
+                   (lib    (string-append out "/lib"))
+                   (static (assoc-ref outputs "static"))
+                   (slib   (string-append static "/lib")))
+              (mkdir-p slib)
+              (for-each (lambda (file)
+                          (install-file file slib)
+                          (delete-file file))
+                        (find-files lib "\\.a$"))
+              #t)))
         (add-before
          'patch-source-shebangs 'patch-tests
          (lambda* (#:key inputs native-inputs #:allow-other-keys)