/*

  Simple DirectMedia Layer

  Copyright (C) 1997-2013 Sam Lantinga <slouken@libsdl.org>

  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"

/* The high-level video driver subsystem */

#include "SDL.h"

#include "SDL_video.h"

#include "SDL_sysvideo.h"

#include "SDL_blit.h"

#include "SDL_pixels_c.h"

#include "SDL_rect_c.h"

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

#include "../timer/SDL_timer_c.h"

#if SDL_VIDEO_OPENGL

#include "SDL_opengl.h"

#endif /* SDL_VIDEO_OPENGL */

#if SDL_VIDEO_OPENGL_ES

#include "SDL_opengles.h"

#endif /* SDL_VIDEO_OPENGL_ES */

#if SDL_VIDEO_OPENGL_ES2

#include "SDL_opengles2.h"

#endif /* SDL_VIDEO_OPENGL_ES2 */

#include "SDL_syswm.h"

/* On Windows, windows.h defines CreateWindow */

#ifdef CreateWindow

#undef CreateWindow

#endif

/* Available video drivers */

static VideoBootStrap *bootstrap[] = {

#if SDL_VIDEO_DRIVER_COCOA

    &COCOA_bootstrap,

#endif

#if SDL_VIDEO_DRIVER_X11

    &X11_bootstrap,

#endif

#if SDL_VIDEO_DRIVER_DIRECTFB

    &DirectFB_bootstrap,

#endif

#if SDL_VIDEO_DRIVER_WINDOWS

    &WINDOWS_bootstrap,

#endif

#if SDL_VIDEO_DRIVER_BWINDOW

    &BWINDOW_bootstrap,

#endif

#if SDL_VIDEO_DRIVER_PANDORA

    &PND_bootstrap,

#endif

#if SDL_VIDEO_DRIVER_UIKIT

    &UIKIT_bootstrap,

#endif

#if SDL_VIDEO_DRIVER_ANDROID

    &Android_bootstrap,

#endif

#if SDL_VIDEO_DRIVER_PSP

    &PSP_bootstrap,

#endif

#if SDL_VIDEO_DRIVER_DUMMY

    &DUMMY_bootstrap,

#endif

    NULL

};

static SDL_VideoDevice *_this = NULL;

#define CHECK_WINDOW_MAGIC(window, retval) \

    if (!_this) { \

        SDL_UninitializedVideo(); \

        return retval; \

    } \

    if (!window || window->magic != &_this->window_magic) { \

        SDL_SetError("Invalid window"); \

        return retval; \

    }

#define CHECK_DISPLAY_INDEX(displayIndex, retval) \

    if (!_this) { \

        SDL_UninitializedVideo(); \

        return retval; \

    } \

    if (displayIndex < 0 || displayIndex >= _this->num_displays) { \

        SDL_SetError("displayIndex must be in the range 0 - %d", \

                     _this->num_displays - 1); \

        return retval; \

    }

/* Support for framebuffer emulation using an accelerated renderer */

#define SDL_WINDOWTEXTUREDATA   "_SDL_WindowTextureData"

typedef struct {

    SDL_Renderer *renderer;

    SDL_Texture *texture;

    void *pixels;

    int pitch;

    int bytes_per_pixel;

} SDL_WindowTextureData;

static SDL_bool

ShouldUseTextureFramebuffer()

{

    const char *hint;

    /* If there's no native framebuffer support then there's no option */

    if (!_this->CreateWindowFramebuffer) {

        return SDL_TRUE;

    }

    /* If the user has specified a software renderer we can't use a

       texture framebuffer, or renderer creation will go recursive.

     */

    hint = SDL_GetHint(SDL_HINT_RENDER_DRIVER);

    if (hint && SDL_strcasecmp(hint, "software") == 0) {

        return SDL_FALSE;

    }

    /* See if the user or application wants a specific behavior */

    hint = SDL_GetHint(SDL_HINT_FRAMEBUFFER_ACCELERATION);

    if (hint) {

        if (*hint == '0') {

            return SDL_FALSE;

        } else {

            return SDL_TRUE;

        }

    }

    /* Each platform has different performance characteristics */

#if defined(__WIN32__)

    /* GDI BitBlt() is way faster than Direct3D dynamic textures right now.

     */

    return SDL_FALSE;

#elif defined(__MACOSX__)

    /* Mac OS X uses OpenGL as the native fast path */

    return SDL_TRUE;

#elif defined(__LINUX__)

    /* Properly configured OpenGL drivers are faster than MIT-SHM */

#if SDL_VIDEO_OPENGL

    /* Ugh, find a way to cache this value! */

    {

        SDL_Window *window;

        SDL_GLContext context;

        SDL_bool hasAcceleratedOpenGL = SDL_FALSE;

        window = SDL_CreateWindow("OpenGL test", -32, -32, 32, 32, SDL_WINDOW_OPENGL|SDL_WINDOW_HIDDEN);

        if (window) {

            context = SDL_GL_CreateContext(window);

            if (context) {

                const GLubyte *(APIENTRY * glGetStringFunc) (GLenum);

                const char *vendor = NULL;

                glGetStringFunc = SDL_GL_GetProcAddress("glGetString");

                if (glGetStringFunc) {

                    vendor = (const char *) glGetStringFunc(GL_VENDOR);

                }

                /* Add more vendors here at will... */

                if (vendor &&

                    (SDL_strstr(vendor, "ATI Technologies") ||

                     SDL_strstr(vendor, "NVIDIA"))) {

                    hasAcceleratedOpenGL = SDL_TRUE;

                }

                SDL_GL_DeleteContext(context);

            }

            SDL_DestroyWindow(window);

        }

        return hasAcceleratedOpenGL;

    }

#elif SDL_VIDEO_OPENGL_ES || SDL_VIDEO_OPENGL_ES2

    /* Let's be optimistic about this! */

    return SDL_TRUE;

#else

    return SDL_FALSE;

#endif

#else

    /* Play it safe, assume that if there is a framebuffer driver that it's

       optimized for the current platform.

    */

    return SDL_FALSE;

#endif

}

