New time-parse-local and time-parse-utc functions.

* eval.c (eval_init): Register intrinsic functions
time-parse-local and time-parse-utc.

* lib.c (strptime_wrap): New static function.
(time_parse): Now implemented as by call to strptime_wrap.
(time_parse_local, time_parse_utc): New functions.
These get the time_t time from struct tm without
constructing the intermediate Lisp structure.

* lib.h (time_parse_local, time_parse_utc): Declared.

* txr.1: Documented new functions.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 1584bd94..4b2f32f9 100644
--- a/eval.c
+++ b/eval.c
@@ -6133,6 +6133,8 @@ void eval_init(void)
   reg_fun(intern(lit("make-time"), user_package), func_n7(make_time));
   reg_fun(intern(lit("make-time-utc"), user_package), func_n7(make_time_utc));
   reg_fun(intern(lit("time-parse"), user_package), func_n2(time_parse));
+  reg_fun(intern(lit("time-parse-local"), user_package), func_n2(time_parse_local));
+  reg_fun(intern(lit("time-parse-utc"), user_package), func_n2(time_parse_utc));
 
   reg_fun(intern(lit("source-loc"), user_package), func_n1(source_loc));
   reg_fun(intern(lit("source-loc-str"), user_package), func_n2o(source_loc_str, 1));