03/04: gnu: hdf4: Avoid unneeded store references to compilers.

[Thomas Danckaert]

thomasd pushed a commit to branch master
in repository guix.

commit e464b4550e42d913655bd5939d3e370982ee294b
Author: Thomas Danckaert <address@hidden>
Date:   Thu Aug 24 14:27:29 2017 +0200

    gnu: hdf4: Avoid unneeded store references to compilers.
    
    * gnu/packages/maths.scm (hdf4) [arguments]: Add phase 'patch-settings to
      truncate hashes of compiler store items.
---
 gnu/packages/maths.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index 47e7ba3..a8c81a7 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -605,7 +605,18 @@ computations.")
                (("@address@hidden = \
 -R\\$\\(abs_top_builddir\\)/mfhdf/libsrc/\\.libs \
 -R\\$\\(abs_top_builddir\\)/hdf/src/\\.libs \\$\\(XDR_ADD\\)") ""))
-             #t)))))
+             #t))
+         (add-after 'configure 'patch-settings
+           (lambda _
+             ;; libhdf4.settings contains the full path of the
+             ;; compilers used, and its contents are included in
+             ;; .so-files.  We truncate the hashes to avoid
+             ;; unnecessary store references to those compilers:
+             (substitute* "libhdf4.settings"
+               (("(/gnu/store/)([a-Z0-9]*)" all prefix hash)
+                (string-append prefix (string-take hash 10) "...")))
+             #t))
+         )))
     (home-page "https://www.hdfgroup.org/products/hdf4/";)
     (synopsis
      "Library and multi-object file format for storing and managing data")