/*  RetroArch - A frontend for libretro.
 *  Copyright (C) 2010-2014 - Hans-Kristian Arntzen
 *  Copyright (C) 2011-2015 - Daniel De Matteis
 *
 *  RetroArch is free software: you can redistribute it and/or modify it under the terms
 *  of the GNU General Public License as published by the Free Software Found-
 *  ation, either version 3 of the License, or (at your option) any later version.
 *
 *  RetroArch 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 General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License along with RetroArch.
 *  If not, see <http://www.gnu.org/licenses/>.
 */

#include <string.h>

#include "video_context_driver.h"

#ifdef HAVE_CONFIG_H
#include "../config.h"
#endif

#include "../general.h"
#include "../verbosity.h"

static const gfx_ctx_driver_t *gfx_ctx_drivers[] = {
#if defined(__CELLOS_LV2__)
   &gfx_ctx_ps3,
#endif
#if defined(HAVE_D3D)
   &gfx_ctx_d3d,
#endif
#if defined(HAVE_VIDEOCORE)
   &gfx_ctx_videocore,
#endif
#if defined(HAVE_MALI_FBDEV)
   &gfx_ctx_mali_fbdev,
#endif
#if defined(HAVE_VIVANTE_FBDEV)
   &gfx_ctx_vivante_fbdev,
#endif
#if defined(_WIN32) && defined(HAVE_OPENGL)
   &gfx_ctx_wgl,
#endif
#if defined(HAVE_X11) && defined(HAVE_OPENGL) && !defined(HAVE_OPENGLES)
   &gfx_ctx_glx,
#endif
#if defined(HAVE_WAYLAND) && defined(HAVE_OPENGL) && defined(HAVE_EGL)
   &gfx_ctx_wayland,
#endif
#if defined(HAVE_X11) && defined(HAVE_OPENGL) && defined(HAVE_EGL)
   &gfx_ctx_x_egl,
#endif
#if defined(HAVE_KMS)
   &gfx_ctx_drm_egl,
#endif
#if defined(ANDROID)
   &gfx_ctx_android,
#endif
#if defined(__QNX__)
   &gfx_ctx_bbqnx,
#endif
#if defined(HAVE_COCOA) || defined(HAVE_COCOATOUCH)
   &gfx_ctx_cocoagl,
#endif
#if defined(__APPLE__) && !defined(TARGET_IPHONE_SIMULATOR) && !defined(TARGET_OS_IPHONE)
   &gfx_ctx_cgl,
#endif
#if (defined(HAVE_SDL) || defined(HAVE_SDL2)) && defined(HAVE_OPENGL)
   &gfx_ctx_sdl_gl,
#endif
#ifdef EMSCRIPTEN
   &gfx_ctx_emscripten,
#endif
   &gfx_ctx_null,
   NULL
};

static const gfx_ctx_driver_t  *video_context;
static        void *video_context_data;

void *gfx_ctx_data_get_ptr(void)
{
   return video_context_data;
}

void gfx_ctx_set(const gfx_ctx_driver_t *ctx_driver)
{
   if (!ctx_driver)
      return;
   video_context = ctx_driver;
}

void gfx_ctx_destroy(const gfx_ctx_driver_t *ctx_driver)
{
   video_context = NULL;
}

void gfx_ctx_data_set(void *ptr)
{
   if (!ptr)
      return;
   video_context_data = ptr;
}

void gfx_ctx_free_data(void)
{
   if (video_context_data)
      free(video_context_data);
   video_context_data = NULL;
}

static const gfx_ctx_driver_t *gfx_ctx_get_ptr(void)
{
   return video_context;
}

void gfx_ctx_free(void *data)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (ctx && ctx->destroy)
      ctx->destroy(data);
   ctx = NULL;
}

const char *gfx_ctx_get_ident(void)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (!ctx)
      return NULL;
   return ctx->ident;
}

void gfx_ctx_update_window_title(void *data)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (ctx->update_window_title)
      ctx->update_window_title(data);
}

void gfx_ctx_get_video_output_size(void *data,
      unsigned *width, unsigned *height)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (ctx->get_video_output_size)
      ctx->get_video_output_size(data, width, height);
}

bool gfx_ctx_get_video_output_prev(void *data)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (ctx->get_video_output_prev)
   {
      ctx->get_video_output_prev(data);
      return true;
   }

   return false;
}

