guix-commits
[Top][All Lists]
Advanced

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

04/04: gnu: netcdf: Fix reproducibility issue; remove unneeded reference


From: Thomas Danckaert
Subject: 04/04: gnu: netcdf: Fix reproducibility issue; remove unneeded references.
Date: Fri, 1 Sep 2017 02:35:17 -0400 (EDT)

thomasd pushed a commit to branch master
in repository guix.

commit 43d01672a11814ca4cdcc592544064d75d1653f0
Author: Thomas Danckaert <address@hidden>
Date:   Thu Aug 24 15:13:02 2017 +0200

    gnu: netcdf: Fix reproducibility issue; remove unneeded references.
    
    * gnu/packages/maths.scm (netcdf) [arguments]: Add phase to fix the embedded
      'Configured On' date; truncate reference to compiler store item.
---
 gnu/packages/maths.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index a8c81a7..bebed14 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -918,6 +918,29 @@ similar to MATLAB, GNU Octave or SciPy.")
        ("libjpeg" ,libjpeg)))
     (arguments
      `(#:configure-flags '("--enable-doxygen" "--enable-dot" "--enable-hdf4")
+
+       #:phases (modify-phases %standard-phases
+         (add-before 'configure 'fix-source-date
+           (lambda _
+             ;; As we ${SOURCE_DATE_EPOCH} evaluates to "1" in the build
+             ;; environment, `date -u -d ${SOURCE_DATE_EPOCH}` will evaluate
+             ;; to '1st hour of the current day', and therefore makes the
+             ;; package not reproducible.
+             (substitute* "./configure"
+               (("date -u -d \"\\$\\{SOURCE_DATE_EPOCH\\}\"")
+                "date --date='@0'"))
+             #t))
+         (add-after 'configure 'patch-settings
+           (lambda _
+             ;; libnetcdf.settings contains the full filename of the compilers
+             ;; used to build the library.  We truncate the hashes of those
+             ;; filenames to avoid unnecessary references to the corresponding
+             ;; store items.
+             (substitute* "libnetcdf.settings"
+               (("(/gnu/store/)([a-Z0-9]*)" all prefix hash)
+                (string-append prefix (string-take hash 10) "...")))
+             #t)))
+
        #:parallel-tests? #f))           ;various race conditions
     (home-page "http://www.unidata.ucar.edu/software/netcdf/";)
     (synopsis "Library for scientific data")



reply via email to

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