File: | src/NextEvent.c |
Location: | line 1045, column 9 |
Description: | Access to field 'outstandingQueue' results in a dereference of a null pointer (loaded from variable 'app') |
1 | /*********************************************************** | |||
2 | Copyright (c) 1993, Oracle and/or its affiliates. All rights reserved. | |||
3 | ||||
4 | Permission is hereby granted, free of charge, to any person obtaining a | |||
5 | copy of this software and associated documentation files (the "Software"), | |||
6 | to deal in the Software without restriction, including without limitation | |||
7 | the rights to use, copy, modify, merge, publish, distribute, sublicense, | |||
8 | and/or sell copies of the Software, and to permit persons to whom the | |||
9 | Software is furnished to do so, subject to the following conditions: | |||
10 | ||||
11 | The above copyright notice and this permission notice (including the next | |||
12 | paragraph) shall be included in all copies or substantial portions of the | |||
13 | Software. | |||
14 | ||||
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |||
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |||
17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL | |||
18 | THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER | |||
19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING | |||
20 | FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER | |||
21 | DEALINGS IN THE SOFTWARE. | |||
22 | ||||
23 | Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts. | |||
24 | ||||
25 | All Rights Reserved | |||
26 | ||||
27 | Permission to use, copy, modify, and distribute this software and its | |||
28 | documentation for any purpose and without fee is hereby granted, | |||
29 | provided that the above copyright notice appear in all copies and that | |||
30 | both that copyright notice and this permission notice appear in | |||
31 | supporting documentation, and that the name of Digital not be | |||
32 | used in advertising or publicity pertaining to distribution of the | |||
33 | software without specific, written prior permission. | |||
34 | ||||
35 | DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING | |||
36 | ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL | |||
37 | DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR | |||
38 | ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, | |||
39 | WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, | |||
40 | ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS | |||
41 | SOFTWARE. | |||
42 | ||||
43 | ******************************************************************/ | |||
44 | ||||
45 | /* | |||
46 | ||||
47 | Copyright 1987, 1988, 1994, 1998, 2001 The Open Group | |||
48 | ||||
49 | Permission to use, copy, modify, distribute, and sell this software and its | |||
50 | documentation for any purpose is hereby granted without fee, provided that | |||
51 | the above copyright notice appear in all copies and that both that | |||
52 | copyright notice and this permission notice appear in supporting | |||
53 | documentation. | |||
54 | ||||
55 | The above copyright notice and this permission notice shall be included in | |||
56 | all copies or substantial portions of the Software. | |||
57 | ||||
58 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |||
59 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |||
60 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE | |||
61 | OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN | |||
62 | AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN | |||
63 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | |||
64 | ||||
65 | Except as contained in this notice, the name of The Open Group shall not be | |||
66 | used in advertising or otherwise to promote the sale, use or other dealings | |||
67 | in this Software without prior written authorization from The Open Group. | |||
68 | ||||
69 | */ | |||
70 | ||||
71 | #ifdef HAVE_CONFIG_H1 | |||
72 | #include <config.h> | |||
73 | #endif | |||
74 | #include "IntrinsicI.h" | |||
75 | #include <stdio.h> | |||
76 | #include <errno(*__error()).h> | |||
77 | ||||
78 | ||||
79 | static TimerEventRec* freeTimerRecs; | |||
80 | static WorkProcRec* freeWorkRecs; | |||
81 | static SignalEventRec* freeSignalRecs; | |||
82 | ||||
83 | /* Some systems running NTP daemons are known to return strange usec | |||
84 | * values from gettimeofday. | |||
85 | */ | |||
86 | ||||
87 | #ifndef NEEDS_NTPD_FIXUP0 | |||
88 | # if defined(sun) || defined(MOTOROLA) || (defined(__osf__) && defined(__alpha)) | |||
89 | # define NEEDS_NTPD_FIXUP0 1 | |||
90 | # else | |||
91 | # define NEEDS_NTPD_FIXUP0 0 | |||
92 | # endif | |||
93 | #endif | |||
94 | ||||
95 | #if NEEDS_NTPD_FIXUP0 | |||
96 | #define FIXUP_TIMEVAL(t) { \ | |||
97 | while ((t).tv_usec >= 1000000) { \ | |||
98 | (t).tv_usec -= 1000000; \ | |||
99 | (t).tv_sec++; \ | |||
100 | } \ | |||
101 | while ((t).tv_usec < 0) { \ | |||
102 | if ((t).tv_sec > 0) { \ | |||
103 | (t).tv_usec += 1000000; \ | |||
104 | (t).tv_sec--; \ | |||
105 | } else { \ | |||
106 | (t).tv_usec = 0; \ | |||
107 | break; \ | |||
108 | } \ | |||
109 | }} | |||
110 | #else | |||
111 | #define FIXUP_TIMEVAL(t) | |||
112 | #endif /*NEEDS_NTPD_FIXUP*/ | |||
113 | ||||
114 | /* | |||
115 | * Private routines | |||
116 | */ | |||
117 | #define ADD_TIME(dest, src1, src2){ if(((dest).tv_usec = (src1).tv_usec + (src2).tv_usec) >= 1000000) { (dest).tv_usec -= 1000000; (dest).tv_sec = (src1) .tv_sec + (src2).tv_sec + 1 ; } else { (dest).tv_sec = (src1) .tv_sec + (src2).tv_sec ; if(((dest).tv_sec >= 1) && (((dest).tv_usec <0))) { (dest).tv_sec --;(dest).tv_usec += 1000000; } } } { \ | |||
118 | if(((dest).tv_usec = (src1).tv_usec + (src2).tv_usec) >= 1000000) {\ | |||
119 | (dest).tv_usec -= 1000000;\ | |||
120 | (dest).tv_sec = (src1).tv_sec + (src2).tv_sec + 1 ; \ | |||
121 | } else { (dest).tv_sec = (src1).tv_sec + (src2).tv_sec ; \ | |||
122 | if(((dest).tv_sec >= 1) && (((dest).tv_usec <0))) { \ | |||
123 | (dest).tv_sec --;(dest).tv_usec += 1000000; } } } | |||
124 | ||||
125 | ||||
126 | #define TIMEDELTA(dest, src1, src2){ if(((dest).tv_usec = (src1).tv_usec - (src2).tv_usec) < 0 ) { (dest).tv_usec += 1000000; (dest).tv_sec = (src1).tv_sec - (src2).tv_sec - 1; } else (dest).tv_sec = (src1).tv_sec - (src2 ).tv_sec; } { \ | |||
127 | if(((dest).tv_usec = (src1).tv_usec - (src2).tv_usec) < 0) {\ | |||
128 | (dest).tv_usec += 1000000;\ | |||
129 | (dest).tv_sec = (src1).tv_sec - (src2).tv_sec - 1;\ | |||
130 | } else (dest).tv_sec = (src1).tv_sec - (src2).tv_sec; } | |||
131 | ||||
132 | #define IS_AFTER(t1, t2)(((t2).tv_sec > (t1).tv_sec) || (((t2).tv_sec == (t1).tv_sec )&& ((t2).tv_usec > (t1).tv_usec))) (((t2).tv_sec > (t1).tv_sec) \ | |||
133 | || (((t2).tv_sec == (t1).tv_sec)&& ((t2).tv_usec > (t1).tv_usec))) | |||
134 | ||||
135 | #define IS_AT_OR_AFTER(t1, t2)(((t2).tv_sec > (t1).tv_sec) || (((t2).tv_sec == (t1).tv_sec )&& ((t2).tv_usec >= (t1).tv_usec))) (((t2).tv_sec > (t1).tv_sec) \ | |||
136 | || (((t2).tv_sec == (t1).tv_sec)&& ((t2).tv_usec >= (t1).tv_usec))) | |||
137 | ||||
138 | #ifdef USE_POLL1 | |||
139 | #ifndef XT_DEFAULT_FDLIST_SIZE32 | |||
140 | #define XT_DEFAULT_FDLIST_SIZE32 32 | |||
141 | #endif | |||
142 | #endif | |||
143 | ||||
144 | static void AdjustHowLong ( | |||
145 | unsigned long *howlong, | |||
146 | struct timeval *start_time) | |||
147 | { | |||
148 | struct timeval new_time, time_spent, lstart_time; | |||
149 | ||||
150 | lstart_time = *start_time; | |||
151 | X_GETTIMEOFDAY (&new_time)gettimeofday(&new_time, (struct timezone*)0); | |||
152 | FIXUP_TIMEVAL(new_time); | |||
153 | TIMEDELTA(time_spent, new_time, lstart_time){ if(((time_spent).tv_usec = (new_time).tv_usec - (lstart_time ).tv_usec) < 0) { (time_spent).tv_usec += 1000000; (time_spent ).tv_sec = (new_time).tv_sec - (lstart_time).tv_sec - 1; } else (time_spent).tv_sec = (new_time).tv_sec - (lstart_time).tv_sec ; }; | |||
154 | if(*howlong <= (unsigned long)(time_spent.tv_sec*1000+time_spent.tv_usec/1000)) | |||
155 | *howlong = (unsigned long)0; /* Timed out */ | |||
156 | else | |||
157 | *howlong -= (time_spent.tv_sec*1000+time_spent.tv_usec/1000); | |||
158 | } | |||
159 | ||||
160 | typedef struct { | |||
161 | struct timeval cur_time; | |||
162 | struct timeval start_time; | |||
163 | struct timeval wait_time; | |||
164 | struct timeval new_time; | |||
165 | struct timeval time_spent; | |||
166 | struct timeval max_wait_time; | |||
167 | #ifndef USE_POLL1 | |||
168 | struct timeval *wait_time_ptr; | |||
169 | #else | |||
170 | int poll_wait; | |||
171 | #endif | |||
172 | } wait_times_t, *wait_times_ptr_t; | |||
173 | ||||
174 | static struct timeval zero_time = { 0 , 0}; | |||
175 | #ifndef USE_POLL1 | |||
176 | static fd_set zero_fd; | |||
177 | #else | |||
178 | #define X_BLOCK-1 -1 | |||
179 | #define X_DONT_BLOCK0 0 | |||
180 | #endif | |||
181 | ||||
182 | static void InitTimes ( | |||
183 | Boolean block, | |||
184 | unsigned long* howlong, | |||
185 | wait_times_ptr_t wt) | |||
186 | { | |||
187 | if (block) { | |||
188 | X_GETTIMEOFDAY (&wt->cur_time)gettimeofday(&wt->cur_time, (struct timezone*)0); | |||
189 | FIXUP_TIMEVAL(wt->cur_time); | |||
190 | wt->start_time = wt->cur_time; | |||
191 | if(howlong == NULL((void*)0)) { /* special case for ever */ | |||
192 | #ifndef USE_POLL1 | |||
193 | wt->wait_time_ptr = NULL((void*)0); | |||
194 | #else | |||
195 | wt->poll_wait = X_BLOCK-1; | |||
196 | #endif | |||
197 | } else { /* block until at most */ | |||
198 | wt->max_wait_time.tv_sec = *howlong/1000; | |||
199 | wt->max_wait_time.tv_usec = (*howlong %1000)*1000; | |||
200 | #ifndef USE_POLL1 | |||
201 | wt->wait_time_ptr = &wt->max_wait_time; | |||
202 | #else | |||
203 | wt->poll_wait = *howlong; | |||
204 | #endif | |||
205 | } | |||
206 | } else { /* don't block */ | |||
207 | wt->max_wait_time = zero_time; | |||
208 | #ifndef USE_POLL1 | |||
209 | wt->wait_time_ptr = &wt->max_wait_time; | |||
210 | #else | |||
211 | wt->poll_wait = X_DONT_BLOCK0; | |||
212 | #endif | |||
213 | } | |||
214 | } | |||
215 | ||||
216 | typedef struct { | |||
217 | #ifndef USE_POLL1 | |||
218 | fd_set rmask, wmask, emask; | |||
219 | int nfds; | |||
220 | #else | |||
221 | struct pollfd* fdlist; | |||
222 | struct pollfd* stack; | |||
223 | int fdlistlen, num_dpys; | |||
224 | #endif | |||
225 | } wait_fds_t, *wait_fds_ptr_t; | |||
226 | ||||
227 | static void InitFds ( | |||
228 | XtAppContext app, | |||
229 | Boolean ignoreEvents, | |||
230 | Boolean ignoreInputs, | |||
231 | wait_fds_ptr_t wf) | |||
232 | { | |||
233 | int ii; | |||
234 | app->rebuild_fdlist = FALSE0; | |||
235 | #ifndef USE_POLL1 | |||
236 | wf->nfds = app->fds.nfds; | |||
237 | if( !ignoreInputs ) { | |||
238 | wf->rmask = app->fds.rmask; | |||
239 | wf->wmask = app->fds.wmask; | |||
240 | wf->emask = app->fds.emask; | |||
241 | } else | |||
242 | wf->rmask = wf->wmask = wf->emask = zero_fd; | |||
243 | ||||
244 | if (!ignoreEvents) | |||
245 | for (ii = 0; ii < app->count; ii++) { | |||
246 | FD_SET (ConnectionNumber(app->list[ii]), &wf->rmask)do { int __fd = ((((_XPrivDisplay)(app->list[ii]))->fd) ); ((&wf->rmask)->fds_bits[(unsigned long)__fd/(sizeof (__int32_t) * 8)] |= ((__int32_t)(1<<((unsigned long)__fd % (sizeof(__int32_t) * 8))))); } while(0); | |||
247 | } | |||
248 | #else | |||
249 | #ifndef POLLRDNORM0x0040 | |||
250 | #define POLLRDNORM0x0040 0 | |||
251 | #endif | |||
252 | ||||
253 | #ifndef POLLRDBAND0x0080 | |||
254 | #define POLLRDBAND0x0080 0 | |||
255 | #endif | |||
256 | ||||
257 | #ifndef POLLWRNORM0x0004 | |||
258 | #define POLLWRNORM0x0004 0 | |||
259 | #endif | |||
260 | ||||
261 | #ifndef POLLWRBAND0x0100 | |||
262 | #define POLLWRBAND0x0100 0 | |||
263 | #endif | |||
264 | ||||
265 | #define XPOLL_READ(0x0001|0x0040|0x0002|0x0080) (POLLIN0x0001|POLLRDNORM0x0040|POLLPRI0x0002|POLLRDBAND0x0080) | |||
266 | #define XPOLL_WRITE(0x0004|0x0004|0x0100) (POLLOUT0x0004|POLLWRNORM0x0004|POLLWRBAND0x0100) | |||
267 | #define XPOLL_EXCEPT0 0 | |||
268 | ||||
269 | if (!ignoreEvents) | |||
270 | wf->fdlistlen = wf->num_dpys = app->count; | |||
271 | else | |||
272 | wf->fdlistlen = wf->num_dpys = 0; | |||
273 | ||||
274 | if (!ignoreInputs && app->input_list != NULL((void*)0)) { | |||
275 | int ii; | |||
276 | for (ii = 0; ii < (int) app->input_max; ii++) | |||
277 | if (app->input_list[ii] != NULL((void*)0)) | |||
278 | wf->fdlistlen++; | |||
279 | } | |||
280 | ||||
281 | if (!wf->fdlist || wf->fdlist == wf->stack) { | |||
282 | wf->fdlist = (struct pollfd*) | |||
283 | XtStackAlloc (sizeof (struct pollfd) * wf->fdlistlen, wf->stack)((sizeof (struct pollfd) * wf->fdlistlen) <= sizeof(wf-> stack) ? (XtPointer)(wf->stack) : XtMalloc((unsigned)(sizeof (struct pollfd) * wf->fdlistlen))); | |||
284 | } else { | |||
285 | wf->fdlist = (struct pollfd*) | |||
286 | XtRealloc ((char*) wf->fdlist, | |||
287 | sizeof (struct pollfd) * wf->fdlistlen); | |||
288 | } | |||
289 | ||||
290 | if (wf->fdlistlen) { | |||
291 | struct pollfd* fdlp = wf->fdlist; | |||
292 | InputEvent* iep; | |||
293 | ||||
294 | if (!ignoreEvents) | |||
295 | for (ii = 0 ; ii < wf->num_dpys; ii++, fdlp++) { | |||
296 | fdlp->fd = ConnectionNumber (app->list[ii])(((_XPrivDisplay)(app->list[ii]))->fd); | |||
297 | fdlp->events = POLLIN0x0001; | |||
298 | } | |||
299 | if (!ignoreInputs && app->input_list != NULL((void*)0)) | |||
300 | for (ii = 0; ii < app->input_max; ii++) | |||
301 | if (app->input_list[ii] != NULL((void*)0)) { | |||
302 | iep = app->input_list[ii]; | |||
303 | fdlp->fd = ii; | |||
304 | fdlp->events = 0; | |||
305 | for ( ; iep; iep = iep->ie_next) { | |||
306 | if (iep->ie_condition & XtInputReadMask(1L<<0)) | |||
307 | fdlp->events |= XPOLL_READ(0x0001|0x0040|0x0002|0x0080); | |||
308 | if (iep->ie_condition & XtInputWriteMask(1L<<1)) | |||
309 | fdlp->events |= XPOLL_WRITE(0x0004|0x0004|0x0100); | |||
310 | if (iep->ie_condition & XtInputExceptMask(1L<<2)) | |||
311 | fdlp->events |= XPOLL_EXCEPT0; | |||
312 | } | |||
313 | fdlp++; | |||
314 | } | |||
315 | } | |||
316 | #endif | |||
317 | } | |||
318 | ||||
319 | static void AdjustTimes ( | |||
320 | XtAppContext app, | |||
321 | Boolean block, | |||
322 | unsigned long* howlong, | |||
323 | Boolean ignoreTimers, | |||
324 | wait_times_ptr_t wt) | |||
325 | { | |||
326 | if (app->timerQueue != NULL((void*)0) && !ignoreTimers && block) { | |||
327 | if (IS_AFTER (wt->cur_time, app->timerQueue->te_timer_value)(((app->timerQueue->te_timer_value).tv_sec > (wt-> cur_time).tv_sec) || (((app->timerQueue->te_timer_value ).tv_sec == (wt->cur_time).tv_sec)&& ((app->timerQueue ->te_timer_value).tv_usec > (wt->cur_time).tv_usec)) )) { | |||
328 | TIMEDELTA (wt->wait_time, app->timerQueue->te_timer_value, wt->cur_time){ if(((wt->wait_time).tv_usec = (app->timerQueue->te_timer_value ).tv_usec - (wt->cur_time).tv_usec) < 0) { (wt->wait_time ).tv_usec += 1000000; (wt->wait_time).tv_sec = (app->timerQueue ->te_timer_value).tv_sec - (wt->cur_time).tv_sec - 1; } else (wt->wait_time).tv_sec = (app->timerQueue->te_timer_value ).tv_sec - (wt->cur_time).tv_sec; }; | |||
329 | if (howlong == NULL((void*)0) || IS_AFTER (wt->wait_time, wt->max_wait_time)(((wt->max_wait_time).tv_sec > (wt->wait_time).tv_sec ) || (((wt->max_wait_time).tv_sec == (wt->wait_time).tv_sec )&& ((wt->max_wait_time).tv_usec > (wt->wait_time ).tv_usec)))) | |||
330 | #ifndef USE_POLL1 | |||
331 | wt->wait_time_ptr = &wt->wait_time; | |||
332 | else | |||
333 | wt->wait_time_ptr = &wt->max_wait_time; | |||
334 | } else | |||
335 | wt->wait_time_ptr = &zero_time; | |||
336 | } | |||
337 | #else | |||
338 | wt->poll_wait = wt->wait_time.tv_sec * 1000 + wt->wait_time.tv_usec / 1000; | |||
339 | else | |||
340 | wt->poll_wait = wt->max_wait_time.tv_sec * 1000 + wt->max_wait_time.tv_usec / 1000; | |||
341 | } else | |||
342 | wt->poll_wait = X_DONT_BLOCK0; | |||
343 | } | |||
344 | #endif | |||
345 | } | |||
346 | ||||
347 | ||||
348 | static int IoWait ( | |||
349 | wait_times_ptr_t wt, | |||
350 | wait_fds_ptr_t wf) | |||
351 | { | |||
352 | #ifndef USE_POLL1 | |||
353 | return Select (wf->nfds, &wf->rmask, &wf->wmask, &wf->emask, | |||
354 | wt->wait_time_ptr); | |||
355 | #else | |||
356 | return poll (wf->fdlist, wf->fdlistlen, wt->poll_wait); | |||
357 | #endif | |||
358 | } | |||
359 | ||||
360 | ||||
361 | static void FindInputs ( | |||
362 | XtAppContext app, | |||
363 | wait_fds_ptr_t wf, | |||
364 | int nfds, | |||
365 | Boolean ignoreEvents, | |||
366 | Boolean ignoreInputs, | |||
367 | int* dpy_no, | |||
368 | int* found_input) | |||
369 | { | |||
370 | XtInputMask condition; | |||
371 | InputEvent *ep; | |||
372 | int ii; | |||
373 | #ifndef USE_POLL1 /* { check ready file descriptors block */ | |||
374 | #ifdef XTHREADS1 | |||
375 | fd_set rmask; | |||
376 | #endif | |||
377 | int dd; | |||
378 | *dpy_no = -1; | |||
379 | *found_input = False0; | |||
380 | ||||
381 | #ifdef XTHREADS1 | |||
382 | rmask = app->fds.rmask; | |||
383 | for (dd = app->count; dd-- > 0; ) | |||
384 | FD_SET (ConnectionNumber (app->list[dd]), &rmask)do { int __fd = ((((_XPrivDisplay)(app->list[dd]))->fd) ); ((&rmask)->fds_bits[(unsigned long)__fd/(sizeof(__int32_t ) * 8)] |= ((__int32_t)(1<<((unsigned long)__fd % (sizeof (__int32_t) * 8))))); } while(0); | |||
385 | #endif | |||
386 | ||||
387 | for (ii = 0; ii < wf->nfds && nfds > 0; ii++) { | |||
388 | condition = 0; | |||
389 | if (FD_ISSET (ii, &wf->rmask)__darwin_fd_isset((ii), (&wf->rmask)) | |||
390 | #ifdef XTHREADS1 | |||
391 | && FD_ISSET (ii, &rmask)__darwin_fd_isset((ii), (&rmask)) | |||
392 | #endif | |||
393 | ) { | |||
394 | nfds--; | |||
395 | if (!ignoreEvents) { | |||
396 | for (dd = 0; dd < app->count; dd++) { | |||
397 | if (ii == ConnectionNumber (app->list[dd])(((_XPrivDisplay)(app->list[dd]))->fd)) { | |||
398 | if (*dpy_no == -1) { | |||
399 | if (XEventsQueued (app->list[dd], QueuedAfterReading1 )) | |||
400 | *dpy_no = dd; | |||
401 | /* | |||
402 | * An error event could have arrived | |||
403 | * without any real events, or events | |||
404 | * could have been swallowed by Xlib, | |||
405 | * or the connection may be broken. | |||
406 | * We can't tell the difference, so | |||
407 | * assume Xlib will eventually discover | |||
408 | * a broken connection. | |||
409 | */ | |||
410 | } | |||
411 | goto ENDILOOP; | |||
412 | } | |||
413 | } | |||
414 | } | |||
415 | condition = XtInputReadMask(1L<<0); | |||
416 | } | |||
417 | if (FD_ISSET (ii, &wf->wmask)__darwin_fd_isset((ii), (&wf->wmask)) | |||
418 | #ifdef XTHREADS1 | |||
419 | && FD_ISSET (ii, &app->fds.wmask)__darwin_fd_isset((ii), (&app->fds.wmask)) | |||
420 | #endif | |||
421 | ) { | |||
422 | condition |= XtInputWriteMask(1L<<1); | |||
423 | nfds--; | |||
424 | } | |||
425 | if (FD_ISSET (ii, &wf->emask)__darwin_fd_isset((ii), (&wf->emask)) | |||
426 | #ifdef XTHREADS1 | |||
427 | && FD_ISSET (ii, &app->fds.emask)__darwin_fd_isset((ii), (&app->fds.emask)) | |||
428 | #endif | |||
429 | ) { | |||
430 | condition |= XtInputExceptMask(1L<<2); | |||
431 | nfds--; | |||
432 | } | |||
433 | if (condition) { | |||
434 | for (ep = app->input_list[ii]; ep; ep = ep->ie_next) | |||
435 | if (condition & ep->ie_condition) { | |||
436 | /* make sure this input isn't already marked outstanding */ | |||
437 | InputEvent *oq; | |||
438 | for (oq = app->outstandingQueue; oq; oq = oq->ie_oq) | |||
439 | if (oq == ep) | |||
440 | break; | |||
441 | if (!oq) | |||
442 | { | |||
443 | ep->ie_oq = app->outstandingQueue; | |||
444 | app->outstandingQueue = ep; | |||
445 | } | |||
446 | } | |||
447 | *found_input = True1; | |||
448 | } | |||
449 | ENDILOOP: ; | |||
450 | } /* endfor */ | |||
451 | #else /* }{ */ | |||
452 | struct pollfd* fdlp; | |||
453 | ||||
454 | *dpy_no = -1; | |||
455 | *found_input = False0; | |||
456 | ||||
457 | if (!ignoreEvents) { | |||
458 | fdlp = wf->fdlist; | |||
459 | for (ii = 0; ii < wf->num_dpys; ii++, fdlp++) { | |||
460 | if (*dpy_no == -1 && fdlp->revents & (POLLIN0x0001|POLLHUP0x0010|POLLERR0x0008) && | |||
461 | #ifdef XTHREADS1 | |||
462 | !(fdlp->revents & POLLNVAL0x0020) && | |||
463 | #endif | |||
464 | XEventsQueued (app->list[ii], QueuedAfterReading1)) { | |||
465 | *dpy_no = ii; | |||
466 | break; | |||
467 | } | |||
468 | } | |||
469 | } | |||
470 | ||||
471 | if (!ignoreInputs) { | |||
472 | fdlp = &wf->fdlist[wf->num_dpys]; | |||
473 | for (ii = wf->num_dpys; ii < wf->fdlistlen; ii++, fdlp++) { | |||
474 | condition = 0; | |||
475 | if (fdlp->revents) { | |||
476 | if (fdlp->revents & (XPOLL_READ(0x0001|0x0040|0x0002|0x0080)|POLLHUP0x0010|POLLERR0x0008) | |||
477 | #ifdef XTHREADS1 | |||
478 | && !(fdlp->revents & POLLNVAL0x0020) | |||
479 | #endif | |||
480 | ) | |||
481 | condition = XtInputReadMask(1L<<0); | |||
482 | if (fdlp->revents & XPOLL_WRITE(0x0004|0x0004|0x0100)) | |||
483 | condition |= XtInputWriteMask(1L<<1); | |||
484 | if (fdlp->revents & XPOLL_EXCEPT0) | |||
485 | condition |= XtInputExceptMask(1L<<2); | |||
486 | } | |||
487 | if (condition) { | |||
488 | *found_input = True1; | |||
489 | for (ep = app->input_list[fdlp->fd]; ep; ep = ep->ie_next) | |||
490 | if (condition & ep->ie_condition) { | |||
491 | InputEvent *oq; | |||
492 | /* make sure this input isn't already marked outstanding */ | |||
493 | for (oq = app->outstandingQueue; oq; oq = oq->ie_oq) | |||
494 | if (oq == ep) | |||
495 | break; | |||
496 | if (!oq) | |||
497 | { | |||
498 | ep->ie_oq = app->outstandingQueue; | |||
499 | app->outstandingQueue = ep; | |||
500 | } | |||
501 | } | |||
502 | } | |||
503 | } | |||
504 | } | |||
505 | #endif /* } */ | |||
506 | } | |||
507 | ||||
508 | /* | |||
509 | * Routine to block in the toolkit. This should be the only call to select. | |||
510 | * | |||
511 | * This routine returns when there is something to be done. | |||
512 | * | |||
513 | * Before calling this with ignoreInputs==False, app->outstandingQueue should | |||
514 | * be checked; this routine will not verify that an alternate input source | |||
515 | * has not already been enqueued. | |||
516 | * | |||
517 | * | |||
518 | * _XtWaitForSomething( appContext, | |||
519 | * ignoreEvent, ignoreTimers, ignoreInputs, ignoreSignals, | |||
520 | * block, drop_lock, howlong) | |||
521 | * XtAppContext app; (Displays to check wait on) | |||
522 | * | |||
523 | * Boolean ignoreEvents; (Don't return if XEvents are available | |||
524 | * Also implies forget XEvents exist) | |||
525 | * | |||
526 | * Boolean ignoreTimers; (Ditto for timers) | |||
527 | * | |||
528 | * Boolean ignoreInputs; (Ditto for input callbacks ) | |||
529 | * | |||
530 | * Boolean ignoreSignals; (Ditto for signals) | |||
531 | * | |||
532 | * Boolean block; (Okay to block) | |||
533 | * | |||
534 | * Boolean drop_lock (drop lock before going into select/poll) | |||
535 | * | |||
536 | * TimeVal howlong; (howlong to wait for if blocking and not | |||
537 | * doing Timers... Null means forever. | |||
538 | * Maybe should mean shortest of both) | |||
539 | * Returns display for which input is available, if any | |||
540 | * and if ignoreEvents==False, else returns -1 | |||
541 | * | |||
542 | * if ignoring everything && block=True && howlong=NULL, you'll have | |||
543 | * lots of time for coffee; better not try it! In fact, it probably | |||
544 | * makes little sense to do this regardless of the value of howlong | |||
545 | * (bottom line is, we don't bother checking here). | |||
546 | * | |||
547 | * If drop_lock is FALSE, the app->lock->mutex is not unlocked before | |||
548 | * entering select/poll. It is illegal for drop_lock to be FALSE if | |||
549 | * ignoreTimers, ignoreInputs, or ignoreSignals is FALSE. | |||
550 | */ | |||
551 | int _XtWaitForSomething( | |||
552 | XtAppContext app, | |||
553 | _XtBooleanint ignoreEvents, | |||
554 | _XtBooleanint ignoreTimers, | |||
555 | _XtBooleanint ignoreInputs, | |||
556 | _XtBooleanint ignoreSignals, | |||
557 | _XtBooleanint block, | |||
558 | #ifdef XTHREADS1 | |||
559 | _XtBooleanint drop_lock, | |||
560 | #endif | |||
561 | unsigned long *howlong) | |||
562 | { | |||
563 | wait_times_t wt; | |||
564 | wait_fds_t wf; | |||
565 | int nfds, dpy_no, found_input, dd; | |||
566 | #ifdef XTHREADS1 | |||
567 | Boolean push_thread = TRUE1; | |||
568 | Boolean pushed_thread = FALSE0; | |||
569 | int level = 0; | |||
570 | #endif | |||
571 | #ifdef USE_POLL1 | |||
572 | struct pollfd fdlist[XT_DEFAULT_FDLIST_SIZE32]; | |||
573 | #endif | |||
574 | ||||
575 | #ifdef XTHREADS1 | |||
576 | /* assert ((ignoreTimers && ignoreInputs && ignoreSignals) || drop_lock); */ | |||
577 | /* If not multi-threaded, never drop lock */ | |||
578 | if (app->lock == (ThreadAppProc) NULL((void*)0)) | |||
579 | drop_lock = FALSE0; | |||
580 | #endif | |||
581 | ||||
582 | InitTimes (block, howlong, &wt); | |||
583 | ||||
584 | #ifdef USE_POLL1 | |||
585 | wf.fdlist = NULL((void*)0); | |||
586 | wf.stack = fdlist; | |||
587 | wf.fdlistlen = wf.num_dpys = 0; | |||
588 | #endif | |||
589 | ||||
590 | WaitLoop: | |||
591 | app->rebuild_fdlist = TRUE1; | |||
592 | ||||
593 | while (1) { | |||
594 | AdjustTimes (app, block, howlong, ignoreTimers, &wt); | |||
595 | ||||
596 | if (block && app->block_hook_list) { | |||
597 | BlockHook hook; | |||
598 | for (hook = app->block_hook_list; | |||
599 | hook != NULL((void*)0); | |||
600 | hook = hook->next) | |||
601 | (*hook->proc) (hook->closure); | |||
602 | ||||
603 | if (!ignoreEvents) | |||
604 | /* see if the hook(s) generated any protocol */ | |||
605 | for (dd = 0; dd < app->count; dd++) | |||
606 | if (XEventsQueued(app->list[dd], QueuedAlready0)) { | |||
607 | #ifdef USE_POLL1 | |||
608 | XtStackFree ((XtPointer) wf.fdlist, fdlist){ if (((XtPointer) wf.fdlist) != ((XtPointer)(fdlist))) XtFree ((XtPointer) wf.fdlist); }; | |||
609 | #endif | |||
610 | return dd; | |||
611 | } | |||
612 | } | |||
613 | ||||
614 | if (app->rebuild_fdlist) | |||
615 | InitFds (app, ignoreEvents, ignoreInputs, &wf); | |||
616 | ||||
617 | #ifdef XTHREADS1 /* { */ | |||
618 | if (drop_lock) { | |||
619 | YIELD_APP_LOCK(app, &push_thread, &pushed_thread, &level)if(app && app->yield_lock) (*app->yield_lock)(app ,&push_thread,&pushed_thread,&level); | |||
620 | nfds = IoWait (&wt, &wf); | |||
621 | RESTORE_APP_LOCK(app, level, &pushed_thread)if(app && app->restore_lock) (*app->restore_lock )(app,level,&pushed_thread); | |||
622 | } else | |||
623 | #endif /* } */ | |||
624 | nfds = IoWait (&wt, &wf); | |||
625 | if (nfds == -1) { | |||
626 | /* | |||
627 | * interrupt occured recalculate time value and wait again. | |||
628 | */ | |||
629 | if (errno(*__error()) == EINTR4 || errno(*__error()) == EAGAIN35) { | |||
630 | if (errno(*__error()) == EAGAIN35) { | |||
631 | errno(*__error()) = 0; /* errno is not self reseting */ | |||
632 | continue; | |||
633 | } | |||
634 | errno(*__error()) = 0; /* errno is not self reseting */ | |||
635 | ||||
636 | /* was it interrupted by a signal that we care about? */ | |||
637 | if (!ignoreSignals && app->signalQueue != NULL((void*)0)) { | |||
638 | SignalEventRec *se_ptr = app->signalQueue; | |||
639 | while (se_ptr != NULL((void*)0)) { | |||
640 | if (se_ptr->se_notice) { | |||
641 | if (block && howlong != NULL((void*)0)) | |||
642 | AdjustHowLong (howlong, &wt.start_time); | |||
643 | #ifdef USE_POLL1 | |||
644 | XtStackFree ((XtPointer) wf.fdlist, fdlist){ if (((XtPointer) wf.fdlist) != ((XtPointer)(fdlist))) XtFree ((XtPointer) wf.fdlist); }; | |||
645 | #endif | |||
646 | return -1; | |||
647 | } | |||
648 | se_ptr = se_ptr->se_next; | |||
649 | } | |||
650 | } | |||
651 | ||||
652 | if (!ignoreEvents) | |||
653 | /* get Xlib to detect a bad connection */ | |||
654 | for (dd = 0; dd < app->count; dd++) | |||
655 | if (XEventsQueued(app->list[dd], QueuedAfterReading1)) { | |||
656 | #ifdef USE_POLL1 | |||
657 | XtStackFree ((XtPointer) wf.fdlist, fdlist){ if (((XtPointer) wf.fdlist) != ((XtPointer)(fdlist))) XtFree ((XtPointer) wf.fdlist); }; | |||
658 | #endif | |||
659 | return dd; | |||
660 | } | |||
661 | ||||
662 | if (block) { | |||
663 | #ifndef USE_POLL1 | |||
664 | if (wt.wait_time_ptr == NULL((void*)0)) | |||
665 | #else | |||
666 | if (wt.poll_wait == X_BLOCK-1) | |||
667 | #endif | |||
668 | continue; | |||
669 | X_GETTIMEOFDAY (&wt.new_time)gettimeofday(&wt.new_time, (struct timezone*)0); | |||
670 | FIXUP_TIMEVAL (wt.new_time); | |||
671 | TIMEDELTA (wt.time_spent, wt.new_time, wt.cur_time){ if(((wt.time_spent).tv_usec = (wt.new_time).tv_usec - (wt.cur_time ).tv_usec) < 0) { (wt.time_spent).tv_usec += 1000000; (wt. time_spent).tv_sec = (wt.new_time).tv_sec - (wt.cur_time).tv_sec - 1; } else (wt.time_spent).tv_sec = (wt.new_time).tv_sec - ( wt.cur_time).tv_sec; }; | |||
672 | wt.cur_time = wt.new_time; | |||
673 | #ifndef USE_POLL1 | |||
674 | if (IS_AFTER (wt.time_spent, *wt.wait_time_ptr)(((*wt.wait_time_ptr).tv_sec > (wt.time_spent).tv_sec) || ( ((*wt.wait_time_ptr).tv_sec == (wt.time_spent).tv_sec)&& ((*wt.wait_time_ptr).tv_usec > (wt.time_spent).tv_usec)))) { | |||
675 | TIMEDELTA (wt.wait_time, *wt.wait_time_ptr, wt.time_spent){ if(((wt.wait_time).tv_usec = (*wt.wait_time_ptr).tv_usec - ( wt.time_spent).tv_usec) < 0) { (wt.wait_time).tv_usec += 1000000 ; (wt.wait_time).tv_sec = (*wt.wait_time_ptr).tv_sec - (wt.time_spent ).tv_sec - 1; } else (wt.wait_time).tv_sec = (*wt.wait_time_ptr ).tv_sec - (wt.time_spent).tv_sec; }; | |||
676 | wt.wait_time_ptr = &wt.wait_time; | |||
677 | continue; | |||
678 | } else | |||
679 | #else | |||
680 | if ((wt.time_spent.tv_sec * 1000 + wt.time_spent.tv_usec / 1000) < wt.poll_wait) { | |||
681 | wt.poll_wait -= (wt.time_spent.tv_sec * 1000 + wt.time_spent.tv_usec / 1000); | |||
682 | continue; | |||
683 | } else | |||
684 | #endif | |||
685 | nfds = 0; | |||
686 | } | |||
687 | } else { | |||
688 | char Errno[12]; | |||
689 | String param = Errno; | |||
690 | Cardinal param_count = 1; | |||
691 | ||||
692 | sprintf( Errno, "%d", errno)__builtin___sprintf_chk (Errno, 0, __builtin_object_size (Errno , 2 > 1 ? 1 : 0), "%d", (*__error())); | |||
693 | XtAppWarningMsg(app, "communicationError","select", | |||
694 | XtCXtToolkitError,"Select failed; error code %s", | |||
695 | ¶m, ¶m_count); | |||
696 | continue; | |||
697 | } | |||
698 | } /* timed out or input available */ | |||
699 | break; | |||
700 | } | |||
701 | ||||
702 | if (nfds == 0) { | |||
703 | /* Timed out */ | |||
704 | if (howlong) | |||
705 | *howlong = (unsigned long)0; | |||
706 | #ifdef USE_POLL1 | |||
707 | XtStackFree ((XtPointer) wf.fdlist, fdlist){ if (((XtPointer) wf.fdlist) != ((XtPointer)(fdlist))) XtFree ((XtPointer) wf.fdlist); }; | |||
708 | #endif | |||
709 | return -1; | |||
710 | } | |||
711 | ||||
712 | if (block && howlong != NULL((void*)0)) | |||
713 | AdjustHowLong (howlong, &wt.start_time); | |||
714 | ||||
715 | if (ignoreInputs && ignoreEvents) { | |||
716 | #ifdef USE_POLL1 | |||
717 | XtStackFree ((XtPointer) wf.fdlist, fdlist){ if (((XtPointer) wf.fdlist) != ((XtPointer)(fdlist))) XtFree ((XtPointer) wf.fdlist); }; | |||
718 | #endif | |||
719 | return -1; | |||
720 | } else | |||
721 | FindInputs (app, &wf, nfds, | |||
722 | ignoreEvents, ignoreInputs, | |||
723 | &dpy_no, &found_input); | |||
724 | ||||
725 | if (dpy_no >= 0 || found_input) { | |||
726 | #ifdef USE_POLL1 | |||
727 | XtStackFree ((XtPointer) wf.fdlist, fdlist){ if (((XtPointer) wf.fdlist) != ((XtPointer)(fdlist))) XtFree ((XtPointer) wf.fdlist); }; | |||
728 | #endif | |||
729 | return dpy_no; | |||
730 | } | |||
731 | if (block) | |||
732 | goto WaitLoop; | |||
733 | else { | |||
734 | #ifdef USE_POLL1 | |||
735 | XtStackFree ((XtPointer) wf.fdlist, fdlist){ if (((XtPointer) wf.fdlist) != ((XtPointer)(fdlist))) XtFree ((XtPointer) wf.fdlist); }; | |||
736 | #endif | |||
737 | return -1; | |||
738 | } | |||
739 | } | |||
740 | ||||
741 | #define IeCallProc(ptr)(*ptr->ie_proc) (ptr->ie_closure, &ptr->ie_source , (XtInputId*)&ptr); \ | |||
742 | (*ptr->ie_proc) (ptr->ie_closure, &ptr->ie_source, (XtInputId*)&ptr); | |||
743 | ||||
744 | #define TeCallProc(ptr)(*ptr->te_proc) (ptr->te_closure, (XtIntervalId*)&ptr ); \ | |||
745 | (*ptr->te_proc) (ptr->te_closure, (XtIntervalId*)&ptr); | |||
746 | ||||
747 | #define SeCallProc(ptr)(*ptr->se_proc) (ptr->se_closure, (XtSignalId*)&ptr ); \ | |||
748 | (*ptr->se_proc) (ptr->se_closure, (XtSignalId*)&ptr); | |||
749 | ||||
750 | /* | |||
751 | * Public Routines | |||
752 | */ | |||
753 | ||||
754 | XtIntervalId XtAddTimeOut( | |||
755 | unsigned long interval, | |||
756 | XtTimerCallbackProc proc, | |||
757 | XtPointer closure) | |||
758 | { | |||
759 | return XtAppAddTimeOut(_XtDefaultAppContext(), | |||
760 | interval, proc, closure); | |||
761 | } | |||
762 | ||||
763 | static void QueueTimerEvent( | |||
764 | XtAppContext app, | |||
765 | TimerEventRec *ptr) | |||
766 | { | |||
767 | TimerEventRec *t,**tt; | |||
768 | tt = &app->timerQueue; | |||
769 | t = *tt; | |||
770 | while (t != NULL((void*)0) && | |||
771 | IS_AFTER(t->te_timer_value, ptr->te_timer_value)(((ptr->te_timer_value).tv_sec > (t->te_timer_value) .tv_sec) || (((ptr->te_timer_value).tv_sec == (t->te_timer_value ).tv_sec)&& ((ptr->te_timer_value).tv_usec > (t ->te_timer_value).tv_usec)))) { | |||
772 | tt = &t->te_next; | |||
773 | t = *tt; | |||
774 | } | |||
775 | ptr->te_next = t; | |||
776 | *tt = ptr; | |||
777 | } | |||
778 | ||||
779 | XtIntervalId XtAppAddTimeOut( | |||
780 | XtAppContext app, | |||
781 | unsigned long interval, | |||
782 | XtTimerCallbackProc proc, | |||
783 | XtPointer closure) | |||
784 | { | |||
785 | TimerEventRec *tptr; | |||
786 | struct timeval current_time; | |||
787 | ||||
788 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||
789 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||
790 | if (freeTimerRecs) { | |||
791 | tptr = freeTimerRecs; | |||
792 | freeTimerRecs = tptr->te_next; | |||
793 | } | |||
794 | else tptr = XtNew(TimerEventRec)((TimerEventRec *) XtMalloc((unsigned) sizeof(TimerEventRec)) ); | |||
795 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||
796 | ||||
797 | tptr->te_next = NULL((void*)0); | |||
798 | tptr->te_closure = closure; | |||
799 | tptr->te_proc = proc; | |||
800 | tptr->app = app; | |||
801 | tptr->te_timer_value.tv_sec = interval/1000; | |||
802 | tptr->te_timer_value.tv_usec = (interval%1000)*1000; | |||
803 | X_GETTIMEOFDAY (¤t_time)gettimeofday(¤t_time, (struct timezone*)0); | |||
804 | FIXUP_TIMEVAL(current_time); | |||
805 | ADD_TIME(tptr->te_timer_value,tptr->te_timer_value,current_time){ if(((tptr->te_timer_value).tv_usec = (tptr->te_timer_value ).tv_usec + (current_time).tv_usec) >= 1000000) { (tptr-> te_timer_value).tv_usec -= 1000000; (tptr->te_timer_value) .tv_sec = (tptr->te_timer_value).tv_sec + (current_time).tv_sec + 1 ; } else { (tptr->te_timer_value).tv_sec = (tptr-> te_timer_value).tv_sec + (current_time).tv_sec ; if(((tptr-> te_timer_value).tv_sec >= 1) && (((tptr->te_timer_value ).tv_usec <0))) { (tptr->te_timer_value).tv_sec --;(tptr ->te_timer_value).tv_usec += 1000000; } } }; | |||
806 | QueueTimerEvent(app, tptr); | |||
807 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
808 | return( (XtIntervalId) tptr); | |||
809 | } | |||
810 | ||||
811 | void XtRemoveTimeOut( | |||
812 | XtIntervalId id) | |||
813 | { | |||
814 | TimerEventRec *t, *last, *tid = (TimerEventRec *) id; | |||
815 | XtAppContext app = tid->app; | |||
816 | ||||
817 | /* find it */ | |||
818 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||
819 | for(t = app->timerQueue, last = NULL((void*)0); | |||
820 | t != NULL((void*)0) && t != tid; | |||
821 | t = t->te_next) last = t; | |||
822 | ||||
823 | if (t == NULL((void*)0)) { | |||
824 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
825 | return; /* couldn't find it */ | |||
826 | } | |||
827 | if(last == NULL((void*)0)) { /* first one on the list */ | |||
828 | app->timerQueue = t->te_next; | |||
829 | } else last->te_next = t->te_next; | |||
830 | ||||
831 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||
832 | t->te_next = freeTimerRecs; | |||
833 | freeTimerRecs = t; | |||
834 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||
835 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
836 | } | |||
837 | ||||
838 | XtWorkProcId XtAddWorkProc( | |||
839 | XtWorkProc proc, | |||
840 | XtPointer closure) | |||
841 | { | |||
842 | return XtAppAddWorkProc(_XtDefaultAppContext(), proc, closure); | |||
843 | } | |||
844 | ||||
845 | XtWorkProcId XtAppAddWorkProc( | |||
846 | XtAppContext app, | |||
847 | XtWorkProc proc, | |||
848 | XtPointer closure) | |||
849 | { | |||
850 | WorkProcRec *wptr; | |||
851 | ||||
852 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||
853 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||
854 | if (freeWorkRecs) { | |||
855 | wptr = freeWorkRecs; | |||
856 | freeWorkRecs = wptr->next; | |||
857 | } else wptr = XtNew(WorkProcRec)((WorkProcRec *) XtMalloc((unsigned) sizeof(WorkProcRec))); | |||
858 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||
859 | wptr->next = app->workQueue; | |||
860 | wptr->closure = closure; | |||
861 | wptr->proc = proc; | |||
862 | wptr->app = app; | |||
863 | app->workQueue = wptr; | |||
864 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
865 | return (XtWorkProcId) wptr; | |||
866 | } | |||
867 | ||||
868 | void XtRemoveWorkProc( | |||
869 | XtWorkProcId id) | |||
870 | { | |||
871 | WorkProcRec *wid= (WorkProcRec *) id, *w, *last; | |||
872 | XtAppContext app = wid->app; | |||
873 | ||||
874 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||
875 | /* find it */ | |||
876 | for(w = app->workQueue, last = NULL((void*)0); | |||
877 | w != NULL((void*)0) && w != wid; w = w->next) last = w; | |||
878 | ||||
879 | if (w == NULL((void*)0)) { | |||
880 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
881 | return; /* couldn't find it */ | |||
882 | } | |||
883 | ||||
884 | if(last == NULL((void*)0)) app->workQueue = w->next; | |||
885 | else last->next = w->next; | |||
886 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||
887 | w->next = freeWorkRecs; | |||
888 | freeWorkRecs = w; | |||
889 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||
890 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
891 | } | |||
892 | ||||
893 | XtSignalId XtAddSignal( | |||
894 | XtSignalCallbackProc proc, | |||
895 | XtPointer closure) | |||
896 | { | |||
897 | return XtAppAddSignal(_XtDefaultAppContext(), proc, closure); | |||
898 | } | |||
899 | ||||
900 | XtSignalId XtAppAddSignal( | |||
901 | XtAppContext app, | |||
902 | XtSignalCallbackProc proc, | |||
903 | XtPointer closure) | |||
904 | { | |||
905 | SignalEventRec *sptr; | |||
906 | ||||
907 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||
908 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||
909 | if (freeSignalRecs) { | |||
910 | sptr = freeSignalRecs; | |||
911 | freeSignalRecs = sptr->se_next; | |||
912 | } else | |||
913 | sptr = XtNew(SignalEventRec)((SignalEventRec *) XtMalloc((unsigned) sizeof(SignalEventRec ))); | |||
914 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||
915 | sptr->se_next = app->signalQueue; | |||
916 | sptr->se_closure = closure; | |||
917 | sptr->se_proc = proc; | |||
918 | sptr->app = app; | |||
919 | sptr->se_notice = FALSE0; | |||
920 | app->signalQueue = sptr; | |||
921 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
922 | return (XtSignalId) sptr; | |||
923 | } | |||
924 | ||||
925 | void XtRemoveSignal( | |||
926 | XtSignalId id) | |||
927 | { | |||
928 | SignalEventRec *sid = (SignalEventRec*) id, *s, *last = NULL((void*)0); | |||
929 | XtAppContext app = sid->app; | |||
930 | ||||
931 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||
932 | for (s = app->signalQueue; s != NULL((void*)0) && s != sid; s = s->se_next) | |||
933 | last = s; | |||
934 | if (s == NULL((void*)0)) { | |||
935 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
936 | return; | |||
937 | } | |||
938 | if (last == NULL((void*)0)) | |||
939 | app->signalQueue = s->se_next; | |||
940 | else | |||
941 | last->se_next = s->se_next; | |||
942 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||
943 | s->se_next = freeSignalRecs; | |||
944 | freeSignalRecs = s; | |||
945 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||
946 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
947 | } | |||
948 | ||||
949 | void XtNoticeSignal( | |||
950 | XtSignalId id) | |||
951 | { | |||
952 | /* | |||
953 | * It would be overkill to lock the app to set this flag. | |||
954 | * In the worst case, 2..n threads would be modifying this | |||
955 | * flag. The last one wins. Since signals occur asynchronously | |||
956 | * anyway, this can occur with or without threads. | |||
957 | * | |||
958 | * The other issue is that thread t1 sets the flag in a | |||
959 | * signalrec that has been deleted in thread t2. We rely | |||
960 | * on a detail of the implementation, i.e. free'd signalrecs | |||
961 | * aren't really free'd, they're just moved to a list of | |||
962 | * free recs, so deref'ing one won't hurt anything. | |||
963 | * | |||
964 | * Lastly, and perhaps most importantly, since POSIX threads | |||
965 | * says that the handling of asynchronous signals in a synchronous | |||
966 | * threads environment is undefined. Therefor it would be an | |||
967 | * error for both signals and threads to be in use in the same | |||
968 | * program. | |||
969 | */ | |||
970 | SignalEventRec *sid = (SignalEventRec*) id; | |||
971 | sid->se_notice = TRUE1; | |||
972 | } | |||
973 | ||||
974 | XtInputId XtAddInput( | |||
975 | int source, | |||
976 | XtPointer Condition, | |||
977 | XtInputCallbackProc proc, | |||
978 | XtPointer closure) | |||
979 | { | |||
980 | return XtAppAddInput(_XtDefaultAppContext(), | |||
981 | source, Condition, proc, closure); | |||
982 | } | |||
983 | ||||
984 | XtInputId XtAppAddInput( | |||
985 | XtAppContext app, | |||
986 | int source, | |||
987 | XtPointer Condition, | |||
988 | XtInputCallbackProc proc, | |||
989 | XtPointer closure) | |||
990 | { | |||
991 | InputEvent* sptr; | |||
992 | XtInputMask condition = (XtInputMask) Condition; | |||
993 | ||||
994 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||
995 | if (!condition || | |||
996 | condition & ~(XtInputReadMask(1L<<0)|XtInputWriteMask(1L<<1)|XtInputExceptMask(1L<<2))) | |||
997 | XtAppErrorMsg(app,"invalidParameter","xtAddInput",XtCXtToolkitError, | |||
998 | "invalid condition passed to XtAppAddInput", | |||
999 | (String *)NULL((void*)0), (Cardinal *)NULL((void*)0)); | |||
1000 | ||||
1001 | if (app->input_max <= source) { | |||
1002 | Cardinal n = source + 1; | |||
1003 | int ii; | |||
1004 | app->input_list = (InputEvent**)XtRealloc((char*) app->input_list, | |||
1005 | n * sizeof(InputEvent*)); | |||
1006 | for (ii = app->input_max; ii < (int) n; ii++) | |||
1007 | app->input_list[ii] = (InputEvent*) NULL((void*)0); | |||
1008 | app->input_max = n; | |||
1009 | } | |||
1010 | sptr = XtNew(InputEvent)((InputEvent *) XtMalloc((unsigned) sizeof(InputEvent))); | |||
1011 | sptr->ie_proc = proc; | |||
1012 | sptr->ie_closure = closure; | |||
1013 | sptr->app = app; | |||
1014 | sptr->ie_oq = NULL((void*)0); | |||
1015 | sptr->ie_source = source; | |||
1016 | sptr->ie_condition = condition; | |||
1017 | sptr->ie_next = app->input_list[source]; | |||
1018 | app->input_list[source] = sptr; | |||
1019 | ||||
1020 | #ifndef USE_POLL1 | |||
1021 | if (condition & XtInputReadMask(1L<<0)) FD_SET(source, &app->fds.rmask)do { int __fd = (source); ((&app->fds.rmask)->fds_bits [(unsigned long)__fd/(sizeof(__int32_t) * 8)] |= ((__int32_t) (1<<((unsigned long)__fd % (sizeof(__int32_t) * 8))))); } while(0); | |||
1022 | if (condition & XtInputWriteMask(1L<<1)) FD_SET(source, &app->fds.wmask)do { int __fd = (source); ((&app->fds.wmask)->fds_bits [(unsigned long)__fd/(sizeof(__int32_t) * 8)] |= ((__int32_t) (1<<((unsigned long)__fd % (sizeof(__int32_t) * 8))))); } while(0); | |||
1023 | if (condition & XtInputExceptMask(1L<<2)) FD_SET(source, &app->fds.emask)do { int __fd = (source); ((&app->fds.emask)->fds_bits [(unsigned long)__fd/(sizeof(__int32_t) * 8)] |= ((__int32_t) (1<<((unsigned long)__fd % (sizeof(__int32_t) * 8))))); } while(0); | |||
1024 | ||||
1025 | if (app->fds.nfds < (source+1)) app->fds.nfds = source+1; | |||
1026 | #else | |||
1027 | if (sptr->ie_next == NULL((void*)0)) | |||
1028 | app->fds.nfds++; | |||
1029 | #endif | |||
1030 | app->input_count++; | |||
1031 | app->rebuild_fdlist = TRUE1; | |||
1032 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
1033 | return((XtInputId)sptr); | |||
1034 | } | |||
1035 | ||||
1036 | void XtRemoveInput( | |||
1037 | register XtInputId id) | |||
1038 | { | |||
1039 | register InputEvent *sptr, *lptr; | |||
1040 | XtAppContext app = ((InputEvent *)id)->app; | |||
| ||||
1041 | register int source = ((InputEvent *)id)->ie_source; | |||
1042 | Boolean found = False0; | |||
1043 | ||||
1044 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||
1045 | sptr = app->outstandingQueue; | |||
| ||||
1046 | lptr = NULL((void*)0); | |||
1047 | for (; sptr != NULL((void*)0); sptr = sptr->ie_oq) { | |||
1048 | if (sptr == (InputEvent *)id) { | |||
1049 | if (lptr == NULL((void*)0)) app->outstandingQueue = sptr->ie_oq; | |||
1050 | else lptr->ie_oq = sptr->ie_oq; | |||
1051 | } | |||
1052 | lptr = sptr; | |||
1053 | } | |||
1054 | ||||
1055 | if(app->input_list && (sptr = app->input_list[source]) != NULL((void*)0)) { | |||
1056 | for( lptr = NULL((void*)0) ; sptr; sptr = sptr->ie_next ){ | |||
1057 | if(sptr == (InputEvent *) id) { | |||
1058 | #ifndef USE_POLL1 | |||
1059 | XtInputMask condition = 0; | |||
1060 | #endif | |||
1061 | if(lptr == NULL((void*)0)) { | |||
1062 | app->input_list[source] = sptr->ie_next; | |||
1063 | } else { | |||
1064 | lptr->ie_next = sptr->ie_next; | |||
1065 | } | |||
1066 | #ifndef USE_POLL1 | |||
1067 | for (lptr = app->input_list[source]; | |||
1068 | lptr; lptr = lptr->ie_next) | |||
1069 | condition |= lptr->ie_condition; | |||
1070 | if ((sptr->ie_condition & XtInputReadMask(1L<<0)) && | |||
1071 | !(condition & XtInputReadMask(1L<<0))) | |||
1072 | FD_CLR(source, &app->fds.rmask)do { int __fd = (source); ((&app->fds.rmask)->fds_bits [(unsigned long)__fd/(sizeof(__int32_t) * 8)] &= ~((__int32_t )(1<<((unsigned long)__fd % (sizeof(__int32_t) * 8))))) ; } while(0); | |||
1073 | if ((sptr->ie_condition & XtInputWriteMask(1L<<1)) && | |||
1074 | !(condition & XtInputWriteMask(1L<<1))) | |||
1075 | FD_CLR(source, &app->fds.wmask)do { int __fd = (source); ((&app->fds.wmask)->fds_bits [(unsigned long)__fd/(sizeof(__int32_t) * 8)] &= ~((__int32_t )(1<<((unsigned long)__fd % (sizeof(__int32_t) * 8))))) ; } while(0); | |||
1076 | if ((sptr->ie_condition & XtInputExceptMask(1L<<2)) && | |||
1077 | !(condition & XtInputExceptMask(1L<<2))) | |||
1078 | FD_CLR(source, &app->fds.emask)do { int __fd = (source); ((&app->fds.emask)->fds_bits [(unsigned long)__fd/(sizeof(__int32_t) * 8)] &= ~((__int32_t )(1<<((unsigned long)__fd % (sizeof(__int32_t) * 8))))) ; } while(0); | |||
1079 | #endif | |||
1080 | XtFree((char *) sptr); | |||
1081 | found = True1; | |||
1082 | break; | |||
1083 | } | |||
1084 | lptr = sptr; | |||
1085 | } | |||
1086 | } | |||
1087 | ||||
1088 | if (found) { | |||
1089 | app->input_count--; | |||
1090 | #ifdef USE_POLL1 | |||
1091 | if (app->input_list[source] == NULL((void*)0)) | |||
1092 | app->fds.nfds--; | |||
1093 | #endif | |||
1094 | app->rebuild_fdlist = TRUE1; | |||
1095 | } else | |||
1096 | XtAppWarningMsg(app, "invalidProcedure","inputHandler", | |||
1097 | XtCXtToolkitError, | |||
1098 | "XtRemoveInput: Input handler not found", | |||
1099 | (String *)NULL((void*)0), (Cardinal *)NULL((void*)0)); | |||
1100 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
1101 | } | |||
1102 | ||||
1103 | void _XtRemoveAllInputs( | |||
1104 | XtAppContext app) | |||
1105 | { | |||
1106 | int i; | |||
1107 | for (i = 0; i < app->input_max; i++) { | |||
1108 | InputEvent* ep = app->input_list[i]; | |||
1109 | while (ep) { | |||
1110 | InputEvent *next = ep->ie_next; | |||
1111 | XtFree( (char*)ep ); | |||
1112 | ep = next; | |||
1113 | } | |||
1114 | } | |||
1115 | XtFree((char *) app->input_list); | |||
1116 | } | |||
1117 | ||||
1118 | /* Do alternate input and timer callbacks if there are any */ | |||
1119 | ||||
1120 | static void DoOtherSources( | |||
1121 | XtAppContext app) | |||
1122 | { | |||
1123 | TimerEventRec *te_ptr; | |||
1124 | InputEvent *ie_ptr; | |||
1125 | struct timeval cur_time; | |||
1126 | ||||
1127 | #define DrainQueue() \ | |||
1128 | for (ie_ptr = app->outstandingQueue; ie_ptr != NULL((void*)0);) { \ | |||
1129 | app->outstandingQueue = ie_ptr->ie_oq; \ | |||
1130 | ie_ptr ->ie_oq = NULL((void*)0); \ | |||
1131 | IeCallProc(ie_ptr)(*ie_ptr->ie_proc) (ie_ptr->ie_closure, &ie_ptr-> ie_source, (XtInputId*)&ie_ptr);; \ | |||
1132 | ie_ptr = app->outstandingQueue; \ | |||
1133 | } | |||
1134 | /*enddef*/ | |||
1135 | DrainQueue(); | |||
1136 | if (app->input_count > 0) { | |||
1137 | /* Call _XtWaitForSomething to get input queued up */ | |||
1138 | (void) _XtWaitForSomething (app, | |||
1139 | TRUE1, TRUE1, FALSE0, TRUE1, | |||
1140 | FALSE0, | |||
1141 | #ifdef XTHREADS1 | |||
1142 | TRUE1, | |||
1143 | #endif | |||
1144 | (unsigned long *)NULL((void*)0)); | |||
1145 | DrainQueue(); | |||
1146 | } | |||
1147 | if (app->timerQueue != NULL((void*)0)) { /* check timeout queue */ | |||
1148 | X_GETTIMEOFDAY (&cur_time)gettimeofday(&cur_time, (struct timezone*)0); | |||
1149 | FIXUP_TIMEVAL(cur_time); | |||
1150 | while(IS_AT_OR_AFTER (app->timerQueue->te_timer_value, cur_time)(((cur_time).tv_sec > (app->timerQueue->te_timer_value ).tv_sec) || (((cur_time).tv_sec == (app->timerQueue->te_timer_value ).tv_sec)&& ((cur_time).tv_usec >= (app->timerQueue ->te_timer_value).tv_usec)))) { | |||
1151 | te_ptr = app->timerQueue; | |||
1152 | app->timerQueue = te_ptr->te_next; | |||
1153 | te_ptr->te_next = NULL((void*)0); | |||
1154 | if (te_ptr->te_proc != NULL((void*)0)) | |||
1155 | TeCallProc(te_ptr)(*te_ptr->te_proc) (te_ptr->te_closure, (XtIntervalId*) &te_ptr);; | |||
1156 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||
1157 | te_ptr->te_next = freeTimerRecs; | |||
1158 | freeTimerRecs = te_ptr; | |||
1159 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||
1160 | if (app->timerQueue == NULL((void*)0)) break; | |||
1161 | } | |||
1162 | } | |||
1163 | if (app->signalQueue != NULL((void*)0)) { | |||
1164 | SignalEventRec *se_ptr = app->signalQueue; | |||
1165 | while (se_ptr != NULL((void*)0)) { | |||
1166 | if (se_ptr->se_notice) { | |||
1167 | se_ptr->se_notice = FALSE0; | |||
1168 | if (se_ptr->se_proc != NULL((void*)0)) | |||
1169 | SeCallProc(se_ptr)(*se_ptr->se_proc) (se_ptr->se_closure, (XtSignalId*)& se_ptr);; | |||
1170 | } | |||
1171 | se_ptr = se_ptr->se_next; | |||
1172 | } | |||
1173 | } | |||
1174 | #undef DrainQueue | |||
1175 | } | |||
1176 | ||||
1177 | /* If there are any work procs, call them. Return whether we did so */ | |||
1178 | ||||
1179 | static Boolean CallWorkProc( | |||
1180 | XtAppContext app) | |||
1181 | { | |||
1182 | register WorkProcRec *w = app->workQueue; | |||
1183 | Boolean delete; | |||
1184 | ||||
1185 | if (w == NULL((void*)0)) return FALSE0; | |||
1186 | ||||
1187 | app->workQueue = w->next; | |||
1188 | ||||
1189 | delete = (*(w->proc)) (w->closure); | |||
1190 | ||||
1191 | if (delete) { | |||
1192 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||
1193 | w->next = freeWorkRecs; | |||
1194 | freeWorkRecs = w; | |||
1195 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||
1196 | } | |||
1197 | else { | |||
1198 | w->next = app->workQueue; | |||
1199 | app->workQueue = w; | |||
1200 | } | |||
1201 | return TRUE1; | |||
1202 | } | |||
1203 | ||||
1204 | /* | |||
1205 | * XtNextEvent() | |||
1206 | * return next event; | |||
1207 | */ | |||
1208 | ||||
1209 | void XtNextEvent( | |||
1210 | XEvent *event) | |||
1211 | { | |||
1212 | XtAppNextEvent(_XtDefaultAppContext(), event); | |||
1213 | } | |||
1214 | ||||
1215 | void _XtRefreshMapping( | |||
1216 | XEvent* event, | |||
1217 | _XtBooleanint dispatch) | |||
1218 | { | |||
1219 | XtPerDisplay pd; | |||
1220 | ||||
1221 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||
1222 | pd = _XtGetPerDisplay(event->xmapping.display); | |||
1223 | if (event->xmapping.request != MappingPointer2 && | |||
1224 | pd && pd->keysyms && (event->xmapping.serial >= pd->keysyms_serial)) | |||
1225 | _XtBuildKeysymTables( event->xmapping.display, pd ); | |||
1226 | XRefreshKeyboardMapping(&event->xmapping); | |||
1227 | if (dispatch && pd && pd->mapping_callbacks) | |||
1228 | XtCallCallbackList((Widget) NULL((void*)0), | |||
1229 | (XtCallbackList)pd->mapping_callbacks, | |||
1230 | (XtPointer)event ); | |||
1231 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||
1232 | } | |||
1233 | ||||
1234 | void XtAppNextEvent( | |||
1235 | XtAppContext app, | |||
1236 | XEvent *event) | |||
1237 | { | |||
1238 | int i, d; | |||
1239 | ||||
1240 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||
1241 | for (;;) { | |||
1242 | if (app->count == 0) | |||
1243 | DoOtherSources(app); | |||
1244 | else { | |||
1245 | for (i = 1; i <= app->count; i++) { | |||
1246 | d = (i + app->last) % app->count; | |||
1247 | if (d == 0) DoOtherSources(app); | |||
1248 | if (XEventsQueued(app->list[d], QueuedAfterReading1)) | |||
1249 | goto GotEvent; | |||
1250 | } | |||
1251 | for (i = 1; i <= app->count; i++) { | |||
1252 | d = (i + app->last) % app->count; | |||
1253 | if (XEventsQueued(app->list[d], QueuedAfterFlush2)) | |||
1254 | goto GotEvent; | |||
1255 | } | |||
1256 | } | |||
1257 | ||||
1258 | /* We're ready to wait...if there is a work proc, call it */ | |||
1259 | if (CallWorkProc(app)) continue; | |||
1260 | ||||
1261 | d = _XtWaitForSomething (app, | |||
1262 | FALSE0, FALSE0, FALSE0, FALSE0, | |||
1263 | TRUE1, | |||
1264 | #ifdef XTHREADS1 | |||
1265 | TRUE1, | |||
1266 | #endif | |||
1267 | (unsigned long *) NULL((void*)0)); | |||
1268 | ||||
1269 | if (d != -1) { | |||
1270 | GotEvent: | |||
1271 | XNextEvent (app->list[d], event); | |||
1272 | #ifdef XTHREADS1 | |||
1273 | /* assert(app->list[d] == event->xany.display); */ | |||
1274 | #endif | |||
1275 | app->last = d; | |||
1276 | if (event->xany.type == MappingNotify34) | |||
1277 | _XtRefreshMapping(event, False0); | |||
1278 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
1279 | return; | |||
1280 | } | |||
1281 | ||||
1282 | } /* for */ | |||
1283 | } | |||
1284 | ||||
1285 | void XtProcessEvent( | |||
1286 | XtInputMask mask) | |||
1287 | { | |||
1288 | XtAppProcessEvent(_XtDefaultAppContext(), mask); | |||
1289 | } | |||
1290 | ||||
1291 | void XtAppProcessEvent( | |||
1292 | XtAppContext app, | |||
1293 | XtInputMask mask) | |||
1294 | { | |||
1295 | int i, d; | |||
1296 | XEvent event; | |||
1297 | struct timeval cur_time; | |||
1298 | ||||
1299 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||
1300 | if (mask == 0) { | |||
1301 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
1302 | return; | |||
1303 | } | |||
1304 | ||||
1305 | for (;;) { | |||
1306 | ||||
1307 | if (mask & XtIMSignal8 && app->signalQueue != NULL((void*)0)) { | |||
1308 | SignalEventRec *se_ptr = app->signalQueue; | |||
1309 | while (se_ptr != NULL((void*)0)) { | |||
1310 | if (se_ptr->se_notice) { | |||
1311 | se_ptr->se_notice = FALSE0; | |||
1312 | SeCallProc(se_ptr)(*se_ptr->se_proc) (se_ptr->se_closure, (XtSignalId*)& se_ptr);; | |||
1313 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
1314 | return; | |||
1315 | } | |||
1316 | se_ptr = se_ptr->se_next; | |||
1317 | } | |||
1318 | } | |||
1319 | ||||
1320 | if (mask & XtIMTimer2 && app->timerQueue != NULL((void*)0)) { | |||
1321 | X_GETTIMEOFDAY (&cur_time)gettimeofday(&cur_time, (struct timezone*)0); | |||
1322 | FIXUP_TIMEVAL(cur_time); | |||
1323 | if (IS_AT_OR_AFTER(app->timerQueue->te_timer_value, cur_time)(((cur_time).tv_sec > (app->timerQueue->te_timer_value ).tv_sec) || (((cur_time).tv_sec == (app->timerQueue->te_timer_value ).tv_sec)&& ((cur_time).tv_usec >= (app->timerQueue ->te_timer_value).tv_usec)))){ | |||
1324 | TimerEventRec *te_ptr = app->timerQueue; | |||
1325 | app->timerQueue = app->timerQueue->te_next; | |||
1326 | te_ptr->te_next = NULL((void*)0); | |||
1327 | if (te_ptr->te_proc != NULL((void*)0)) | |||
1328 | TeCallProc(te_ptr)(*te_ptr->te_proc) (te_ptr->te_closure, (XtIntervalId*) &te_ptr);; | |||
1329 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||
1330 | te_ptr->te_next = freeTimerRecs; | |||
1331 | freeTimerRecs = te_ptr; | |||
1332 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||
1333 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
1334 | return; | |||
1335 | } | |||
1336 | } | |||
1337 | ||||
1338 | if (mask & XtIMAlternateInput4) { | |||
1339 | if (app->input_count > 0 && app->outstandingQueue == NULL((void*)0)) { | |||
1340 | /* Call _XtWaitForSomething to get input queued up */ | |||
1341 | (void) _XtWaitForSomething (app, | |||
1342 | TRUE1, TRUE1, FALSE0, TRUE1, | |||
1343 | FALSE0, | |||
1344 | #ifdef XTHREADS1 | |||
1345 | TRUE1, | |||
1346 | #endif | |||
1347 | (unsigned long *)NULL((void*)0)); | |||
1348 | } | |||
1349 | if (app->outstandingQueue != NULL((void*)0)) { | |||
1350 | InputEvent *ie_ptr = app->outstandingQueue; | |||
1351 | app->outstandingQueue = ie_ptr->ie_oq; | |||
1352 | ie_ptr->ie_oq = NULL((void*)0); | |||
1353 | IeCallProc(ie_ptr)(*ie_ptr->ie_proc) (ie_ptr->ie_closure, &ie_ptr-> ie_source, (XtInputId*)&ie_ptr);; | |||
1354 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
1355 | return; | |||
1356 | } | |||
1357 | } | |||
1358 | ||||
1359 | if (mask & XtIMXEvent1) { | |||
1360 | for (i = 1; i <= app->count; i++) { | |||
1361 | d = (i + app->last) % app->count; | |||
1362 | if (XEventsQueued(app->list[d], QueuedAfterReading1)) | |||
1363 | goto GotEvent; | |||
1364 | } | |||
1365 | for (i = 1; i <= app->count; i++) { | |||
1366 | d = (i + app->last) % app->count; | |||
1367 | if (XEventsQueued(app->list[d], QueuedAfterFlush2)) | |||
1368 | goto GotEvent; | |||
1369 | } | |||
1370 | } | |||
1371 | ||||
1372 | /* Nothing to do...wait for something */ | |||
1373 | ||||
1374 | if (CallWorkProc(app)) continue; | |||
1375 | ||||
1376 | d = _XtWaitForSomething (app, | |||
1377 | (mask & XtIMXEvent1 ? FALSE0 : TRUE1), | |||
1378 | (mask & XtIMTimer2 ? FALSE0 : TRUE1), | |||
1379 | (mask & XtIMAlternateInput4 ? FALSE0 : TRUE1), | |||
1380 | (mask & XtIMSignal8 ? FALSE0 : TRUE1), | |||
1381 | TRUE1, | |||
1382 | #ifdef XTHREADS1 | |||
1383 | TRUE1, | |||
1384 | #endif | |||
1385 | (unsigned long *) NULL((void*)0)); | |||
1386 | ||||
1387 | if (mask & XtIMXEvent1 && d != -1) { | |||
1388 | GotEvent: | |||
1389 | XNextEvent(app->list[d], &event); | |||
1390 | #ifdef XTHREADS1 | |||
1391 | /* assert(app->list[d] == event.xany.display); */ | |||
1392 | #endif | |||
1393 | app->last = d; | |||
1394 | if (event.xany.type == MappingNotify34) { | |||
1395 | _XtRefreshMapping(&event, False0); | |||
1396 | } | |||
1397 | XtDispatchEvent(&event); | |||
1398 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
1399 | return; | |||
1400 | } | |||
1401 | ||||
1402 | } | |||
1403 | } | |||
1404 | ||||
1405 | Boolean XtPending(void) | |||
1406 | { | |||
1407 | return (XtAppPending(_XtDefaultAppContext()) != 0); | |||
1408 | } | |||
1409 | ||||
1410 | XtInputMask XtAppPending( | |||
1411 | XtAppContext app) | |||
1412 | { | |||
1413 | struct timeval cur_time; | |||
1414 | int d; | |||
1415 | XtInputMask ret = 0; | |||
1416 | ||||
1417 | /* | |||
1418 | * Check for pending X events | |||
1419 | */ | |||
1420 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||
1421 | for (d = 0; d < app->count; d++) { | |||
1422 | if (XEventsQueued(app->list[d], QueuedAfterReading1)) { | |||
1423 | ret = XtIMXEvent1; | |||
1424 | break; | |||
1425 | } | |||
1426 | } | |||
1427 | if (ret == 0) { | |||
1428 | for (d = 0; d < app->count; d++) { | |||
1429 | if (XEventsQueued(app->list[d], QueuedAfterFlush2)) { | |||
1430 | ret = XtIMXEvent1; | |||
1431 | break; | |||
1432 | } | |||
1433 | } | |||
1434 | } | |||
1435 | ||||
1436 | if (app->signalQueue != NULL((void*)0)) { | |||
1437 | SignalEventRec *se_ptr = app->signalQueue; | |||
1438 | while (se_ptr != NULL((void*)0)) { | |||
1439 | if (se_ptr->se_notice) { | |||
1440 | ret |= XtIMSignal8; | |||
1441 | break; | |||
1442 | } | |||
1443 | se_ptr = se_ptr->se_next; | |||
1444 | } | |||
1445 | } | |||
1446 | ||||
1447 | /* | |||
1448 | * Check for pending alternate input | |||
1449 | */ | |||
1450 | if (app->timerQueue != NULL((void*)0)) { /* check timeout queue */ | |||
1451 | X_GETTIMEOFDAY (&cur_time)gettimeofday(&cur_time, (struct timezone*)0); | |||
1452 | FIXUP_TIMEVAL(cur_time); | |||
1453 | if ((IS_AT_OR_AFTER(app->timerQueue->te_timer_value, cur_time)(((cur_time).tv_sec > (app->timerQueue->te_timer_value ).tv_sec) || (((cur_time).tv_sec == (app->timerQueue->te_timer_value ).tv_sec)&& ((cur_time).tv_usec >= (app->timerQueue ->te_timer_value).tv_usec)))) && | |||
1454 | (app->timerQueue->te_proc != NULL((void*)0))) { | |||
1455 | ret |= XtIMTimer2; | |||
1456 | } | |||
1457 | } | |||
1458 | ||||
1459 | if (app->outstandingQueue != NULL((void*)0)) ret |= XtIMAlternateInput4; | |||
1460 | else { | |||
1461 | /* This won't cause a wait, but will enqueue any input */ | |||
1462 | ||||
1463 | if(_XtWaitForSomething (app, | |||
1464 | FALSE0, TRUE1, FALSE0, TRUE1, | |||
1465 | FALSE0, | |||
1466 | #ifdef XTHREADS1 | |||
1467 | TRUE1, | |||
1468 | #endif | |||
1469 | (unsigned long *) NULL((void*)0)) != -1) | |||
1470 | ret |= XtIMXEvent1; | |||
1471 | if (app->outstandingQueue != NULL((void*)0)) ret |= XtIMAlternateInput4; | |||
1472 | } | |||
1473 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
1474 | return ret; | |||
1475 | } | |||
1476 | ||||
1477 | /* Peek at alternate input and timer callbacks if there are any */ | |||
1478 | ||||
1479 | static Boolean PeekOtherSources( | |||
1480 | XtAppContext app) | |||
1481 | { | |||
1482 | struct timeval cur_time; | |||
1483 | ||||
1484 | if (app->outstandingQueue != NULL((void*)0)) return TRUE1; | |||
1485 | ||||
1486 | if (app->signalQueue != NULL((void*)0)) { | |||
1487 | SignalEventRec *se_ptr = app->signalQueue; | |||
1488 | while (se_ptr != NULL((void*)0)) { | |||
1489 | if (se_ptr->se_notice) | |||
1490 | return TRUE1; | |||
1491 | se_ptr = se_ptr->se_next; | |||
1492 | } | |||
1493 | } | |||
1494 | ||||
1495 | if (app->input_count > 0) { | |||
1496 | /* Call _XtWaitForSomething to get input queued up */ | |||
1497 | (void) _XtWaitForSomething (app, | |||
1498 | TRUE1, TRUE1, FALSE0, TRUE1, | |||
1499 | FALSE0, | |||
1500 | #ifdef XTHREADS1 | |||
1501 | TRUE1, | |||
1502 | #endif | |||
1503 | (unsigned long *)NULL((void*)0)); | |||
1504 | if (app->outstandingQueue != NULL((void*)0)) return TRUE1; | |||
1505 | } | |||
1506 | ||||
1507 | if (app->timerQueue != NULL((void*)0)) { /* check timeout queue */ | |||
1508 | X_GETTIMEOFDAY (&cur_time)gettimeofday(&cur_time, (struct timezone*)0); | |||
1509 | FIXUP_TIMEVAL(cur_time); | |||
1510 | if (IS_AT_OR_AFTER (app->timerQueue->te_timer_value, cur_time)(((cur_time).tv_sec > (app->timerQueue->te_timer_value ).tv_sec) || (((cur_time).tv_sec == (app->timerQueue->te_timer_value ).tv_sec)&& ((cur_time).tv_usec >= (app->timerQueue ->te_timer_value).tv_usec)))) | |||
1511 | return TRUE1; | |||
1512 | } | |||
1513 | ||||
1514 | return FALSE0; | |||
1515 | } | |||
1516 | ||||
1517 | Boolean XtPeekEvent( | |||
1518 | XEvent *event) | |||
1519 | { | |||
1520 | return XtAppPeekEvent(_XtDefaultAppContext(), event); | |||
1521 | } | |||
1522 | ||||
1523 | Boolean XtAppPeekEvent_SkipTimer; | |||
1524 | ||||
1525 | Boolean XtAppPeekEvent( | |||
1526 | XtAppContext app, | |||
1527 | XEvent *event) | |||
1528 | { | |||
1529 | int i, d; | |||
1530 | Boolean foundCall = FALSE0; | |||
1531 | ||||
1532 | LOCK_APP(app)if(app && app->lock)(*app->lock)(app); | |||
1533 | for (i = 1; i <= app->count; i++) { | |||
1534 | d = (i + app->last) % app->count; | |||
1535 | if (d == 0) foundCall = PeekOtherSources(app); | |||
1536 | if (XEventsQueued(app->list[d], QueuedAfterReading1)) | |||
1537 | goto GotEvent; | |||
1538 | } | |||
1539 | for (i = 1; i <= app->count; i++) { | |||
1540 | d = (i + app->last) % app->count; | |||
1541 | if (XEventsQueued(app->list[d], QueuedAfterFlush2)) | |||
1542 | goto GotEvent; | |||
1543 | } | |||
1544 | ||||
1545 | if (foundCall) { | |||
1546 | event->xany.type = 0; | |||
1547 | event->xany.display = NULL((void*)0); | |||
1548 | event->xany.window = 0; | |||
1549 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
1550 | return FALSE0; | |||
1551 | } | |||
1552 | ||||
1553 | while (1) { | |||
1554 | d = _XtWaitForSomething (app, | |||
1555 | FALSE0, FALSE0, FALSE0, FALSE0, | |||
1556 | TRUE1, | |||
1557 | #ifdef XTHREADS1 | |||
1558 | TRUE1, | |||
1559 | #endif | |||
1560 | (unsigned long *) NULL((void*)0)); | |||
1561 | ||||
1562 | if (d != -1) { /* event */ | |||
1563 | GotEvent: | |||
1564 | XPeekEvent(app->list[d], event); | |||
1565 | app->last = (d == 0 ? app->count : d) - 1; | |||
1566 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
1567 | return TRUE1; | |||
1568 | } | |||
1569 | else { /* input or timer or signal */ | |||
1570 | /* | |||
1571 | * Check to see why a -1 was returned, if a timer expired, | |||
1572 | * call it and block some more | |||
1573 | */ | |||
1574 | if ((app->timerQueue != NULL((void*)0)) && ! XtAppPeekEvent_SkipTimer) { /* timer */ | |||
1575 | struct timeval cur_time; | |||
1576 | Boolint did_timer = False0; | |||
1577 | ||||
1578 | X_GETTIMEOFDAY (&cur_time)gettimeofday(&cur_time, (struct timezone*)0); | |||
1579 | FIXUP_TIMEVAL(cur_time); | |||
1580 | while (IS_AT_OR_AFTER(app->timerQueue->te_timer_value, cur_time)(((cur_time).tv_sec > (app->timerQueue->te_timer_value ).tv_sec) || (((cur_time).tv_sec == (app->timerQueue->te_timer_value ).tv_sec)&& ((cur_time).tv_usec >= (app->timerQueue ->te_timer_value).tv_usec)))) { | |||
1581 | TimerEventRec *te_ptr = app->timerQueue; | |||
1582 | app->timerQueue = app->timerQueue->te_next; | |||
1583 | te_ptr->te_next = NULL((void*)0); | |||
1584 | if (te_ptr->te_proc != NULL((void*)0)) { | |||
1585 | TeCallProc(te_ptr)(*te_ptr->te_proc) (te_ptr->te_closure, (XtIntervalId*) &te_ptr);; | |||
1586 | did_timer = True1; | |||
1587 | } | |||
1588 | LOCK_PROCESSif(_XtProcessLock)(*_XtProcessLock)(); | |||
1589 | te_ptr->te_next = freeTimerRecs; | |||
1590 | freeTimerRecs = te_ptr; | |||
1591 | UNLOCK_PROCESSif(_XtProcessUnlock)(*_XtProcessUnlock)(); | |||
1592 | if (app->timerQueue == NULL((void*)0)) break; | |||
1593 | } | |||
1594 | if (did_timer) | |||
1595 | { | |||
1596 | for (d = 0; d < app->count; d++) | |||
1597 | /* the timer's procedure may have caused an event */ | |||
1598 | if (XEventsQueued(app->list[d], QueuedAfterFlush2)) { | |||
1599 | goto GotEvent; | |||
1600 | } | |||
1601 | continue; /* keep blocking */ | |||
1602 | } | |||
1603 | } | |||
1604 | /* | |||
1605 | * spec is vague here; we'll assume signals also return FALSE, | |||
1606 | * of course to determine whether a signal is pending requires | |||
1607 | * walking the signalQueue looking for se_notice flags which | |||
1608 | * this code doesn't do. | |||
1609 | */ | |||
1610 | #if 0 | |||
1611 | if (app->signalQueue != NULL((void*)0)) { /* signal */ | |||
1612 | event->xany.type = 0; | |||
1613 | event->xany.display = NULL((void*)0); | |||
1614 | event->xany.window = 0; | |||
1615 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
1616 | return FALSE0; | |||
1617 | } | |||
1618 | else | |||
1619 | #endif | |||
1620 | { /* input */ | |||
1621 | event->xany.type = 0; | |||
1622 | event->xany.display = NULL((void*)0); | |||
1623 | event->xany.window = 0; | |||
1624 | UNLOCK_APP(app)if(app && app->unlock)(*app->unlock)(app); | |||
1625 | return FALSE0; | |||
1626 | } | |||
1627 | } | |||
1628 | } /* end while */ | |||
1629 | } |