summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2020-10-07 07:03:04 -0700
committerKaz Kylheku <kaz@kylheku.com>2020-10-07 07:03:04 -0700
commitdff49e8198641254308cf77cc953742acd5ad935 (patch)
tree687762fe9c57d7a0b9cd6f55d0b7416b716f1424 /eval.c
parent7ced689e80d1733a40c6f51b764619c663e69345 (diff)
downloadtxr-dff49e8198641254308cf77cc953742acd5ad935.tar.gz
txr-dff49e8198641254308cf77cc953742acd5ad935.tar.bz2
txr-dff49e8198641254308cf77cc953742acd5ad935.zip
time: move time functions out of lib.c into time.c.
* Makefile (OBJS): Add new time.o. * eval.c (eval_init): Registration of time functions is removed from here; it is done in time_init now, in time.c. * hash.c: Must #include "time.h" now. * lib.c (time_s, time_local_s, time_utc_s, time_string_s, time_parse_s, year_s, month_s, day_s, hour_s, min_s, sec_s, dst_s, gmtoff_s, zone_s): Variable definitions removed. These are now in time.c. Also declared in time.h. (time_sec, time_sec_usec, gmtime_r, localtime_r, string_time, time_string_local, time_string_utc, broken_time_list, tm_to_time_struct, broken_time_struct, time_fields_local, time_fields_utc, time_struct_local, time_struct_utc, time_fields_to_tm, time_struct_to_tm, make_time_impl, make_time, epoch_tm, strptime_wrap, time_parse, setenv, unsetenv, timegm_hack, make_time_utc, time_meth, time_string_meth, time_parse_meth, time_parse_local, time_parse_utc): Functions removed. These are now in time.c. (time_init): Removed, and now in time.c as an external function. * lib.h (time_sec, time_sec_usec, time_string_local, time_string_utc, time_fields_local, time_fields_utc, time_struct_local, time_struct_utc, make_time, make_time_utc, time_parse, time_parse_local, time_parse_utc): Declarations removed. Now in time.h. * rand.c: Must #include "time.h" now. * time.c: New file. * time.h: New file.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c14
1 files changed, 0 insertions, 14 deletions
diff --git a/eval.c b/eval.c
index 6752ad18..986f0b37 100644
--- a/eval.c
+++ b/eval.c
@@ -7038,20 +7038,6 @@ void eval_init(void)
reg_fun(intern(lit("match-fun"), user_package), func_n4o(match_fun, 2));
- reg_fun(intern(lit("time"), user_package), func_n0(time_sec));
- reg_fun(intern(lit("time-usec"), user_package), func_n0(time_sec_usec));
- reg_fun(intern(lit("time-string-local"), user_package), func_n2(time_string_local));
- reg_fun(intern(lit("time-string-utc"), user_package), func_n2(time_string_utc));
- reg_fun(intern(lit("time-fields-local"), user_package), func_n1(time_fields_local));
- reg_fun(intern(lit("time-fields-utc"), user_package), func_n1(time_fields_utc));
- reg_fun(intern(lit("time-struct-local"), user_package), func_n1(time_struct_local));
- reg_fun(intern(lit("time-struct-utc"), user_package), func_n1(time_struct_utc));
- 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));
reg_fun(intern(lit("macro-ancestor"), user_package), func_n1(lookup_origin));