bool gfx_ctx_get_video_output_next(void *data)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (ctx->get_video_output_next)
   {
      ctx->get_video_output_next(data);
      return true;
   }

   return false;
}

void gfx_ctx_swap_buffers(void *data)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();
   
   if (ctx->swap_buffers)
      ctx->swap_buffers(data);
}

void gfx_ctx_bind_hw_render(void *data, bool enable)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (ctx && ctx->bind_hw_render)
      ctx->bind_hw_render(data, enable);
}

bool gfx_ctx_focus(void *data)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (data && ctx && ctx->has_focus)
      return ctx->has_focus(data);
   return false;
}

bool gfx_ctx_set_video_mode(void *data,
      unsigned width, unsigned height,
      bool fullscreen)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (ctx && ctx->set_video_mode)
      return ctx->set_video_mode(data, width, height, fullscreen);
   return false;
}

void gfx_ctx_translate_aspect(void *data, float *aspect,
      unsigned width, unsigned height)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();
   if (ctx && ctx->translate_aspect)
      *aspect = ctx->translate_aspect(data, width, height);
}

bool gfx_ctx_get_metrics(enum display_metric_types type, float *value)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();
   if (!ctx)
      return false;
   if (!ctx->get_metrics)
      return false;
   return ctx->get_metrics(video_context_data, type,
         value);
}

bool gfx_ctx_image_buffer_init(void *data, const video_info_t* info)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();
   if (ctx && ctx->image_buffer_init)
      return ctx->image_buffer_init(data, info);
   return false;
}

bool gfx_ctx_image_buffer_write(void *data, const void *frame, unsigned width,
         unsigned height, unsigned pitch, bool rgb32,
         unsigned index, void **image_handle)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();
   if (ctx && ctx->image_buffer_write)
      return ctx->image_buffer_write(data, frame, width, height, pitch,
            rgb32, index, image_handle);
   return false;
}

retro_proc_address_t gfx_ctx_get_proc_address(const char *sym)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();
   return ctx->get_proc_address(sym);
}

void gfx_ctx_show_mouse(void *data, bool state)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();
   if (data && ctx->show_mouse)
      ctx->show_mouse(data, state);
}

bool gfx_ctx_has_windowed(void *data)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (data && ctx)
      return ctx->has_windowed(data);
   return true;
}

bool gfx_ctx_check_window(void *data, bool *quit, bool *resize,
      unsigned *width, unsigned *height)
{
   uint64_t       *frame_count;
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();
   
   video_driver_ctl(RARCH_DISPLAY_CTL_GET_FRAME_COUNT, &frame_count);

   if (!data)
      return false;
   
   ctx->check_window(data, quit, resize, width, height, (unsigned int)*frame_count);

   return true;
}

bool gfx_ctx_suppress_screensaver(void *data, bool enable)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (data && ctx)
      return ctx->suppress_screensaver(data, enable);
   return false;
}

void gfx_ctx_get_video_size(void *data,
      unsigned *width, unsigned *height)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (ctx)
      ctx->get_video_size(data, width, height);
}

void gfx_ctx_swap_interval(void *data, unsigned interval)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (ctx)
      ctx->swap_interval(data, interval);
}

void gfx_ctx_set_resize(void *data, unsigned width, unsigned height)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (ctx)
      ctx->set_resize(data, width, height);
}

void gfx_ctx_input_driver(void *data,
      const input_driver_t **input, void **input_data)
{
   const gfx_ctx_driver_t *ctx = gfx_ctx_get_ptr();

   if (ctx)
      ctx->input_driver(data, input, input_data);
}

/**
 * find_gfx_ctx_driver_index:
 * @ident                      : Identifier of resampler driver to find.
 *
 * Finds graphics context driver index by @ident name.
 *
 * Returns: graphics context driver index if driver was found, otherwise
 * -1.
 **/
static int find_gfx_ctx_driver_index(const char *ident)
{
   unsigned i;
   for (i = 0; gfx_ctx_drivers[i]; i++)
      if (strcasecmp(ident, gfx_ctx_drivers[i]->ident) == 0)
         return i;
   return -1;
}

/**
 * find_prev_context_driver:
 *
 * Finds previous driver in graphics context driver array.
 **/
