Added George Neville-Neil's timing module

1 files changed, 109 insertions, 0 deletions

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);
+   
+}