#include "video.h"
#include <SDL.h>
#include <string>
#include <sstream>
#include <map>


std::map<SDL_DisplayOrientation, std::string> video::orientations;
std::map<SDL_PixelFormatEnum, std::string> video::formats;


Napi::Value
video::getDisplays(const Napi::CallbackInfo &info)
{
	Napi::Env env = info.Env();

	int num_displays = SDL_GetNumVideoDisplays();
	if (num_displays < 0) {
		std::ostringstream message;
		message << "SDL_GetNumVideoDisplays() error: " << SDL_GetError();
		SDL_ClearError();
		throw Napi::Error::New(env, message.str());
	}

	Napi::Array displays = Napi::Array::New(env, num_displays);

	for (int i = 0; i < num_displays; i++) {
		const char *_name = SDL_GetDisplayName(i);
		Napi::Value name = _name != nullptr
			? Napi::String::New(env, _name)
			: env.Null();

		SDL_DisplayMode mode;
		if (SDL_GetCurrentDisplayMode(i, &mode) < 0) {
			std::ostringstream message;
			message << "SDL_GetCurrentDisplayMode(" << i << ") error: " << SDL_GetError();
			SDL_ClearError();
			throw Napi::Error::New(env, message.str());
		}

		SDL_Rect rect;
		if(SDL_GetDisplayBounds(i, &rect) < 0) {
			std::ostringstream message;
			message << "SDL_GetDisplayBounds(" << i << ") error: " << SDL_GetError();
			SDL_ClearError();
			throw Napi::Error::New(env, message.str());
		}

		Napi::Object geometry = Napi::Object::New(env);
		geometry.Set("x", rect.x);
		geometry.Set("y", rect.y);
		geometry.Set("width", rect.w);
		geometry.Set("height", rect.h);

		if(SDL_GetDisplayUsableBounds(i, &rect) < 0) {
			std::ostringstream message;
			message << "SDL_GetDisplayUsableBounds(" << i << ") error: " << SDL_GetError();
			SDL_ClearError();
			throw Napi::Error::New(env, message.str());
		}

		Napi::Object usable = Napi::Object::New(env);
		usable.Set("x", rect.x);
		usable.Set("y", rect.y);
		usable.Set("width", rect.w);
		usable.Set("height", rect.h);

		Napi::Value dpi;
		float ddpi, hdpi, vdpi;
		if (SDL_GetDisplayDPI(i, &ddpi, &hdpi, &vdpi) < 0) {
			dpi = env.Null();
		}
		else {
			Napi::Object dpi_obj = Napi::Object::New(env);
			dpi_obj.Set("diagonal", ddpi);
			dpi_obj.Set("horizontal", hdpi);
			dpi_obj.Set("vertical", vdpi);
			dpi = dpi_obj;
		}

		SDL_DisplayOrientation _orientation = SDL_GetDisplayOrientation(i);
		Napi::Value orientation = _orientation != SDL_ORIENTATION_UNKNOWN
			? Napi::String::New(env, video::orientations[_orientation])
			: env.Null();

		Napi::Object display = Napi::Object::New(env);
		display.Set("_index", i);
		display.Set("name", name);
		display.Set("format", video::formats[(SDL_PixelFormatEnum) mode.format]);
		display.Set("frequency", mode.refresh_rate);
		display.Set("geometry", geometry);
		display.Set("usable", usable);
		display.Set("dpi", dpi);
		display.Set("orientation", orientation);

		displays.Set(i, display);
	}

	return displays;
}