4 * This module tracks any timers set up by schedule_timer(). It
5 * keeps all the currently active timers in a list; it informs the
6 * front end of when the next timer is due to go off if that
7 * changes; and, very importantly, it tracks the context pointers
8 * passed to schedule_timer(), so that if a context is freed all
9 * the timers associated with it can be immediately annulled.
12 * The problem is that computer clocks aren't perfectly accurate.
13 * The GETTICKCOUNT function returns a 32bit number that normally
14 * increases by about 1000 every second. On windows this uses the PC's
15 * interrupt timer and so is only accurate to around 20ppm. On unix it's
16 * a value that's calculated from the current UTC time and so is in theory
17 * accurate in the long term but may jitter and jump in the short term.
19 * What PuTTY needs from these timers is simply a way of delaying the
20 * calling of a function for a little while, if it's occasionally called a
21 * little early or late that's not a problem. So to protect against clock
22 * jumps schedule_timer records the time that it was called in the timer
23 * structure. With this information the run_timers function can see when
24 * the current GETTICKCOUNT value is after the time the event should be
25 * fired OR before the time it was set. In the latter case the clock must
26 * have jumped, the former is (probably) just the normal passage of time.
40 unsigned long when_set
;
43 static tree234
*timers
= NULL
;
44 static tree234
*timer_contexts
= NULL
;
45 static unsigned long now
= 0L;
47 static int compare_timers(void *av
, void *bv
)
49 struct timer
*a
= (struct timer
*)av
;
50 struct timer
*b
= (struct timer
*)bv
;
51 long at
= a
->now
- now
;
52 long bt
= b
->now
- now
;
60 * Failing that, compare on the other two fields, just so that
61 * we don't get unwanted equality.
63 #if defined(__LCC__) || defined(__clang__)
64 /* lcc won't let us compare function pointers. Legal, but annoying. */
66 int c
= memcmp(&a
->fn
, &b
->fn
, sizeof(a
->fn
));
73 else if (a
->fn
> b
->fn
)
79 else if (a
->ctx
> b
->ctx
)
83 * Failing _that_, the two entries genuinely are equal, and we
84 * never have a need to store them separately in the tree.
89 static int compare_timer_contexts(void *av
, void *bv
)
100 static void init_timers(void)
103 timers
= newtree234(compare_timers
);
104 timer_contexts
= newtree234(compare_timer_contexts
);
105 now
= GETTICKCOUNT();
109 unsigned long schedule_timer(int ticks
, timer_fn_t fn
, void *ctx
)
112 struct timer
*t
, *first
;
116 now
= GETTICKCOUNT();
120 * Just in case our various defences against timing skew fail
121 * us: if we try to schedule a timer that's already in the
122 * past, we instead schedule it for the immediate future.
127 t
= snew(struct timer
);
133 if (t
!= add234(timers
, t
)) {
134 sfree(t
); /* identical timer already exists */
136 add234(timer_contexts
, t
->ctx
);/* don't care if this fails */
139 first
= (struct timer
*)index234(timers
, 0);
142 * This timer is the very first on the list, so we must
143 * notify the front end.
145 timer_change_notify(first
->now
);
152 * Call to run any timers whose time has reached the present.
153 * Returns the time (in ticks) expected until the next timer after
156 int run_timers(unsigned long anow
, unsigned long *next
)
162 now
= GETTICKCOUNT();
165 first
= (struct timer
*)index234(timers
, 0);
168 return FALSE
; /* no timers remaining */
170 if (find234(timer_contexts
, first
->ctx
, NULL
) == NULL
) {
172 * This timer belongs to a context that has been
173 * expired. Delete it without running.
175 delpos234(timers
, 0);
177 } else if (now
- (first
->when_set
- 10) >
178 first
->now
- (first
->when_set
- 10)) {
180 * This timer is active and has reached its running
183 delpos234(timers
, 0);
184 first
->fn(first
->ctx
, first
->now
);
188 * This is the first still-active timer that is in the
189 * future. Return how long it has yet to go.
198 * Call to expire all timers associated with a given context.
200 void expire_timer_context(void *ctx
)
205 * We don't bother to check the return value; if the context
206 * already wasn't in the tree (presumably because no timers
207 * ever actually got scheduled for it) then that's fine and we
208 * simply don't need to do anything.
210 del234(timer_contexts
, ctx
);