/*
    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"

#include "SDL_ph_modes_c.h"

static PgVideoModeInfo_t mode_info;
static PgVideoModes_t mode_list;

/* The current list of available video modes */
SDL_Rect SDL_modelist[PH_MAX_VIDEOMODES];
SDL_Rect *SDL_modearray[PH_MAX_VIDEOMODES];

static int
compare_modes_by_res(const void *mode1, const void *mode2)
{
    PgVideoModeInfo_t mode1_info;
    PgVideoModeInfo_t mode2_info;

    if (PgGetVideoModeInfo(*(unsigned short *) mode1, &mode1_info) < 0) {
        return 0;
    }

    if (PgGetVideoModeInfo(*(unsigned short *) mode2, &mode2_info) < 0) {
        return 0;
    }

    if (mode1_info.width == mode2_info.width) {
        return mode2_info.height - mode1_info.height;
    } else {
        return mode2_info.width - mode1_info.width;
    }
}

SDL_Rect **
ph_ListModes(_THIS, SDL_PixelFormat * format, Uint32 flags)
{
    int i = 0;
    int j = 0;
    SDL_Rect Amodelist[PH_MAX_VIDEOMODES];

    for (i = 0; i < PH_MAX_VIDEOMODES; i++) {
        SDL_modearray[i] = &SDL_modelist[i];
    }

    if (PgGetVideoModeList(&mode_list) < 0) {
        SDL_SetError
            ("ph_ListModes(): PgGetVideoModeList() function failed !\n");
        return NULL;
    }

    mode_info.bits_per_pixel = 0;

    for (i = 0; i < mode_list.num_modes; i++) {
        if (PgGetVideoModeInfo(mode_list.modes[i], &mode_info) < 0) {
            SDL_SetError
                ("ph_ListModes(): PgGetVideoModeInfo() function failed on mode: 0x%X.\n",
                 mode_list.modes[i]);
            return NULL;
        }
        if (mode_info.bits_per_pixel == format->BitsPerPixel) {
            Amodelist[j].w = mode_info.width;
            Amodelist[j].h = mode_info.height;
            Amodelist[j].x = 0;
            Amodelist[j].y = 0;
            j++;
        }
    }

    /* reorder biggest for smallest, assume width dominates */

    for (i = 0; i < j; i++) {
        SDL_modelist[i].w = Amodelist[j - i - 1].w;
        SDL_modelist[i].h = Amodelist[j - i - 1].h;
        SDL_modelist[i].x = Amodelist[j - i - 1].x;
        SDL_modelist[i].y = Amodelist[j - i - 1].y;
    }
    SDL_modearray[j] = NULL;

    return SDL_modearray;
}

void
ph_FreeVideoModes(_THIS)
{
    return;
}

/* return the mode associated with width, height and bpp */
/* if there is no mode then zero is returned             */
int
ph_GetVideoMode(int width, int height, int bpp)
{
    int i;
    int modestage = 0;
    int closestmode = 0;

    if (PgGetVideoModeList(&mode_list) < 0) {
        return -1;
    }

    /* special case for the double-sized 320x200 mode */
    if ((width == 640) && (height == 400)) {
        modestage = 1;
    }

    /* search list for exact match */
    for (i = 0; i < mode_list.num_modes; i++) {
        if (PgGetVideoModeInfo(mode_list.modes[i], &mode_info) < 0) {
            return 0;
        }

        if ((mode_info.width == width) && (mode_info.height == height) &&
            (mode_info.bits_per_pixel == bpp)) {
            return mode_list.modes[i];
        } else {
            if ((modestage) && (mode_info.width == width)
                && (mode_info.height == height + 80)
                && (mode_info.bits_per_pixel == bpp)) {
                modestage = 2;
                closestmode = mode_list.modes[i];
            }
        }
    }

    /* if we are here, then no 640x400xbpp mode found and we'll emulate it via 640x480xbpp mode */
    if (modestage == 2) {
        return closestmode;
    }

    return (i == mode_list.num_modes) ? 0 : mode_list.modes[i];
}

/* return the mode associated with width, height and bpp               */
/* if requested bpp is not found the mode with closest bpp is returned */
int
get_mode_any_format(int width, int height, int bpp)
{
    int i, closest, delta, min_delta;

    if (PgGetVideoModeList(&mode_list) < 0) {
        return -1;
    }

    SDL_qsort(mode_list.modes, mode_list.num_modes, sizeof(unsigned short),
              compare_modes_by_res);

    for (i = 0; i < mode_list.num_modes; i++) {
        if (PgGetVideoModeInfo(mode_list.modes[i], &mode_info) < 0) {
            return 0;
        }
        if ((mode_info.width == width) && (mode_info.height == height)) {
            break;
        }
    }

    if (i < mode_list.num_modes) {
        /* get closest bpp */
        closest = i++;
        if (mode_info.bits_per_pixel == bpp) {
            return mode_list.modes[closest];
        }

        min_delta = abs(mode_info.bits_per_pixel - bpp);

        while (1) {
            if (PgGetVideoModeInfo(mode_list.modes[i], &mode_info) < 0) {
                return 0;
            }

            if ((mode_info.width != width)
                || (mode_info.height != height)) {
                break;
            } else {
                if (mode_info.bits_per_pixel == bpp) {
                    closest = i;
                    break;
                } else {
                    delta = abs(mode_info.bits_per_pixel - bpp);
                    if (delta < min_delta) {
                        closest = i;
                        min_delta = delta;
                    }
                    i++;
                }
            }
        }
        return mode_list.modes[closest];
    }

    return 0;
}

