Added times() (from time)
diff --git a/Modules/posixmodule.c b/Modules/posixmodule.c
index df4d888..992147f 100644
--- a/Modules/posixmodule.c
+++ b/Modules/posixmodule.c
@@ -1,5 +1,5 @@
/***********************************************************
-Copyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The
+Copyright 1991, 1992 by Stichting Mathematisch Centrum, Amsterdam, The
Netherlands.
All Rights Reserved
@@ -34,12 +34,22 @@
#define NO_UNAME
#endif
+#ifndef MSDOS
+#define DO_TIMES /* Comment this out if it causes trouble */
+#endif
+
#include <signal.h>
#include <string.h>
#include <setjmp.h>
#include <sys/types.h>
#include <sys/stat.h>
+#ifdef DO_TIMES
+#include <sys/times.h>
+#include <sys/param.h>
+#include <errno.h>
+#endif
+
#ifdef SYSV
#define UTIME_STRUCT
@@ -58,7 +68,7 @@
#endif /* !SYSV */
#ifndef NO_UNISTD
-#include <unistd.h> /* Take this out if it doesn't exist */
+#include <unistd.h> /* Take this out and hope the best if it doesn't exist */
#endif
#include "allobjects.h"
@@ -691,6 +701,41 @@
}
+#ifdef DO_TIMES
+
+static object *
+posix_times(self, args)
+ object *self;
+ object *args;
+{
+ struct tms t;
+ clock_t c;
+ object *tuple;
+ if (!getnoarg(args))
+ return NULL;
+ errno = 0;
+ c = times(&t);
+ if (c == (clock_t) -1) {
+ err_errno(IOError);
+ return NULL;
+ }
+ tuple = newtupleobject(4);
+ if (tuple == NULL)
+ return NULL;
+ settupleitem(tuple, 0, newfloatobject((double)t.tms_utime / HZ));
+ settupleitem(tuple, 1, newfloatobject((double)t.tms_stime / HZ));
+ settupleitem(tuple, 2, newfloatobject((double)t.tms_cutime / HZ));
+ settupleitem(tuple, 3, newfloatobject((double)t.tms_cstime / HZ));
+ if (err_occurred()) {
+ DECREF(tuple);
+ return NULL;
+ }
+ return tuple;
+}
+
+#endif
+
+
static struct methodlist posix_methods[] = {
{"chdir", posix_chdir},
{"chmod", posix_chmod},
@@ -715,6 +760,9 @@
#endif
{"unlink", posix_unlink},
{"utime", posix_utime},
+#ifdef DO_TIMES
+ {"times", posix_times},
+#endif
#ifndef MSDOS
{"_exit", posix__exit},