/*

SDL - Simple DirectMedia Layer

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Library General Public

License as published by the Free Software Foundation; either

version 2 of the License, or (at your option) any later version.

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU

Library General Public License for more details.

You should have received a copy of the GNU Library General Public

License along with this library; if not, write to the Free

Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

Sam Lantinga

#include "SDL_QuartzVideo.h"

/*

Add methods to get at private members of NSScreen.

Since there is a bug in Apple's screen switching code

that does not update this variable when switching

to fullscreen, we'll set it manually (but only for the

main screen).

*/

@interface NSScreen (NSScreenAccess)

- (void) setFrame:(NSRect)frame;

@end

@implementation NSScreen (NSScreenAccess)

- (void) setFrame:(NSRect)frame;

{

_frame = frame;

}

@end

/*

Structure for rez switch gamma fades

We can hide the monitor flicker by setting the gamma tables to 0

*/

#define QZ_GAMMA_TABLE_SIZE 256

typedef struct {

CGGammaValue red[QZ_GAMMA_TABLE_SIZE];

CGGammaValue green[QZ_GAMMA_TABLE_SIZE];

CGGammaValue blue[QZ_GAMMA_TABLE_SIZE];

} SDL_QuartzGammaTable;

/* Bootstrap functions */

static int QZ_Available ();

static SDL_VideoDevice* QZ_CreateDevice (int device_index);

static void QZ_DeleteDevice (SDL_VideoDevice *device);

/* Initialization, Query, Setup, and Redrawing functions */

static int QZ_VideoInit (_THIS, SDL_PixelFormat *video_format);

static SDL_Rect** QZ_ListModes (_THIS, SDL_PixelFormat *format,

Uint32 flags);

static SDL_Surface* QZ_SetVideoMode (_THIS, SDL_Surface *current,

int width, int height, int bpp,

Uint32 flags);

static int QZ_ToggleFullScreen (_THIS, int on);

static int QZ_SetColors (_THIS, int first_color,

int num_colors, SDL_Color *colors);

static int QZ_LockDoubleBuffer (_THIS, SDL_Surface *surface);

static void QZ_UnlockDoubleBuffer (_THIS, SDL_Surface *surface);

static int QZ_ThreadFlip (_THIS);

static int QZ_FlipDoubleBuffer (_THIS, SDL_Surface *surface);

static void QZ_DoubleBufferUpdate (_THIS, int num_rects, SDL_Rect *rects);

static void QZ_DirectUpdate (_THIS, int num_rects, SDL_Rect *rects);

static int QZ_LockWindow (_THIS, SDL_Surface *surface);

static void QZ_UnlockWindow (_THIS, SDL_Surface *surface);

static void QZ_UpdateRects (_THIS, int num_rects, SDL_Rect *rects);

static void QZ_VideoQuit (_THIS);

/* Hardware surface functions (for fullscreen mode only) */

#if 0 /* Not used (apparently, it's really slow) */

static int QZ_FillHWRect (_THIS, SDL_Surface *dst, SDL_Rect *rect, Uint32 color);

#endif

static int QZ_LockHWSurface(_THIS, SDL_Surface *surface);

static void QZ_UnlockHWSurface(_THIS, SDL_Surface *surface);

static void QZ_FreeHWSurface (_THIS, SDL_Surface *surface);

/* static int QZ_FlipHWSurface (_THIS, SDL_Surface *surface); */

/* Bootstrap binding, enables entry point into the driver */

VideoBootStrap QZ_bootstrap = {

};

/* Bootstrap functions */

static int QZ_Available () {

return 1;

}

