Honour an external definition of SOURCE_DATE_EPOCH when updating the embedded
modification date in TTF/TTC files.

--- a/lib/tatime.c
+++ b/lib/tatime.c
@@ -15,6 +15,8 @@
 
 #include <time.h>
 #include <stdint.h>
+#include <errno.h>
+#include <limits.h>
 
 #include "ta.h"
 
@@ -27,12 +29,51 @@ TA_get_current_time(FT_ULong* high,
 {
   /* there have been 24107 days between January 1st, 1904 (the epoch of */
   /* OpenType), and January 1st, 1970 (the epoch of the `time' function) */
-  TA_ULongLong seconds_to_1970 = 24107 * 24 * 60 * 60;
-  TA_ULongLong seconds_to_today = seconds_to_1970 + (TA_ULongLong)time(NULL);
+  const TA_ULongLong seconds_to_1970 = 24107 * 24 * 60 * 60;
+  TA_ULongLong seconds_to_build;
 
+  time_t now;
+  char *source_date_epoch, *endptr;
+  TA_ULongLong epoch;
+  source_date_epoch = getenv("SOURCE_DATE_EPOCH");
+  if (source_date_epoch) {
+    errno = 0;
+    epoch = strtoull(source_date_epoch, &endptr, 10);
+    if ((errno == ERANGE && (epoch == ULLONG_MAX || epoch == 0))
+	|| (errno != 0 && epoch == 0)) {
+      fprintf(stderr,
+	      "Environment variable $SOURCE_DATE_EPOCH: strtoull: %s\n",
+	      strerror(errno));
+      exit(EXIT_FAILURE);
+    }
+    if (endptr == source_date_epoch) {
+      fprintf(stderr,
+	      "Environment variable $SOURCE_DATE_EPOCH: No digits were found: %s\n",
+	      endptr);
+      exit(EXIT_FAILURE);
+    }
+    if (*endptr != '\0') {
+      fprintf(stderr,
+	      "Environment variable $SOURCE_DATE_EPOCH: Trailing garbage: %s\n",
+	      endptr);
+      exit(EXIT_FAILURE);
+    }
+    if (epoch > ULONG_MAX) {
+      fprintf(stderr,
+	      "Environment variable $SOURCE_DATE_EPOCH: value must be smaller "
+	      "than or equal to: %lu but was found to be: %llu \n",
+	      ULONG_MAX, epoch);
+      exit(EXIT_FAILURE);
+    }
+    now = epoch;
+  } else {
+    now = time(NULL);
+  }
 
-  *high = (FT_ULong)(seconds_to_today >> 32);
-  *low = (FT_ULong)seconds_to_today;
+  seconds_to_build = seconds_to_1970 + (TA_ULongLong)now;
+
+  *high = (FT_ULong)(seconds_to_build >> 32);
+  *low = (FT_ULong)seconds_to_build;
 }
 
 /* end of tatime.c */
6976e0b8581bd0ab6e'>root</a>/<a href='/guix/log/gnu?id=b8a6230df3fbbeeddb7a0e6976e0b8581bd0ab6e'>gnu</a>/<a href='/guix/log/gnu/packages?id=b8a6230df3fbbeeddb7a0e6976e0b8581bd0ab6e'>packages</a>/<a href='/guix/log/gnu/packages/task-management.scm?id=b8a6230df3fbbeeddb7a0e6976e0b8581bd0ab6e'>task-management.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/task-management.scm?id=b8a6230df3fbbeeddb7a0e6976e0b8581bd0ab6e&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2016-05-31 22:14:52 +0200'>2016-05-31</span></td><td><a href='/guix/commit/gnu/packages/task-management.scm?id=7a0094a5f29cd6f49213c020ac55cb2f17f5d8cb'>gnu: taskwarrior: Update to 2.5.1</a><span class='msg-avail'>...</span></td><td>Tomáš Čech</td></tr>
<tr><td><span title='2015-07-05 17:09:42 +0200'>2015-07-05</span></td><td><a href='/guix/commit/gnu/packages/task-management.scm?id=a7fd7b68a6727ea168ae69893a01d7731e9073cf'>gnu: Rename module gnutls to tls.</a><span class='msg-avail'>...</span></td><td>Andreas Enge</td></tr>