/*

  Simple DirectMedia Layer

  This software is provided 'as-is', without any express or implied

  warranty.  In no event will the authors be held liable for any damages

  arising from the use of this software.

  Permission is granted to anyone to use this software for any purpose,

  including commercial applications, and to alter it and redistribute it

  freely, subject to the following restrictions:

  1. The origin of this software must not be misrepresented; you must not

     claim that you wrote the original software. If you use this software

     in a product, an acknowledgment in the product documentation would be

     appreciated but is not required.

  2. Altered source versions must be plainly marked as such, and must not be

     misrepresented as being the original software.

  3. This notice may not be removed or altered from any source distribution.

*/

#include "SDL_config.h"

#if SDL_VIDEO_DRIVER_X11

#include "SDL_x11video.h"

/*#define X11MODES_DEBUG*/

static int

get_visualinfo(Display * display, int screen, XVisualInfo * vinfo)

{

    const char *visual_id = SDL_getenv("SDL_VIDEO_X11_VISUALID");

    int depth;

    /* Look for an exact visual, if requested */

    if (visual_id) {

        XVisualInfo *vi, template;

        int nvis;

        SDL_zero(template);

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

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

        if (vi) {

            *vinfo = *vi;

            XFree(vi);

            return 0;

        }

    }

    depth = DefaultDepth(display, screen);

    if ((X11_UseDirectColorVisuals() &&

         XMatchVisualInfo(display, screen, depth, DirectColor, vinfo)) ||

        XMatchVisualInfo(display, screen, depth, TrueColor, vinfo) ||

        XMatchVisualInfo(display, screen, depth, PseudoColor, vinfo) ||

        XMatchVisualInfo(display, screen, depth, StaticColor, vinfo)) {

        return 0;

    }

    return -1;

}

int

X11_GetVisualInfoFromVisual(Display * display, Visual * visual, XVisualInfo * vinfo)

{

    XVisualInfo *vi;

    int nvis;

    vinfo->visualid = XVisualIDFromVisual(visual);

    vi = XGetVisualInfo(display, VisualIDMask, vinfo, &nvis);

    if (vi) {

        *vinfo = *vi;

        XFree(vi);

        return 0;

    }

    return -1;

}

Uint32

X11_GetPixelFormatFromVisualInfo(Display * display, XVisualInfo * vinfo)

{

    if (vinfo->class == DirectColor || vinfo->class == TrueColor) {

        int bpp;

        Uint32 Rmask, Gmask, Bmask, Amask;

        Rmask = vinfo->visual->red_mask;

        Gmask = vinfo->visual->green_mask;

        Bmask = vinfo->visual->blue_mask;

        if (vinfo->depth == 32) {

            Amask = (0xFFFFFFFF & ~(Rmask | Gmask | Bmask));

        } else {

            Amask = 0;

        }

        bpp = vinfo->depth;

        if (bpp == 24) {

            int i, n;

            XPixmapFormatValues *p = XListPixmapFormats(display, &n);

            if (p) {

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

                    if (p[i].depth == 24) {

                        bpp = p[i].bits_per_pixel;

                        break;

                    }

                }

                XFree(p);

            }

        }

        return SDL_MasksToPixelFormatEnum(bpp, Rmask, Gmask, Bmask, Amask);

    }

    if (vinfo->class == PseudoColor || vinfo->class == StaticColor) {

        switch (vinfo->depth) {

        case 8:

            return SDL_PIXELTYPE_INDEX8;

        case 4:

            if (BitmapBitOrder(display) == LSBFirst) {

                return SDL_PIXELFORMAT_INDEX4LSB;

            } else {

                return SDL_PIXELFORMAT_INDEX4MSB;

            }

            break;

        case 1:

            if (BitmapBitOrder(display) == LSBFirst) {

                return SDL_PIXELFORMAT_INDEX1LSB;

            } else {

                return SDL_PIXELFORMAT_INDEX1MSB;

            }

            break;

        }

    }

    return SDL_PIXELFORMAT_UNKNOWN;

}

