/*

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

*/

#ifdef SAVE_RCSID

static char rcsid =

"@(#) $Id$";

#endif

/* Utilities for getting and setting the X display mode */

#include <stdlib.h>

#include <string.h>

#include "SDL_timer.h"

#include "SDL_error.h"

#include "SDL_events.h"

#include "SDL_events_c.h"

#include "SDL_x11video.h"

#include "SDL_x11wm_c.h"

#include "SDL_x11modes_c.h"

#define V_INTERLACE 0x010

#define V_DBLSCAN 0x020

SDL_NAME(XF86VidModeModeLine) *l = (SDL_NAME(XF86VidModeModeLine)*)((char*)info + sizeof info->dotclock);

return SDL_NAME(XF86VidModeGetModeLine)(dpy, scr, &info->dotclock, l);

}

#endif /* XFREE86_VM */

#ifdef XFREE86_VM

static void save_mode(_THIS)

{

memset(&saved_mode, 0, sizeof(saved_mode));

SDL_NAME(XF86VidModeGetModeInfo)(SDL_Display,SDL_Screen,&saved_mode);

SDL_NAME(XF86VidModeGetViewPort)(SDL_Display,SDL_Screen,&saved_view.x,&saved_view.y);

}

#endif

#ifdef XFREE86_VM

static void restore_mode(_THIS)

{

int unused;

if ( (saved_mode.hdisplay != mode.hdisplay) ||

(saved_mode.vdisplay != mode.vdisplay) ) {

}

}

if ( (saved_view.x != 0) || (saved_view.y != 0) ) {

}

}

#endif

#ifdef XFREE86_VM

static int cmpmodes(const void *va, const void *vb)

{

const SDL_NAME(XF86VidModeModeInfo) *a = *(const SDL_NAME(XF86VidModeModeInfo)**)va;

const SDL_NAME(XF86VidModeModeInfo) *b = *(const SDL_NAME(XF86VidModeModeInfo)**)vb;

if(a->hdisplay > b->hdisplay)

return -1;

return b->vdisplay - a->vdisplay;

}

#endif

#ifdef XFREE86_VM

static int get_vidmode_filter(SDL_NAME(XF86VidModeModeInfo) **modes, int nmodes, char **bitmap)

{

int i, result = 0;

int use_all_modes, use_specific_mode;

const char *variable;

char *temp;

if (!nmodes)

return 0;

temp = (char *)malloc((nmodes)*sizeof(char));

if (!temp)

return 0;

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

temp[i] = 0;

variable = getenv("SDL_VIDEO_X11_USE_ALL_MODES");

use_all_modes = variable ? atoi(variable) : 0;

variable = getenv("SDL_VIDEO_X11_USE_SPECIFIC_MODE");

use_specific_mode = variable ? atoi(variable) : 0;

qsort(modes, nmodes, sizeof *modes, cmpmodes);

if ( use_all_modes ) {

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

temp[i] = 1;

result = 1;

/* } else if ( use_specific_mode ) { ... */

} else {

int previous_refresh, current_refresh;

SDL_NAME(XF86VidModeModeInfo) *previous, *current;

previous = modes[0];

previous_refresh = (int)(previous->dotclock * 1000.0 /

(previous->htotal * previous->vtotal));

if ( previous->flags & V_INTERLACE ) previous_refresh *= 2;

else if ( previous->flags & V_DBLSCAN ) previous_refresh /= 2;

temp[0] = 1;

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

current = modes[i];

current_refresh = (int)(current->dotclock * 1000.0 /

(current->htotal * current->vtotal));

if ( current->flags & V_INTERLACE ) current_refresh *= 2;

else if ( current->flags & V_DBLSCAN ) current_refresh /= 2;

/* Compare this mode to the previous one */

if ( current->hdisplay == previous->hdisplay &&

current->vdisplay == previous->vdisplay ) {

#ifdef XFREE86_DEBUG

printf("Comparing %dx%d at %d Hz and %d Hz\n",

current->hdisplay, current->vdisplay,

current_refresh, previous_refresh);

#endif

if ( current_refresh > previous_refresh ) {

temp[i-1] = 0;

temp[i] = 1;

}

else

temp[i] = 0;

}

else

temp[i] = 1;

previous = current;

previous_refresh = current_refresh;

}

result = 1;

}

*bitmap = temp;

return result;

}

#endif

static void get_real_resolution(_THIS, int* w, int* h);