static int

SDL_CreateWindowTexture(_THIS, SDL_Window * window, Uint32 * format, void ** pixels, int *pitch)

{

    SDL_WindowTextureData *data;

    SDL_RendererInfo info;

    Uint32 i;

    data = SDL_GetWindowData(window, SDL_WINDOWTEXTUREDATA);

    if (!data) {

        SDL_Renderer *renderer = NULL;

        SDL_RendererInfo info;

        int i;

        const char *hint = SDL_GetHint(SDL_HINT_FRAMEBUFFER_ACCELERATION);

        /* Check to see if there's a specific driver requested */

        if (hint && *hint != '0' && *hint != '1' &&

            SDL_strcasecmp(hint, "software") != 0) {

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

                SDL_GetRenderDriverInfo(i, &info);

                if (SDL_strcasecmp(info.name, hint) == 0) {

                    renderer = SDL_CreateRenderer(window, i, 0);

                    break;

                }

            }

        }

        if (!renderer) {

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

                SDL_GetRenderDriverInfo(i, &info);

                if (SDL_strcmp(info.name, "software") != 0) {

                    renderer = SDL_CreateRenderer(window, i, 0);

                    if (renderer) {

                        break;

                    }

                }

            }

        }

        if (!renderer) {

            return SDL_SetError("No hardware accelerated renderers available");

        }

        /* Create the data after we successfully create the renderer (bug #1116) */

        data = (SDL_WindowTextureData *)SDL_calloc(1, sizeof(*data));

        if (!data) {

            SDL_DestroyRenderer(renderer);

            return SDL_OutOfMemory();

        }

        SDL_SetWindowData(window, SDL_WINDOWTEXTUREDATA, data);

        data->renderer = renderer;

    }

    /* Free any old texture and pixel data */

    if (data->texture) {

        SDL_DestroyTexture(data->texture);

        data->texture = NULL;

    }

    if (data->pixels) {

        SDL_free(data->pixels);

        data->pixels = NULL;

    }

    if (SDL_GetRendererInfo(data->renderer, &info) < 0) {

        return -1;

    }

    /* Find the first format without an alpha channel */

    *format = info.texture_formats[0];

    for (i = 0; i < info.num_texture_formats; ++i) {

        if (!SDL_ISPIXELFORMAT_FOURCC(info.texture_formats[i]) &&

            !SDL_ISPIXELFORMAT_ALPHA(info.texture_formats[i])) {

            *format = info.texture_formats[i];

            break;

        }

    }

    data->texture = SDL_CreateTexture(data->renderer, *format,

                                      SDL_TEXTUREACCESS_STREAMING,

                                      window->w, window->h);

    if (!data->texture) {

        return -1;

    }

    /* Create framebuffer data */

    data->bytes_per_pixel = SDL_BYTESPERPIXEL(*format);

    data->pitch = (((window->w * data->bytes_per_pixel) + 3) & ~3);

    data->pixels = SDL_malloc(window->h * data->pitch);

    if (!data->pixels) {

        return SDL_OutOfMemory();

    }

    *pixels = data->pixels;

    *pitch = data->pitch;

    /* Make sure we're not double-scaling the viewport */

    SDL_RenderSetViewport(data->renderer, NULL);

    return 0;

}

static int

SDL_UpdateWindowTexture(_THIS, SDL_Window * window, const SDL_Rect * rects, int numrects)

