Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 13:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

more accurate current-second

Browse source
This commit is contained in:
Alex Shinn 2012-06-25 22:03:54 -07:00
parent 1809aad33b
commit 881d976464
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lib/scheme/time.c
View file

@ -5,7 +5,7 @@
#include <chibi/eval.h> #include <chibi/eval.h>
#ifndef PLAN9 #ifndef PLAN9
#include <time.h> #include <sys/time.h>
#else #else
typedef long time_t; typedef long time_t;
#endif #endif
@ -14,8 +14,17 @@ typedef long time_t;
static time_t leap_seconds_since_epoch = 24; static time_t leap_seconds_since_epoch = 24;
static sexp sexp_current_second (sexp ctx, sexp self, sexp_sint_t n) { static sexp sexp_current_second (sexp ctx, sexp self, sexp_sint_t n) {
#ifndef PLAN9
struct timeval tv;
struct timezone tz;
if (gettimeofday(&tv, &tz))
return sexp_user_exception(ctx, self, "couldn't gettimeofday", SEXP_FALSE);
return sexp_make_flonum(ctx, tv.tv_sec + tv.tv_usec / 1000000.0
+ leap_seconds_since_epoch);
#else
time_t res = time(NULL); time_t res = time(NULL);
return sexp_make_flonum(ctx, res + leap_seconds_since_epoch); return sexp_make_flonum(ctx, res + leap_seconds_since_epoch);
#endif
} }
sexp sexp_init_library (sexp ctx, sexp self, sexp_sint_t n, sexp env, const char* version, sexp_abi_identifier_t abi) { sexp sexp_init_library (sexp ctx, sexp self, sexp_sint_t n, sexp env, const char* version, sexp_abi_identifier_t abi) {