static void set_best_resolution(_THIS, int width, int height)

{

#ifdef XFREE86_VM

if ( use_vidmode ) {

SDL_NAME(XF86VidModeModeLine) mode;

SDL_NAME(XF86VidModeModeInfo) **modes;

int i;

int nmodes;

SDL_NAME(XF86VidModeGetAllModeLines)(SDL_Display,SDL_Screen,&nmodes,&modes) &&

get_vidmode_filter(modes, nmodes, &bitmap) ) {

printf("Available modes:\n");

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

printf("Mode %d: %dx%d\n", i,

modes[i]->hdisplay, modes[i]->vdisplay);

}

for ( i = nmodes-1; i > 0 ; --i ) {

if ( (modes[i]->hdisplay == width) &&

(modes[i]->vdisplay == height) &&

(bitmap[i] == 1) )

goto match;

}

for ( i = nmodes-1; i > 0 ; --i ) {

if ( (modes[i]->hdisplay >= width) &&

(modes[i]->vdisplay >= height) &&

(bitmap[i] == 1) )

break;

}

if ( (modes[i]->hdisplay != mode.hdisplay) ||

(modes[i]->vdisplay != mode.vdisplay) ) {

}

XFree(modes);

}

}

#endif /* XFREE86_VM */

#ifdef HAVE_XIGXME

#ifdef XIG_DEBUG

fprintf(stderr, "XME: set_best_resolution(): w = %d, h = %d\n",

#endif

if ( SDL_modelist ) {

for ( i=0; SDL_modelist[i]; ++i ) {

break;

}

if ( SDL_modelist[i] ) { /* found one, lets try it */

int w, h;

/* check current mode so we can avoid uneccessary mode changes */

fprintf(stderr, "XME: set_best_resolution: "

"XiGMiscChangeResolution: %d %d\n",

SDL_modelist[s]->w, SDL_modelist[s]->h);

XiGMiscChangeResolution(SDL_Display,

SDL_Screen,

0, /* view */

SDL_modelist[i]->w,

SDL_modelist[i]->h,

0);

XSync(SDL_Display, False);

}

}

}

#endif /* HAVE_XIGXME */

}

static void get_real_resolution(_THIS, int* w, int* h)

{

#ifdef XFREE86_VM

if ( use_vidmode ) {

int unused;

*w = mode.hdisplay;

*h = mode.vdisplay;

return;

}

}

#endif

#ifdef HAVE_XIGXME

if ( use_xme ) {

int ractive;

XiGMiscResolutionInfo *modelist;

XiGMiscQueryResolutions(SDL_Display, SDL_Screen,

0, /* view */

&ractive, &modelist);

*w = modelist[ractive].width;

*h = modelist[ractive].height;

#ifdef XIG_DEBUG

fprintf(stderr, "XME: get_real_resolution: w = %d h = %d\n", *w, *h);

#endif

XFree(modelist);

return;

}

#endif /* XIG_XME */

*w = DisplayWidth(SDL_Display, SDL_Screen);

*h = DisplayHeight(SDL_Display, SDL_Screen);

}

/* Called after mapping a window - waits until the window is mapped */

void X11_WaitMapped(_THIS, Window win)

{

XEvent event;

do {

XMaskEvent(SDL_Display, StructureNotifyMask, &event);

} while ( (event.type != MapNotify) || (event.xmap.event != win) );

}

/* Called after unmapping a window - waits until the window is unmapped */

void X11_WaitUnmapped(_THIS, Window win)

{

XEvent event;

do {

XMaskEvent(SDL_Display, StructureNotifyMask, &event);

} while ( (event.type != UnmapNotify) || (event.xunmap.event != win) );

}

static void move_cursor_to(_THIS, int x, int y)

{

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

}

static int add_visual(_THIS, int depth, int class)

{

XVisualInfo vi;

if(XMatchVisualInfo(SDL_Display, SDL_Screen, depth, class, &vi)) {

int n = this->hidden->nvisuals;

this->hidden->visuals[n].depth = vi.depth;

this->hidden->visuals[n].visual = vi.visual;

this->hidden->nvisuals++;

}

return(this->hidden->nvisuals);

}

static int add_visual_byid(_THIS, const char *visual_id)

