#include <Carbon/Carbon.h>

#include <AGL/agl.h>

#include <OpenGL/OpenGL.h>

#include <iprt/time.h>

#include <iprt/assert.h>

#include <stdio.h>

#include "cr_environment.h"

#include "cr_error.h"

#include "cr_string.h"

#include "cr_mem.h"

#include "renderspu.h"

WindowGroupRef gParentGroup = NULL;

WindowGroupRef gMasterGroup = NULL;

GLint gCurrentBufferName = 1;

uint64_t gDockUpdateTS = 0;

{

/* Event classes */

kEventClassVBox = 'vbox',

/* Event kinds */

kEventVBoxShowWindow = 'swin',

kEventVBoxMoveWindow = 'mwin',

kEventVBoxResizeWindow = 'rwin',

kEventVBoxUpdateDock = 'udck'

};

#ifdef __LP64__ /** @todo port to 64-bit darwin. */

# define renderspuSetWindowContext(w, c) \

AssertFailed()

# define renderspuGetWindowContext(w) \

( (ContextInfo *) GetWRefCon( ((w)->nativeWindow ? (w)->nativeWindow : (w)->window) ) )

#else

# define renderspuSetWindowContext(w, c) \

( SetWRefCon( (w), (unsigned long) (c) ) )

# define renderspuGetWindowContext(w) \

( (ContextInfo *) GetWRefCon( ((w)->nativeWindow ? (w)->nativeWindow : (w)->window) ) )

#endif

#define DEBUG_MSG_RESULT(result, text) \

crDebug(text" (%d; %s:%d)", (int)(result), __FILE__, __LINE__)

#define CHECK_CARBON_RC(result, text) \

if((result) != noErr) \

DEBUG_MSG_RESULT(result, text);

#define CHECK_CARBON_RC_RETURN(result, text, ret) \

if((result) != noErr) \

{ \

DEBUG_MSG_RESULT(result, text); \

return ret; \

}

#define CHECK_CARBON_RC_RETURN_VOID(result, text) \

CHECK_CARBON_RC_RETURN(result, text,)

#define CHECK_AGL_RC(result, text) \

if(!(result)) \

{ \

GLenum error = render_spu.ws.aglGetError(); \

DEBUG_MSG_RESULT(result, text); \

}

static pascal OSStatus

windowEvtHndlr(EventHandlerCallRef myHandler, EventRef event, void* userData)

{

/* Currently this is *NOT* used */

#pragma unused (userData)

WindowRef window = NULL;

Rect rectPort = { 0, 0, 0, 0 };

OSStatus result = eventNotHandledErr;

UInt32 class = GetEventClass( event );

UInt32 kind = GetEventKind( event );

GetEventParameter(event, kEventParamDirectObject, typeWindowRef,

NULL, sizeof(WindowRef), NULL, &window);

if( window )

GetWindowPortBounds( window, &rectPort );

switch (class) {

case kEventClassWindow:

switch (kind) {

case kEventWindowActivated:

#ifndef __LP64__ /* not available for 64-bit processes? */

case kEventWindowDrawContent:

#endif

break;

case kEventWindowClose:

HideWindow( window );

#ifdef __LP64__ /** @todo port to 64-bit darwin. */

#else

SetWRefCon( window, (int)NULL );

#endif

crWarning( "Render SPU: caught kEventWindowClose -- quitting." );

break;

case kEventWindowShown:

/* build gl */

#ifndef __LP64__ /** @todo port to 64-bit darwin! Need to cehck if this event is generated or not (it probably isn't). */

if( window == FrontWindow() )

SetUserFocusWindow( window );

InvalWindowRect( window, &rectPort );

#endif

break;

case kEventWindowBoundsChanged:

/* resize

break;

case kEventWindowZoomed:

/* zoom button */

break;

}

break;

}

return result;

}

renderspu_SystemInitVisual(VisualInfo *visual)

{

if(visual->visAttribs & CR_PBUFFER_BIT)

crWarning("Render SPU: PBuffers not support on Darwin/AGL yet.");

return GL_TRUE;

}

renderspuChoosePixelFormat(ContextInfo *context, AGLPixelFormat *pix)

