summaryrefslogtreecommitdiff
path: root/otherlibs/unix/gmtime.c
diff options
context:
space:
mode:
Diffstat (limited to 'otherlibs/unix/gmtime.c')
-rw-r--r--otherlibs/unix/gmtime.c37
1 files changed, 0 insertions, 37 deletions
diff --git a/otherlibs/unix/gmtime.c b/otherlibs/unix/gmtime.c
deleted file mode 100644
index ecbcd81a5f..0000000000
--- a/otherlibs/unix/gmtime.c
+++ /dev/null
@@ -1,37 +0,0 @@
-#include <mlvalues.h>
-#include <alloc.h>
-#include "unix.h"
-#include <time.h>
-
-static value alloc_tm(tm)
- struct tm * tm;
-{
- value res;
- res = alloc_tuple(9);
- Field(res,0) = Val_int(tm->tm_sec);
- Field(res,1) = Val_int(tm->tm_min);
- Field(res,2) = Val_int(tm->tm_hour);
- Field(res,3) = Val_int(tm->tm_mday);
- Field(res,4) = Val_int(tm->tm_mon);
- Field(res,5) = Val_int(tm->tm_year);
- Field(res,6) = Val_int(tm->tm_wday);
- Field(res,7) = Val_int(tm->tm_yday);
- Field(res,8) = tm->tm_isdst ? Val_true : Val_false;
- return res;
-}
-
-value unix_gmtime(t) /* ML */
- value t;
-{
- int clock;
- clock = Int_val(t);
- return alloc_tm(gmtime(&clock));
-}
-
-value unix_localtime(t) /* ML */
- value t;
-{
- int clock;
- clock = Int_val(t);
- return alloc_tm(localtime(&clock));
-}