#include "StdAfx.h"
#include "frontends/libretro/game.h"
#include "frontends/libretro/retroregistry.h"
#include "frontends/libretro/retroframe.h"

#include "Common.h"
#include "CardManager.h"
#include "Core.h"
#include "Mockingboard.h"
#include "Speaker.h"
#include "Log.h"
#include "CPU.h"
#include "NTSC.h"
#include "Utilities.h"
#include "Interface.h"

#include "linux/keyboard.h"
#include "linux/registry.h"
#include "linux/paddle.h"
#include "linux/context.h"
#include "frontends/common2/utils.h"

#include "libretro.h"

namespace
{

  bool insertDisk(const std::string & filename)
  {
    if (filename.empty())
    {
      return false;
    }

    CardManager & cardManager = GetCardMgr();

    Disk2InterfaceCard * disk2Card = dynamic_cast<Disk2InterfaceCard*>(cardManager.GetObj(SLOT6));
    if (disk2Card)
    {
      const ImageError_e error = disk2Card->InsertDisk(DRIVE_1, filename.c_str(), IMAGE_FORCE_WRITE_PROTECTED, IMAGE_DONT_CREATE);

      if (error == eIMAGE_ERROR_NONE)
      {
        return true;
      }
    }

    if (cardManager.QuerySlot(SLOT7) != CT_GenericHDD)
    {
      cardManager.Insert(SLOT7, CT_GenericHDD);
    }

    HarddiskInterfaceCard * harddiskCard = dynamic_cast<HarddiskInterfaceCard*>(cardManager.GetObj(SLOT7));
    if (harddiskCard)
    {
      BOOL bRes = harddiskCard->Insert(HARDDISK_1, filename);
      return bRes == TRUE;
    }

    return false;
  }

}

namespace ra2
{

  unsigned Game::ourInputDevices[MAX_PADS] = {RETRO_DEVICE_NONE};

  Game::Game()
    : mySpeed(true)  // fixed speed
    , myButtonStates(RETRO_DEVICE_ID_JOYPAD_R3 + 1)
  {
    myLoggerContext.reset(new LoggerContext(true));
    myRegistryContext.reset(new RegistryContext(CreateRetroRegistry()));
    myFrame.reset(new ra2::RetroFrame());

    SetFrame(myFrame);
    myFrame->Initialize();

    Video & video = GetVideo();
    // should the user be allowed to tweak 0.75
    myMouse[0] = {0.0, 0.75 / video.GetFrameBufferBorderlessWidth(), RETRO_DEVICE_ID_MOUSE_X};
    myMouse[1] = {0.0, 0.75 / video.GetFrameBufferBorderlessHeight(), RETRO_DEVICE_ID_MOUSE_Y};
  }

  Game::~Game()
  {
    myFrame->Destroy();
    myFrame.reset();
    SetFrame(myFrame);
  }

  retro_usec_t Game::ourFrameTime = 0;

  void Game::executeOneFrame()
  {
    if (g_nAppMode == MODE_RUNNING)
    {
      const bool bVideoUpdate = true;
      const UINT dwClksPerFrame = NTSC_GetCyclesPerFrame();

      const uint64_t cyclesToExecute = mySpeed.getCyclesTillNext(ourFrameTime);
      const DWORD executedCycles = CpuExecute(cyclesToExecute, bVideoUpdate);

      g_dwCyclesThisFrame = (g_dwCyclesThisFrame + executedCycles) % dwClksPerFrame;
      GetCardMgr().Update(executedCycles);
      SpkrUpdate(executedCycles);
    }
  }

  void Game::processInputEvents()
  {
    input_poll_cb();
    keyboardEmulation();
    mouseEmulation();
  }

  void Game::keyboardCallback(bool down, unsigned keycode, uint32_t character, uint16_t key_modifiers)
  {
    if (down)
    {
      processKeyDown(keycode, character, key_modifiers);
    }
    else
    {
      processKeyUp(keycode, character, key_modifiers);
    }
  }

  void Game::frameTimeCallback(retro_usec_t usec)
  {
    ourFrameTime = usec;
  }