{

GLbitfield visAttribs = context->visual->visAttribs;

GLint attribs[32];

GLint ind = 0;

#define ATTR_ADD(s) ( attribs[ind++] = (s) )

#define ATTR_ADDV(s,v) ( ATTR_ADD((s)), ATTR_ADD((v)) )

CRASSERT(render_spu.ws.aglChoosePixelFormat);

ATTR_ADD(AGL_RGBA);

if( visAttribs & CR_ALPHA_BIT )

ATTR_ADDV(AGL_ALPHA_SIZE, 1);

if( visAttribs & CR_DOUBLE_BIT )

ATTR_ADD(AGL_DOUBLEBUFFER);

if( visAttribs & CR_STEREO_BIT )

ATTR_ADD(AGL_STEREO);

if( visAttribs & CR_DEPTH_BIT )

ATTR_ADDV(AGL_DEPTH_SIZE, 1);

if( visAttribs & CR_STENCIL_BIT )

ATTR_ADDV(AGL_STENCIL_SIZE, 1);

if( visAttribs & CR_ACCUM_BIT ) {

ATTR_ADDV(AGL_ACCUM_RED_SIZE, 1);

ATTR_ADDV(AGL_ACCUM_GREEN_SIZE, 1);

ATTR_ADDV(AGL_ACCUM_BLUE_SIZE, 1);

if( visAttribs & CR_ALPHA_BIT )

ATTR_ADDV(AGL_ACCUM_ALPHA_SIZE, 1);

}

if( visAttribs & CR_MULTISAMPLE_BIT ) {

ATTR_ADDV(AGL_SAMPLE_BUFFERS_ARB, 1);

ATTR_ADDV(AGL_SAMPLES_ARB, 4);

}

if( visAttribs & CR_OVERLAY_BIT )

ATTR_ADDV(AGL_LEVEL, 1);

ATTR_ADD(AGL_NONE);

*pix = render_spu.ws.aglChoosePixelFormat( NULL, 0, attribs );

return (*pix != NULL);

}

renderspuDestroyPixelFormat(ContextInfo *context, AGLPixelFormat *pix)

{

render_spu.ws.aglDestroyPixelFormat( *pix );

*pix = NULL;

}

renderspu_SystemCreateContext(VisualInfo *visual, ContextInfo *context, ContextInfo *sharedContext)

{

AGLPixelFormat pix;

(void) sharedContext;

CRASSERT(visual);

CRASSERT(context);

context->visual = visual;

if( !renderspuChoosePixelFormat(context, &pix) ) {

crError( "Render SPU: Unable to create pixel format" );

return GL_FALSE;

}

context->context = render_spu.ws.aglCreateContext( pix, NULL );

renderspuDestroyPixelFormat( context, &pix );

if( !context->context ) {

crError( "Render SPU: Could not create rendering context" );

return GL_FALSE;

}

return GL_TRUE;

}

renderspu_SystemDestroyContext(ContextInfo *context)

{

if(!context)

return;

render_spu.ws.aglSetDrawable(context->context, NULL);

render_spu.ws.aglSetCurrentContext(NULL);

if(context->context)

{

render_spu.ws.aglDestroyContext(context->context);

context->context = NULL;

}

context->visual = NULL;

}

renderspuFullscreen(WindowInfo *window, GLboolean fullscreen)

{

/* Real fullscreen isn't supported by VirtualBox */

}

renderspuWindowAttachContext(WindowInfo *wi, WindowRef window,

ContextInfo *context)

{

GLboolean result;

if(!context || !wi)

return render_spu.ws.aglSetCurrentContext( NULL );

/* Flush old context first */

if (context->currentWindow->window != window)

render_spu.self.Flush();

/* If the window buffer name is uninitialized we have to create a new

if (wi->bufferName == -1)

{

/* Use the same visual bits as those in the context structure */

AGLPixelFormat pix;

if( !renderspuChoosePixelFormat(context, &pix) )

{

crError( "Render SPU: Unable to create pixel format" );

return GL_FALSE;

}

/* Create the dummy context */

wi->dummyContext = render_spu.ws.aglCreateContext( pix, NULL );

renderspuDestroyPixelFormat( context, &pix );

if( !wi->dummyContext )

{

crError( "Render SPU: Could not create rendering context" );

return GL_FALSE;

}

AGLDrawable drawable;

#ifdef __LP64__ /** @todo port to 64-bit darwin. */

drawable = NULL;

#else

drawable = (AGLDrawable) GetWindowPort(window);

#endif

/* New global buffer name */

wi->bufferName = gCurrentBufferName++;

/* Set the new buffer name to the dummy context. This enable the

result = render_spu.ws.aglSetInteger(wi->dummyContext, AGL_BUFFER_NAME, &wi->bufferName);

CHECK_AGL_RC (result, "Render SPU: SetInteger Failed");

/* Assign the dummy context to the window */

result = render_spu.ws.aglSetDrawable(wi->dummyContext, drawable);

CHECK_AGL_RC (result, "Render SPU: SetDrawable Failed");

}

AGLDrawable oldDrawable;

