mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-20 14:47:20 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: petsc: Make header generation reproducible.

Browse source 
* gnu/packages/maths.scm (petsc)[arguments]: Scrub timestamp from
  petscmachineinfo.h header.
This commit is contained in:
Eric Bavier 2016-07-08 10:29:02 -05:00
parent 64dcc28963
commit b730b43770
No known key found for this signature in database
GPG key ID: 1EBBD204781F962C
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/packages/maths.scm
View file

@ -842,11 +842,13 @@ (define-public petsc
(format #t "configure flags: ~s~%" flags) (format #t "configure flags: ~s~%" flags)
(zero? (apply system* "./configure" flags))))) (zero? (apply system* "./configure" flags)))))
(add-after 'configure 'clean-local-references (add-after 'configure 'clean-local-references
;; Try to keep build directory names from leaking into compiled code
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(substitute* (find-files "." "^petsc(conf|machineinfo).h$") (substitute* (find-files "." "^petsc(conf|machineinfo).h$")
(((getcwd)) out))))) ;; Prevent build directory from leaking into compiled code
(((getcwd)) out)
;; Scrub timestamp for reproducibility
((".*Libraries compiled on.*") "")))))
(add-after 'install 'clean-install (add-after 'install 'clean-install
;; Try to keep installed files from leaking build directory names. ;; Try to keep installed files from leaking build directory names.
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)