int

X11_InitModes(_THIS)

{

    SDL_VideoData *data = (SDL_VideoData *) _this->driverdata;

    int screen;

    for (screen = 0; screen < ScreenCount(data->display); ++screen) {

        XVisualInfo vinfo;

        SDL_VideoDisplay display;

        SDL_DisplayData *displaydata;

        SDL_DisplayMode mode;

        XPixmapFormatValues *pixmapFormats;

        int i, n;

        if (get_visualinfo(data->display, screen, &vinfo) < 0) {

            continue;

        }

        mode.format = X11_GetPixelFormatFromVisualInfo(data->display, &vinfo);

        if (SDL_ISPIXELFORMAT_INDEXED(mode.format)) {

            /* We don't support palettized modes now */

            continue;

        }

        mode.w = DisplayWidth(data->display, screen);

        mode.h = DisplayHeight(data->display, screen);

        mode.refresh_rate = 0;

        mode.driverdata = NULL;

        displaydata = (SDL_DisplayData *) SDL_malloc(sizeof(*displaydata));

        if (!displaydata) {

            continue;

        }

        displaydata->screen = screen;

        displaydata->visual = vinfo.visual;

        displaydata->depth = vinfo.depth;

        displaydata->scanline_pad = SDL_BYTESPERPIXEL(mode.format) * 8;

        pixmapFormats = XListPixmapFormats(data->display, &n);

        if (pixmapFormats) {

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

                if (pixmapFormats[i].depth == displaydata->depth) {

                    displaydata->scanline_pad = pixmapFormats[i].scanline_pad;

                    break;

                }

            }

            XFree(pixmapFormats);

        }

        SDL_zero(display);

        display.desktop_mode = mode;

        display.current_mode = mode;

        display.driverdata = displaydata;

        SDL_AddVideoDisplay(&display);

    }

    if (_this->num_displays == 0) {

        SDL_SetError("No available displays");

        return -1;

    }

    return 0;

}

/* Global for the error handler */

int vm_event, vm_error = -1;

#if SDL_VIDEO_DRIVER_X11_XINERAMA

static SDL_bool

CheckXinerama(Display * display, int *major, int *minor)

{

    int event_base = 0;

    int error_base = 0;

    const char *env;

    /* Default the extension not available */

    *major = *minor = 0;

    /* Allow environment override */

    env = getenv("SDL_VIDEO_X11_XINERAMA");

    if (env && !SDL_atoi(env)) {

        return SDL_FALSE;

    }

    if (!SDL_X11_HAVE_XINERAMA) {

        return SDL_FALSE;

    }

    /* Query the extension version */

    if (!XineramaQueryExtension(display, &event_base, &error_base) ||

        !XineramaQueryVersion(display, major, minor) ||

        !XineramaIsActive(display)) {

        return SDL_FALSE;

    }

    return SDL_TRUE;

}

#endif /* SDL_VIDEO_DRIVER_X11_XINERAMA */

#if SDL_VIDEO_DRIVER_X11_XRANDR

static SDL_bool

CheckXRandR(Display * display, int *major, int *minor)

{

    const char *env;

    /* Default the extension not available */

    *major = *minor = 0;

    /* Allow environment override */

    env = getenv("SDL_VIDEO_X11_XRANDR");

    if (env && !SDL_atoi(env)) {

        return SDL_FALSE;

    }

    if (!SDL_X11_HAVE_XRANDR) {

        return SDL_FALSE;

    }

    /* Query the extension version */

    if (!XRRQueryVersion(display, major, minor)) {

        return SDL_FALSE;

    }

    return SDL_TRUE;

}

#endif /* SDL_VIDEO_DRIVER_X11_XRANDR */

#if SDL_VIDEO_DRIVER_X11_XVIDMODE

static SDL_bool

CheckVidMode(Display * display, int *major, int *minor)