static SDL_VideoDevice* QZ_CreateDevice (int device_index) {

SDL_VideoDevice *device;

SDL_PrivateVideoData *hidden;

device = (SDL_VideoDevice*) malloc (sizeof (*device) );

hidden = (SDL_PrivateVideoData*) malloc (sizeof (*hidden) );

if (device == NULL || hidden == NULL)

SDL_OutOfMemory ();

memset (device, 0, sizeof (*device) );

memset (hidden, 0, sizeof (*hidden) );

device->hidden = hidden;

device->VideoInit = QZ_VideoInit;

device->ListModes = QZ_ListModes;

device->SetVideoMode = QZ_SetVideoMode;

device->ToggleFullScreen = QZ_ToggleFullScreen;

device->SetColors = QZ_SetColors;

/* device->UpdateRects = QZ_UpdateRects; this is determined by SetVideoMode() */

device->VideoQuit = QZ_VideoQuit;

device->LockHWSurface = QZ_LockHWSurface;

device->UnlockHWSurface = QZ_UnlockHWSurface;

device->FreeHWSurface = QZ_FreeHWSurface;

/* device->FlipHWSurface = QZ_FlipHWSurface */;

device->SetGamma = QZ_SetGamma;

device->GetGamma = QZ_GetGamma;

device->SetGammaRamp = QZ_SetGammaRamp;

device->GetGammaRamp = QZ_GetGammaRamp;

device->GL_GetProcAddress = QZ_GL_GetProcAddress;

device->GL_GetAttribute = QZ_GL_GetAttribute;

device->GL_MakeCurrent = QZ_GL_MakeCurrent;

device->GL_SwapBuffers = QZ_GL_SwapBuffers;

device->GL_LoadLibrary = QZ_GL_LoadLibrary;

device->FreeWMCursor = QZ_FreeWMCursor;

device->CreateWMCursor = QZ_CreateWMCursor;

device->ShowWMCursor = QZ_ShowWMCursor;

device->WarpWMCursor = QZ_WarpWMCursor;

device->MoveWMCursor = QZ_MoveWMCursor;

device->CheckMouseMode = QZ_CheckMouseMode;

device->InitOSKeymap = QZ_InitOSKeymap;

device->PumpEvents = QZ_PumpEvents;

device->SetCaption = QZ_SetCaption;

device->SetIcon = QZ_SetIcon;

device->IconifyWindow = QZ_IconifyWindow;

/*device->GetWMInfo = QZ_GetWMInfo;*/

device->GrabInput = QZ_GrabInput;

device->CreateYUVOverlay = QZ_CreateYUVOverlay;

device->free = QZ_DeleteDevice;

return device;

}

static void QZ_DeleteDevice (SDL_VideoDevice *device) {

free (device->hidden);

free (device);

}

static int QZ_VideoInit (_THIS, SDL_PixelFormat *video_format) {

/* Initialize the video settings; this data persists between mode switches */

display_id = kCGDirectMainDisplay;

save_mode = CGDisplayCurrentMode (display_id);

mode_list = CGDisplayAvailableModes (display_id);

palette = CGPaletteCreateDefaultColorPalette ();

/* Gather some information that is useful to know about the display */

CFNumberGetValue (CFDictionaryGetValue (save_mode, kCGDisplayBitsPerPixel),

kCFNumberSInt32Type, &device_bpp);

CFNumberGetValue (CFDictionaryGetValue (save_mode, kCGDisplayWidth),

kCFNumberSInt32Type, &device_width);

CFNumberGetValue (CFDictionaryGetValue (save_mode, kCGDisplayHeight),

kCFNumberSInt32Type, &device_height);

video_format->BitsPerPixel = device_bpp;

/* Set misc globals */

current_grab_mode = SDL_GRAB_OFF;

if ( Gestalt(gestaltSystemVersion, &system_version) != noErr )

system_version = 0;

/* register for sleep notifications so wake from sleep generates SDL_VIDEOEXPOSE */

QZ_RegisterForSleepNotifications (this);

/* Fill in some window manager capabilities */

this->info.wm_available = 1;

}