{

XVisualInfo *vi, template;

int nvis;

if ( visual_id ) {

memset(&template, 0, (sizeof template));

template.visualid = strtol(visual_id, NULL, 0);

vi = XGetVisualInfo(SDL_Display, VisualIDMask, &template, &nvis);

if ( vi ) {

int n = this->hidden->nvisuals;

this->hidden->visuals[n].depth = vi->depth;

this->hidden->visuals[n].visual = vi->visual;

this->hidden->nvisuals++;

XFree(vi);

}

}

return(this->hidden->nvisuals);

}

/* Global for the error handler */

int vm_event, vm_error = -1;

int X11_GetVideoModes(_THIS)

{

#ifdef XFREE86_VM

int buggy_X11;

int vm_major, vm_minor;

int nmodes;

#endif

#ifdef HAVE_XIGXME

int xme_major, xme_minor;

int ractive, nummodes;

XiGMiscResolutionInfo *modelist;

int i, n;

int screen_w;

int screen_h;

vm_error = -1;

use_vidmode = 0;

screen_w = DisplayWidth(SDL_Display, SDL_Screen);

screen_h = DisplayHeight(SDL_Display, SDL_Screen);

#ifdef XFREE86_VM

/* Metro-X 4.3.0 and earlier has a broken implementation of

XF86VidModeGetAllModeLines() - it hangs the client.

*/

buggy_X11 = 0;

if ( strcmp(ServerVendor(SDL_Display), "Metro Link Incorporated") == 0 ) {

FILE *metro_fp;

metro_fp = fopen("/usr/X11R6/lib/X11/Metro/.version", "r");

if ( metro_fp != NULL ) {

int major, minor, patch, version;

major = 0; minor = 0; patch = 0;

fscanf(metro_fp, "%d.%d.%d", &major, &minor, &patch);

version = major*100+minor*10+patch;

if ( version < 431 ) {

buggy_X11 = 1;

}

fclose(metro_fp);

}

}

#if defined(__alpha__) || defined(__sparc64__) || defined(__powerpc__)

/* The alpha, sparc64 and PPC XFree86 servers are also buggy */

buggy_X11 = 1;

#endif

/* Enumerate the available fullscreen modes */

if ( ! buggy_X11 ) {

if ( SDL_NAME(XF86VidModeQueryExtension)(SDL_Display, &vm_event, &vm_error) &&

SDL_NAME(XF86VidModeQueryVersion)(SDL_Display, &vm_major, &vm_minor) ) {

#ifdef BROKEN_XFREE86_4001

#ifdef X_XF86VidModeGetDotClocks /* Compiled under XFree86 4.0 */

/* Earlier X servers hang when doing vidmode */

#ifdef XFREE86_DEBUG

printf("Compiled under XFree86 4.0, server is XFree86 3.X\n");

#endif

buggy_X11 = 1;

}

#else

#endif /* XFree86 4.0 */

#endif /* XFree86 4.02 and newer are fixed wrt backwards compatibility */

} else {

buggy_X11 = 1;

}

}

if ( ! buggy_X11 &&

SDL_NAME(XF86VidModeGetAllModeLines)(SDL_Display, SDL_Screen,&nmodes,&modes) &&

get_vidmode_filter(modes, nmodes, &bitmap) ) {

int w, h;

/* Exclude those vidmodes that have been filtered out */

if (!bitmap[i]) continue;

/* Check to see if we should add the screen size (Xinerama) */

w = modes[i]->hdisplay;

h = modes[i]->vdisplay;

if ( (screen_w * screen_h) >= (w * h) ) {

if ( (screen_w != w) || (screen_h != h) ) {

SDL_modelist[n] = (SDL_Rect *)malloc(sizeof(SDL_Rect));

if ( SDL_modelist[n] ) {

SDL_modelist[n]->x = 0;

SDL_modelist[n]->y = 0;

SDL_modelist[n]->w = screen_w;

SDL_modelist[n]->h = screen_h;

++n;

}

}

screen_w = 0;

screen_h = 0;

}

/* Add the size from the video mode list */

SDL_modelist[n] = (SDL_Rect *)malloc(sizeof(SDL_Rect));

if ( SDL_modelist[n] == NULL ) {

break;

}

SDL_modelist[n]->x = 0;

SDL_modelist[n]->y = 0;

SDL_modelist[n]->w = w;

SDL_modelist[n]->h = h;

++n;

}

XFree(modes);

save_mode(this);

}

#endif /* XFREE86_VM */

#ifdef HAVE_XIGXME

/* first lets make sure we have the extension, and it's at least v2.0 */

