01/10: gnu: hdf4: Provide an absolute reference to libjpeg.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit fadd962f4b7aa5a5a26a3efa705a359e29f60fc5
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Wed May 27 14:50:01 2020 +0200

    gnu: hdf4: Provide an absolute reference to libjpeg.
    
    * gnu/packages/maths.scm (hdf4)[arguments]: Add phase
    'provide-absolute-libjpeg-reference'.
---
 gnu/packages/maths.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index 76e9eac..8e35188 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -920,7 +920,17 @@ computations.")
                (("(/gnu/store/)([a-Z0-9]*)" all prefix hash)
                 (string-append prefix (string-take hash 10) "...")))
              #t))
-         )))
+         (add-after 'install 'provide-absolute-libjpeg-reference
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (libjpeg (assoc-ref inputs "libjpeg")))
+               ;; libjpeg-turbo does not provide a .la file, so libtool is
+               ;; unable to add an absolute reference for -ljpeg in the .la
+               ;; files.  Fix it manually to avoid having to propagate it.
+               (substitute* (find-files (string-append out "/lib") "\\.la$")
+                 (("-ljpeg")
+                  (string-append "-L" libjpeg "/lib -ljpeg")))
+               #t))))))
     (home-page "https://www.hdfgroup.org/products/hdf4/";)
     (synopsis
      "Library and multi-object file format for storing and managing data")