/*

    SDL - Simple DirectMedia Layer

    Copyright (C) 1997-2006 Sam Lantinga

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

    modify it under the terms of the GNU Lesser General Public

    License as published by the Free Software Foundation; either

    version 2.1 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

    Lesser General Public License for more details.

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

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

    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

    Sam Lantinga

    slouken@libsdl.org

*/

#include "SDL_config.h"

/* BWindow based framebuffer implementation */

#include <unistd.h>

#include "SDL_BWin.h"

#include "SDL_timer.h"

extern "C" {

#include "../SDL_sysvideo.h"

#include "../../events/SDL_events_c.h"

#include "SDL_sysevents_c.h"

#include "SDL_sysmouse_c.h"

#include "SDL_syswm_c.h"

#include "SDL_lowvideo.h"

#include "../SDL_yuvfuncs.h"

#include "SDL_sysyuv.h"

#include "../blank_cursor.h"

#define BEOS_HIDDEN_SIZE	32	/* starting hidden window size */

/* Initialization/Query functions */

static int BE_VideoInit(_THIS, SDL_PixelFormat *vformat);

static SDL_Rect **BE_ListModes(_THIS, SDL_PixelFormat *format, Uint32 flags);

static SDL_Surface *BE_SetVideoMode(_THIS, SDL_Surface *current, int width, int height, int bpp, Uint32 flags);

static void BE_UpdateMouse(_THIS);

static int BE_SetColors(_THIS, int firstcolor, int ncolors, SDL_Color *colors);

static void BE_VideoQuit(_THIS);

/* Hardware surface functions */

static int BE_AllocHWSurface(_THIS, SDL_Surface *surface);

static int BE_LockHWSurface(_THIS, SDL_Surface *surface);

static void BE_UnlockHWSurface(_THIS, SDL_Surface *surface);

static void BE_FreeHWSurface(_THIS, SDL_Surface *surface);

static int BE_ToggleFullScreen(_THIS, int fullscreen);

static SDL_Overlay *BE_CreateYUVOverlay(_THIS, int width, int height, Uint32 format, SDL_Surface *display);

/* OpenGL functions */

#if SDL_VIDEO_OPENGL

static int BE_GL_LoadLibrary(_THIS, const char *path);

static void* BE_GL_GetProcAddress(_THIS, const char *proc);

static int BE_GL_GetAttribute(_THIS, SDL_GLattr attrib, int* value);

static int BE_GL_MakeCurrent(_THIS);

static void BE_GL_SwapBuffers(_THIS);

#endif

/* FB driver bootstrap functions */

static int BE_Available(void)

{

	return(1);

}

static void BE_DeleteDevice(SDL_VideoDevice *device)

{

	SDL_free(device->hidden);

	SDL_free(device);

}

static SDL_VideoDevice *BE_CreateDevice(int devindex)

{

	SDL_VideoDevice *device;

	/* Initialize all variables that we clean on shutdown */

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

	if ( device ) {

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

		device->hidden = (struct SDL_PrivateVideoData *)

				SDL_malloc((sizeof *device->hidden));

	}

	if ( (device == NULL) || (device->hidden == NULL) ) {

		SDL_OutOfMemory();

		if ( device ) {

			SDL_free(device);

		}

		return(0);

	}

	SDL_memset(device->hidden, 0, (sizeof *device->hidden));

	/* Set the function pointers */

	/* Initialization/Query functions */

	device->VideoInit = BE_VideoInit;

	device->ListModes = BE_ListModes;

	device->SetVideoMode = BE_SetVideoMode;

	device->ToggleFullScreen = BE_ToggleFullScreen;

	device->UpdateMouse = BE_UpdateMouse;

	device->CreateYUVOverlay = BE_CreateYUVOverlay;

	device->SetColors = BE_SetColors;

	device->UpdateRects = NULL;

	device->VideoQuit = BE_VideoQuit;

	/* Hardware acceleration functions */

	device->AllocHWSurface = BE_AllocHWSurface;

	device->CheckHWBlit = NULL;

	device->FillHWRect = NULL;

	device->SetHWColorKey = NULL;

	device->SetHWAlpha = NULL;

	device->LockHWSurface = BE_LockHWSurface;

	device->UnlockHWSurface = BE_UnlockHWSurface;

	device->FlipHWSurface = NULL;

	device->FreeHWSurface = BE_FreeHWSurface;

	/* Gamma support */

#if SDL_VIDEO_OPENGL

	/* OpenGL support */

	device->GL_LoadLibrary = BE_GL_LoadLibrary;

	device->GL_GetProcAddress = BE_GL_GetProcAddress;

	device->GL_GetAttribute = BE_GL_GetAttribute;

	device->GL_MakeCurrent = BE_GL_MakeCurrent;

	device->GL_SwapBuffers = BE_GL_SwapBuffers;

#endif

	/* Window manager functions */

	device->SetCaption = BE_SetWMCaption;

	device->SetIcon = NULL;

	device->IconifyWindow = BE_IconifyWindow;

	device->GrabInput = BE_GrabInput;

	device->GetWMInfo = BE_GetWMInfo;

	/* Cursor manager functions */

	device->FreeWMCursor = BE_FreeWMCursor;

	device->CreateWMCursor = BE_CreateWMCursor;

	device->ShowWMCursor = BE_ShowWMCursor;

	device->WarpWMCursor = BE_WarpWMCursor;

	device->MoveWMCursor = NULL;

	device->CheckMouseMode = BE_CheckMouseMode;

	/* Event manager functions */

	device->InitOSKeymap = BE_InitOSKeymap;

	device->PumpEvents = BE_PumpEvents;

	device->free = BE_DeleteDevice;

	/* Set the driver flags */

	device->handles_any_size = 1;

	return device;

}

VideoBootStrap BWINDOW_bootstrap = {

	"bwindow", "BDirectWindow graphics",

	BE_Available, BE_CreateDevice

};

static inline int ColorSpaceToBitsPerPixel(uint32 colorspace)

{

	int bitsperpixel;

	bitsperpixel = 0;

	switch (colorspace) {

	    case B_CMAP8:

		bitsperpixel = 8;

		break;

	    case B_RGB15:

	    case B_RGBA15:

	    case B_RGB15_BIG:

	    case B_RGBA15_BIG:

		bitsperpixel = 15;

		break;

	    case B_RGB16:

	    case B_RGB16_BIG:

		bitsperpixel = 16;

		break;

	    case B_RGB32:

	    case B_RGBA32:

	    case B_RGB32_BIG:

	    case B_RGBA32_BIG:

		bitsperpixel = 32;

		break;

	    default:

		break;

	}

	return(bitsperpixel);

}

/* Function to sort the display_list in bscreen */

static int CompareModes(const void *A, const void *B)

{

	const display_mode *a = (display_mode *)A;

	const display_mode *b = (display_mode *)B;

	if ( a->space == b->space ) {

		return((b->virtual_width*b->virtual_height)-

		       (a->virtual_width*a->virtual_height));

	} else {

		return(ColorSpaceToBitsPerPixel(b->space)-

		       ColorSpaceToBitsPerPixel(a->space));

	}

}

/* Yes, this isn't the fastest it could be, but it works nicely */

static int BE_AddMode(_THIS, int index, unsigned int w, unsigned int h)

{

	SDL_Rect *mode;

	int i;

	int next_mode;

	/* Check to see if we already have this mode */

	if ( SDL_nummodes[index] > 0 ) {

		for ( i=SDL_nummodes[index]-1; i >= 0; --i ) {

			mode = SDL_modelist[index][i];

			if ( (mode->w == w) && (mode->h == h) ) {

#ifdef BWINDOW_DEBUG

				fprintf(stderr, "We already have mode %dx%d at %d bytes per pixel\n", w, h, index+1);

#endif

				return(0);

			}

		}

	}

	/* Set up the new video mode rectangle */

	mode = (SDL_Rect *)SDL_malloc(sizeof *mode);

	if ( mode == NULL ) {

		SDL_OutOfMemory();

		return(-1);

	}

	mode->x = 0;

	mode->y = 0;

	mode->w = w;

	mode->h = h;

#ifdef BWINDOW_DEBUG

	fprintf(stderr, "Adding mode %dx%d at %d bytes per pixel\n", w, h, index+1);

#endif

	/* Allocate the new list of modes, and fill in the new mode */

	next_mode = SDL_nummodes[index];

	SDL_modelist[index] = (SDL_Rect **)

	       SDL_realloc(SDL_modelist[index], (1+next_mode+1)*sizeof(SDL_Rect *));

	if ( SDL_modelist[index] == NULL ) {

		SDL_OutOfMemory();

		SDL_nummodes[index] = 0;

		SDL_free(mode);

		return(-1);

	}

	SDL_modelist[index][next_mode] = mode;

	SDL_modelist[index][next_mode+1] = NULL;

	SDL_nummodes[index]++;

	return(0);

}

int BE_VideoInit(_THIS, SDL_PixelFormat *vformat)

{

	display_mode *modes;

	uint32 i, nmodes;

	int bpp;

	BRect bounds;

	/* Initialize the Be Application for appserver interaction */

	if ( SDL_InitBeApp() < 0 ) {

		return(-1);

	}

	/* It is important that this be created after SDL_InitBeApp() */

	BScreen bscreen;

	/* Save the current display mode */

	bscreen.GetMode(&saved_mode);

	_this->info.current_w = saved_mode.virtual_width;

	_this->info.current_h = saved_mode.virtual_height;

	/* Determine the screen depth */

	vformat->BitsPerPixel = ColorSpaceToBitsPerPixel(bscreen.ColorSpace());

	if ( vformat->BitsPerPixel == 0 ) {

		SDL_SetError("Unknown BScreen colorspace: 0x%x",

						bscreen.ColorSpace());

		return(-1);

	}

	/* Get the video modes we can switch to in fullscreen mode */

	bscreen.GetModeList(&modes, &nmodes);

	SDL_qsort(modes, nmodes, sizeof *modes, CompareModes);

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

		bpp = ColorSpaceToBitsPerPixel(modes[i].space);

		//if ( bpp != 0 ) { // There are bugs in changing colorspace

		if ( modes[i].space == saved_mode.space ) {

			BE_AddMode(_this, ((bpp+7)/8)-1,

				modes[i].virtual_width,

				modes[i].virtual_height);

		}

	}

	/* Create the window and view */

	bounds.top = 0; bounds.left = 0;

	bounds.right = BEOS_HIDDEN_SIZE;

	bounds.bottom = BEOS_HIDDEN_SIZE;

	SDL_Win = new SDL_BWin(bounds);

#if SDL_VIDEO_OPENGL

	/* testgl application doesn't load library, just tries to load symbols */

	/* is it correct? if so we have to load library here */

	BE_GL_LoadLibrary(_this, NULL);

#endif

	/* Create the clear cursor */

	SDL_BlankCursor = BE_CreateWMCursor(_this, blank_cdata, blank_cmask,

			BLANK_CWIDTH, BLANK_CHEIGHT, BLANK_CHOTX, BLANK_CHOTY);

	/* Fill in some window manager capabilities */

	_this->info.wm_available = 1;

	/* We're done! */

	return(0);

}