AGLDrawable newDrawable;

oldDrawable = render_spu.ws.aglGetDrawable(context->context);

#ifdef __LP64__ /** @todo port to 64-bit darwin. */

newDrawable = oldDrawable;

#else

newDrawable = (AGLDrawable) GetWindowPort(window);

#endif

/* Only switch the context if the drawable has changed */

if (oldDrawable != newDrawable)

{

/* Reset the current context */

result = render_spu.ws.aglSetDrawable(context->context, NULL);

CHECK_AGL_RC (result, "Render SPU: SetDrawable Failed");

/* Set the buffer name of the dummy context to the current context

render_spu.ws.aglSetInteger (context->context, AGL_BUFFER_NAME, &wi->bufferName);

CHECK_AGL_RC (result, "Render SPU: SetInteger Failed");

/* Set the new drawable */

#ifdef __LP64__ /** @todo port to 64-bit darwin. */

result = -1;

#else

result = render_spu.ws.aglSetDrawable(context->context, newDrawable);

#endif

CHECK_AGL_RC (result, "Render SPU: SetDrawable Failed");

renderspuSetWindowContext( window, context );

}

result = render_spu.ws.aglSetCurrentContext(context->context);

CHECK_AGL_RC (result, "Render SPU: SetCurrentContext Failed");

result = render_spu.ws.aglUpdateContext(context->context);

CHECK_AGL_RC (result, "Render SPU: UpdateContext Failed");

return result;

}

renderspu_SystemCreateWindow(VisualInfo *visual, GLboolean showIt,

WindowInfo *window)

{

return GL_TRUE;

}

renderspu_SystemDestroyWindow(WindowInfo *window)

{

CRASSERT(window);

CRASSERT(window->visual);

if(!window->nativeWindow)

DisposeWindow(window->window);

/* Delete the dummy context */

if(window->dummyContext)

{

render_spu.ws.aglSetDrawable(window->dummyContext, NULL);

render_spu.ws.aglDestroyContext(window->dummyContext);

window->dummyContext = NULL;

}

/* Reset some values */

window->bufferName = -1;

window->visual = NULL;

window->window = NULL;

}

renderspu_SystemWindowSize(WindowInfo *window, GLint w, GLint h)

{

CRASSERT(window);

CRASSERT(window->window);

OSStatus status = noErr;

/* Send a event to the main thread, cause some function of Carbon aren't

EventRef evt;

status = CreateEvent(NULL, kEventClassVBox, kEventVBoxResizeWindow, 0, kEventAttributeNone, &evt);

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: CreateEvent Failed");

status = SetEventParameter(evt, kEventParamWindowRef, typeWindowRef, sizeof(window->window), &window->window);

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: SetEventParameter Failed");

HISize s = CGSizeMake (w, h);

status = SetEventParameter(evt, kEventParamDimensions, typeHISize, sizeof (s), &s);

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: SetEventParameter Failed");

status = PostEventToQueue(GetMainEventQueue(), evt, kEventPriorityStandard);

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: PostEventToQueue Failed");

/* Update the context */

GLboolean result = true;

ContextInfo *context = renderspuGetWindowContext(window);

if (context &&

context->context)

{

result = render_spu.ws.aglUpdateContext(context->context);

CHECK_AGL_RC (result, "Render SPU: UpdateContext Failed");

}

/* save the new size */

window->width = w;

window->height = h;

}

renderspu_SystemGetWindowGeometry(WindowInfo *window,

GLint *x, GLint *y,

GLint *w, GLint *h)

{

CRASSERT(window);

CRASSERT(window->window);

OSStatus status = noErr;

Rect r;

status = GetWindowBounds(window->window, kWindowStructureRgn, &r);

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: GetWindowBounds Failed");

*x = (int) r.left;

*y = (int) r.top;

*w = (int) (r.right - r.left);

*h = (int) (r.bottom - r.top);

}

renderspu_SystemGetMaxWindowSize(WindowInfo *window,

GLint *w, GLint *h)

{

CRASSERT(window);

CRASSERT(window->window);

OSStatus status = noErr;

HISize s;

#ifdef __LP64__ /** @todo port to 64-bit darwin. */

status = -1;

#else

status = GetWindowResizeLimits (window->window, NULL, &s);

#endif

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: GetWindowResizeLimits Failed");

*w = s.width;

*h = s.height;

}

renderspu_SystemWindowPosition(WindowInfo *window,

GLint x, GLint y)

