audited all Sys_Quit calls and gave them return values indicating
[divverent/darkplaces.git] / vid_agl.c
1 /*
2         vid_agl.c
3
4         Mac OS X OpenGL and input module, using Carbon and AGL
5
6         Copyright (C) 2005-2006  Mathieu Olivier
7
8         This program is free software; you can redistribute it and/or modify
9         it under the terms of the GNU General Public License as published by
10         the Free Software Foundation; either version 2 of the License, or
11         (at your option) any later version.
12
13         This program is distributed in the hope that it will be useful,
14         but WITHOUT ANY WARRANTY; without even the implied warranty of
15         MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16         GNU General Public License for more details.
17
18         You should have received a copy of the GNU General Public License
19         along with this program; if not, write to the Free Software
20         Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
21 */
22
23
24 #include <dlfcn.h>
25 #include <signal.h>
26 #include <AGL/agl.h>
27 #include <OpenGL/OpenGL.h>
28 #include <Carbon/Carbon.h>
29 #include "vid_agl_mackeys.h" // this is SDL/src/video/maccommon/SDL_mackeys.h
30 #include "quakedef.h"
31
32 #ifndef kCGLCEMPEngine
33 #define kCGLCEMPEngine 313
34 #endif
35
36 // Tell startup code that we have a client
37 int cl_available = true;
38
39 qboolean vid_supportrefreshrate = true;
40
41 // AGL prototypes
42 AGLPixelFormat (*qaglChoosePixelFormat) (const AGLDevice *gdevs, GLint ndev, const GLint *attribList);
43 AGLContext (*qaglCreateContext) (AGLPixelFormat pix, AGLContext share);
44 GLboolean (*qaglDestroyContext) (AGLContext ctx);
45 void (*qaglDestroyPixelFormat) (AGLPixelFormat pix);
46 const GLubyte* (*qaglErrorString) (GLenum code);
47 GLenum (*qaglGetError) (void);
48 GLboolean (*qaglSetCurrentContext) (AGLContext ctx);
49 GLboolean (*qaglSetDrawable) (AGLContext ctx, AGLDrawable draw);
50 GLboolean (*qaglSetFullScreen) (AGLContext ctx, GLsizei width, GLsizei height, GLsizei freq, GLint device);
51 GLboolean (*qaglSetInteger) (AGLContext ctx, GLenum pname, const GLint *params);
52 void (*qaglSwapBuffers) (AGLContext ctx);
53 CGLError (*qCGLEnable) (CGLContextObj ctx, CGLContextEnable pname);
54 CGLError (*qCGLDisable) (CGLContextObj ctx, CGLContextEnable pname);
55 CGLContextObj (*qCGLGetCurrentContext) (void);
56
57 static qboolean multithreadedgl;
58 static qboolean mouse_avail = true;
59 static qboolean vid_usingmouse = false;
60 static float mouse_x, mouse_y;
61
62 static qboolean vid_isfullscreen = false;
63 static qboolean vid_usingvsync = false;
64
65 static qboolean sound_active = true;
66
67 static int scr_width, scr_height;
68
69 static cvar_t apple_multithreadedgl = {CVAR_SAVE, "apple_multithreadedgl", "0", "makes use of a second thread for the OpenGL driver (if possible) rather than using the engine thread (note: this is done automatically on most other operating systems)"};
70
71 static AGLContext context;
72 static WindowRef window;
73
74
75 void VID_GetWindowSize (int *x, int *y, int *width, int *height)
76 {
77         *x = *y = 0;
78         *width = scr_width;
79         *height = scr_height;
80 }
81
82 static void IN_Activate( qboolean grab )
83 {
84         if (grab)
85         {
86                 if (!vid_usingmouse && mouse_avail && window)
87                 {
88                         Rect winBounds;
89                         CGPoint winCenter;
90
91                         SelectWindow(window);
92                         CGDisplayHideCursor(CGMainDisplayID());
93
94                         // Put the mouse cursor at the center of the window
95                         GetWindowBounds (window, kWindowContentRgn, &winBounds);
96                         winCenter.x = (winBounds.left + winBounds.right) / 2;
97                         winCenter.y = (winBounds.top + winBounds.bottom) / 2;
98                         CGWarpMouseCursorPosition(winCenter);
99
100                         // Lock the mouse pointer at its current position
101                         CGAssociateMouseAndMouseCursorPosition(false);
102
103                         mouse_x = mouse_y = 0;
104                         vid_usingmouse = true;
105                 }
106         }
107         else
108         {
109                 if (vid_usingmouse)
110                 {
111                         CGAssociateMouseAndMouseCursorPosition(true);
112                         CGDisplayShowCursor(CGMainDisplayID());
113
114                         vid_usingmouse = false;
115                 }
116         }
117 }
118
119 #define GAMMA_TABLE_SIZE 256
120 void VID_Finish (qboolean allowmousegrab)
121 {
122         qboolean vid_usemouse;
123         qboolean vid_usevsync;
124
125         // handle the mouse state when windowed if that's changed
126         vid_usemouse = false;
127         if (allowmousegrab && vid_mouse.integer && !key_consoleactive && (key_dest != key_game || !cls.demoplayback))
128                 vid_usemouse = true;
129         if (!vid_activewindow)
130                 vid_usemouse = false;
131         if (vid_isfullscreen)
132                 vid_usemouse = true;
133         IN_Activate(vid_usemouse);
134
135         // handle changes of the vsync option
136         vid_usevsync = (vid_vsync.integer && !cls.timedemo);
137         if (vid_usingvsync != vid_usevsync)
138         {
139                 GLint sync = (vid_usevsync ? 1 : 0);
140
141                 if (qaglSetInteger(context, AGL_SWAP_INTERVAL, &sync) == GL_TRUE)
142                 {
143                         vid_usingvsync = vid_usevsync;
144                         Con_DPrintf("Vsync %s\n", vid_usevsync ? "activated" : "deactivated");
145                 }
146                 else
147                         Con_Printf("ERROR: can't %s vsync\n", vid_usevsync ? "activate" : "deactivate");
148         }
149
150         if (r_render.integer)
151         {
152                 CHECKGLERROR
153                 if (r_speeds.integer || gl_finish.integer)
154                 {
155                         qglFinish();CHECKGLERROR
156                 }
157                 qaglSwapBuffers(context);
158         }
159         VID_UpdateGamma(false, GAMMA_TABLE_SIZE);
160
161         if (apple_multithreadedgl.integer)
162         {
163                 if (!multithreadedgl)
164                 {
165                         if(qCGLGetCurrentContext && qCGLEnable && qCGLDisable)
166                         {
167                                 CGLContextObj ctx = qCGLGetCurrentContext();
168                                 CGLError e = qCGLEnable(ctx, kCGLCEMPEngine);
169                                 if(e == kCGLNoError)
170                                         multithreadedgl = true;
171                                 else
172                                 {
173                                         Con_Printf("WARNING: can't enable multithreaded GL, error %d\n", (int) e);
174                                         Cvar_SetValueQuick(&apple_multithreadedgl, 0);
175                                 }
176                         }
177                         else
178                         {
179                                 Con_Printf("WARNING: can't enable multithreaded GL, CGL functions not present\n");
180                                 Cvar_SetValueQuick(&apple_multithreadedgl, 0);
181                         }
182                 }
183         }
184         else
185         {
186                 if (multithreadedgl)
187                 {
188                         if(qCGLGetCurrentContext && qCGLEnable && qCGLDisable)
189                         {
190                                 CGLContextObj ctx = qCGLGetCurrentContext();
191                                 qCGLDisable(ctx, kCGLCEMPEngine);
192                                 multithreadedgl = false;
193                         }
194                 }
195         }
196 }
197
198 int VID_SetGamma(unsigned short *ramps, int rampsize)
199 {
200         CGGammaValue table_red [GAMMA_TABLE_SIZE];
201         CGGammaValue table_green [GAMMA_TABLE_SIZE];
202         CGGammaValue table_blue [GAMMA_TABLE_SIZE];
203         int i;
204
205         // Convert the unsigned short table into 3 float tables
206         for (i = 0; i < rampsize; i++)
207                 table_red[i] = (float)ramps[i] / 65535.0f;
208         for (i = 0; i < rampsize; i++)
209                 table_green[i] = (float)ramps[i + rampsize] / 65535.0f;
210         for (i = 0; i < rampsize; i++)
211                 table_blue[i] = (float)ramps[i + 2 * rampsize] / 65535.0f;
212
213         if (CGSetDisplayTransferByTable(CGMainDisplayID(), rampsize, table_red, table_green, table_blue) != CGDisplayNoErr)
214         {
215                 Con_Print("VID_SetGamma: ERROR: CGSetDisplayTransferByTable failed!\n");
216                 return false;
217         }
218
219         return true;
220 }
221
222 int VID_GetGamma(unsigned short *ramps, int rampsize)
223 {
224         CGGammaValue table_red [GAMMA_TABLE_SIZE];
225         CGGammaValue table_green [GAMMA_TABLE_SIZE];
226         CGGammaValue table_blue [GAMMA_TABLE_SIZE];
227         CGTableCount actualsize = 0;
228         int i;
229
230         // Get the gamma ramps from the system
231         if (CGGetDisplayTransferByTable(CGMainDisplayID(), rampsize, table_red, table_green, table_blue, &actualsize) != CGDisplayNoErr)
232         {
233                 Con_Print("VID_GetGamma: ERROR: CGGetDisplayTransferByTable failed!\n");
234                 return false;
235         }
236         if (actualsize != (unsigned int)rampsize)
237         {
238                 Con_Printf("VID_GetGamma: ERROR: invalid gamma table size (%u != %u)\n", actualsize, rampsize);
239                 return false;
240         }
241
242         // Convert the 3 float tables into 1 unsigned short table
243         for (i = 0; i < rampsize; i++)
244                 ramps[i] = table_red[i] * 65535.0f;
245         for (i = 0; i < rampsize; i++)
246                 ramps[i + rampsize] = table_green[i] * 65535.0f;
247         for (i = 0; i < rampsize; i++)
248                 ramps[i + 2 * rampsize] = table_blue[i] * 65535.0f;
249
250         return true;
251 }
252
253 void signal_handler(int sig)
254 {
255         printf("Received signal %d, exiting...\n", sig);
256         VID_RestoreSystemGamma();
257         Sys_Quit(1);
258 }
259
260 void InitSig(void)
261 {
262         signal(SIGHUP, signal_handler);
263         signal(SIGINT, signal_handler);
264         signal(SIGQUIT, signal_handler);
265         signal(SIGILL, signal_handler);
266         signal(SIGTRAP, signal_handler);
267         signal(SIGIOT, signal_handler);
268         signal(SIGBUS, signal_handler);
269         signal(SIGFPE, signal_handler);
270         signal(SIGSEGV, signal_handler);
271         signal(SIGTERM, signal_handler);
272 }
273
274 void VID_Init(void)
275 {
276         InitSig(); // trap evil signals
277         Cvar_RegisterVariable(&apple_multithreadedgl);
278 // COMMANDLINEOPTION: Input: -nomouse disables mouse support (see also vid_mouse cvar)
279         if (COM_CheckParm ("-nomouse"))
280                 mouse_avail = false;
281 }
282
283 static void *prjobj = NULL;
284 static void *cglobj = NULL;
285
286 static void GL_CloseLibrary(void)
287 {
288         if (cglobj)
289                 dlclose(cglobj);
290         cglobj = NULL;
291         if (prjobj)
292                 dlclose(prjobj);
293         prjobj = NULL;
294         gl_driver[0] = 0;
295         gl_extensions = "";
296         gl_platform = "";
297         gl_platformextensions = "";
298 }
299
300 static int GL_OpenLibrary(void)
301 {
302         const char *name = "/System/Library/Frameworks/AGL.framework/AGL";
303         const char *name2 = "/System/Library/Frameworks/OpenGL.framework/OpenGL";
304
305         Con_Printf("Loading OpenGL driver %s\n", name);
306         GL_CloseLibrary();
307         if (!(prjobj = dlopen(name, RTLD_LAZY)))
308         {
309                 Con_Printf("Unable to open symbol list for %s\n", name);
310                 return false;
311         }
312         strlcpy(gl_driver, name, sizeof(gl_driver));
313
314         Con_Printf("Loading OpenGL driver %s\n", name2);
315         if (!(cglobj = dlopen(name2, RTLD_LAZY)))
316                 Con_Printf("Unable to open symbol list for %s; multithreaded GL disabled\n", name);
317
318         return true;
319 }
320
321 void *GL_GetProcAddress(const char *name)
322 {
323         return dlsym(prjobj, name);
324 }
325
326 static void *CGL_GetProcAddress(const char *name)
327 {
328         if(!cglobj)
329                 return NULL;
330         return dlsym(cglobj, name);
331 }
332
333 void VID_Shutdown(void)
334 {
335         if (context == NULL && window == NULL)
336                 return;
337
338         IN_Activate(false);
339         VID_RestoreSystemGamma();
340
341         if (context != NULL)
342         {
343                 qaglDestroyContext(context);
344                 context = NULL;
345         }
346
347         if (vid_isfullscreen)
348                 CGReleaseAllDisplays();
349
350         if (window != NULL)
351         {
352                 DisposeWindow(window);
353                 window = NULL;
354         }
355
356         vid_hidden = true;
357         vid_isfullscreen = false;
358
359         GL_CloseLibrary();
360         Key_ClearStates ();
361 }
362
363 // Since the event handler can be called at any time, we store the events for later processing
364 static qboolean AsyncEvent_Quitting = false;
365 static qboolean AsyncEvent_Collapsed = false;
366 static OSStatus MainWindowEventHandler (EventHandlerCallRef nextHandler, EventRef event, void *userData)
367 {
368         OSStatus err = noErr;
369
370         switch (GetEventKind (event))
371         {
372                 case kEventWindowClosed:
373                         AsyncEvent_Quitting = true;
374                         break;
375
376                 // Docked (start)
377                 case kEventWindowCollapsing:
378                         AsyncEvent_Collapsed = true;
379                         break;
380
381                 // Undocked / restored (end)
382                 case kEventWindowExpanded:
383                         AsyncEvent_Collapsed = false;
384                         break;
385
386                 default:
387                         err = eventNotHandledErr;
388                         break;
389         }
390
391         return err;
392 }
393
394 static void VID_AppFocusChanged(qboolean windowIsActive)
395 {
396         if (vid_activewindow != windowIsActive)
397         {
398                 vid_activewindow = windowIsActive;
399                 if (!vid_activewindow)
400                         VID_RestoreSystemGamma();
401         }
402
403         if (sound_active != windowIsActive)
404         {
405                 sound_active = windowIsActive;
406                 if (sound_active)
407                         S_UnblockSound ();
408                 else
409                         S_BlockSound ();
410         }
411 }
412
413 static void VID_ProcessPendingAsyncEvents (void)
414 {
415         // Collapsed / expanded
416         if (AsyncEvent_Collapsed != vid_hidden)
417         {
418                 vid_hidden = !vid_hidden;
419                 VID_AppFocusChanged(!vid_hidden);
420         }
421
422         // Closed
423         if (AsyncEvent_Quitting)
424                 Sys_Quit(0);
425 }
426
427 static void VID_BuildAGLAttrib(GLint *attrib, qboolean stencil, qboolean fullscreen, qboolean stereobuffer)
428 {
429         *attrib++ = AGL_RGBA;
430         *attrib++ = AGL_RED_SIZE;*attrib++ = 1;
431         *attrib++ = AGL_GREEN_SIZE;*attrib++ = 1;
432         *attrib++ = AGL_BLUE_SIZE;*attrib++ = 1;
433         *attrib++ = AGL_DOUBLEBUFFER;
434         *attrib++ = AGL_DEPTH_SIZE;*attrib++ = 1;
435
436         // if stencil is enabled, ask for alpha too
437         if (stencil)
438         {
439                 *attrib++ = AGL_STENCIL_SIZE;*attrib++ = 8;
440                 *attrib++ = AGL_ALPHA_SIZE;*attrib++ = 1;
441         }
442         if (fullscreen)
443                 *attrib++ = AGL_FULLSCREEN;
444         if (stereobuffer)
445                 *attrib++ = AGL_STEREO;
446         *attrib++ = AGL_NONE;
447 }
448
449 int VID_InitMode(int fullscreen, int width, int height, int bpp, int refreshrate, int stereobuffer)
450 {
451     const EventTypeSpec winEvents[] =
452         {
453                 { kEventClassWindow, kEventWindowClosed },
454                 { kEventClassWindow, kEventWindowCollapsing },
455                 { kEventClassWindow, kEventWindowExpanded },
456         };
457         OSStatus carbonError;
458         Rect windowBounds;
459         CFStringRef windowTitle;
460         AGLPixelFormat pixelFormat;
461         GLint attributes [32];
462         GLenum error;
463
464         if (!GL_OpenLibrary())
465         {
466                 Con_Printf("Unable to load GL driver\n");
467                 return false;
468         }
469
470         if ((qaglChoosePixelFormat = (AGLPixelFormat (*) (const AGLDevice *gdevs, GLint ndev, const GLint *attribList))GL_GetProcAddress("aglChoosePixelFormat")) == NULL
471          || (qaglCreateContext = (AGLContext (*) (AGLPixelFormat pix, AGLContext share))GL_GetProcAddress("aglCreateContext")) == NULL
472          || (qaglDestroyContext = (GLboolean (*) (AGLContext ctx))GL_GetProcAddress("aglDestroyContext")) == NULL
473          || (qaglDestroyPixelFormat = (void (*) (AGLPixelFormat pix))GL_GetProcAddress("aglDestroyPixelFormat")) == NULL
474          || (qaglErrorString = (const GLubyte* (*) (GLenum code))GL_GetProcAddress("aglErrorString")) == NULL
475          || (qaglGetError = (GLenum (*) (void))GL_GetProcAddress("aglGetError")) == NULL
476          || (qaglSetCurrentContext = (GLboolean (*) (AGLContext ctx))GL_GetProcAddress("aglSetCurrentContext")) == NULL
477          || (qaglSetDrawable = (GLboolean (*) (AGLContext ctx, AGLDrawable draw))GL_GetProcAddress("aglSetDrawable")) == NULL
478          || (qaglSetFullScreen = (GLboolean (*) (AGLContext ctx, GLsizei width, GLsizei height, GLsizei freq, GLint device))GL_GetProcAddress("aglSetFullScreen")) == NULL
479          || (qaglSetInteger = (GLboolean (*) (AGLContext ctx, GLenum pname, const GLint *params))GL_GetProcAddress("aglSetInteger")) == NULL
480          || (qaglSwapBuffers = (void (*) (AGLContext ctx))GL_GetProcAddress("aglSwapBuffers")) == NULL
481         )
482         {
483                 Con_Printf("AGL functions not found\n");
484                 ReleaseWindow(window);
485                 return false;
486         }
487
488         qCGLEnable = (CGLError (*) (CGLContextObj ctx, CGLContextEnable pname)) CGL_GetProcAddress("CGLEnable");
489         qCGLDisable = (CGLError (*) (CGLContextObj ctx, CGLContextEnable pname)) CGL_GetProcAddress("CGLDisable");
490         qCGLGetCurrentContext = (CGLContextObj (*) (void)) CGL_GetProcAddress("CGLGetCurrentContext");
491         if(!qCGLEnable || !qCGLDisable || !qCGLGetCurrentContext)
492                 Con_Printf("CGL functions not found; disabling multithreaded OpenGL\n");
493
494         // Ignore the events from the previous window
495         AsyncEvent_Quitting = false;
496         AsyncEvent_Collapsed = false;
497
498         // Create the window, a bit towards the center of the screen
499         windowBounds.left = 100;
500         windowBounds.top = 100;
501         windowBounds.right = width + 100;
502         windowBounds.bottom = height + 100;
503         carbonError = CreateNewWindow(kDocumentWindowClass, kWindowStandardFloatingAttributes | kWindowStandardHandlerAttribute, &windowBounds, &window);
504         if (carbonError != noErr || window == NULL)
505         {
506                 Con_Printf("Unable to create window (error %u)\n", (unsigned)carbonError);
507                 return false;
508         }
509
510         // Set the window title
511         windowTitle = CFSTR("DarkPlaces AGL");
512         SetWindowTitleWithCFString(window, windowTitle);
513
514         // Install the callback function for the window events we can't get
515         // through ReceiveNextEvent (i.e. close, collapse, and expand)
516         InstallWindowEventHandler (window, NewEventHandlerUPP (MainWindowEventHandler),
517                                                            GetEventTypeCount(winEvents), winEvents, window, NULL);
518
519         // Create the desired attribute list
520         VID_BuildAGLAttrib(attributes, bpp == 32, fullscreen, stereobuffer);
521
522         if (!fullscreen)
523         {
524                 // Output to Window
525                 pixelFormat = qaglChoosePixelFormat(NULL, 0, attributes);
526                 error = qaglGetError();
527                 if (error != AGL_NO_ERROR)
528                 {
529                         Con_Printf("qaglChoosePixelFormat FAILED: %s\n",
530                                         (char *)qaglErrorString(error));
531                         ReleaseWindow(window);
532                         return false;
533                 }
534         }
535         else  // Output is fullScreen
536         {
537                 CGDirectDisplayID mainDisplay;
538                 CFDictionaryRef refDisplayMode;
539                 GDHandle gdhDisplay;
540
541                 // Get the mainDisplay and set resolution to current
542                 mainDisplay = CGMainDisplayID();
543                 CGDisplayCapture(mainDisplay);
544
545                 // TOCHECK: not sure whether or not it's necessary to change the resolution
546                 // "by hand", or if aglSetFullscreen does the job anyway
547                 refDisplayMode = CGDisplayBestModeForParametersAndRefreshRate(mainDisplay, bpp, width, height, refreshrate, NULL);
548                 CGDisplaySwitchToMode(mainDisplay, refDisplayMode);
549                 DMGetGDeviceByDisplayID((DisplayIDType)mainDisplay, &gdhDisplay, false);
550
551                 // Set pixel format with built attribs
552                 // Note: specifying a device is *required* for AGL_FullScreen
553                 pixelFormat = qaglChoosePixelFormat(&gdhDisplay, 1, attributes);
554                 error = qaglGetError();
555                 if (error != AGL_NO_ERROR)
556                 {
557                         Con_Printf("qaglChoosePixelFormat FAILED: %s\n",
558                                                 (char *)qaglErrorString(error));
559                         ReleaseWindow(window);
560                         return false;
561                 }
562         }
563
564         // Create a context using the pform
565         context = qaglCreateContext(pixelFormat, NULL);
566         error = qaglGetError();
567         if (error != AGL_NO_ERROR)
568         {
569                 Con_Printf("qaglCreateContext FAILED: %s\n",
570                                         (char *)qaglErrorString(error));
571         }
572
573         // Make the context the current one ('enable' it)
574         qaglSetCurrentContext(context);
575         error = qaglGetError();
576         if (error != AGL_NO_ERROR)
577         {
578                 Con_Printf("qaglSetCurrentContext FAILED: %s\n",
579                                         (char *)qaglErrorString(error));
580                 ReleaseWindow(window);
581                 return false;
582         }
583
584         // Discard pform
585         qaglDestroyPixelFormat(pixelFormat);
586
587         // Attempt fullscreen if requested
588         if (fullscreen)
589         {
590                 qaglSetFullScreen (context, width, height, refreshrate, 0);
591                 error = qaglGetError();
592                 if (error != AGL_NO_ERROR)
593                 {
594                         Con_Printf("qaglSetFullScreen FAILED: %s\n",
595                                                 (char *)qaglErrorString(error));
596                         return false;
597                 }
598         }
599         else
600         {
601                 // Set Window as Drawable
602                 qaglSetDrawable(context, GetWindowPort(window));
603                 error = qaglGetError();
604                 if (error != AGL_NO_ERROR)
605                 {
606                         Con_Printf("qaglSetDrawable FAILED: %s\n",
607                                                 (char *)qaglErrorString(error));
608                         ReleaseWindow(window);
609                         return false;
610                 }
611         }
612
613         scr_width = width;
614         scr_height = height;
615
616         if ((qglGetString = (const GLubyte* (GLAPIENTRY *)(GLenum name))GL_GetProcAddress("glGetString")) == NULL)
617                 Sys_Error("glGetString not found in %s", gl_driver);
618
619         gl_renderer = (const char *)qglGetString(GL_RENDERER);
620         gl_vendor = (const char *)qglGetString(GL_VENDOR);
621         gl_version = (const char *)qglGetString(GL_VERSION);
622         gl_extensions = (const char *)qglGetString(GL_EXTENSIONS);
623         gl_platform = "AGL";
624         gl_videosyncavailable = true;
625
626         multithreadedgl = false;
627         vid_isfullscreen = fullscreen;
628         vid_usingmouse = false;
629         vid_hidden = false;
630         vid_activewindow = true;
631         sound_active = true;
632         GL_Init();
633
634         SelectWindow(window);
635         ShowWindow(window);
636
637         return true;
638 }
639
640 static void Handle_KeyMod(UInt32 keymod)
641 {
642         const struct keymod_to_event_s { UInt32 keybit; keynum_t event; } keymod_events [] =
643         {
644                 { cmdKey,                                               K_AUX1 },
645                 { shiftKey,                                             K_SHIFT },
646                 { alphaLock,                                    K_CAPSLOCK },
647                 { optionKey,                                    K_ALT },
648                 { controlKey,                                   K_CTRL },
649                 { kEventKeyModifierNumLockMask, K_NUMLOCK },
650                 { kEventKeyModifierFnMask,              K_AUX2 }
651         };
652         static UInt32 prev_keymod = 0;
653         unsigned int i;
654         UInt32 modChanges;
655
656         modChanges = prev_keymod ^ keymod;
657         if (modChanges == 0)
658                 return;
659
660         for (i = 0; i < sizeof(keymod_events) / sizeof(keymod_events[0]); i++)
661         {
662                 UInt32 keybit = keymod_events[i].keybit;
663
664                 if ((modChanges & keybit) != 0)
665                         Key_Event(keymod_events[i].event, '\0', (keymod & keybit) != 0);
666         }
667
668         prev_keymod = keymod;
669 }
670
671 static void Handle_Key(unsigned char charcode, UInt32 mackeycode, qboolean keypressed)
672 {
673         unsigned int keycode = 0;
674         char ascii = '\0';
675
676         switch (mackeycode)
677         {
678                 case MK_ESCAPE:
679                         keycode = K_ESCAPE;
680                         break;
681                 case MK_F1:
682                         keycode = K_F1;
683                         break;
684                 case MK_F2:
685                         keycode = K_F2;
686                         break;
687                 case MK_F3:
688                         keycode = K_F3;
689                         break;
690                 case MK_F4:
691                         keycode = K_F4;
692                         break;
693                 case MK_F5:
694                         keycode = K_F5;
695                         break;
696                 case MK_F6:
697                         keycode = K_F6;
698                         break;
699                 case MK_F7:
700                         keycode = K_F7;
701                         break;
702                 case MK_F8:
703                         keycode = K_F8;
704                         break;
705                 case MK_F9:
706                         keycode = K_F9;
707                         break;
708                 case MK_F10:
709                         keycode = K_F10;
710                         break;
711                 case MK_F11:
712                         keycode = K_F11;
713                         break;
714                 case MK_F12:
715                         keycode = K_F12;
716                         break;
717                 case MK_SCROLLOCK:
718                         keycode = K_SCROLLOCK;
719                         break;
720                 case MK_PAUSE:
721                         keycode = K_PAUSE;
722                         break;
723                 case MK_BACKSPACE:
724                         keycode = K_BACKSPACE;
725                         break;
726                 case MK_INSERT:
727                         keycode = K_INS;
728                         break;
729                 case MK_HOME:
730                         keycode = K_HOME;
731                         break;
732                 case MK_PAGEUP:
733                         keycode = K_PGUP;
734                         break;
735                 case MK_NUMLOCK:
736                         keycode = K_NUMLOCK;
737                         break;
738                 case MK_KP_EQUALS:
739                         keycode = K_KP_EQUALS;
740                         break;
741                 case MK_KP_DIVIDE:
742                         keycode = K_KP_DIVIDE;
743                         break;
744                 case MK_KP_MULTIPLY:
745                         keycode = K_KP_MULTIPLY;
746                         break;
747                 case MK_TAB:
748                         keycode = K_TAB;
749                         break;
750                 case MK_DELETE:
751                         keycode = K_DEL;
752                         break;
753                 case MK_END:
754                         keycode = K_END;
755                         break;
756                 case MK_PAGEDOWN:
757                         keycode = K_PGDN;
758                         break;
759                 case MK_KP7:
760                         keycode = K_KP_7;
761                         break;
762                 case MK_KP8:
763                         keycode = K_KP_8;
764                         break;
765                 case MK_KP9:
766                         keycode = K_KP_9;
767                         break;
768                 case MK_KP_MINUS:
769                         keycode = K_KP_MINUS;
770                         break;
771                 case MK_CAPSLOCK:
772                         keycode = K_CAPSLOCK;
773                         break;
774                 case MK_RETURN:
775                         keycode = K_ENTER;
776                         break;
777                 case MK_KP4:
778                         keycode = K_KP_4;
779                         break;
780                 case MK_KP5:
781                         keycode = K_KP_5;
782                         break;
783                 case MK_KP6:
784                         keycode = K_KP_6;
785                         break;
786                 case MK_KP_PLUS:
787                         keycode = K_KP_PLUS;
788                         break;
789                 case MK_KP1:
790                         keycode = K_KP_1;
791                         break;
792                 case MK_KP2:
793                         keycode = K_KP_2;
794                         break;
795                 case MK_KP3:
796                         keycode = K_KP_3;
797                         break;
798                 case MK_KP_ENTER:
799                 case MK_IBOOK_ENTER:
800                         keycode = K_KP_ENTER;
801                         break;
802                 case MK_KP0:
803                         keycode = K_KP_0;
804                         break;
805                 case MK_KP_PERIOD:
806                         keycode = K_KP_PERIOD;
807                         break;
808                 default:
809                         switch(charcode)
810                         {
811                                 case kUpArrowCharCode:
812                                         keycode = K_UPARROW;
813                                         break;
814                                 case kLeftArrowCharCode:
815                                         keycode = K_LEFTARROW;
816                                         break;
817                                 case kDownArrowCharCode:
818                                         keycode = K_DOWNARROW;
819                                         break;
820                                 case kRightArrowCharCode:
821                                         keycode = K_RIGHTARROW;
822                                         break;
823                                 case 0:
824                                 case 191:
825                                         // characters 0 and 191 are sent by the mouse buttons (?!)
826                                         break;
827                                 default:
828                                         if ('A' <= charcode && charcode <= 'Z')
829                                         {
830                                                 keycode = charcode + ('a' - 'A');  // lowercase it
831                                                 ascii = charcode;
832                                         }
833                                         else if (charcode >= 32)
834                                         {
835                                                 keycode = charcode;
836                                                 ascii = charcode;
837                                         }
838                                         else
839                                                 Con_Printf(">> UNKNOWN char/keycode: %d/%u <<\n", charcode, (unsigned) mackeycode);
840                         }
841         }
842
843         if (keycode != 0)
844                 Key_Event(keycode, ascii, keypressed);
845 }
846
847 void Sys_SendKeyEvents(void)
848 {
849         EventRef theEvent;
850         EventTargetRef theTarget;
851
852         // Start by processing the asynchronous events we received since the previous frame
853         VID_ProcessPendingAsyncEvents();
854
855         theTarget = GetEventDispatcherTarget();
856         while (ReceiveNextEvent(0, NULL, kEventDurationNoWait, true, &theEvent) == noErr)
857         {
858                 UInt32 eventClass = GetEventClass(theEvent);
859                 UInt32 eventKind = GetEventKind(theEvent);
860
861                 switch (eventClass)
862                 {
863                         case kEventClassMouse:
864                         {
865                                 EventMouseButton theButton;
866                                 int key;
867
868                                 switch (eventKind)
869                                 {
870                                         case kEventMouseDown:
871                                         case kEventMouseUp:
872                                                 GetEventParameter(theEvent, kEventParamMouseButton, typeMouseButton, NULL, sizeof(theButton), NULL, &theButton);
873                                                 switch (theButton)
874                                                 {
875                                                         default:
876                                                         case kEventMouseButtonPrimary:
877                                                                 key = K_MOUSE1;
878                                                                 break;
879                                                         case kEventMouseButtonSecondary:
880                                                                 key = K_MOUSE2;
881                                                                 break;
882                                                         case kEventMouseButtonTertiary:
883                                                                 key = K_MOUSE3;
884                                                                 break;
885                                                 }
886                                                 Key_Event(key, '\0', eventKind == kEventMouseDown);
887                                                 break;
888
889                                         // Note: These two events are mutual exclusives
890                                         // Treat MouseDragged in the same statement, so we don't block MouseMoved while a mousebutton is held
891                                         case kEventMouseMoved:
892                                         case kEventMouseDragged:
893                                         {
894                                                 HIPoint deltaPos;
895
896                                                 GetEventParameter(theEvent, kEventParamMouseDelta, typeHIPoint, NULL, sizeof(deltaPos), NULL, &deltaPos);
897
898                                                 mouse_x += deltaPos.x;
899                                                 mouse_y += deltaPos.y;
900                                                 break;
901                                         }
902
903                                         case kEventMouseWheelMoved:
904                                         {
905                                                 SInt32 delta;
906                                                 unsigned int wheelEvent;
907
908                                                 GetEventParameter(theEvent, kEventParamMouseWheelDelta, typeSInt32, NULL, sizeof(delta), NULL, &delta);
909
910                                                 wheelEvent = (delta > 0) ? K_MWHEELUP : K_MWHEELDOWN;
911                                                 Key_Event(wheelEvent, 0, true);
912                                                 Key_Event(wheelEvent, 0, false);
913                                                 break;
914                                         }
915
916                                         default:
917                                                 Con_Printf (">> kEventClassMouse (UNKNOWN eventKind: %u) <<\n", (unsigned)eventKind);
918                                                 break;
919                                 }
920                         }
921
922                         case kEventClassKeyboard:
923                         {
924                                 char charcode;
925                                 UInt32 keycode;
926
927                                 switch (eventKind)
928                                 {
929                                         case kEventRawKeyDown:
930                                                 GetEventParameter(theEvent, kEventParamKeyMacCharCodes, typeChar, NULL, sizeof(charcode), NULL, &charcode);
931                                                 GetEventParameter(theEvent, kEventParamKeyCode, typeUInt32, NULL, sizeof(keycode), NULL, &keycode);
932                                                 Handle_Key(charcode, keycode, true);
933                                                 break;
934
935                                         case kEventRawKeyRepeat:
936                                                 break;
937
938                                         case kEventRawKeyUp:
939                                                 GetEventParameter(theEvent, kEventParamKeyMacCharCodes, typeChar, NULL, sizeof(charcode), NULL, &charcode);
940                                                 GetEventParameter(theEvent, kEventParamKeyCode, typeUInt32, NULL, sizeof(keycode), NULL, &keycode);
941                                                 Handle_Key(charcode, keycode, false);
942                                                 break;
943
944                                         case kEventRawKeyModifiersChanged:
945                                         {
946                                                 UInt32 keymod = 0;
947                                                 GetEventParameter(theEvent, kEventParamKeyModifiers, typeUInt32, NULL, sizeof(keymod), NULL, &keymod);
948                                                 Handle_KeyMod(keymod);
949                                                 break;
950                                         }
951
952                                         case kEventHotKeyPressed:
953                                                 break;
954
955                                         case kEventHotKeyReleased:
956                                                 break;
957
958                                         case kEventMouseWheelMoved:
959                                                 break;
960
961                                         default:
962                                                 Con_Printf (">> kEventClassKeyboard (UNKNOWN eventKind: %u) <<\n", (unsigned)eventKind);
963                                                 break;
964                                 }
965                                 break;
966                         }
967
968                         case kEventClassTextInput:
969                                 Con_Printf(">> kEventClassTextInput (%d) <<\n", (int)eventKind);
970                                 break;
971
972                         case kEventClassApplication:
973                                 switch (eventKind)
974                                 {
975                                         case kEventAppActivated :
976                                                 VID_AppFocusChanged(true);
977                                                 break;
978                                         case kEventAppDeactivated:
979                                                 VID_AppFocusChanged(false);
980                                                 break;
981                                         case kEventAppQuit:
982                                                 Sys_Quit(0);
983                                                 break;
984                                         case kEventAppActiveWindowChanged:
985                                                 break;
986                                         default:
987                                                 Con_Printf(">> kEventClassApplication (UNKNOWN eventKind: %u) <<\n", (unsigned)eventKind);
988                                                 break;
989                                 }
990                                 break;
991
992                         case kEventClassAppleEvent:
993                                 switch (eventKind)
994                                 {
995                                         case kEventAppleEvent :
996                                                 break;
997                                         default:
998                                                 Con_Printf(">> kEventClassAppleEvent (UNKNOWN eventKind: %u) <<\n", (unsigned)eventKind);
999                                                 break;
1000                                 }
1001                                 break;
1002
1003                         case kEventClassWindow:
1004                                 switch (eventKind)
1005                                 {
1006                                         case kEventWindowUpdate :
1007                                                 break;
1008                                         default:
1009                                                 Con_Printf(">> kEventClassWindow (UNKNOWN eventKind: %u) <<\n", (unsigned)eventKind);
1010                                                 break;
1011                                 }
1012                                 break;
1013
1014                         case kEventClassControl:
1015                                 break;
1016
1017                         default:
1018                                 /*Con_Printf(">> UNKNOWN eventClass: %c%c%c%c, eventKind: %d <<\n",
1019                                                         eventClass >> 24, (eventClass >> 16) & 0xFF,
1020                                                         (eventClass >> 8) & 0xFF, eventClass & 0xFF,
1021                                                         eventKind);*/
1022                                 break;
1023                 }
1024
1025                 SendEventToEventTarget (theEvent, theTarget);
1026                 ReleaseEvent(theEvent);
1027         }
1028 }
1029
1030 void IN_Move (void)
1031 {
1032         if (mouse_avail)
1033         {
1034                 in_mouse_x = mouse_x;
1035                 in_mouse_y = mouse_y;
1036         }
1037         mouse_x = 0;
1038         mouse_y = 0;
1039 }