/* We support any dimension at our bit-depth */

SDL_Rect **BE_ListModes(_THIS, SDL_PixelFormat *format, Uint32 flags)

{

	SDL_Rect **modes;

	modes = ((SDL_Rect **)0);

	if ( (flags & SDL_FULLSCREEN) == SDL_FULLSCREEN ) {

		modes = SDL_modelist[((format->BitsPerPixel+7)/8)-1];

	} else {

		if ( format->BitsPerPixel ==

			_this->screen->format->BitsPerPixel ) {

			modes = ((SDL_Rect **)-1);

		}

	}

	return(modes);

}

/* Various screen update functions available */

static void BE_NormalUpdate(_THIS, int numrects, SDL_Rect *rects);

/* Find the closest display mode for fullscreen */

static bool BE_FindClosestFSMode(_THIS, int width, int height, int bpp,

					 display_mode *mode)

{

	BScreen bscreen;

	uint32 i, nmodes;

	SDL_Rect **modes;

	display_mode *dmodes;

	display_mode current;

	float current_refresh;

	bscreen.GetMode(&current);

	current_refresh = (1000 * current.timing.pixel_clock) / 

	                  (current.timing.h_total * current.timing.v_total);

	modes = SDL_modelist[((bpp+7)/8)-1];

	for ( i=0; modes[i] && (modes[i]->w > width) &&

		      (modes[i]->h > height); ++i ) {

		/* still looking */

	}

	if ( ! modes[i] || (modes[i]->w < width) || (modes[i]->h < width) ) {

		--i;	/* We went too far */

	}

	width = modes[i]->w;

	height = modes[i]->h;      

	bscreen.GetModeList(&dmodes, &nmodes);

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

		if ( (bpp == ColorSpaceToBitsPerPixel(dmodes[i].space)) &&

		     (width == dmodes[i].virtual_width) &&

		     (height == dmodes[i].virtual_height) ) {

			break;

		}

	}

	if ( i != nmodes ) {

		*mode = dmodes[i];

		if ((mode->virtual_width <= current.virtual_width) &&

		    (mode->virtual_height <= current.virtual_height)) {

			float new_refresh = (1000 * mode->timing.pixel_clock) /

			                    (mode->timing.h_total * mode->timing.v_total);

			if (new_refresh < current_refresh) {

				mode->timing.pixel_clock = (uint32)((mode->timing.h_total * mode->timing.v_total)

				                                    * current_refresh / 1000);

			}

		}

		return true;

	} else {

		return false;

	}	

}

