unofficial mirror of guix-devel@gnu.org 
 help / color / mirror / code / Atom feed
blob 51470d084725a0718901bb7644646ae6b23b1175 1618 bytes (raw)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
Use deterministic SOURCE_DATE_EPOCH for embedded timestamps in generated documentation.

Written by Eduard Sanou.

https://bugzilla.gnome.org/show_bug.cgi?id=758148

--- libxslt-1.1.28.orig/libexslt/date.c
+++ libxslt-1.1.28/libexslt/date.c
@@ -46,6 +46,7 @@
 #include "exslt.h"
 
 #include <string.h>
+#include <errno.h>
 
 #ifdef HAVE_MATH_H
 #include <math.h>
@@ -747,21 +748,46 @@ static exsltDateValPtr
 exsltDateCurrent (void)
 {
     struct tm localTm, gmTm;
+    struct tm *tb = NULL;
     time_t secs;
     int local_s, gm_s;
     exsltDateValPtr ret;
+    char *source_date_epoch;
 
     ret = exsltDateCreateDate(XS_DATETIME);
     if (ret == NULL)
         return NULL;
 
-    /* get current time */
     secs    = time(NULL);
+    /*
+     * Allow the date and time to be set externally by an exported
+     * environment variable to enable reproducible builds.
+     */
+    source_date_epoch = getenv("SOURCE_DATE_EPOCH");
+    if (source_date_epoch) {
+	errno = 0;
+	secs = (time_t) strtol (source_date_epoch, NULL, 10);
+	if (errno == 0) {
+	    tb = gmtime(&secs);
+	    if (tb == NULL) {
+	    /* SOURCE_DATE_EPOCH is not a valid date */
+		return NULL;
+	    } else {
+		localTm = *tb;
+	    }
+	} else {
+	    /* SOURCE_DATE_EPOCH is not a valid number */
+	    return NULL;
+	}
+    } else {
+	/* get current time */
 #if HAVE_LOCALTIME_R
-    localtime_r(&secs, &localTm);
+	localtime_r(&secs, &localTm);
 #else
-    localTm = *localtime(&secs);
+	localTm = *localtime(&secs);
 #endif
+    }
+
 
     /* get real year, not years since 1900 */
     ret->value.date.year = localTm.tm_year + 1900;

debug log:

solving 51470d0 ...
found 51470d0 in https://git.savannah.gnu.org/cgit/guix.git

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).