05/10: gnu: hdf5: Patch output references to zlib.

[Eric Bavier]

bavier pushed a commit to branch master
in repository guix.

commit f622e2123b578d9fea6d967a69492cc2041ce348
Author: Eric Bavier <address@hidden>
Date:   Tue Apr 12 10:02:22 2016 -0500

    gnu: hdf5: Patch output references to zlib.
    
    * gnu/packages/maths.scm (hdf5)[arguments]: Use modify-phases.  Add
    'patch-references' phase.
---
 gnu/packages/maths.scm |   19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index 877bfd4..4a10f6f 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -420,12 +420,19 @@ plotting engine by third-party applications like Octave.")
      `(("zlib" ,zlib)))
     (arguments
      `(#:phases
-        (alist-cons-before
-         'configure 'patch-configure
-         (lambda _
-           (substitute* "configure"
-             (("/bin/mv") "mv")))
-         %standard-phases)))
+       (modify-phases %standard-phases
+         (add-before 'configure 'patch-configure
+           (lambda _
+             (substitute* "configure"
+               (("/bin/mv") "mv"))))
+         (add-after 'install 'patch-references
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((bin (string-append (assoc-ref outputs "out") "/bin"))
+                   (zlib (assoc-ref inputs "zlib")))
+               (substitute* (find-files bin "h5p?cc")
+                 (("-lz" lib)
+                  (string-append "-L" zlib "/lib " lib)))
+               #t))))))
     (home-page "http://www.hdfgroup.org";)
     (synopsis "Management suite for extremely large and complex data")
     (description "HDF5 is a suite that makes possible the management of