if (XiGMiscQueryVersion(SDL_Display, &xme_major, &xme_minor)) {

#ifdef XIG_DEBUG

fprintf(stderr, "XME: XiGMiscQueryVersion: V%d.%d\n",

xme_major, xme_minor);

/* work around a XiGMisc bogosity in our version of libXext */

if (xme_major == 0 && xme_major == 0) {

/* Ideally libxme would spit this out, but the problem is that

the right Query func will never be called if using the bogus

libXext version.

*/

fprintf(stderr,

"XME: If you are using Xi Graphics CDE and a Summit server, you need to\n"

"XME: get the libXext update from our ftp site before fullscreen switching\n"

"XME: will work. Fullscreen switching is only supported on Summit Servers\n");

} else {

/* not there. Bummer. */

}

modelist = NULL;

if (xme_major >= 2 && (nummodes = XiGMiscQueryResolutions(SDL_Display,

SDL_Screen,

0, /* view */

&ractive,

&modelist)) > 1)

{ /* then we actually have some */

int j;

#ifdef XIG_DEBUG

fprintf(stderr, "XME: nummodes = %d, active mode = %d\n",

nummodes, ractive);

#endif

/* we get the list already sorted in */

/* descending order. We'll copy it in */

/* reverse order so SDL is happy */

if (SDL_modelist) {

for ( i=0, j=nummodes-1; j>=0; i++, j-- ) {

if ((SDL_modelist[i] =

(SDL_Rect *)malloc(sizeof(SDL_Rect))) == NULL)

break;

fprintf(stderr, "XME: mode = %4d, w = %4d, h = %4d\n",

i, modelist[i].width, modelist[i].height);

SDL_modelist[i]->x = 0;

SDL_modelist[i]->y = 0;

SDL_modelist[i]->w = modelist[j].width;

SDL_modelist[i]->h = modelist[j].height;

}

}

use_xme = 1;

saved_res = modelist[ractive]; /* save the current resolution */

} else {

use_xme = 0;

}

if ( modelist ) {

XFree(modelist);

}

#endif /* HAVE_XIGXME */

static int depth_list[] = { 32, 24, 16, 15, 8 };

int j, np;

int use_directcolor = 1;

XPixmapFormatValues *pf;

/* Search for the visuals in deepest-first order, so that the first

will be the richest one */

if ( getenv("SDL_VIDEO_X11_NODIRECTCOLOR") ) {

use_directcolor = 0;

}

this->hidden->nvisuals = 0;

if ( ! add_visual_byid(this, getenv("SDL_VIDEO_X11_VISUALID")) ) {

for ( i=0; i<SDL_TABLESIZE(depth_list); ++i ) {

if ( depth_list[i] > 8 ) {

if ( use_directcolor ) {

add_visual(this, depth_list[i], DirectColor);

}

add_visual(this, depth_list[i], TrueColor);

} else {

add_visual(this, depth_list[i], PseudoColor);

add_visual(this, depth_list[i], StaticColor);

}

}

}

if ( this->hidden->nvisuals == 0 ) {

SDL_SetError("Found no sufficiently capable X11 visuals");

return -1;

}

/* look up the pixel quantum for each depth */

pf = XListPixmapFormats(SDL_Display, &np);

for(i = 0; i < this->hidden->nvisuals; i++) {

int d = this->hidden->visuals[i].depth;

for(j = 0; j < np; j++)

if(pf[j].depth == d)

break;

this->hidden->visuals[i].bpp = j < np ? pf[j].bits_per_pixel : d;

}

XFree(pf);

}

if ( SDL_modelist == NULL ) {

SDL_modelist = (SDL_Rect **)malloc((1+1)*sizeof(SDL_Rect *));

if ( SDL_modelist ) {

n = 0;

SDL_modelist[n] = (SDL_Rect *)malloc(sizeof(SDL_Rect));

if ( SDL_modelist[n] ) {

SDL_modelist[n]->x = 0;

SDL_modelist[n]->y = 0;

SDL_modelist[n]->w = screen_w;

SDL_modelist[n]->h = screen_h;

++n;

}

}

#ifdef HAVE_XIGXME

if ( use_xme )

printf("Xi Graphics XME fullscreen is enabled\n");

else

printf("Xi Graphics XME fullscreen is not available\n");

#endif

}

}

/* The default X/Y fullscreen offset is 0/0 */

xinerama_x = 0;

xinerama_y = 0;

#ifdef HAVE_XINERAMA