void find_prev_gfx_context_driver(void)
{
   settings_t *settings = config_get_ptr();
   int i = find_gfx_ctx_driver_index(settings->video.context_driver);
   
   if (i > 0)
   {
      strlcpy(settings->video.context_driver, gfx_ctx_drivers[i - 1]->ident,
            sizeof(settings->video.context_driver));
   }
   else
      RARCH_WARN("Couldn't find any previous video context driver.\n");
}

/**
 * find_next_context_driver:
 *
 * Finds next driver in graphics context driver array.
 **/
void find_next_context_driver(void)
{
   settings_t *settings = config_get_ptr();
   int i = find_gfx_ctx_driver_index(settings->video.context_driver);

   if (i >= 0 && gfx_ctx_drivers[i + 1])
   {
      strlcpy(settings->video.context_driver, gfx_ctx_drivers[i + 1]->ident,
            sizeof(settings->video.context_driver));
   }
   else
      RARCH_WARN("Couldn't find any next video context driver.\n");
}

/**
 * gfx_ctx_init:
 * @data                    : Input data.
 * @ctx                     : Graphics context driver to initialize.
 * @ident                   : Identifier of graphics context driver to find.
 * @api                     : API of higher-level graphics API.
 * @major                   : Major version number of higher-level graphics API.
 * @minor                   : Minor version number of higher-level graphics API.
 * @hw_render_ctx           : Request a graphics context driver capable of
 *                            hardware rendering?
 *
 * Initialize graphics context driver.
 *
 * Returns: graphics context driver if successfully initialized, otherwise NULL.
 **/
static const gfx_ctx_driver_t *gfx_ctx_init(void *data,
      const gfx_ctx_driver_t *ctx,
      const char *ident,
      enum gfx_ctx_api api, unsigned major,
      unsigned minor, bool hw_render_ctx)
{
   settings_t *settings = config_get_ptr();

   if (ctx->bind_api(data, api, major, minor))
   {
      bool initialized = ctx->init(data);

      if (!initialized)
         return NULL;

      if (ctx->bind_hw_render)
         ctx->bind_hw_render(data,
               settings->video.shared_context && hw_render_ctx);

      return ctx;
   }

#ifndef _WIN32
   RARCH_WARN("Failed to bind API (#%u, version %u.%u) on context driver \"%s\".\n",
         (unsigned)api, major, minor, ctx->ident);
#endif

   return NULL;
}

/**
 * gfx_ctx_find_driver:
 * @data                    : Input data.
 * @ident                   : Identifier of graphics context driver to find.
 * @api                     : API of higher-level graphics API.
 * @major                   : Major version number of higher-level graphics API.
 * @minor                   : Minor version number of higher-level graphics API.
 * @hw_render_ctx           : Request a graphics context driver capable of
 *                            hardware rendering?
 *
 * Finds graphics context driver and initializes.
 *
 * Returns: graphics context driver if found, otherwise NULL.
 **/
static const gfx_ctx_driver_t *gfx_ctx_find_driver(void *data,
      const char *ident,
      enum gfx_ctx_api api, unsigned major,
      unsigned minor, bool hw_render_ctx)
{
   int i = find_gfx_ctx_driver_index(ident);

   if (i >= 0)
      return gfx_ctx_init(data, gfx_ctx_drivers[i], ident,
            api, major, minor, hw_render_ctx);

   for (i = 0; gfx_ctx_drivers[i]; i++)
   {
      const gfx_ctx_driver_t *ctx = 
         gfx_ctx_init(data, gfx_ctx_drivers[i], ident,
            api, major, minor, hw_render_ctx);

      if (ctx)
         return ctx;
   }

   return NULL;
}

/**
 * gfx_ctx_init_first:
 * @data                    : Input data.
 * @ident                   : Identifier of graphics context driver to find.
 * @api                     : API of higher-level graphics API.
 * @major                   : Major version number of higher-level graphics API.
 * @minor                   : Minor version number of higher-level graphics API.
 * @hw_render_ctx           : Request a graphics context driver capable of
 *                            hardware rendering?
 *
 * Finds first suitable graphics context driver and initializes.
 *
 * Returns: graphics context driver if found, otherwise NULL.
 **/
const gfx_ctx_driver_t *gfx_ctx_init_first(void *data,
      const char *ident, enum gfx_ctx_api api, unsigned major,
      unsigned minor, bool hw_render_ctx)
{
   return gfx_ctx_find_driver(data, ident, api, major, minor, hw_render_ctx);
}