static int BE_SetFullScreen(_THIS, SDL_Surface *screen, int fullscreen)

{

	int was_fullscreen;

	bool needs_unlock;

	BScreen bscreen;

	BRect bounds;

	display_mode mode;

	int width, height, bpp;

	/* Set the fullscreen mode */

	was_fullscreen = SDL_Win->IsFullScreen();

	SDL_Win->SetFullScreen(fullscreen);

	fullscreen = SDL_Win->IsFullScreen();

	width = screen->w;

	height = screen->h;

	/* Set the appropriate video mode */

	if ( fullscreen ) {

		bpp = screen->format->BitsPerPixel;

		bscreen.GetMode(&mode);

		if ( (bpp != ColorSpaceToBitsPerPixel(mode.space)) ||

		     (width != mode.virtual_width) ||

		     (height != mode.virtual_height)) {

			if(BE_FindClosestFSMode(_this, width, height, bpp, &mode)) {

				bscreen.SetMode(&mode);

				/* This simply stops the next resize event from being

				 * sent to the SDL handler.

				 */

				SDL_Win->InhibitResize();

			} else {

				fullscreen = 0;

				SDL_Win->SetFullScreen(fullscreen);

			}

		}

	}

	if ( was_fullscreen && ! fullscreen ) {

		bscreen.SetMode(&saved_mode);

	}

	if ( SDL_Win->Lock() ) {

		int cx, cy;

		if ( SDL_Win->Shown() ) {

			needs_unlock = 1;

			SDL_Win->Hide();

		} else {

			needs_unlock = 0;

		}

		/* This resizes the window and view area, but inhibits resizing

		 * of the BBitmap due to the InhibitResize call above. Thus the

		 * bitmap (pixel data) never changes.

		 */

		SDL_Win->ResizeTo(width, height);

		bounds = bscreen.Frame();

		/* Calculate offsets - used either to center window

		 * (windowed mode) or to set drawing offsets (fullscreen mode)

		 */

		cx = (bounds.IntegerWidth() - width)/2;

		cy = (bounds.IntegerHeight() - height)/2;

		if ( fullscreen ) {

			/* Set offset for drawing */

			SDL_Win->SetXYOffset(cx, cy);

		} else {

			SDL_Win->SetXYOffset(0, 0);

		}

		if ( ! needs_unlock || was_fullscreen ) {

			/* Center the window the first time */

			SDL_Win->MoveTo(cx, cy);

		}

		SDL_Win->Show();

		/* Unlock the window manually after the first Show() */

		if ( needs_unlock ) {

			SDL_Win->Unlock();

		}

	}

	/* Set the fullscreen flag in the screen surface */

	if ( fullscreen ) {

		screen->flags |= SDL_FULLSCREEN;

	} else {

		screen->flags &= ~SDL_FULLSCREEN; 

	}

	return(1);

}

