Added George Neville-Neil's timing module
diff --git a/Modules/timingmodule.c b/Modules/timingmodule.c
new file mode 100644
index 0000000..fcfa8f7
--- /dev/null
+++ b/Modules/timingmodule.c
@@ -0,0 +1,109 @@
+/*
+ *
+ * File: $Id$
+ *
+ * Author: George V. Neville-Neil
+ *
+ * Update History: $Log$
+ * Update History: Revision 2.1 1994/01/02 23:22:21 guido
+ * Update History: Added George Neville-Neil's timing module
+ * Update History:
+ * Revision 1.1 93/12/28 13:14:39 gnn
+ * Initial revision
+ *
+ *
+ *
+ *
+ */
+
+#ifndef lint
+static char rcsid [] = "$Header$" ;
+#endif
+
+#include "allobjects.h"
+#include "import.h"
+#include "modsupport.h"
+#include "ceval.h"
+
+/* Our stuff... */
+#include "timing.h"
+
+static object *
+start_timing(self, args)
+ object *self;
+ object *args;
+{
+ if (!getargs(args, ""))
+ return NULL;
+
+ INCREF(None);
+ BEGINTIMING;
+ return None;
+}
+
+static object *
+finish_timing(self, args)
+ object *self;
+ object *args;
+{
+ if (!getargs(args, ""))
+ return NULL;
+
+ ENDTIMING
+ INCREF(None);
+ return None;
+}
+
+static object *
+seconds(self, args)
+ object *self;
+ object *args;
+{
+ if (!getargs(args, ""))
+ return NULL;
+
+ return newintobject(TIMINGS);
+
+}
+
+static object *
+milli(self, args)
+ object *self;
+ object *args;
+{
+ if (!getargs(args, ""))
+ return NULL;
+
+ return newintobject(TIMINGMS);
+
+}
+static object *
+micro(self, args)
+ object *self;
+ object *args;
+{
+ if (!getargs(args, ""))
+ return NULL;
+
+ return newintobject(TIMINGUS);
+
+}
+
+
+static struct methodlist timing_methods[] = {
+ {"start", start_timing},
+ {"finish", finish_timing},
+ {"seconds", seconds},
+ {"milli", milli},
+ {"micro", micro},
+ {NULL, NULL}
+};
+
+
+void inittiming()
+{
+ object *m;
+
+ m = initmodule("timing", timing_methods);
+
+}