/* Query Xinerama extention */

if ( SDL_NAME(XineramaQueryExtension)(SDL_Display, &i, &i) &&

SDL_NAME(XineramaIsActive)(SDL_Display) ) {

/* Find out which screen is the desired one */

int desired = 0;

#ifdef XINERAMA_DEBUG

printf("X11 detected Xinerama:\n");

#endif

#if 0 /* Apparently the vidmode extension doesn't work with Xinerama */

const char *variable = getenv("SDL_VIDEO_X11_XINERAMA_SCREEN");

if ( variable ) {

desired = atoi(variable);

}

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

#ifdef XINERAMA_DEBUG

printf("xinerama %d: %dx%d+%d+%d\n",

xinerama[i].screen_number,

xinerama[i].width, xinerama[i].height,

xinerama[i].x_org, xinerama[i].y_org);

#endif

xinerama_x = xinerama[i].x_org;

xinerama_y = xinerama[i].y_org;

}

}

XFree(xinerama);

}

#endif /* HAVE_XINERAMA */

return 0;

}

int X11_SupportedVisual(_THIS, SDL_PixelFormat *format)

{

int i;

for(i = 0; i < this->hidden->nvisuals; i++)

if(this->hidden->visuals[i].bpp == format->BitsPerPixel)

return 1;

return 0;

}

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

{

if ( X11_SupportedVisual(this, format) ) {

if ( flags & SDL_FULLSCREEN ) {

return(SDL_modelist);

} else {

return((SDL_Rect **)-1);

}

} else {

return((SDL_Rect **)0);

}

}

void X11_FreeVideoModes(_THIS)

{

int i;

if ( SDL_modelist ) {

for ( i=0; SDL_modelist[i]; ++i ) {

free(SDL_modelist[i]);

}

free(SDL_modelist);

SDL_modelist = NULL;

}

}

int X11_ResizeFullScreen(_THIS)

{

int x, y;

int real_w, real_h;

int screen_w;

int screen_h;

screen_w = DisplayWidth(SDL_Display, SDL_Screen);

screen_h = DisplayHeight(SDL_Display, SDL_Screen);

x = xinerama_x;

y = xinerama_y;

if ( currently_fullscreen ) {

/* Switch resolution and cover it with the FSwindow */

if ( current_w > real_w ) {

real_w = MAX(real_w, screen_w);

}

if ( current_h > real_h ) {

real_h = MAX(real_h, screen_h);

}

move_cursor_to(this, real_w/2, real_h/2);

/* Center and reparent the drawing window */

x = (real_w - current_w)/2;

y = (real_h - current_h)/2;

XReparentWindow(SDL_Display, SDL_Window, FSwindow, x, y);

/* FIXME: move the mouse to the old relative location */

XSync(SDL_Display, True); /* Flush spurious mode change events */

}

return(1);

}

void X11_QueueEnterFullScreen(_THIS)

{

switch_waiting = 0x01 | SDL_FULLSCREEN;

switch_time = SDL_GetTicks() + 1500;

#if 0 /* This causes a BadMatch error if the window is iconified (not needed) */

XSetInputFocus(SDL_Display, WMwindow, RevertToNone, CurrentTime);

#endif

}

int X11_EnterFullScreen(_THIS)

{

int okay;

#if 0

Window tmpwin, *windows;

int i, nwindows;

#endif

int screen_w;

int screen_h;

okay = 1;

if ( currently_fullscreen ) {

return(okay);

}

/* Ungrab the input so that we can move the mouse around */

X11_GrabInputNoLock(this, SDL_GRAB_OFF);

/* Map the fullscreen window to blank the screen */

screen_w = DisplayWidth(SDL_Display, SDL_Screen);

screen_h = DisplayHeight(SDL_Display, SDL_Screen);

if ( current_w > real_w ) {

real_w = MAX(real_w, screen_w);

}

if ( current_h > real_h ) {

real_h = MAX(real_h, screen_h);

}

XMoveResizeWindow(SDL_Display, FSwindow,

xinerama_x, xinerama_y, real_w, real_h);

XMapRaised(SDL_Display, FSwindow);

X11_WaitMapped(this, FSwindow);

#if 0 /* This seems to break WindowMaker in focus-follows-mouse mode */

/* Make sure we got to the top of the window stack */

if ( XQueryTree(SDL_Display, SDL_Root, &tmpwin, &tmpwin,

&windows, &nwindows) && windows ) {