guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/04: gnu: openmpi: Add "static" output.


From: Ludovic Courtès
Subject: 01/04: gnu: openmpi: Add "static" output.
Date: Thu, 27 Jul 2017 05:48:00 -0400 (EDT)

civodul pushed a commit to branch master
in repository guix.

commit f1be6f5b5a7398d5eba6831a4eb82bcfeaa306ec
Author: Ludovic Courtès <address@hidden>
Date:   Thu Jul 27 10:46:52 2017 +0200

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

diff --git a/gnu/packages/mpi.scm b/gnu/packages/mpi.scm
index ed4e900..54fdd35 100644
--- a/gnu/packages/mpi.scm
+++ b/gnu/packages/mpi.scm
@@ -122,6 +122,7 @@ bind processes, and much more.")
        (base32
         "142s1vny9gllkq336yafxayjgcirj2jv0ddabj879jgya7hyr2d0"))))
     (build-system gnu-build-system)
+    (outputs '("out" "static"))
     (inputs
      `(("hwloc" ,hwloc "lib")
        ("gfortran" ,gfortran)
@@ -155,6 +156,20 @@ bind processes, and much more.")
                     (lambda* (#:key outputs #:allow-other-keys)
                       (let ((out (assoc-ref outputs "out")))
                         (for-each delete-file (find-files out "config.log"))
+                        #t)))
+                  (add-after 'install 'move-static-libraries
+                    (lambda* (#:key outputs #:allow-other-keys)
+                      ;; Move 19 MiB of static libraries to 'static'.
+                      (let* ((out    (assoc-ref outputs "out"))
+                             (static (assoc-ref outputs "static"))
+                             (lib    (string-append out "/lib"))
+                             (slib   (string-append static "/lib")))
+                        (mkdir-p slib)
+                        (for-each (lambda (file)
+                                    (rename-file
+                                     file
+                                     (string-append slib "/" (basename file))))
+                                  (find-files lib "\\.a$"))
                         #t))))))
     (home-page "http://www.open-mpi.org";)
     (synopsis "MPI-3 implementation")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]