static SDL_Rect** QZ_ListModes (_THIS, SDL_PixelFormat *format, Uint32 flags) {

CFIndex i;

int list_size = 0;

/* Any windowed mode is acceptable */

if ( (flags & SDL_FULLSCREEN) == 0 )

return (SDL_Rect**)-1;

for (i = 0; client_mode_list[i] != NULL; i++)

free (client_mode_list[i]);

free (client_mode_list);

client_mode_list = NULL;

num_modes = CFArrayGetCount (mode_list);

CFDictionaryRef onemode;

CFNumberRef number;

int bpp;

onemode = CFArrayGetValueAtIndex (mode_list, i);

number = CFDictionaryGetValue (onemode, kCGDisplayBitsPerPixel);

CFNumberGetValue (number, kCFNumberSInt32Type, &bpp);

if (bpp == format->BitsPerPixel) {

int intvalue;

int hasMode;

int width, height;

number = CFDictionaryGetValue (onemode, kCGDisplayWidth);

CFNumberGetValue (number, kCFNumberSInt32Type, &intvalue);

width = (Uint16) intvalue;

number = CFDictionaryGetValue (onemode, kCGDisplayHeight);

CFNumberGetValue (number, kCFNumberSInt32Type, &intvalue);

height = (Uint16) intvalue;

/* Check if mode is already in the list */

{

int i;

hasMode = SDL_FALSE;

for (i = 0; i < list_size; i++) {

if (client_mode_list[i]->w == width &&

client_mode_list[i]->h == height) {

hasMode = SDL_TRUE;

break;

}

}

}

/* Grow the list and add mode to the list */

if ( ! hasMode ) {

SDL_Rect *rect;

list_size++;

if (client_mode_list == NULL)

client_mode_list = (SDL_Rect**)

malloc (sizeof(*client_mode_list) * (list_size+1) );

client_mode_list = (SDL_Rect**)

realloc (client_mode_list, sizeof(*client_mode_list) * (list_size+1));

SDL_OutOfMemory ();

return NULL;

}

rect->w = width;

rect->h = height;

client_mode_list[list_size-1] = rect;

client_mode_list[list_size] = NULL;

}

}

/* Sort list largest to smallest (by area) */

{

int i, j;

for (i = 0; i < list_size; i++) {

for (j = 0; j < list_size-1; j++) {

area1 = client_mode_list[j]->w * client_mode_list[j]->h;

area2 = client_mode_list[j+1]->w * client_mode_list[j+1]->h;

SDL_Rect *tmp = client_mode_list[j];

client_mode_list[j] = client_mode_list[j+1];

client_mode_list[j+1] = tmp;

}

}

}

}

}

static SDL_bool QZ_WindowPosition(_THIS, int *x, int *y)

{

const char *window = getenv("SDL_VIDEO_WINDOW_POS");

if ( window ) {

if ( sscanf(window, "%d,%d", x, y) == 2 ) {

return SDL_TRUE;

}

}

return SDL_FALSE;

}

/* Reset values that may change between switches */

this->info.blit_fill = 0;

this->FillHWRect = NULL;

this->UpdateRects = NULL;

this->LockHWSurface = NULL;

this->UnlockHWSurface = NULL;

NSRect screen_rect;

quit_thread = YES;

SDL_SemPost (sem1);

SDL_WaitThread (thread, NULL);

SDL_DestroySemaphore (sem1);

SDL_DestroySemaphore (sem2);

free (sw_buffers[0]);

}

/*

Release the OpenGL context

Do this first to avoid trash on the display before fade

*/

if ( mode_flags & SDL_OPENGL ) {

CGLSetFullScreen (NULL);

}

if (to_desktop) {

/* Restore original screen resolution/bpp */

CGDisplaySwitchToMode (display_id, save_mode);

CGReleaseAllDisplays ();

ShowMenuBar ();

/*

Reset the main screen's rectangle

See comment in QZ_SetVideoFullscreen for why we do this

*/

screen_rect = NSMakeRect(0,0,device_width,device_height);

[ [ NSScreen mainScreen ] setFrame:screen_rect ];

}

/* Release the OpenGL context */

if ( mode_flags & SDL_OPENGL )

QZ_TearDownOpenGL (this);

/* Signal successful teardown */

video_set = SDL_FALSE;

}