{

    SDL_WindowTextureData *data;

    SDL_Rect rect;

    void *src;

    data = SDL_GetWindowData(window, SDL_WINDOWTEXTUREDATA);

    if (!data || !data->texture) {

        return SDL_SetError("No window texture data");

    }

    /* Update a single rect that contains subrects for best DMA performance */

    if (SDL_GetSpanEnclosingRect(window->w, window->h, numrects, rects, &rect)) {

        src = (void *)((Uint8 *)data->pixels +

                        rect.y * data->pitch +

                        rect.x * data->bytes_per_pixel);

        if (SDL_UpdateTexture(data->texture, &rect, src, data->pitch) < 0) {

            return -1;

        }

        if (SDL_RenderCopy(data->renderer, data->texture, NULL, NULL) < 0) {

            return -1;

        }

        SDL_RenderPresent(data->renderer);

    }

    return 0;

}

static void

SDL_DestroyWindowTexture(_THIS, SDL_Window * window)

{

    SDL_WindowTextureData *data;

    data = SDL_SetWindowData(window, SDL_WINDOWTEXTUREDATA, NULL);

    if (!data) {

        return;

    }

    if (data->texture) {

        SDL_DestroyTexture(data->texture);

    }

    if (data->renderer) {

        SDL_DestroyRenderer(data->renderer);

    }

    if (data->pixels) {

        SDL_free(data->pixels);

    }

    SDL_free(data);

}

static int

cmpmodes(const void *A, const void *B)

{

    SDL_DisplayMode a = *(const SDL_DisplayMode *) A;

    SDL_DisplayMode b = *(const SDL_DisplayMode *) B;

    if (a.w != b.w) {

        return b.w - a.w;

    }

    if (a.h != b.h) {

        return b.h - a.h;

    }

    if (SDL_BITSPERPIXEL(a.format) != SDL_BITSPERPIXEL(b.format)) {

        return SDL_BITSPERPIXEL(b.format) - SDL_BITSPERPIXEL(a.format);

    }

    if (SDL_PIXELLAYOUT(a.format) != SDL_PIXELLAYOUT(b.format)) {

        return SDL_PIXELLAYOUT(b.format) - SDL_PIXELLAYOUT(a.format);

    }

    if (a.refresh_rate != b.refresh_rate) {

        return b.refresh_rate - a.refresh_rate;

    }

    return 0;

}

static int

SDL_UninitializedVideo()

{

    return SDL_SetError("Video subsystem has not been initialized");

}

int

SDL_GetNumVideoDrivers(void)

{

    return SDL_arraysize(bootstrap) - 1;

}

const char *

SDL_GetVideoDriver(int index)

{

    if (index >= 0 && index < SDL_GetNumVideoDrivers()) {

        return bootstrap[index]->name;

    }

    return NULL;

}

/*

 * Initialize the video and event subsystems -- determine native pixel format

 */

int

SDL_VideoInit(const char *driver_name)

{

    SDL_VideoDevice *video;

    int index;

    int i;

    /* Check to make sure we don't overwrite '_this' */

    if (_this != NULL) {

        SDL_VideoQuit();

    }

#if !SDL_TIMERS_DISABLED

    SDL_InitTicks();

#endif

    /* Start the event loop */

    if (SDL_InitSubSystem(SDL_INIT_EVENTS) < 0 ||

        SDL_KeyboardInit() < 0 ||

        SDL_MouseInit() < 0 ||

        SDL_TouchInit() < 0) {

        return -1;

    }

    /* Select the proper video driver */

    index = 0;

    video = NULL;

    if (driver_name == NULL) {

        driver_name = SDL_getenv("SDL_VIDEODRIVER");

    }

    if (driver_name != NULL) {

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

            if (SDL_strncasecmp(bootstrap[i]->name, driver_name, SDL_strlen(driver_name)) == 0) {

                video = bootstrap[i]->create(index);

                break;

            }

        }

    } else {

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

            if (bootstrap[i]->available()) {

                video = bootstrap[i]->create(index);

                if (video != NULL) {

                    break;

                }

            }

        }

    }

    if (video == NULL) {

        if (driver_name) {

            return SDL_SetError("%s not available", driver_name);

        }

        return SDL_SetError("No available video device");

    }

    _this = video;

    _this->name = bootstrap[i]->name;

    _this->next_object_id = 1;

    /* Set some very sane GL defaults */

    _this->gl_config.driver_loaded = 0;

    _this->gl_config.dll_handle = NULL;

    _this->gl_config.red_size = 3;

    _this->gl_config.green_size = 3;

    _this->gl_config.blue_size = 2;

    _this->gl_config.alpha_size = 0;

    _this->gl_config.buffer_size = 0;

    _this->gl_config.depth_size = 16;

    _this->gl_config.stencil_size = 0;

    _this->gl_config.double_buffer = 1;

    _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;

    _this->gl_config.stereo = 0;

    _this->gl_config.multisamplebuffers = 0;

    _this->gl_config.multisamplesamples = 0;

    _this->gl_config.retained_backing = 1;

    _this->gl_config.accelerated = -1;  /* accelerated or not, both are fine */

#if SDL_VIDEO_OPENGL

    _this->gl_config.major_version = 2;