4 * Copyright 1993 Alexandre Julliard
10 /* #define DEBUG_TIMER */
14 typedef struct tagTIMER
17 WORD msg; /* WM_TIMER or WM_SYSTIMER */
20 struct tagTIMER *next;
26 #define NB_RESERVED_TIMERS 2 /* for SetSystemTimer */
28 static TIMER TimersArray[NB_TIMERS];
30 static TIMER * pNextTimer = NULL; /* Next timer to expire */
32 /* Duration from 'time' until expiration of the timer */
33 #define EXPIRE_TIME(pTimer,time) \
34 (((pTimer)->expires <= (time)) ? 0 : (pTimer)->expires - (time))
37 /***********************************************************************
40 * Insert the timer at its place in the chain.
42 static void TIMER_InsertTimer( TIMER * pTimer )
44 if (!pNextTimer || (pTimer->expires < pNextTimer->expires))
46 pTimer->next = pNextTimer;
51 TIMER * ptr = pNextTimer;
52 while (ptr->next && (pTimer->expires >= ptr->next->expires))
54 pTimer->next = ptr->next;
60 /***********************************************************************
63 * Remove the timer from the chain.
65 static void TIMER_RemoveTimer( TIMER * pTimer )
67 if (pTimer == pNextTimer) pNextTimer = pTimer->next;
70 TIMER * ptr = pNextTimer;
71 while (ptr && (ptr->next != pTimer)) ptr = ptr->next;
72 if (ptr) ptr->next = pTimer->next;
78 /***********************************************************************
81 * Restart an expired timer.
83 static void TIMER_RestartTimer( TIMER * pTimer, DWORD curTime )
85 TIMER_RemoveTimer( pTimer );
86 pTimer->expires = curTime + pTimer->timeout;
87 TIMER_InsertTimer( pTimer );
91 /***********************************************************************
94 * Check whether a timer has expired, and create a message if necessary.
95 * Otherwise, return time until next timer expiration in 'next'.
96 * If 'hwnd' is not NULL, only consider timers for this window.
97 * If 'remove' is TRUE, remove all expired timers up to the returned one.
99 BOOL TIMER_CheckTimer( LONG *next, MSG *msg, HWND hwnd, BOOL remove )
101 TIMER * pTimer = pNextTimer;
102 DWORD curTime = GetTickCount();
104 if (hwnd) /* Find first timer for this window */
105 while (pTimer && (pTimer->hwnd != hwnd)) pTimer = pTimer->next;
107 if (!pTimer) *next = -1;
108 else *next = EXPIRE_TIME( pTimer, curTime );
109 if (*next != 0) return FALSE; /* No timer expired */
111 if (remove) /* Restart all timers before pTimer, and then pTimer itself */
113 while (pNextTimer != pTimer) TIMER_RestartTimer( pNextTimer, curTime );
114 TIMER_RestartTimer( pTimer, curTime );
117 dprintf_timer(stddeb, "Timer expired: %p, %04x, %04x, %04x, %08lx\n",
118 pTimer, pTimer->hwnd, pTimer->msg, pTimer->id, (DWORD)pTimer->proc);
119 /* Build the message */
120 msg->hwnd = pTimer->hwnd;
121 msg->message = pTimer->msg;
122 msg->wParam = pTimer->id;
123 msg->lParam = (LONG)pTimer->proc;
129 /***********************************************************************
132 static WORD TIMER_SetTimer( HWND hwnd, WORD id, WORD timeout,
133 FARPROC proc, BOOL sys )
138 if (!timeout) return 0;
139 /* if (!hwnd && !proc) return 0; */
141 /* Check if there's already a timer with the same hwnd and id */
143 for (i = 0, pTimer = TimersArray; i < NB_TIMERS; i++, pTimer++)
144 if ((pTimer->hwnd == hwnd) && (pTimer->id == id) &&
145 (pTimer->timeout != 0))
147 /* Got one: set new values and return */
148 pTimer->timeout = timeout;
149 pTimer->expires = GetTickCount() + timeout;
151 TIMER_RemoveTimer( pTimer );
152 TIMER_InsertTimer( pTimer );
156 /* Find a free timer */
158 for (i = 0, pTimer = TimersArray; i < NB_TIMERS; i++, pTimer++)
159 if (!pTimer->timeout) break;
161 if (i >= NB_TIMERS) return 0;
162 if (!sys && (i >= NB_TIMERS-NB_RESERVED_TIMERS)) return 0;
163 if (!hwnd) id = i + 1;
168 pTimer->msg = sys ? WM_SYSTIMER : WM_TIMER;
170 pTimer->timeout = timeout;
171 pTimer->expires = GetTickCount() + timeout;
173 dprintf_timer(stddeb, "Timer added: %p, %04x, %04x, %04x, %08lx\n",
174 pTimer, pTimer->hwnd, pTimer->msg, pTimer->id, (DWORD)pTimer->proc);
175 TIMER_InsertTimer( pTimer );
176 QUEUE_IncTimerCount( GetTaskQueue(0) );
184 /***********************************************************************
187 static BOOL TIMER_KillTimer( HWND hwnd, WORD id, BOOL sys )
194 for (i = 0, pTimer = TimersArray; i < NB_TIMERS; i++, pTimer++)
195 if ((pTimer->hwnd == hwnd) && (pTimer->id == id) &&
196 (pTimer->timeout != 0)) break;
197 if (i >= NB_TIMERS) return FALSE;
198 if (!sys && (i >= NB_TIMERS-NB_RESERVED_TIMERS)) return FALSE;
199 if (!sys && (pTimer->msg != WM_TIMER)) return FALSE;
200 else if (sys && (pTimer->msg != WM_SYSTIMER)) return FALSE;
202 /* Delete the timer */
209 TIMER_RemoveTimer( pTimer );
210 QUEUE_DecTimerCount( GetTaskQueue(0) );
215 /***********************************************************************
218 WORD SetTimer( HWND hwnd, WORD id, WORD timeout, FARPROC proc )
220 dprintf_timer(stddeb, "SetTimer: %04x %d %d %08lx\n", hwnd, id, timeout, (LONG)proc );
221 return TIMER_SetTimer( hwnd, id, timeout, proc, FALSE );
225 /***********************************************************************
226 * SetSystemTimer (USER.11)
228 WORD SetSystemTimer( HWND hwnd, WORD id, WORD timeout, FARPROC proc )
230 dprintf_timer(stddeb, "SetSystemTimer: %04x %d %d %08lx\n",
231 hwnd, id, timeout, (LONG)proc );
232 return TIMER_SetTimer( hwnd, id, timeout, proc, TRUE );
236 /***********************************************************************
237 * KillTimer (USER.12)
239 BOOL KillTimer( HWND hwnd, WORD id )
241 dprintf_timer(stddeb, "KillTimer: %04x %d\n", hwnd, id );
242 return TIMER_KillTimer( hwnd, id, FALSE );
246 /***********************************************************************
247 * KillSystemTimer (USER.182)
249 BOOL KillSystemTimer( HWND hwnd, WORD id )
251 dprintf_timer(stddeb, "KillSystemTimer: %04x %d\n", hwnd, id );
252 return TIMER_KillTimer( hwnd, id, TRUE );