diff options
Diffstat (limited to 'otherlibs/unix/times.c')
-rw-r--r-- | otherlibs/unix/times.c | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/otherlibs/unix/times.c b/otherlibs/unix/times.c deleted file mode 100644 index a64ec327c2..0000000000 --- a/otherlibs/unix/times.c +++ /dev/null @@ -1,29 +0,0 @@ -#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; -} |