fd94e0efd0b747e1884c3e72013865df68bfb2fc
[freeglut] / src / fg_main.c
1 /*
2  * freeglut_main.c
3  *
4  * The windows message processing methods.
5  *
6  * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved.
7  * Written by Pawel W. Olszta, <olszta@sourceforge.net>
8  * Creation date: Fri Dec 3 1999
9  *
10  * Permission is hereby granted, free of charge, to any person obtaining a
11  * copy of this software and associated documentation files (the "Software"),
12  * to deal in the Software without restriction, including without limitation
13  * the rights to use, copy, modify, merge, publish, distribute, sublicense,
14  * and/or sell copies of the Software, and to permit persons to whom the
15  * Software is furnished to do so, subject to the following conditions:
16  *
17  * The above copyright notice and this permission notice shall be included
18  * in all copies or substantial portions of the Software.
19  *
20  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
21  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
22  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
23  * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
24  * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
25  * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
26  */
27
28 #include <GL/freeglut.h>
29 #include "fg_internal.h"
30 #ifdef HAVE_ERRNO_H
31 #    include <errno.h>
32 #endif
33 #include <stdarg.h>
34 #ifdef  HAVE_VFPRINTF
35 #    define VFPRINTF(s,f,a) vfprintf((s),(f),(a))
36 #elif defined(HAVE__DOPRNT)
37 #    define VFPRINTF(s,f,a) _doprnt((f),(a),(s))
38 #else
39 #    define VFPRINTF(s,f,a)
40 #endif
41
42 /*
43  * Try to get the maximum value allowed for ints, falling back to the minimum
44  * guaranteed by ISO C99 if there is no suitable header.
45  */
46 #ifdef HAVE_LIMITS_H
47 #    include <limits.h>
48 #endif
49 #ifndef INT_MAX
50 #    define INT_MAX 32767
51 #endif
52
53 #ifndef MIN
54 #    define MIN(a,b) (((a)<(b)) ? (a) : (b))
55 #endif
56
57 extern void fgPlatformReshapeWindow ( SFG_Window *window, int width, int height );
58 extern void fgPlatformDisplayWindow ( SFG_Window *window );
59 extern fg_time_t fgPlatformSystemTime ( void );
60 extern void fgPlatformSleepForEvents( fg_time_t msec );
61 extern void fgPlatformProcessSingleEvent ( void );
62 extern void fgPlatformMainLoopPreliminaryWork ( void );
63
64
65
66
67 /* -- PRIVATE FUNCTIONS ---------------------------------------------------- */
68
69 static void fghReshapeWindow ( SFG_Window *window, int width, int height )
70 {
71     SFG_Window *current_window = fgStructure.CurrentWindow;
72
73     freeglut_return_if_fail( window != NULL );
74
75         fgPlatformReshapeWindow ( window, width, height );
76
77     if( FETCH_WCB( *window, Reshape ) )
78         INVOKE_WCB( *window, Reshape, ( width, height ) );
79     else
80     {
81         fgSetWindow( window );
82         glViewport( 0, 0, width, height );
83     }
84
85     /*
86      * Force a window redraw.  In Windows at least this is only a partial
87      * solution:  if the window is increasing in size in either dimension,
88      * the already-drawn part does not get drawn again and things look funny.
89      * But without this we get this bad behaviour whenever we resize the
90      * window.
91      * DN: Hmm.. the above sounds like a concern only in single buffered mode...
92      */
93     window->State.Redisplay = GL_TRUE;
94
95     if( window->IsMenu )
96         fgSetWindow( current_window );
97 }
98
99 /*
100  * Calls a window's redraw method. This is used when
101  * a redraw is forced by the incoming window messages.
102  */
103 void fghRedrawWindow ( SFG_Window *window )
104 {
105     SFG_Window *current_window = fgStructure.CurrentWindow;
106
107     freeglut_return_if_fail( window );
108
109     if( window->State.NeedToInitContext ) {
110         INVOKE_WCB( *window, InitContext, ());
111         window->State.NeedToInitContext = GL_FALSE;
112     }
113
114     freeglut_return_if_fail( FETCH_WCB ( *window, Display ) );
115
116     window->State.Redisplay = GL_FALSE;
117
118     freeglut_return_if_fail( window->State.Visible );
119
120     fgSetWindow( window );
121
122     if( window->State.NeedToResize )
123     {
124         /* Set need to resize to false before calling fghReshapeWindow, otherwise
125            in the case the user's reshape callback calls glutReshapeWindow,
126            his request would get canceled after fghReshapeWindow gets called.
127          */
128         window->State.NeedToResize = GL_FALSE;
129
130         fghReshapeWindow(
131             window,
132             window->State.Width,
133             window->State.Height
134         );
135     }
136
137     INVOKE_WCB( *window, Display, ( ) );
138
139     fgSetWindow( current_window );
140 }
141
142
143 static void fghcbDisplayWindow( SFG_Window *window,
144                                 SFG_Enumerator *enumerator )
145 {
146     if( window->State.Redisplay &&
147         window->State.Visible )
148     {
149         window->State.Redisplay = GL_FALSE;
150                 fgPlatformDisplayWindow ( window );
151     }
152
153     fgEnumSubWindows( window, fghcbDisplayWindow, enumerator );
154 }
155
156 /*
157  * Make all windows perform a display call
158  */
159 static void fghDisplayAll( void )
160 {
161     SFG_Enumerator enumerator;
162
163     enumerator.found = GL_FALSE;
164     enumerator.data  =  NULL;
165
166     fgEnumWindows( fghcbDisplayWindow, &enumerator );
167 }
168
169 /*
170  * Window enumerator callback to check for the joystick polling code
171  */
172 static void fghcbCheckJoystickPolls( SFG_Window *window,
173                                      SFG_Enumerator *enumerator )
174 {
175     fg_time_t checkTime;
176     
177     if (window->State.JoystickPollRate > 0 && FETCH_WCB( *window, Joystick ))
178     {
179         /* This window has a joystick to be polled (if pollrate <= 0, user needs to poll manually with glutForceJoystickFunc */
180         checkTime= fgElapsedTime( );
181
182         if( window->State.JoystickLastPoll + window->State.JoystickPollRate <=
183             checkTime )
184         {
185 #if !defined(_WIN32_WCE)
186             fgJoystickPollWindow( window );
187 #endif /* !defined(_WIN32_WCE) */
188             window->State.JoystickLastPoll = checkTime;
189         }
190     }
191
192     fgEnumSubWindows( window, fghcbCheckJoystickPolls, enumerator );
193 }
194
195 /*
196  * Check all windows for joystick polling
197  * 
198  * The real way to do this is to make use of the glutTimer() API
199  * to more cleanly re-implement the joystick API.  Then, this code
200  * and all other "joystick timer" code can be yanked.
201  */
202 static void fghCheckJoystickPolls( void )
203 {
204     SFG_Enumerator enumerator;
205
206     enumerator.found = GL_FALSE;
207     enumerator.data  =  NULL;
208
209     fgEnumWindows( fghcbCheckJoystickPolls, &enumerator );
210 }
211
212 /*
213  * Check the global timers
214  */
215 static void fghCheckTimers( void )
216 {
217     fg_time_t checkTime = fgElapsedTime( );
218
219     while( fgState.Timers.First )
220     {
221         SFG_Timer *timer = fgState.Timers.First;
222
223         if( timer->TriggerTime > checkTime )
224             break;
225
226         fgListRemove( &fgState.Timers, &timer->Node );
227         fgListAppend( &fgState.FreeTimers, &timer->Node );
228
229         timer->Callback( timer->ID );
230     }
231 }
232
233  
234 /* Platform-dependent time in milliseconds, as an unsigned 64-bit integer.
235  * This doesn't overflow in any reasonable time, so no need to worry about
236  * that. The GLUT API return value will however overflow after 49.7 days,
237  * which means you will still get in trouble when running the
238  * application for more than 49.7 days.
239  */  
240 fg_time_t fgSystemTime(void)
241 {
242         return fgPlatformSystemTime();
243 }
244   
245 /*
246  * Elapsed Time
247  */
248 fg_time_t fgElapsedTime( void )
249 {
250     return fgSystemTime() - fgState.Time;
251 }
252
253 /*
254  * Error Messages.
255  */
256 void fgError( const char *fmt, ... )
257 {
258     va_list ap;
259
260     if (fgState.ErrorFunc) {
261
262         va_start( ap, fmt );
263
264         /* call user set error handler here */
265         fgState.ErrorFunc(fmt, ap);
266
267         va_end( ap );
268
269     } else {
270 #if FREEGLUT_ERRORS
271         va_start( ap, fmt );
272
273         fprintf( stderr, "freeglut ");
274         if( fgState.ProgramName )
275             fprintf( stderr, "(%s): ", fgState.ProgramName );
276         VFPRINTF( stderr, fmt, ap );
277         fprintf( stderr, "\n" );
278
279         va_end( ap );
280 #endif
281
282         if ( fgState.Initialised )
283             fgDeinitialize ();
284
285         exit( 1 );
286     }
287 }
288
289 void fgWarning( const char *fmt, ... )
290 {
291     va_list ap;
292
293     if (fgState.WarningFunc) {
294
295         va_start( ap, fmt );
296
297         /* call user set warning handler here */
298         fgState.WarningFunc(fmt, ap);
299
300         va_end( ap );
301
302     } else {
303 #if FREEGLUT_WARNINGS
304         va_start( ap, fmt );
305
306         fprintf( stderr, "freeglut ");
307         if( fgState.ProgramName )
308             fprintf( stderr, "(%s): ", fgState.ProgramName );
309         VFPRINTF( stderr, fmt, ap );
310         fprintf( stderr, "\n" );
311
312         va_end( ap );
313 #endif
314     }
315 }
316
317
318 /*
319  * Indicates whether Joystick events are being used by ANY window.
320  *
321  * The current mechanism is to walk all of the windows and ask if
322  * there is a joystick callback.  We have a short-circuit early
323  * return if we find any joystick handler registered.
324  *
325  *
326  */
327 static void fghHavePendingRedisplaysCallback( SFG_Window* w, SFG_Enumerator* e)
328 {
329     if( w->State.Redisplay && w->State.Visible )
330     {
331         e->found = GL_TRUE;
332         e->data = w;
333     }
334     fgEnumSubWindows( w, fghHavePendingRedisplaysCallback, e );
335 }
336 static int fghHavePendingRedisplays (void)
337 {
338     SFG_Enumerator enumerator;
339
340     enumerator.found = GL_FALSE;
341     enumerator.data = NULL;
342     fgEnumWindows( fghHavePendingRedisplaysCallback, &enumerator );
343     return !!enumerator.data;
344 }
345
346 /*
347  * Returns the number of GLUT ticks (milliseconds) till the next timer event.
348  */
349 static fg_time_t fghNextTimer( void )
350 {
351     fg_time_t currentTime = fgElapsedTime();
352     SFG_Timer *timer = fgState.Timers.First;
353
354     if( !timer )
355         return INT_MAX;
356
357     if( timer->TriggerTime < currentTime )
358         return 0;
359     else
360         return timer->TriggerTime - currentTime;
361 }
362
363 static void fghSleepForEvents( void )
364 {
365     fg_time_t msec;
366
367     if( fghHavePendingRedisplays( ) )
368         return;
369
370     msec = fghNextTimer( );
371     /* XXX Should use GLUT timers for joysticks... */
372     /* XXX Dumb; forces granularity to .01sec */
373     if( fgState.NumActiveJoysticks>0 && ( msec > 10 ) )     
374         msec = 10;
375
376         fgPlatformSleepForEvents ( msec );
377 }
378
379
380 /* -- INTERFACE FUNCTIONS -------------------------------------------------- */
381
382 /*
383  * Executes a single iteration in the freeglut processing loop.
384  */
385 void FGAPIENTRY glutMainLoopEvent( void )
386 {
387         fgPlatformProcessSingleEvent ();
388
389     if( fgState.Timers.First )
390         fghCheckTimers( );
391     if (fgState.NumActiveJoysticks>0)   /* If zero, don't poll joysticks */
392         fghCheckJoystickPolls( );
393     fghDisplayAll( );
394
395     fgCloseWindows( );
396 }
397
398 /*
399  * Enters the freeglut processing loop.
400  * Stays until the "ExecState" changes to "GLUT_EXEC_STATE_STOP".
401  */
402 void FGAPIENTRY glutMainLoop( void )
403 {
404     int action;
405
406     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutMainLoop" );
407
408     if (!fgStructure.Windows.First)
409         fgError(" ERROR:  glutMainLoop called with no windows created.");
410
411         fgPlatformMainLoopPreliminaryWork ();
412
413     fgState.ExecState = GLUT_EXEC_STATE_RUNNING ;
414     while( fgState.ExecState == GLUT_EXEC_STATE_RUNNING )
415     {
416         SFG_Window *window;
417
418         glutMainLoopEvent( );
419         /*
420          * Step through the list of windows, seeing if there are any
421          * that are not menus
422          */
423         for( window = ( SFG_Window * )fgStructure.Windows.First;
424              window;
425              window = ( SFG_Window * )window->Node.Next )
426             if ( ! ( window->IsMenu ) )
427                 break;
428
429         if( ! window )
430             fgState.ExecState = GLUT_EXEC_STATE_STOP;
431         else
432         {
433             if( fgState.IdleCallback )
434             {
435                 if( fgStructure.CurrentWindow &&
436                     fgStructure.CurrentWindow->IsMenu )
437                     /* fail safe */
438                     fgSetWindow( window );
439                 fgState.IdleCallback( );
440             }
441             else
442                 fghSleepForEvents( );
443         }
444     }
445
446     /*
447      * When this loop terminates, destroy the display, state and structure
448      * of a freeglut session, so that another glutInit() call can happen
449      *
450      * Save the "ActionOnWindowClose" because "fgDeinitialize" resets it.
451      */
452     action = fgState.ActionOnWindowClose;
453     fgDeinitialize( );
454     if( action == GLUT_ACTION_EXIT )
455         exit( 0 );
456 }
457
458 /*
459  * Leaves the freeglut processing loop.
460  */
461 void FGAPIENTRY glutLeaveMainLoop( void )
462 {
463     FREEGLUT_EXIT_IF_NOT_INITIALISED ( "glutLeaveMainLoop" );
464     fgState.ExecState = GLUT_EXEC_STATE_STOP ;
465 }
466
467
468
469 /*** END OF FILE ***/