{

    const char *env;

    /* Default the extension not available */

    *major = *minor = 0;

    /* Allow environment override */

    env = getenv("SDL_VIDEO_X11_XVIDMODE");

    if (env && !SDL_atoi(env)) {

        return SDL_FALSE;

    }

    if (!SDL_X11_HAVE_XVIDMODE) {

        return SDL_FALSE;

    }

    /* Query the extension version */

    vm_error = -1;

    if (!XF86VidModeQueryExtension(display, &vm_event, &vm_error)

        || !XF86VidModeQueryVersion(display, major, minor)) {

        return SDL_FALSE;

    }

    return SDL_TRUE;

}

static

Bool XF86VidModeGetModeInfo(Display * dpy, int scr,

                                       XF86VidModeModeInfo* info)

{

    Bool retval;

    int dotclock;

    XF86VidModeModeLine l;

    SDL_zerop(info);

    SDL_zero(l);

    retval = XF86VidModeGetModeLine(dpy, scr, &dotclock, &l);

    info->dotclock = dotclock;

    info->hdisplay = l.hdisplay;

    info->hsyncstart = l.hsyncstart;

    info->hsyncend = l.hsyncend;

    info->htotal = l.htotal;

    info->hskew = l.hskew;

    info->vdisplay = l.vdisplay;

    info->vsyncstart = l.vsyncstart;

    info->vsyncend = l.vsyncend;

    info->vtotal = l.vtotal;

    info->flags = l.flags;

    info->privsize = l.privsize;

    info->private = l.private;

    return retval;

}

static int

calculate_rate(XF86VidModeModeInfo * info)

{

    return (info->htotal

            && info->vtotal) ? (1000 * info->dotclock / (info->htotal *

                                                         info->vtotal)) : 0;

}

static void

save_mode(Display * display, SDL_DisplayData * data)

{

    XF86VidModeGetModeInfo(display, data->screen,

                                    &data->saved_mode);

    XF86VidModeGetViewPort(display, data->screen,

                                    &data->saved_view.x,

                                    &data->saved_view.y);

}

/*

static void

restore_mode(Display * display, SDL_DisplayData * data)

{

    XF86VidModeModeInfo mode;

    if (XF86VidModeGetModeInfo(display, data->screen, &mode)) {

        if (SDL_memcmp(&mode, &data->saved_mode, sizeof(mode)) != 0) {

            XF86VidModeSwitchToMode(display, data->screen, &data->saved_mode);

        }

    }

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

        XF86VidModeSetViewPort(display, data->screen,

                                        data->saved_view.x,

                                        data->saved_view.y);

    }

}

*/

#endif /* SDL_VIDEO_DRIVER_X11_XVIDMODE */

void

X11_GetDisplayModes(_THIS, SDL_VideoDisplay * sdl_display)