  void Game::processKeyDown(unsigned keycode, uint32_t character, uint16_t key_modifiers)
  {
    BYTE ch = 0;
    switch (keycode)
    {
    case RETROK_RETURN:
      {
        ch = 0x0d;
        break;
      }
    case RETROK_BACKSPACE: // same as AppleWin
    case RETROK_LEFT:
      {
        ch = 0x08;
        break;
      }
    case RETROK_RIGHT:
      {
        ch = 0x15;
        break;
      }
    case RETROK_UP:
      {
        ch = 0x0b;
        break;
      }
    case RETROK_DOWN:
      {
        ch = 0x0a;
        break;
      }
    case RETROK_DELETE:
      {
        ch = 0x7f;
        break;
      }
    case RETROK_ESCAPE:
      {
        ch = 0x1b;
        break;
      }
    case RETROK_TAB:
      {
        ch = 0x09;
        break;
      }
    case RETROK_LALT:
      {
        Paddle::setButtonPressed(Paddle::ourOpenApple);
        break;
      }
    case RETROK_RALT:
      {
        Paddle::setButtonPressed(Paddle::ourSolidApple);
        break;
      }
    case RETROK_a ... RETROK_z:
      {
        ch = (keycode - RETROK_a) + 0x01;
        if (key_modifiers & RETROKMOD_CTRL)
        {
          // ok
        }
        else if (key_modifiers & RETROKMOD_SHIFT)
        {
          ch += 0x60;
        }
        else
        {
          ch += 0x40;
        }
        break;
      }
    }

    if (!ch)
    {
      switch (character) {
      case 0x20 ... 0x40:
      case 0x5b ... 0x60:
      case 0x7b ... 0x7e:
        {
          // not the letters
          // this is very simple, but one cannot handle CRTL-key combination.
          ch = character;
          break;
        }
      }
    }

    if (ch)
    {
      addKeyToBuffer(ch);
      log_cb(RETRO_LOG_INFO, "RA2: %s - %02x\n", __FUNCTION__, ch);
    }
  }

  void Game::processKeyUp(unsigned keycode, uint32_t character, uint16_t key_modifiers)
  {
    switch (keycode)
    {
    case RETROK_LALT:
      {
        Paddle::setButtonReleased(Paddle::ourOpenApple);
        break;
      }
    case RETROK_RALT:
      {
        Paddle::setButtonReleased(Paddle::ourSolidApple);
        break;
      }
    }
  }

  bool Game::checkButtonPressed(unsigned id)
  {
    // pressed if it is down now, but was up before
    const int value = input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, id);
    const bool pressed = (value != 0) && myButtonStates[id] == 0;

    // update to avoid multiple fires
    myButtonStates[id] = value;

    return pressed;
  }


  void Game::keyboardEmulation()
  {
    if (ourInputDevices[0] != RETRO_DEVICE_NONE)
    {
      if (checkButtonPressed(RETRO_DEVICE_ID_JOYPAD_R))
      {
        myFrame->CycleVideoType();
      }
      if (checkButtonPressed(RETRO_DEVICE_ID_JOYPAD_L))
      {
        myFrame->Cycle50ScanLines();
      }
      if (checkButtonPressed(RETRO_DEVICE_ID_JOYPAD_START))
      {
        ResetMachineState();
      }
    }
    else
    {
      std::fill(myButtonStates.begin(), myButtonStates.end(), 0);
    }
  }

  void Game::mouseEmulation()
  {
    for (auto & mouse : myMouse)
    {
      const int16_t x = input_state_cb(0, RETRO_DEVICE_MOUSE, 0, mouse.id);
      mouse.position += x * mouse.multiplier;
      mouse.position = std::min(1.0, std::max(mouse.position, -1.0));
    }
  }

  double Game::getMousePosition(int i) const
  {
    return myMouse[i].position;
  }

  bool Game::loadGame(const std::string & path)
  {
    const bool ok = insertDisk(path);
    return ok;
  }

  bool Game::loadSnapshot(const std::string & path)
  {
    common2::setSnapshotFilename(path, true);
    return true;
  }

}