CAMLprim value unix_mktime(value t)
{
struct tm tm;
time_t clock;
value res;
value tmval = Val_unit, clkval = Val_unit;
Begin_roots2(tmval, clkval);
tm.tm_sec = Int_val(Field(t, 0));
tm.tm_min = Int_val(Field(t, 1));
tm.tm_hour = Int_val(Field(t, 2));
tm.tm_mday = Int_val(Field(t, 3));
tm.tm_mon = Int_val(Field(t, 4));
tm.tm_year = Int_val(Field(t, 5));
tm.tm_wday = Int_val(Field(t, 6));
tm.tm_yday = Int_val(Field(t, 7));
tm.tm_isdst = -1; /* tm.tm_isdst = Bool_val(Field(t, 8)); */
clock = mktime(&tm);
if (clock == (time_t) -1) unix_error(ERANGE, "mktime", Nothing);
tmval = alloc_tm(&tm);
clkval = copy_double((double) clock);
res = alloc_small(2, 0);
Field(res, 0) = clkval;
Field(res, 1) = tmval;
End_roots ();
return res;
}
struct pop_tm *unix_gmtime(int clock)
{
struct tm * tm;
tm = gmtime((time_t *)&clock);
if (tm == NULL)
raise_pop_exception(make_unix_error(__FILE__,__LINE__,EINVAL, "gmtime"));
return alloc_tm(tm);
}
CAMLprim value unix_gmtime(value t)
{
time_t clock;
struct tm * tm;
clock = (time_t) Double_val(t);
tm = gmtime(&clock);
if (tm == NULL) caml_failwith("gmtime");
return alloc_tm(tm);
}
CAMLprim value unix_localtime(value t)
{
time_t clock;
struct tm * tm;
clock = (time_t) Double_val(t);
tm = localtime(&clock);
if (tm == NULL) unix_error(EINVAL, "localtime", Nothing);
return alloc_tm(tm);
}
