Roll libxslt to 8345634c5482ca04293ae1862d52fa9dd764aeca

third_party/libxslt/libexslt/date.c

 /*
  * date.c: Implementation of the EXSLT -- Dates and Times module
  *
  * References:
  *   http://www.exslt.org/date/date.html
  *
  * See Copyright for the status of this software.
  *
  * Authors:
  *   Charlie Bozeman <cbozeman@HiWAAY.net>
@@ skipping 29 matching lines @@
 
 #include <libxslt/xsltconfig.h>
 #include <libxslt/xsltutils.h>
 #include <libxslt/xsltInternals.h>
 #include <libxslt/extensions.h>
 
 #include "exslt.h"
 
 #include <string.h>
 
+#ifdef HAVE_ERRNO_H
+#include <errno.h>
+#endif
 #ifdef HAVE_MATH_H
 #include <math.h>
 #endif
 
 /* needed to get localtime_r on Solaris */
 #ifdef __sun
 #ifndef __EXTENSIONS__
 #define __EXTENSIONS__
 #endif
 #endif
@@ skipping 685 matching lines @@
 #ifdef WITH_TIME
 /**
  * exsltDateCurrent:
  *
  * Returns the current date and time.
  */
 static exsltDateValPtr
 exsltDateCurrent (void)
 {
     struct tm localTm, gmTm;
+#ifndef HAVE_GMTIME_R
+    struct tm *tb = NULL;
+#endif
     time_t secs;
     int local_s, gm_s;
     exsltDateValPtr ret;
+#ifdef HAVE_ERRNO_H
+    char *source_date_epoch;
+#endif /* HAVE_ERRNO_H */
+    int override = 0;
 
     ret = exsltDateCreateDate(XS_DATETIME);
     if (ret == NULL)
         return NULL;
 
+#ifdef HAVE_ERRNO_H
+    /*
+     * 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) {
+#if HAVE_GMTIME_R
+            if (gmtime_r(&secs, &localTm) != NULL)
+                override = 1;
+#else
+            tb = gmtime(&secs);
+            if (tb != NULL) {
+                localTm = *tb;
+                override = 1;
+            }
+#endif
+        }
+    }
+#endif /* HAVE_ERRNO_H */
+
+    if (override == 0) {
     /* get current time */
-    secs    = time(NULL);
+        secs    = time(NULL);
+
 #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;
 
     ret->value.date.mon  = localTm.tm_mon + 1;
     ret->value.date.day  = localTm.tm_mday;
     ret->value.date.hour = localTm.tm_hour;
     ret->value.date.min  = localTm.tm_min;
 
     /* floating point seconds */
     ret->value.date.sec  = (double) localTm.tm_sec;
 
     /* determine the time zone offset from local to gm time */
 #if HAVE_GMTIME_R
     gmtime_r(&secs, &gmTm);
 #else
-    gmTm = *gmtime(&secs);
+    tb = gmtime(&secs);
+    if (tb != NULL)
+        gmTm = *tb;
 #endif
     ret->value.date.tz_flag = 0;
 #if 0
     ret->value.date.tzo = (((ret->value.date.day * 1440) +
                             (ret->value.date.hour * 60) +
                              ret->value.date.min) -
                            ((gmTm.tm_mday * 1440) + (gmTm.tm_hour * 60) +
                              gmTm.tm_min));
 #endif
     local_s = localTm.tm_hour * SECS_PER_HOUR +
@@ skipping 3066 matching lines @@
                                    (const xmlChar *) EXSLT_DATE_NAMESPACE,
                                    exsltDateWeekInYearFunction)
         && !xmlXPathRegisterFuncNS(ctxt,
                                    (const xmlChar *) "year",
                                    (const xmlChar *) EXSLT_DATE_NAMESPACE,
                                    exsltDateYearFunction)) {
         return 0;
     }
     return -1;
 }