static int BE_ToggleFullScreen(_THIS, int fullscreen)

{

	return BE_SetFullScreen(_this, _this->screen, fullscreen);

}

/* FIXME: check return values and cleanup here */

SDL_Surface *BE_SetVideoMode(_THIS, SDL_Surface *current,

				int width, int height, int bpp, Uint32 flags)

{

	BScreen bscreen;

	BBitmap *bbitmap;

	BRect bounds;

	Uint32 gl_flags = 0;

	/* Only RGB works on r5 currently */

	gl_flags = BGL_RGB;

	if (_this->gl_config.double_buffer)

		gl_flags |= BGL_DOUBLE;

	else

		gl_flags |= BGL_SINGLE;

	if (_this->gl_config.alpha_size > 0 || bpp == 32)

		gl_flags |= BGL_ALPHA;

	if (_this->gl_config.depth_size > 0)

		gl_flags |= BGL_DEPTH;

	if (_this->gl_config.stencil_size > 0)

		gl_flags |= BGL_STENCIL;

	if (_this->gl_config.accum_red_size > 0

		|| _this->gl_config.accum_green_size > 0

		|| _this->gl_config.accum_blue_size > 0

		|| _this->gl_config.accum_alpha_size > 0)

		gl_flags |= BGL_ACCUM;

	/* Create the view for this window, using found flags */

	if ( SDL_Win->CreateView(flags, gl_flags) < 0 ) {

		return(NULL);

	}

	current->flags = 0;		/* Clear flags */

	current->w = width;

	current->h = height;

	SDL_Win->SetType(B_TITLED_WINDOW);

	if ( flags & SDL_NOFRAME ) {

		current->flags |= SDL_NOFRAME;

		SDL_Win->SetLook(B_NO_BORDER_WINDOW_LOOK);

	} else {