1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
/*
*
* File: $Id$
*
* Author: George V. Neville-Neil
*
* Update History: $Log$
* Update History: Revision 2.2 1994/01/14 16:55:50 guido
* Update History: Make more robust against Minix and Mac
* Update History:
* Revision 2.1 1994/01/02 23:22:21 guido
* Added George Neville-Neil's timing module
*
* Revision 1.1 93/12/28 13:14:39 gnn
* Initial revision
*
*
*
*
*/
#ifndef lint
#ifndef THINK_C
static char rcsid [] = "$Header$" ;
#endif /* THINK_C */
#endif /* lint */
#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);
}
|
