#include <gb/gb.hpp>

namespace GameBoy {

Interface* interface = nullptr;
Settings settings;

Interface::Interface() {
  interface = this;
  hook = nullptr;

  information.manufacturer = "Nintendo";
  information.name         = "Game Boy";
  information.width        = 160;
  information.height       = 144;
  information.overscan     = false;
  information.aspectRatio  = 1.0;
  information.resettable   = false;

  information.capability.states = true;
  information.capability.cheats = true;

  media.append({ID::GameBoy,      "Game Boy",       "gb" });
  media.append({ID::GameBoyColor, "Game Boy Color", "gbc"});

  Port hardwarePort{ID::Port::Hardware, "Hardware"};

  { Device device{ID::Device::Controls, "Controls"};
    device.inputs.append({0, "Up"    });
    device.inputs.append({0, "Down"  });
    device.inputs.append({0, "Left"  });
    device.inputs.append({0, "Right" });
    device.inputs.append({0, "B"     });
    device.inputs.append({0, "A"     });
    device.inputs.append({0, "Select"});
    device.inputs.append({0, "Start" });
    hardwarePort.devices.append(device);
  }

  ports.append(move(hardwarePort));
}

auto Interface::manifest() -> string {
  return cartridge.manifest();
}

auto Interface::title() -> string {
  return cartridge.title();
}

auto Interface::videoFrequency() -> double {
  return 4194304.0 / (154.0 * 456.0);
}

auto Interface::videoColors() -> uint32 {
  return !system.cgb() ? 1 << 2 : 1 << 15;
}

auto Interface::videoColor(uint32 color) -> uint64 {
  if(!system.cgb()) {
    if(!settings.colorEmulation) {
      uint64 L = image::normalize(3 - color, 2, 16);
      return L << 32 | L << 16 | L << 0;
    } else {
      #define DMG_PALETTE_GREEN
    //#define DMG_PALETTE_YELLOW
    //#define DMG_PALETTE_WHITE

      const uint16 monochrome[4][3] = {
        #if defined(DMG_PALETTE_GREEN)
        {0xaeae, 0xd9d9, 0x2727},
        {0x5858, 0xa0a0, 0x2828},
        {0x2020, 0x6262, 0x2929},
        {0x1a1a, 0x4545, 0x2a2a},
        #elif defined(DMG_PALETTE_YELLOW)
        {0xffff, 0xf7f7, 0x7b7b},
        {0xb5b5, 0xaeae, 0x4a4a},
        {0x6b6b, 0x6969, 0x3131},
        {0x2121, 0x2020, 0x1010},
        #elif defined(DMG_PALETTE_WHITE)
        {0xffff, 0xffff, 0xffff},
        {0xaaaa, 0xaaaa, 0xaaaa},
        {0x5555, 0x5555, 0x5555},
        {0x0000, 0x0000, 0x0000},
        #endif
      };

      uint64 R = monochrome[color][0];
      uint64 G = monochrome[color][1];
      uint64 B = monochrome[color][2];

      return R << 32 | G << 16 | B << 0;
    }
  } else {
    uint r = color.bits( 0, 4);
    uint g = color.bits( 5, 9);
    uint b = color.bits(10,14);

    uint64_t R = image::normalize(r, 5, 16);
    uint64_t G = image::normalize(g, 5, 16);
    uint64_t B = image::normalize(b, 5, 16);

    if(settings.colorEmulation) {
      R = (r * 26 + g *  4 + b *  2);
      G = (         g * 24 + b *  8);
      B = (r *  6 + g *  4 + b * 22);
      R = image::normalize(min(960, R), 10, 16);
      G = image::normalize(min(960, G), 10, 16);
      B = image::normalize(min(960, B), 10, 16);
    }

    return R << 32 | G << 16 | B << 0;
  }
}

auto Interface::audioFrequency() -> double {
  return 4194304.0 / 2.0;
}

auto Interface::loaded() -> bool {
  return system.loaded();
}

auto Interface::sha256() -> string {
  return cartridge.sha256();
}

auto Interface::load(uint id) -> bool {
  if(id == ID::GameBoy) return system.load(System::Revision::GameBoy);
  if(id == ID::SuperGameBoy) return system.load(System::Revision::SuperGameBoy);
  if(id == ID::GameBoyColor) return system.load(System::Revision::GameBoyColor);
  return false;
}

auto Interface::save() -> void {
  system.save();
}

auto Interface::unload() -> void {
  save();
  system.unload();
}

auto Interface::power() -> void {
  system.power();
}

auto Interface::reset() -> void {
  system.power();
}

auto Interface::run() -> void {
  system.run();
}

auto Interface::serialize() -> serializer {
  system.runToSave();
  return system.serialize();
}

auto Interface::unserialize(serializer& s) -> bool {
  return system.unserialize(s);
}

auto Interface::cheatSet(const lstring& list) -> void {
  cheat.reset();
  for(auto& codeset : list) {
    lstring codes = codeset.split("+");
    for(auto& code : codes) {
      lstring part = code.split("/");
      if(part.size() == 2) cheat.append(part[0].hex(), part[1].hex());
      if(part.size() == 3) cheat.append(part[0].hex(), part[1].hex(), part[2].hex());
    }
  }
}

auto Interface::lcdScanline() -> void {
  if(hook) hook->lcdScanline();
}

auto Interface::lcdOutput(uint2 color) -> void {
  if(hook) hook->lcdOutput(color);
}

auto Interface::joypWrite(bool p15, bool p14) -> void {
  if(hook) hook->joypWrite(p15, p14);
}

auto Interface::cap(const string& name) -> bool {
  if(name == "Blur Emulation") return true;
  if(name == "Color Emulation") return true;
  return false;
}

auto Interface::get(const string& name) -> any {
  if(name == "Blur Emulation") return settings.blurEmulation;
  if(name == "Color Emulation") return settings.colorEmulation;
  return {};
}

auto Interface::set(const string& name, const any& value) -> bool {
  if(name == "Blur Emulation" && value.is<bool>()) {
    settings.blurEmulation = value.get<bool>();
    system.configureVideoEffects();
    return true;
  }

  if(name == "Color Emulation" && value.is<bool>()) {
    settings.colorEmulation = value.get<bool>();
    system.configureVideoPalette();
    return true;
  }

  return false;
}

}