static SDL_Surface* QZ_SetVideoFullScreen (_THIS, SDL_Surface *current, int width,

int height, int bpp, Uint32 flags) {

CGDisplayFadeReservationToken fade_token = kCGDisplayFadeReservationInvalidToken;

/* Fade to black to hide resolution-switching flicker (and garbage

that is displayed by a destroyed OpenGL context, if applicable) */

if ( CGAcquireDisplayFadeReservation (5, &fade_token) == kCGErrorSuccess ) {

CGDisplayFade (fade_token, 0.3, kCGDisplayBlendNormal, kCGDisplayBlendSolidColor, 0.0, 0.0, 0.0, TRUE);

}

/* Destroy any previous mode */

if (video_set == SDL_TRUE)

mode = CGDisplayBestModeForParameters (display_id, bpp, width,

height, &exact_match);

/* Require an exact match to the requested mode */

if ( ! exact_match ) {

goto ERR_NO_MATCH;

}

if (getenv ("SDL_SINGLEDISPLAY"))

error = CGDisplayCapture (display_id);

else

error = CGCaptureAllDisplays ();

if ( CGDisplayNoErr != error ) {

SDL_SetError ("Failed capturing display");

goto ERR_NO_CAPTURE;

}

/* Do the physical switch */

if ( CGDisplayNoErr != CGDisplaySwitchToMode (display_id, mode) ) {

SDL_SetError ("Failed switching display resolution");

goto ERR_NO_SWITCH;

}

current->pixels = (Uint32*) CGDisplayBaseAddress (display_id);

current->pitch = CGDisplayBytesPerRow (display_id);

current->w = width;

current->h = height;

current->flags |= SDL_PREALLOC;

this->UpdateRects = QZ_DirectUpdate;

this->LockHWSurface = QZ_LockHWSurface;

this->UnlockHWSurface = QZ_UnlockHWSurface;

/* Setup double-buffer emulation */

if ( flags & SDL_DOUBLEBUF ) {

/*

Setup a software backing store for reasonable results when

double buffering is requested (since a single-buffered hardware

surface looks hideous).

The actual screen blit occurs in a separate thread to allow

other blitting while waiting on the VBL (and hence results in higher framerates).

*/

this->LockHWSurface = NULL;

this->UnlockHWSurface = NULL;

this->UpdateRects = NULL;

current->flags |= (SDL_HWSURFACE|SDL_DOUBLEBUF);

this->UpdateRects = QZ_DoubleBufferUpdate;

this->LockHWSurface = QZ_LockDoubleBuffer;

this->UnlockHWSurface = QZ_UnlockDoubleBuffer;

this->FlipHWSurface = QZ_FlipDoubleBuffer;

current->pixels = malloc (current->pitch * current->h * 2);

if (current->pixels == NULL) {

SDL_OutOfMemory ();

goto ERR_DOUBLEBUF;

}

sw_buffers[0] = current->pixels;

sw_buffers[1] = (Uint8*)current->pixels + current->pitch * current->h;

quit_thread = NO;

sem1 = SDL_CreateSemaphore (0);

sem2 = SDL_CreateSemaphore (1);

thread = SDL_CreateThread ((int (*)(void *))QZ_ThreadFlip, this);

if ( CGDisplayCanSetPalette (display_id) )

current->flags |= SDL_HWPALETTE;

/* Setup OpenGL for a fullscreen context */

if (flags & SDL_OPENGL) {

CGLError err;

CGLContextObj ctx;

ctx = [ gl_context cglContext ];

err = CGLSetFullScreen (ctx);

goto ERR_NO_GL;

}

glClear (GL_COLOR_BUFFER_BIT);

[ gl_context flushBuffer ];

current->flags |= SDL_OPENGL;

}

/* If we don't hide menu bar, it will get events and interrupt the program */

HideMenuBar ();

/* Fade in again (asynchronously) */

if ( fade_token != kCGDisplayFadeReservationInvalidToken ) {

CGDisplayFade (fade_token, 0.5, kCGDisplayBlendSolidColor, kCGDisplayBlendNormal, 0.0, 0.0, 0.0, FALSE);

CGReleaseDisplayFadeReservation(fade_token);

}

There is a bug in Cocoa where NSScreen doesn't synchronize

with CGDirectDisplay, so the main screen's frame is wrong.

As a result, coordinate translation produces incorrect results.

We can hack around this bug by setting the screen rect

ourselves. This hack should be removed if/when the bug is fixed.

*/

screen_rect = NSMakeRect(0,0,width,height);

[ [ NSScreen mainScreen ] setFrame:screen_rect ];

/* Save the flags to ensure correct tear-down */

mode_flags = current->flags;

/* we're fullscreen, so flag all input states... */

SDL_PrivateAppActive(1, SDL_APPMOUSEFOCUS | SDL_APPINPUTFOCUS | SDL_APPACTIVE);

return current;

ERR_NO_GL:

ERR_DOUBLEBUF: CGDisplaySwitchToMode (display_id, save_mode);

ERR_NO_SWITCH: CGReleaseAllDisplays ();

ERR_NO_CAPTURE:

ERR_NO_MATCH: if ( fade_token != kCGDisplayFadeReservationInvalidToken ) {

CGDisplayFade (fade_token, 0.5, kCGDisplayBlendSolidColor, kCGDisplayBlendNormal, 0.0, 0.0, 0.0, FALSE);

CGReleaseDisplayFadeReservation (fade_token);

}

return NULL;

}

