Recuperation de libunix de CL0.7

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 29 insertions, 0 deletions

diff --git a/otherlibs/unix/times.c b/otherlibs/unix/times.c
new file mode 100644
index 000000000..a64ec327c
--- /dev/null
+++ b/otherlibs/unix/times.c
@@ -0,0 +1,29 @@
+#include <mlvalues.h>
+#include <alloc.h>
+#include <memory.h>
+#include "unix.h"
+#include <sys/types.h>
+#include <sys/times.h>
+
+value unix_times()               /* ML */
+{
+  value res;
+  struct tms buffer;
+  int i;
+  Push_roots(t,4);
+
+#ifndef HZ
+#define HZ 60
+#endif
+
+  times(&buffer);
+  t[0] = copy_double((double) buffer.tms_utime / HZ);
+  t[1] = copy_double((double) buffer.tms_stime / HZ);
+  t[2] = copy_double((double) buffer.tms_cutime / HZ);
+  t[3] = copy_double((double) buffer.tms_cstime / HZ);
+  res = alloc_tuple(4);
+  for (i = 0; i < 4; i++)
+    Field(res, i) = t[i];
+  Pop_roots();
+  return res;
+}