{

CRASSERT(window);

CRASSERT(window->window);

OSStatus status = noErr;

/* Send a event to the main thread, cause some function of Carbon aren't

EventRef evt;

status = CreateEvent(NULL, kEventClassVBox, kEventVBoxMoveWindow, 0, kEventAttributeNone, &evt);

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: CreateEvent Failed");

status = SetEventParameter(evt, kEventParamWindowRef, typeWindowRef, sizeof(window->window), &window->window);

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: SetEventParameter Failed");

HIPoint p = CGPointMake (x, y);

status = SetEventParameter(evt, kEventParamOrigin, typeHIPoint, sizeof (p), &p);

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: SetEventParameter Failed");

status = PostEventToQueue(GetMainEventQueue(), evt, kEventPriorityStandard);

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: PostEventToQueue Failed");

/* Update the context */

GLboolean result = true;

ContextInfo *context = renderspuGetWindowContext(window);

if (context &&

context->context)

{

result = render_spu.ws.aglUpdateContext(context->context);

CHECK_AGL_RC (result, "Render SPU: UpdateContext Failed");

}

}

renderspu_SystemShowWindow(WindowInfo *window, GLboolean showIt)

{

CRASSERT(window);

CRASSERT(window->window);

if (!IsValidWindowPtr(window->window))

return;

if(showIt)

{

/* Force moving the win to the right position before we show it */

renderspu_SystemWindowPosition (window, window->x, window->y);

OSStatus status = noErr;

/* Send a event to the main thread, cause some function of Carbon

EventRef evt;

status = CreateEvent(NULL, kEventClassVBox, kEventVBoxShowWindow, 0, kEventAttributeNone, &evt);

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: CreateEvent Failed");

status = SetEventParameter(evt, kEventParamWindowRef, typeWindowRef, sizeof (window->window), &window->window);

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: SetEventParameter Failed");

status = PostEventToQueue(GetMainEventQueue(), evt, kEventPriorityStandard);

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: PostEventToQueue Failed");

}

else

HideWindow(window->window);

/* Update the context */

GLboolean result = true;

ContextInfo *context = renderspuGetWindowContext(window);

if (context &&

context->context)

{

result = render_spu.ws.aglUpdateContext(context->context);

CHECK_AGL_RC (result, "Render SPU: UpdateContext Failed");

}

window->visible = showIt;

}

renderspu_SystemMakeCurrent(WindowInfo *window, GLint nativeWindow,

ContextInfo *context)

{

Boolean result;

CRASSERT(render_spu.ws.aglSetCurrentContext);

if(window && context)

{

CRASSERT(window->window);

CRASSERT(context->context);

if(window->visual != context->visual)

{

crDebug("Render SPU: MakeCurrent visual mismatch (0x%x != 0x%x); remaking window.",

(uint)window->visual->visAttribs, (uint)context->visual->visAttribs);

/*

renderspu_SystemDestroyWindow(window);

renderspu_SystemCreateWindow(context->visual, window->visible,

window);

}

/* This is the normal case: rendering to the render SPU's own window */

result = renderspuWindowAttachContext(window, window->window,

context);

/* XXX this is a total hack to work around an NVIDIA driver bug */

if(render_spu.self.GetFloatv && context->haveWindowPosARB)

{

GLfloat f[4];

render_spu.self.GetFloatv(GL_CURRENT_RASTER_POSITION, f);

if (!window->everCurrent || f[1] < 0.0)

{

crDebug("Render SPU: Resetting raster pos");

render_spu.self.WindowPos2iARB(0, 0);

}

}

}

else

renderspuWindowAttachContext (0, 0, 0);

}

renderspu_SystemSwapBuffers(WindowInfo *window, GLint flags)

{

CRASSERT(window);

CRASSERT(window->window);

ContextInfo *context = renderspuGetWindowContext(window);

if(!context)

crError("Render SPU: SwapBuffers got a null context from the window");

render_spu.ws.aglSwapBuffers(context->context);

/* This method seems called very often. To prevent the dock using all free

uint64_t curTS = RTTimeMilliTS();

if ((curTS - gDockUpdateTS) > 500)

{

OSStatus status = noErr;

/* Send a event to the main thread, cause some function of Carbon aren't

EventRef evt;

status = CreateEvent(NULL, kEventClassVBox, kEventVBoxUpdateDock, 0, kEventAttributeNone, &evt);

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: CreateEvent Failed");

status = PostEventToQueue(GetMainEventQueue(), evt, kEventPriorityStandard);

CHECK_CARBON_RC_RETURN_VOID (status, "Render SPU: PostEventToQueue Failed");

gDockUpdateTS = curTS;

}

}

void renderspu_SystemWindowVisibleRegion(WindowInfo *window, GLint cRects, GLint* pRects)

{

CRASSERT(window);

CRASSERT(window->window);

ContextInfo *c;

c = renderspuGetWindowContext (window);

if (c &&

c->context)

{

int i;

/* Create some temporary regions */

RgnHandle rgn = NewRgn();

SetEmptyRgn (rgn);

RgnHandle tmpRgn = NewRgn();

for (i=0; i<cRects; ++i)

{

SetRectRgn (tmpRgn,

pRects[4*i] , pRects[4*i+1],

pRects[4*i+2], pRects[4*i+3]);

UnionRgn (rgn, tmpRgn, rgn);

}

DisposeRgn (tmpRgn);

GLboolean result = true;

/* Set the clip region to the context */

result = render_spu.ws.aglSetInteger(c->context, AGL_CLIP_REGION, (const GLint*)rgn);

CHECK_AGL_RC (result, "Render SPU: SetInteger Failed");

result = render_spu.ws.aglEnable(c->context, AGL_CLIP_REGION);

CHECK_AGL_RC (result, "Render SPU: Enable Failed");

/* Clear the region structure */

DisposeRgn (rgn);

}

}

renderspu_SystemVBoxCreateWindow(VisualInfo *visual, GLboolean showIt,

WindowInfo *window)

{

CRASSERT(visual);

CRASSERT(window);

WindowAttributes winAttr = kWindowNoShadowAttribute | kWindowCompositingAttribute | kWindowIgnoreClicksAttribute | kWindowStandardHandlerAttribute | kWindowLiveResizeAttribute;

WindowClass winClass = kOverlayWindowClass;

Rect windowRect;

OSStatus status = noErr;

window->visual = visual;

window->nativeWindow = NULL;

if(window->window && IsValidWindowPtr(window->window))

/* Destroy the old one */

DisposeWindow(window->window);

windowRect.left = window->x;

windowRect.top = window->y;

windowRect.right = window->x + window->width;

windowRect.bottom = window->y + window->height;

status = CreateNewWindow(winClass, winAttr, &windowRect, &window->window);

CHECK_CARBON_RC_RETURN (status, "Render SPU: CreateNewWindow Failed", GL_FALSE);

/* We set a title for debugging purposes */

CFStringRef title_string;

title_string = CFStringCreateWithCStringNoCopy(NULL, window->title,

kCFStringEncodingMacRoman, NULL);

SetWindowTitleWithCFString(window->window, title_string);

CFRelease(title_string);

/* We need grouping so create a master group for this & all following

if(!gMasterGroup || !gParentGroup)

{

status = CreateWindowGroup(kWindowGroupAttrMoveTogether | kWindowGroupAttrLayerTogether | kWindowGroupAttrSharedActivation | kWindowGroupAttrHideOnCollapse | kWindowGroupAttrFixedLevel, &gMasterGroup);

CHECK_CARBON_RC_RETURN (status, "Render SPU: CreateWindowGroup Failed", GL_FALSE);

status = CreateWindowGroup(kWindowGroupAttrMoveTogether | kWindowGroupAttrLayerTogether | kWindowGroupAttrSharedActivation | kWindowGroupAttrHideOnCollapse | kWindowGroupAttrFixedLevel, &gParentGroup);

CHECK_CARBON_RC_RETURN (status, "Render SPU: CreateWindowGroup Failed", GL_FALSE);

/* Make the correct z-layering */

SendWindowGroupBehind (gParentGroup, gMasterGroup);

/* and set the gParentGroup as parent for gMasterGroup. */

#ifdef __LP64__ /** @todo port to 64-bit darwin. */

#else

SetWindowGroupParent (gMasterGroup, gParentGroup);

#endif

}

/* The parent has to be in its own group */

WindowRef parent = NULL;

if (render_spu_parent_window_id)

{

parent = HIViewGetWindow ((HIViewRef)render_spu_parent_window_id);

SetWindowGroup (parent, gParentGroup);

}

/* Add the new window to the master group */

SetWindowGroup(window->window, gMasterGroup);

/* Own handler needed? */

{

/* Even though there are still issues with the windows themselves,

EventTypeSpec event_list[] = { {kEventClassWindow, kEventWindowClose} };

window->event_handler = NewEventHandlerUPP( windowEvtHndlr );

/*InstallWindowEventHandler(window->window, window->event_handler,

}

/* This will be initialized on the first attempt to attach the global

window->bufferName = -1;

window->dummyContext = NULL;

if(showIt)

renderspu_SystemShowWindow(window, GL_TRUE);

crDebug("Render SPU: actual window (x, y, width, height): %d, %d, %d, %d",

window->x, window->y, window->width, window->height);

return GL_TRUE;

}