{

    Display *display = ((SDL_VideoData *) _this->driverdata)->display;

    SDL_DisplayData *data = (SDL_DisplayData *) sdl_display->driverdata;

#if SDL_VIDEO_DRIVER_X11_XINERAMA

    int xinerama_major, xinerama_minor;

    int screens;

    XineramaScreenInfo * xinerama;

#endif

#if SDL_VIDEO_DRIVER_X11_XRANDR

    int xrandr_major, xrandr_minor;

    int nsizes, nrates;

    XRRScreenSize *sizes;

    short *rates;

#endif

#if SDL_VIDEO_DRIVER_X11_XVIDMODE

    int vm_major, vm_minor;

    int nmodes;

    XF86VidModeModeInfo ** modes;

#endif

    int screen_w;

    int screen_h;

    SDL_DisplayMode mode;

    /* Unfortunately X11 requires the window to be created with the correct

     * visual and depth ahead of time, but the SDL API allows you to create

     * a window before setting the fullscreen display mode.  This means that

     * we have to use the same format for all windows and all display modes.

     * (or support recreating the window with a new visual behind the scenes)

     */

    mode.format = sdl_display->current_mode.format;

    mode.driverdata = NULL;

    data->use_xinerama = 0;

    data->use_xrandr = 0;

    data->use_vidmode = 0;

    screen_w = DisplayWidth(display, data->screen);

    screen_h = DisplayHeight(display, data->screen);

#if SDL_VIDEO_DRIVER_X11_XINERAMA

    /* Query Xinerama extention */

    if (CheckXinerama(display, &xinerama_major, &xinerama_minor)) {

#ifdef X11MODES_DEBUG

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

#endif

        xinerama = XineramaQueryScreens(display, &screens);

        if (xinerama) {

            int i;

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

#ifdef X11MODES_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

                if (xinerama[i].screen_number == data->screen) {

                    data->use_xinerama =

                        xinerama_major * 100 + xinerama_minor;

                    data->xinerama_info = xinerama[i];

                }

            }

            XFree(xinerama);

        }

        if (data->use_xinerama) {

            /* Add the full xinerama mode */

            if (screen_w > data->xinerama_info.width ||

                screen_h > data->xinerama_info.height) {

                mode.w = screen_w;

                mode.h = screen_h;

                mode.refresh_rate = 0;

                SDL_AddDisplayMode(sdl_display, &mode);

            }

            /* Add the head xinerama mode */

            mode.w = data->xinerama_info.width;

            mode.h = data->xinerama_info.height;

            mode.refresh_rate = 0;

            SDL_AddDisplayMode(sdl_display, &mode);

        }

    }

#endif /* SDL_VIDEO_DRIVER_X11_XINERAMA */

#if SDL_VIDEO_DRIVER_X11_XRANDR

    /* XRandR */

    /* require at least XRandR v1.0 (arbitrary) */

    if (CheckXRandR(display, &xrandr_major, &xrandr_minor)

        && xrandr_major >= 1) {

#ifdef X11MODES_DEBUG

        fprintf(stderr, "XRANDR: XRRQueryVersion: V%d.%d\n",

                xrandr_major, xrandr_minor);

#endif

        /* save the screen configuration since we must reference it

           each time we toggle modes.

         */

        data->screen_config =

            XRRGetScreenInfo(display, RootWindow(display, data->screen));

        /* retrieve the list of resolution */

        sizes = XRRConfigSizes(data->screen_config, &nsizes);

        if (nsizes > 0) {

            int i, j;

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

                mode.w = sizes[i].width;

                mode.h = sizes[i].height;

                rates = XRRConfigRates(data->screen_config, i, &nrates);

                for (j = 0; j < nrates; ++j) {

                    mode.refresh_rate = rates[j];

#ifdef X11MODES_DEBUG

                    fprintf(stderr,

                            "XRANDR: mode = %4d[%d], w = %4d, h = %4d, rate = %4d\n",

                            i, j, mode.w, mode.h, mode.refresh_rate);

#endif

                    SDL_AddDisplayMode(sdl_display, &mode);

                }

            }

            data->use_xrandr = xrandr_major * 100 + xrandr_minor;

            data->saved_size =

                XRRConfigCurrentConfiguration(data->screen_config,

                                              &data->saved_rotation);

            data->saved_rate = XRRConfigCurrentRate(data->screen_config);

        }

    }

#endif /* SDL_VIDEO_DRIVER_X11_XRANDR */

#if SDL_VIDEO_DRIVER_X11_XVIDMODE

    /* XVidMode */

    if (!data->use_xrandr &&

#if SDL_VIDEO_DRIVER_X11_XINERAMA

        (!data->use_xinerama || data->xinerama_info.screen_number == 0) &&

#endif

        CheckVidMode(display, &vm_major, &vm_minor) &&

        XF86VidModeGetAllModeLines(display, data->screen, &nmodes, &modes)) {

        int i;

#ifdef X11MODES_DEBUG

        printf("VidMode modes: (unsorted)\n");

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

            printf("Mode %d: %d x %d @ %d\n", i,

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