/* time.c -- R7RS time routines                              */
/* Copyright (c) 2011 Alex Shinn.  All rights reserved.      */
/* BSD-style license: http://synthcode.com/license.txt       */

#include <time.h>
#include <chibi/eval.h>

/* TODO: Check a leap second table file at appropriate intervals. */
static time_t leap_seconds_since_epoch = 34;

static sexp sexp_current_second (sexp ctx sexp_api_params(self, n)) {
  time_t res = time(NULL);
  return sexp_make_flonum(ctx, res + leap_seconds_since_epoch);
}

sexp sexp_init_library (sexp ctx sexp_api_params(self, n), sexp env) {
  sexp_define_foreign(ctx, env, "current-second", 0, sexp_current_second);
  return SEXP_VOID;
}