/*

     SDL - Simple DirectMedia Layer

     Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002  Sam Lantinga

     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

     slouken@libsdl.org

 */

 #ifdef SAVE_RCSID

 static char rcsid =

  "@(#) $Id$";

 #endif

 #include <stdlib.h>

 #include <stdio.h>

 #include <string.h>

 #include <X11/Xlib.h>

 #include <X11/Xutil.h>

 #include "SDL_error.h"

 #include "SDL_mouse.h"

 #include "SDL_events_c.h"

 #include "SDL_cursor_c.h"

 #include "SDL_x11dga_c.h"

 #include "SDL_x11mouse_c.h"

 /* The implementation dependent data for the window manager cursor */

 struct WMcursor {

 	Cursor x_cursor;

 };

 void X11_FreeWMCursor(_THIS, WMcursor *cursor)

 {

 	if ( SDL_Display != NULL ) {

 		SDL_Lock_EventThread();

 		XFreeCursor(SDL_Display, cursor->x_cursor);

 		XSync(SDL_Display, False);

 		SDL_Unlock_EventThread();

 	}

 	free(cursor);

 }

 WMcursor *X11_CreateWMCursor(_THIS,

 		Uint8 *data, Uint8 *mask, int w, int h, int hot_x, int hot_y)

 {

 	WMcursor *cursor;

 	XGCValues GCvalues;

 	GC        GCcursor;

 	XImage *data_image, *mask_image;

 	Pixmap  data_pixmap, mask_pixmap;

 	int       clen, i;

 	char     *x_data, *x_mask;

 	static XColor black = {  0,  0,  0,  0 };

 	static XColor white = { 0xffff, 0xffff, 0xffff, 0xffff };

 	/* Allocate the cursor memory */

 	cursor = (WMcursor *)malloc(sizeof(WMcursor));

 	if ( cursor == NULL ) {

 		SDL_OutOfMemory();

 		return(NULL);

 	}

 	/* Mix the mask and the data */

 	clen = (w/8)*h;

 	x_data = (char *)malloc(clen);

 	if ( x_data == NULL ) {

 		free(cursor);

 		SDL_OutOfMemory();

 		return(NULL);

 	}

 	x_mask = (char *)malloc(clen);

 	if ( x_mask == NULL ) {

 		free(cursor);

 		free(x_data);

 		SDL_OutOfMemory();

 		return(NULL);

 	}

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

 		/* The mask is OR'd with the data to turn inverted color

 		   pixels black since inverted color cursors aren't supported

 		   under X11.

 		 */

 		x_mask[i] = data[i] | mask[i];

 		x_data[i] = data[i];

 	}

 	/* Prevent the event thread from running while we use the X server */

 	SDL_Lock_EventThread();

 	/* Create the data image */

 	data_image = XCreateImage(SDL_Display, 

 			DefaultVisual(SDL_Display, SDL_Screen),

 					1, XYBitmap, 0, x_data, w, h, 8, w/8);

 	data_image->byte_order = MSBFirst;

 	data_image->bitmap_bit_order = MSBFirst;

 	data_pixmap = XCreatePixmap(SDL_Display, SDL_Root, w, h, 1);

 	/* Create the data mask */

 	mask_image = XCreateImage(SDL_Display, 

 			DefaultVisual(SDL_Display, SDL_Screen),

 					1, XYBitmap, 0, x_mask, w, h, 8, w/8);

 	mask_image->byte_order = MSBFirst;

 	mask_image->bitmap_bit_order = MSBFirst;

 	mask_pixmap = XCreatePixmap(SDL_Display, SDL_Root, w, h, 1);

 	/* Create the graphics context */

 	GCvalues.function = GXcopy;

 	GCvalues.foreground = ~0;

 	GCvalues.background =  0;

 	GCvalues.plane_mask = AllPlanes;

 	GCcursor = XCreateGC(SDL_Display, data_pixmap,

 			(GCFunction|GCForeground|GCBackground|GCPlaneMask),

 								&GCvalues);

 	/* Blit the images to the pixmaps */

 	XPutImage(SDL_Display, data_pixmap, GCcursor, data_image,

 							0, 0, 0, 0, w, h);

 	XPutImage(SDL_Display, mask_pixmap, GCcursor, mask_image,

 							0, 0, 0, 0, w, h);

 	XFreeGC(SDL_Display, GCcursor);

 	/* These free the x_data and x_mask memory pointers */

 	XDestroyImage(data_image);

 	XDestroyImage(mask_image);

 	/* Create the cursor */

 	cursor->x_cursor = XCreatePixmapCursor(SDL_Display, data_pixmap,

 				mask_pixmap, &black, &white, hot_x, hot_y);

 	/* Release the event thread */

 	XSync(SDL_Display, False);

 	SDL_Unlock_EventThread();

 	return(cursor);

 }

 int X11_ShowWMCursor(_THIS, WMcursor *cursor)

 {

 	/* Don't do anything if the display is gone */

 	if ( SDL_Display == NULL ) {

 		return(0);

 	}

 	/* Set the X11 cursor cursor, or blank if cursor is NULL */

 	if ( SDL_Window ) {

 		SDL_Lock_EventThread();

 		if ( cursor == NULL ) {

 			if ( SDL_BlankCursor != NULL ) {

 				XDefineCursor(SDL_Display, SDL_Window,

 					SDL_BlankCursor->x_cursor);

 			}

 		} else {

 			XDefineCursor(SDL_Display, SDL_Window, cursor->x_cursor);

 		}

 		XSync(SDL_Display, False);

 		SDL_Unlock_EventThread();

 	}

 	return(1);

 }

 void X11_WarpWMCursor(_THIS, Uint16 x, Uint16 y)

 {

 	if ( using_dga & DGA_MOUSE ) {

 		x += (this->screen->offset % this->screen->pitch) /

 		      this->screen->format->BytesPerPixel;

 		y += (this->screen->offset / this->screen->pitch);

 		SDL_PrivateMouseMotion(0, 0, x, y);

 	} else {

 		SDL_Lock_EventThread();

 		XWarpPointer(SDL_Display, None, SDL_Window, 0, 0, 0, 0, x, y);

 		XSync(SDL_Display, False);

 		SDL_Unlock_EventThread();

 	}

 }

 /* Sets the mouse acceleration from a string of the form:

 	2/1/0

    The first number is the numerator, followed by the acceleration

    denumenator and threshold.

 */

 static void SetMouseAccel(_THIS, const char *accel_param)

 {

 	int i;

 	int accel_value[3];

 	char *mouse_param, *mouse_param_buf, *pin;

 	mouse_param_buf = (char *)malloc(strlen(accel_param)+1);

 	if ( ! mouse_param_buf ) {

 		return;

 	}

 	strcpy(mouse_param_buf, accel_param);

 	mouse_param = mouse_param_buf;

 	for ( i=0; (i < 3) && mouse_param; ++i ) {

 		pin = strchr(mouse_param, '/');

 		if ( pin ) {

 			*pin = '\0';

 		}

 		accel_value[i] = atoi(mouse_param);

 		if ( pin ) {

 			mouse_param = pin+1;

 		} else {

 			mouse_param = NULL;

 		}

 	}

 	if ( mouse_param_buf ) {

 		XChangePointerControl(SDL_Display, True, True,

 			accel_value[0], accel_value[1], accel_value[2]);

 		free(mouse_param_buf);

 	}

 }

 /* Check to see if we need to enter or leave mouse relative mode */

 void X11_CheckMouseModeNoLock(_THIS)

 {

 	char *env_override;

 	int enable_relative = 1;

 	/* Allow the user to override the relative mouse mode.

 	   They almost never want to do this, as it seriously affects

 	   applications that rely on continuous relative mouse motion.

 	*/

 	env_override = getenv("SDL_MOUSE_RELATIVE");

 	if ( env_override ) {

 		enable_relative = atoi(env_override);

 	}

 	/* If the mouse is hidden and input is grabbed, we use relative mode */

 	if ( enable_relative &&

 	     !(SDL_cursorstate & CURSOR_VISIBLE) &&

 	     (this->input_grab != SDL_GRAB_OFF) &&

              (SDL_GetAppState() & SDL_APPACTIVE) ) {

 		if ( ! mouse_relative ) {

 			X11_EnableDGAMouse(this);

 			if ( ! (using_dga & DGA_MOUSE) ) {

 				char *xmouse_accel;

 				SDL_GetMouseState(&mouse_last.x, &mouse_last.y);

 				/* Use as raw mouse mickeys as possible */

 				XGetPointerControl(SDL_Display,

 						&mouse_accel.numerator, 

 						&mouse_accel.denominator,

 						&mouse_accel.threshold);

 				xmouse_accel=getenv("SDL_VIDEO_X11_MOUSEACCEL");

 				if ( xmouse_accel ) {

 					SetMouseAccel(this, xmouse_accel);

 				}

 			}

 			mouse_relative = 1;

 		}

 	} else {

 		if ( mouse_relative ) {

 			if ( using_dga & DGA_MOUSE ) {

 				X11_DisableDGAMouse(this);

 			} else {

 				XChangePointerControl(SDL_Display, True, True,

 						mouse_accel.numerator, 

 						mouse_accel.denominator,

 						mouse_accel.threshold);

 			}

 			mouse_relative = 0;

 		}

 	}

 }

 void X11_CheckMouseMode(_THIS)

 {

 	SDL_Lock_EventThread();

 	X11_CheckMouseModeNoLock(this);

 	SDL_Unlock_EventThread();

 }