From fbbdb0a37edf93b93bc030e9136bf24caf899c9f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 23 Oct 2016 14:55:05 -0700
Subject: Default to epoch time in time-parse.

* lib.c (epoch_time): New static function.
(time_parse): Default the struct tm to epoch.

* txr.1: Documented.
---
 lib.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index 8ffadc8c..5a65e6c7 100644
--- a/lib.c
+++ b/lib.c
@@ -9770,9 +9770,17 @@ val make_time(val year, val month, val day,
 
 #if HAVE_STRPTIME
 
+static struct tm epoch_tm(void)
+{
+  struct tm ep = { 0 };
+  ep.tm_year = 70;
+  ep.tm_mday = 1;
+  return ep;
+}
+
 val time_parse(val format, val string)
 {
-  struct tm tms = { 0 };
+  struct tm tms = epoch_tm();
   const wchar_t *w_str = c_str(string);
   const wchar_t *w_fmt = c_str(format);
   char *str = utf8_dup_to(w_str);
-- 
cgit v1.2.3