Time structure.

* eval.c (eval_init): Register time-struct-local and time-struct-utc
intrinsic funtions.

* lib.c (time_s, year_s, month_s, day_s, hour_s, min_s, sec_s):
New global symbol variables.
(broken_time_struct, time_init): New static functions.
(time_struct_local, time_struct_utc): New functions.
(init): Call time_init.

* lib.h (time_struct_local, time_struct_utc): Declared.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 93a2b446..86c3bf1d 100644
--- a/lib.h
+++ b/lib.h
@@ -893,6 +893,8 @@ val time_string_local(val time, val format);
 val time_string_utc(val time, val format);
 val time_fields_local(val time);
 val time_fields_utc(val time);
+val time_struct_local(val time);
+val time_struct_utc(val time);
 val make_time(val year, val month, val day,
               val hour, val minute, val second,
               val isdst);