mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-12 06:06:53 -05:00
gnu: r-minimal: Respect SOURCE_DATE_EPOCH in srcfile.
Fixes <https://bugs.gnu.org/30729>. * gnu/packages/statistics.scm (r-minimal)[arguments]: Replace timestamp hack with patch to "srcfile" and "srcfilecopy".
This commit is contained in:
parent
8e3b852ad0
commit
0fa4702c04
1 changed files with 9 additions and 15 deletions
|
@ -172,21 +172,15 @@ (define-public r-minimal
|
|||
;; queries the mtime of a given file and records it in an object.
|
||||
;; This is acceptable at runtime to detect stale source files,
|
||||
;; but it destroys reproducibility at build time.
|
||||
;;
|
||||
;; Instead of disabling this feature, which may have unexpected
|
||||
;; consequences, we reset the mtime of generated files before
|
||||
;; passing them to the "srcfile" procedure.
|
||||
(substitute* "src/library/Makefile.in"
|
||||
(("@\\(cd base && \\$\\(MAKE\\) mkdesc\\)" line)
|
||||
(string-append line "\n find $(top_builddir)/library/tools | xargs touch -d '1970-01-01'; \n"))
|
||||
(("@\\$\\(MAKE\\) Rdobjects" line)
|
||||
(string-append "@find $(srcdir)/tools | xargs touch -d '1970-01-01'; \n "
|
||||
line)))
|
||||
(substitute* "src/library/tools/Makefile.in"
|
||||
(("@\\$\\(INSTALL_DATA\\) all.R \\$\\(top_builddir\\)/library/\\$\\(pkg\\)/R/\\$\\(pkg\\)" line)
|
||||
(string-append
|
||||
line
|
||||
"\n find $(srcdir)/$(pkg) $(top_builddir)/library/$(pkg) | xargs touch -d \"1970-01-01\"; \n")))
|
||||
|
||||
;; Similarly, the "srcfilecopy" procedure records the current
|
||||
;; time. We change both of them to respect SOURCE_DATE_EPOCH.
|
||||
(substitute* "src/library/base/R/srcfile.R"
|
||||
(("timestamp <- (timestamp.*|file.mtime.*)" _ time)
|
||||
(string-append "timestamp <- \
|
||||
as.POSIXct(if (\"\" != Sys.getenv(\"SOURCE_DATE_EPOCH\")) {\
|
||||
as.numeric(Sys.getenv(\"SOURCE_DATE_EPOCH\"))\
|
||||
} else { " time "}, origin=\"1970-01-01\")\n")))
|
||||
|
||||
;; This library is installed using "install_package_description",
|
||||
;; so we need to pass the "builtStamp" argument.
|
||||
|
|
Loading…
Reference in a new issue