int
ph_ToggleFullScreen(_THIS, int on)
{
    return -1;
}

int
ph_EnterFullScreen(_THIS, SDL_Surface * screen, int fmode)
{
    PgDisplaySettings_t settings;
    int mode;
    char *refreshrate;
    int refreshratenum;

    if (!currently_fullscreen) {
        /* Get the video mode and set it */
        if (screen->flags & SDL_ANYFORMAT) {
            if ((mode =
                 get_mode_any_format(screen->w, screen->h,
                                     screen->format->BitsPerPixel)) == 0) {
                SDL_SetError
                    ("ph_EnterFullScreen(): can't find appropriate video mode !\n");
                return 0;
            }
        } else {
            if ((mode =
                 ph_GetVideoMode(screen->w, screen->h,
                                 screen->format->BitsPerPixel)) == 0) {
                SDL_SetError
                    ("ph_EnterFullScreen(): can't find appropriate video mode !\n");
                return 0;
            }
            if (PgGetVideoModeInfo(mode, &mode_info) < 0) {
                SDL_SetError
                    ("ph_EnterFullScreen(): can't get video mode capabilities !\n");
                return 0;
            }
            if (mode_info.height != screen->h) {
                if ((mode_info.height == 480) && (screen->h == 400)) {
                    videomode_emulatemode = 1;
                }
            } else {
                videomode_emulatemode = 0;
            }
        }

        /* save old video mode caps */
        PgGetVideoMode(&settings);
        old_video_mode = settings.mode;
        old_refresh_rate = settings.refresh;

        /* setup new video mode */
        settings.mode = mode;
        settings.refresh = 0;
        settings.flags = 0;

        refreshrate = SDL_getenv("SDL_PHOTON_FULLSCREEN_REFRESH");
        if (refreshrate != NULL) {
            if (SDL_sscanf(refreshrate, "%d", &refreshratenum) == 1) {
                settings.refresh = refreshratenum;
            }
        }

        if (PgSetVideoMode(&settings) < 0) {
            SDL_SetError
                ("ph_EnterFullScreen(): PgSetVideoMode() call failed !\n");
            return 0;
        }

        if (this->screen) {
            if (this->screen->flags & SDL_INTERNALOPENGL) {
#if !SDL_VIDEO_OPENGL || (_NTO_VERSION < 630)
                return 0;       /* 6.3.0 */
#endif
            }
        }

        if (fmode == 0) {
            if (OCImage.direct_context == NULL) {
                OCImage.direct_context =
                    (PdDirectContext_t *) PdCreateDirectContext();
                if (!OCImage.direct_context) {
                    SDL_SetError
                        ("ph_EnterFullScreen(): Can't create direct context !\n");
                    ph_LeaveFullScreen(this);
                    return 0;
                }
            }
            OCImage.oldDC = PdDirectStart(OCImage.direct_context);
        }

        currently_fullscreen = 1;
    }
    PgFlush();

    return 1;
}

int
ph_LeaveFullScreen(_THIS)
{
    PgDisplaySettings_t oldmode_settings;

    if (currently_fullscreen) {
        if ((this->screen) && (this->screen->flags & SDL_INTERNALOPENGL)) {
#if !SDL_VIDEO_OPENGL || (_NTO_VERSION < 630)
            return 0;
#endif
        }

        /* release routines starts here */
        {
            if (OCImage.direct_context) {
                PdDirectStop(OCImage.direct_context);
                PdReleaseDirectContext(OCImage.direct_context);
                OCImage.direct_context = NULL;
            }
            if (OCImage.oldDC) {
                PhDCSetCurrent(OCImage.oldDC);
                OCImage.oldDC = NULL;
            }

            currently_fullscreen = 0;

            /* Restore old video mode */
            if (old_video_mode != -1) {
                oldmode_settings.mode = (unsigned short) old_video_mode;
                oldmode_settings.refresh = (unsigned short) old_refresh_rate;
                oldmode_settings.flags = 0;

                if (PgSetVideoMode(&oldmode_settings) < 0) {
                    SDL_SetError
                        ("Ph_LeaveFullScreen(): PgSetVideoMode() function failed !\n");
                    return 0;
                }
            }

            old_video_mode = -1;
            old_refresh_rate = -1;
        }
    }
    return 1;
}

/* vi: set ts=4 sw=4 expandtab: */