static SDL_Surface* QZ_SetVideoWindowed (_THIS, SDL_Surface *current, int width,

int center_window = 1;

int origin_x, origin_y;

current->flags = 0;

current->w = width;

contentRect = NSMakeRect (0, 0, width, height);

/*

Check if we should completely destroy the previous mode

- If it is fullscreen

- If it has different noframe or resizable attribute

- If it is OpenGL (since gl attributes could be different)

- If new mode is OpenGL, but previous mode wasn't

*/

if (video_set == SDL_TRUE) {

if (mode_flags & SDL_FULLSCREEN) {

/* Fade to black to hide resolution-switching flicker (and garbage

that is displayed by a destroyed OpenGL context, if applicable) */

if (CGAcquireDisplayFadeReservation (5, &fade_token) == kCGErrorSuccess) {

CGDisplayFade (fade_token, 0.3, kCGDisplayBlendNormal, kCGDisplayBlendSolidColor, 0.0, 0.0, 0.0, TRUE);

}

QZ_UnsetVideoMode (this, TRUE);

}

else if ( ((mode_flags ^ flags) & (SDL_NOFRAME|SDL_RESIZABLE)) ||

(mode_flags & SDL_OPENGL) ||

(flags & SDL_OPENGL) ) {

QZ_UnsetVideoMode (this, TRUE);

}

}

/* Check for user-specified window and view */

{

char *windowPtrString = getenv ("SDL_NSWindowPointer");

char *viewPtrString = getenv ("SDL_NSQuickDrawViewPointer");

if (windowPtrString && viewPtrString) {

/* Release any previous window */

if ( qz_window ) {

[ qz_window release ];

qz_window = nil;

}

qz_window = (NSWindow*)atoi(windowPtrString);

window_view = (NSQuickDrawView*)atoi(viewPtrString);

isCustom = YES;

/*

Retain reference to window because we

might release it in QZ_UnsetVideoMode

*/

[ qz_window retain ];

style = [ qz_window styleMask ];

/* Check resizability */

if ( style & NSResizableWindowMask )

current->flags |= SDL_RESIZABLE;

/* Check frame */

if ( style & NSBorderlessWindowMask )

current->flags |= SDL_NOFRAME;

}

}

/* Check if we should recreate the window */

if (qz_window == nil) {

/* Set the window style based on input flags */

if ( flags & SDL_NOFRAME ) {

style = NSBorderlessWindowMask;

current->flags |= SDL_NOFRAME;

} else {

style = NSTitledWindowMask;

style |= (NSMiniaturizableWindowMask | NSClosableWindowMask);

if ( flags & SDL_RESIZABLE ) {

style |= NSResizableWindowMask;

current->flags |= SDL_RESIZABLE;

}

}

if ( QZ_WindowPosition(this, &origin_x, &origin_y) ) {

center_window = 0;

contentRect.origin.x = (float)origin_x;

contentRect.origin.y = (float)origin_y;

}

/* Manually create a window, avoids having a nib file resource */

qz_window = [ [ SDL_QuartzWindow alloc ]

initWithContentRect:contentRect

styleMask:style

backing:NSBackingStoreBuffered

defer:NO ];

if (qz_window == nil) {

SDL_SetError ("Could not create the Cocoa window");

if (fade_token != kCGDisplayFadeReservationInvalidToken) {

CGDisplayFade (fade_token, 0.5, kCGDisplayBlendSolidColor, kCGDisplayBlendNormal, 0.0, 0.0, 0.0, FALSE);

CGReleaseDisplayFadeReservation (fade_token);

}

return NULL;

}

QZ_SetCaption(this, this->wm_title, this->wm_icon);

[ qz_window setAcceptsMouseMovedEvents:YES ];

[ qz_window setViewsNeedDisplay:NO ];

if ( center_window ) {

[ qz_window center ];

}

[ qz_window setDelegate:

[ [ [ SDL_QuartzWindowDelegate alloc ] init ] autorelease ] ];

}

/* We already have a window, just change its size */

else {

if (!isCustom) {

[ qz_window setContentSize:contentRect.size ];

current->flags |= (SDL_NOFRAME|SDL_RESIZABLE) & mode_flags;