mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-13 04:42:13 -08:00
Code Issues Projects Releases Packages Wiki Activity

Move some internal functions from time.d and the SI package to mislib without exporting the names.

Browse source
This commit is contained in:
jjgarcia 2005-11-04 11:24:32 +00:00
parent 3c75e19b61
commit ec31caef2a
12 changed files with 72 additions and 89 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/h/config.h.in
View file

@ -207,6 +207,8 @@ typedef unsigned @CL_FIXNUM_TYPE@ cl_hashkey;
#undef HAVE_FENV_H
/* can activate individual traps in floating point environment */
#undef HAVE_FEENABLEEXCEPT
/* the tzset() function gets the current time zone */
#undef HAVE_TZSET
/* what characters are used to mark beginning of new line */
#undef ECL_NEWLINE_IS_CRLF

6
src/h/external.h
View file

@ -1378,14 +1378,9 @@ extern void ecl_release_current_thread(void);
/* time.c */
extern cl_object cl_get_universal_time(void);
extern cl_object cl_sleep(cl_object z);
extern cl_object cl_get_internal_run_time(void);
extern cl_object cl_get_internal_real_time(void);
extern cl_object si_get_local_time_zone(void);
extern cl_object si_daylight_saving_time_p _ARGS((cl_narg narg, ...));
extern cl_object UTC_time_to_universal_time(cl_fixnum i);
/* typespec.c */
@ -1526,6 +1521,7 @@ extern cl_object cl_logical_pathname_translations _ARGS((cl_narg narg, cl_object
extern cl_object cl_load_logical_pathname_translations _ARGS((cl_narg, cl_object V1, ...));
extern cl_object cl_decode_universal_time _ARGS((cl_narg narg, cl_object V1, ...));
extern cl_object cl_encode_universal_time _ARGS((cl_narg narg, cl_object V1, cl_object V2, cl_object V3, cl_object V4, cl_object V5, cl_object V6, ...));
extern cl_object cl_get_universal_time _ARGS((cl_narg narg, ...));
extern cl_object cl_get_decoded_time _ARGS((cl_narg narg, ...));
extern cl_object cl_ensure_directories_exist _ARGS((cl_narg narg, cl_object V1, ...));
extern cl_object si_simple_program_error _ARGS((cl_narg narg, cl_object format, ...)) /*__attribute__((noreturn))*/;

1
src/h/internal.h
View file

@ -211,6 +211,7 @@ extern void cl_write_object(cl_object x, cl_object stream);
/* time.d */
#define UTC_time_to_universal_time(x) number_plus(make_integer(x),cl_core.Jan1st1970UT)
extern cl_fixnum ecl_runtime(void);
/* unixint.d */