1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Copyright 2012 Alexis Laferrière <alexis.laf@xymus.net>
5 # This file is free software, which comes along with NIT. This software is
6 # distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
7 # without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
8 # PARTICULAR PURPOSE. You can modify it is you want, provided this header
9 # is kept unaltered, and a notification of the changes is added.
10 # You are allowed to redistribute it and sell it, alone or is a part of
13 # Services to keep time of the wall clock time
14 module realtime
is ldflags
"-lrt"
17 #ifdef _POSIX_C_SOURCE
18 #undef _POSIX_C_SOURCE
20 #define _POSIX_C_SOURCE 199309L
27 /* OS X does not have clock_gettime, mascarade it and use clock_get_time
28 * cf http://stackoverflow.com/questions/11680461/monotonic-clock-on-osx
30 #include <mach/clock.h>
31 #include <mach/mach.h>
32 #define CLOCK_REALTIME CALENDAR_CLOCK
33 #define CLOCK_MONOTONIC SYSTEM_CLOCK
34 void clock_gettime(clock_t clock_name, struct timespec *ts) {
37 host_get_clock_service(mach_host_self(), clock_name, &cclock);
38 clock_get_time(cclock, &mts);
39 mach_port_deallocate(mach_task_self(), cclock);
40 ts->tv_sec = mts.tv_sec;
41 ts->tv_nsec = mts.tv_nsec;
46 # Elapsed time representation.
47 extern class Timespec `{struct timespec*`}
49 # Init a new Timespec from `s
` seconds and `ns
` nanoseconds.
50 new ( s, ns : Int ) `{
51 struct timespec
* tv
= malloc
( sizeof
(struct timespec
) );
52 tv-
>tv_sec
= s
; tv-
>tv_nsec
= ns
;
56 # Init a new Timespec from now.
58 struct timespec
* tv
= malloc
( sizeof
(struct timespec
) );
59 clock_gettime
( CLOCK_MONOTONIC, tv
);
63 # Init a new Timespec copied from another.
64 new copy_of( other : Timespec ) `{
65 struct timespec
* tv
= malloc
( sizeof
(struct timespec
) );
66 tv-
>tv_sec
= other-
>tv_sec
;
67 tv-
>tv_nsec
= other-
>tv_nsec
;
71 # Update `self` clock.
73 clock_gettime
(CLOCK_MONOTONIC, self);
76 # Subtract `other
` from `self`
77 fun -(other: Timespec): Timespec
79 var s = sec - other.sec
80 var ns = nanosec - other.nanosec
85 return new Timespec(s, ns)
88 # Number of whole seconds of elapsed time.
93 # Rest of the elapsed time (a fraction of a second).
95 # Number of nanoseconds.
100 # Elapsed time in microseconds, with both whole seconds and the rest
102 # May cause an `Int` overflow, use only with a low number of seconds.
104 return self-
>tv_sec
*1000000 + self-
>tv_nsec
/1000;
107 # Elapsed time in milliseconds, with both whole seconds and the rest
109 # May cause an `Int` overflow, use only with a low number of seconds.
111 return self-
>tv_sec
*1000 + self-
>tv_nsec
/1000000;
114 # Number of seconds as a `Float`
116 # Incurs a loss of precision, but the result is pretty to print.
117 fun to_f: Float do return sec.to_f + nanosec.to_f / 1000000000.0
119 redef fun to_s do return "{to_f}s"
122 # Keeps track of real time
125 # var clock = new Clock
127 # # sleeping at least 1s
129 # assert clock.total >= 1.0
130 # assert clock.lapse >= 1.0
132 # # sleeping at least 5ms
134 # assert clock.total >= 1.005
135 # assert clock.lapse >= 0.005
138 super FinalizableOnce
140 # TODO use less mallocs
143 protected var time_at_beginning = new Timespec.monotonic_now
145 # Time at last time a lapse method was called
146 protected var time_at_last_lapse = new Timespec.monotonic_now
148 # Smallest time frame reported by clock
149 fun resolution: Timespec `{
150 struct timespec
* tv
= malloc
( sizeof
(struct timespec
) );
154 mach_msg_type_number_t count
;
155 host_get_clock_service
(mach_host_self
(), SYSTEM_CLOCK, &cclock
);
156 clock_get_attributes
(cclock
, CLOCK_GET_TIME_RES, (clock_attr_t
)&nsecs
, &count
);
157 mach_port_deallocate
(mach_task_self
(), cclock
);
161 clock_getres
( CLOCK_MONOTONIC, tv
);
166 # Seconds since the creation of this instance
169 var now = new Timespec.monotonic_now
170 var diff = now - time_at_beginning
177 # Seconds since the last call to `lapse
`
180 var nt = new Timespec.monotonic_now
181 var dt = nt - time_at_last_lapse
184 time_at_last_lapse.free
185 time_at_last_lapse = nt
189 # Seconds since the last call to `lapse
`, without resetting the lapse counter
190 fun peek_lapse: Float
192 var nt = new Timespec.monotonic_now
193 var dt = nt - time_at_last_lapse
200 redef fun finalize_once
202 time_at_beginning.free
203 time_at_last_lapse.free