/*  RetroArch - A frontend for libretro.
 *  Copyright (C) 2010-2014 - Hans-Kristian Arntzen
 *  Copyright (C) 2011-2017 - Daniel De Matteis
 *  Copyright (C) 2016-2017 - Andrés Suárez
 *
 *  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 <stdio.h>
#include <stdlib.h>
#include <string.h>

#ifdef _WIN32
#include <direct.h>
#else
#include <unistd.h>
#endif

#include <compat/strl.h>
#include <compat/posix_string.h>
#include <retro_miscellaneous.h>
#include <libretro.h>

#ifdef HAVE_MENU
#include "../menu/menu_driver.h"
#endif

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

#include "input_mapper.h"

#include "../configuration.h"
#include "../msg_hash.h"
#include "../verbosity.h"

#define MAPPER_GET_KEY(state, key) (((state)->keys[(key) / 32] >> ((key) % 32)) & 1)
#define MAPPER_SET_KEY(state, key) (state)->keys[(key) / 32] |= 1 << ((key) % 32)
#define MAPPER_UNSET_KEY(state, key) (state)->keys[(key) / 32] |= 0 << ((key) % 32)

struct input_mapper
{
   /* The controller port that will be polled*/
   uint8_t port;
   /* Left X, Left Y, Right X, Right Y */
   int16_t analog[4];
   /* the whole keyboard state */
   uint32_t keys[RETROK_LAST / 32 + 1];
   /* This is a bitmask of (1 << key_bind_id). */
   uint64_t buttons;
};

input_mapper_t *input_mapper_new(uint16_t port)
{
   input_mapper_t* handle = (input_mapper_t*)
      calloc(1, sizeof(*handle));

   if (!handle)
      return NULL;

   handle->port = port;

   return handle;
}

void input_mapper_free(input_mapper_t *handle)
{
   if (!handle)
      return;
   free (handle);
}

void input_mapper_poll(input_mapper_t *handle)
{
   int i, j;
   settings_t *settings = config_get_ptr();
   unsigned device      = settings->uints.input_libretro_device[handle->port];
   bool key_event[RARCH_CUSTOM_BIND_LIST_END];
#ifdef HAVE_MENU
   bool menu_is_alive   = menu_driver_is_alive();
#endif

   device              &= RETRO_DEVICE_MASK;

   /* for now we only handle keyboard inputs */
   if (device != RETRO_DEVICE_KEYBOARD)
      return;
#ifdef HAVE_MENU
   if (menu_is_alive)
      return;
#endif

   memset(handle->keys, 0, sizeof(handle->keys));
   i = 0;
   for (i = 0; i < 8; i++)
   {
      for (j = 0; j < RARCH_CUSTOM_BIND_LIST_END; j++)
      {
         if (j < RETROK_LAST)
         {
            if (input_state(i, RETRO_DEVICE_JOYPAD, 0, j) && settings->uints.input_keymapper_multi_ids[i][j] != RETROK_UNKNOWN)
            {
               MAPPER_SET_KEY (handle,
                  settings->uints.input_keymapper_multi_ids[i][j]);
               input_keyboard_event(true,
                     settings->uints.input_keymapper_multi_ids[i][j],
                     0, 0, RETRO_DEVICE_KEYBOARD);
               key_event[j] = true;
            }
            else
            {
               if (key_event[j] == false && 
                  settings->uints.input_keymapper_multi_ids[i][j] != RETROK_UNKNOWN)
               {
                  input_keyboard_event(false,
                        settings->uints.input_keymapper_multi_ids[i][j],
                        0, 0, RETRO_DEVICE_KEYBOARD);
               }
            }
         }
      }
   }
}

void input_mapper_state(
      input_mapper_t *handle,
      int16_t *ret,
      unsigned port,
      unsigned device,
      unsigned idx,
      unsigned id)
{
   if (!handle)
      return;

   switch (device)
   {
      case RETRO_DEVICE_KEYBOARD:
         if (id < RETROK_LAST)
         {
            /*
               RARCH_LOG("State: UDLR %u %u %u %u\n",
               MAPPER_GET_KEY(handle, RETROK_UP),
               MAPPER_GET_KEY(handle, RETROK_DOWN),
               MAPPER_GET_KEY(handle, RETROK_LEFT),
               MAPPER_GET_KEY(handle, RETROK_RIGHT)
               );*/

            if (MAPPER_GET_KEY(handle, id))
               *ret |= 1;
         }
         break;
      default:
         break;
   }
}