/*
 * This source file is part of RmlUi, the HTML/CSS Interface Middleware
 *
 * For the latest information, see http://github.com/mikke89/RmlUi
 *
 * Copyright (c) 2008-2010 CodePoint Ltd, Shift Technology Ltd
 * Copyright (c) 2019-2023 The RmlUi Team, and contributors
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 * THE SOFTWARE.
 *
 */

#include "RmlUi.h"
#include "ElementInstancer.h"
#include "LuaElementInstancer.h"
#include "RmlUiContextsProxy.h"
#include <RmlUi/Core/Core.h>
#include <RmlUi/Core/Factory.h>
#include <RmlUi/Core/Input.h>

namespace Rml {
namespace Lua {
#define RMLUILUA_INPUTENUM(keyident, tbl)     \
	lua_pushinteger(L, Input::KI_##keyident); \
	lua_setfield(L, (tbl), #keyident);
#define RMLUILUA_INPUTMODIFIERENUM(keymod, tbl) \
	lua_pushinteger(L, Input::KM_##keymod);     \
	lua_setfield(L, (tbl), #keymod);

// c++ representation of the global variable in Lua so that the syntax is consistent
LuaRmlUi lua_global_rmlui;

void LuaRmlUiPushrmluiGlobal(lua_State* L)
{
	luaL_getmetatable(L, GetTClassName<LuaRmlUi>());
	LuaRmlUiEnumkey_identifier(L);
	lua_global_rmlui.key_identifier_ref = luaL_ref(L, -2);
	LuaRmlUiEnumkey_modifier(L);
	lua_global_rmlui.key_modifier_ref = luaL_ref(L, -2);
	LuaType<LuaRmlUi>::push(L, &lua_global_rmlui, false);
	lua_setglobal(L, "rmlui");
}

template <>
void ExtraInit<LuaRmlUi>(lua_State* /*L*/, int /*metatable_index*/)
{
	return;
}

int LuaRmlUiCreateContext(lua_State* L, LuaRmlUi* /*obj*/)
{
	const char* name = luaL_checkstring(L, 1);
	Vector2i* dimensions = LuaType<Vector2i>::check(L, 2);
	Context* new_context = CreateContext(name, *dimensions);
	if (new_context == nullptr || dimensions == nullptr)
	{
		lua_pushnil(L);
	}
	else
	{
		LuaType<Context>::push(L, new_context);
	}
	return 1;
}

int LuaRmlUiLoadFontFace(lua_State* L, LuaRmlUi* /*obj*/)
{
	const char* file = luaL_checkstring(L, 1);
	int face_index = lua_gettop(L) == 1 ? 0 : static_cast<int>(luaL_checkinteger(L, 2));
	lua_pushboolean(L, LoadFontFace(file, face_index));
	return 1;
}

int LuaRmlUiRegisterTag(lua_State* L, LuaRmlUi* /*obj*/)
{
	const char* tag = luaL_checkstring(L, 1);
	LuaElementInstancer* lei = (LuaElementInstancer*)LuaType<ElementInstancer>::check(L, 2);
	RMLUI_CHECK_OBJ(lei);
	Factory::RegisterElementInstancer(tag, lei);
	return 0;
}

int LuaRmlUiGetAttrcontexts(lua_State* L)
{
	RmlUiContextsProxy* proxy = new RmlUiContextsProxy();
	LuaType<RmlUiContextsProxy>::push(L, proxy, true);
	return 1;
}

int LuaRmlUiGetAttrkey_identifier(lua_State* L)
{
	luaL_getmetatable(L, GetTClassName<LuaRmlUi>());
	lua_rawgeti(L, -1, lua_global_rmlui.key_identifier_ref);
	return 1;
}

int LuaRmlUiGetAttrkey_modifier(lua_State* L)
{
	luaL_getmetatable(L, GetTClassName<LuaRmlUi>());
	lua_rawgeti(L, -1, lua_global_rmlui.key_modifier_ref);
	return 1;
}

void LuaRmlUiEnumkey_identifier(lua_State* L)
{
	lua_newtable(L);
	int tbl = lua_gettop(L);
	RMLUILUA_INPUTENUM(UNKNOWN, tbl)
	RMLUILUA_INPUTENUM(SPACE, tbl)
	RMLUILUA_INPUTENUM(0, tbl)
	RMLUILUA_INPUTENUM(1, tbl)
	RMLUILUA_INPUTENUM(2, tbl)
	RMLUILUA_INPUTENUM(3, tbl)
	RMLUILUA_INPUTENUM(4, tbl)
	RMLUILUA_INPUTENUM(5, tbl)
	RMLUILUA_INPUTENUM(6, tbl)
	RMLUILUA_INPUTENUM(7, tbl)
	RMLUILUA_INPUTENUM(8, tbl)
	RMLUILUA_INPUTENUM(9, tbl)
	RMLUILUA_INPUTENUM(A, tbl)
	RMLUILUA_INPUTENUM(B, tbl)
	RMLUILUA_INPUTENUM(C, tbl)
	RMLUILUA_INPUTENUM(D, tbl)
	RMLUILUA_INPUTENUM(E, tbl)
	RMLUILUA_INPUTENUM(F, tbl)
	RMLUILUA_INPUTENUM(G, tbl)
	RMLUILUA_INPUTENUM(H, tbl)
	RMLUILUA_INPUTENUM(I, tbl)
	RMLUILUA_INPUTENUM(J, tbl)
	RMLUILUA_INPUTENUM(K, tbl)
	RMLUILUA_INPUTENUM(L, tbl)
	RMLUILUA_INPUTENUM(M, tbl)
	RMLUILUA_INPUTENUM(N, tbl)
	RMLUILUA_INPUTENUM(O, tbl)
	RMLUILUA_INPUTENUM(P, tbl)
	RMLUILUA_INPUTENUM(Q, tbl)
	RMLUILUA_INPUTENUM(R, tbl)
	RMLUILUA_INPUTENUM(S, tbl)
	RMLUILUA_INPUTENUM(T, tbl)
	RMLUILUA_INPUTENUM(U, tbl)
	RMLUILUA_INPUTENUM(V, tbl)
	RMLUILUA_INPUTENUM(W, tbl)
	RMLUILUA_INPUTENUM(X, tbl)
	RMLUILUA_INPUTENUM(Y, tbl)
	RMLUILUA_INPUTENUM(Z, tbl)
	RMLUILUA_INPUTENUM(OEM_1, tbl)
	RMLUILUA_INPUTENUM(OEM_PLUS, tbl)
	RMLUILUA_INPUTENUM(OEM_COMMA, tbl)
	RMLUILUA_INPUTENUM(OEM_MINUS, tbl)
	RMLUILUA_INPUTENUM(OEM_PERIOD, tbl)
	RMLUILUA_INPUTENUM(OEM_2, tbl)
	RMLUILUA_INPUTENUM(OEM_3, tbl)
	RMLUILUA_INPUTENUM(OEM_4, tbl)
	RMLUILUA_INPUTENUM(OEM_5, tbl)
	RMLUILUA_INPUTENUM(OEM_6, tbl)
	RMLUILUA_INPUTENUM(OEM_7, tbl)
	RMLUILUA_INPUTENUM(OEM_8, tbl)
	RMLUILUA_INPUTENUM(OEM_102, tbl)
	RMLUILUA_INPUTENUM(NUMPAD0, tbl)
	RMLUILUA_INPUTENUM(NUMPAD1, tbl)
	RMLUILUA_INPUTENUM(NUMPAD2, tbl)
	RMLUILUA_INPUTENUM(NUMPAD3, tbl)
	RMLUILUA_INPUTENUM(NUMPAD4, tbl)
	RMLUILUA_INPUTENUM(NUMPAD5, tbl)
	RMLUILUA_INPUTENUM(NUMPAD6, tbl)
	RMLUILUA_INPUTENUM(NUMPAD7, tbl)
	RMLUILUA_INPUTENUM(NUMPAD8, tbl)
	RMLUILUA_INPUTENUM(NUMPAD9, tbl)
	RMLUILUA_INPUTENUM(NUMPADENTER, tbl)
	RMLUILUA_INPUTENUM(MULTIPLY, tbl)
	RMLUILUA_INPUTENUM(ADD, tbl)
	RMLUILUA_INPUTENUM(SEPARATOR, tbl)
	RMLUILUA_INPUTENUM(SUBTRACT, tbl)
	RMLUILUA_INPUTENUM(DECIMAL, tbl)
	RMLUILUA_INPUTENUM(DIVIDE, tbl)
	RMLUILUA_INPUTENUM(OEM_NEC_EQUAL, tbl)
	RMLUILUA_INPUTENUM(BACK, tbl)
	RMLUILUA_INPUTENUM(TAB, tbl)
	RMLUILUA_INPUTENUM(CLEAR, tbl)
	RMLUILUA_INPUTENUM(RETURN, tbl)
	RMLUILUA_INPUTENUM(PAUSE, tbl)
	RMLUILUA_INPUTENUM(CAPITAL, tbl)
	RMLUILUA_INPUTENUM(KANA, tbl)
	RMLUILUA_INPUTENUM(HANGUL, tbl)
	RMLUILUA_INPUTENUM(JUNJA, tbl)
	RMLUILUA_INPUTENUM(FINAL, tbl)
	RMLUILUA_INPUTENUM(HANJA, tbl)
	RMLUILUA_INPUTENUM(KANJI, tbl)
	RMLUILUA_INPUTENUM(ESCAPE, tbl)
	RMLUILUA_INPUTENUM(CONVERT, tbl)
	RMLUILUA_INPUTENUM(NONCONVERT, tbl)
	RMLUILUA_INPUTENUM(ACCEPT, tbl)
	RMLUILUA_INPUTENUM(MODECHANGE, tbl)
	RMLUILUA_INPUTENUM(PRIOR, tbl)
	RMLUILUA_INPUTENUM(NEXT, tbl)
	RMLUILUA_INPUTENUM(END, tbl)
	RMLUILUA_INPUTENUM(HOME, tbl)
	RMLUILUA_INPUTENUM(LEFT, tbl)
	RMLUILUA_INPUTENUM(UP, tbl)
	RMLUILUA_INPUTENUM(RIGHT, tbl)
	RMLUILUA_INPUTENUM(DOWN, tbl)
	RMLUILUA_INPUTENUM(SELECT, tbl)
	RMLUILUA_INPUTENUM(PRINT, tbl)
	RMLUILUA_INPUTENUM(EXECUTE, tbl)
	RMLUILUA_INPUTENUM(SNAPSHOT, tbl)
	RMLUILUA_INPUTENUM(INSERT, tbl)
	RMLUILUA_INPUTENUM(DELETE, tbl)
	RMLUILUA_INPUTENUM(HELP, tbl)
	RMLUILUA_INPUTENUM(LWIN, tbl)
	RMLUILUA_INPUTENUM(RWIN, tbl)
	RMLUILUA_INPUTENUM(APPS, tbl)
	RMLUILUA_INPUTENUM(POWER, tbl)
	RMLUILUA_INPUTENUM(SLEEP, tbl)
	RMLUILUA_INPUTENUM(WAKE, tbl)
	RMLUILUA_INPUTENUM(F1, tbl)
	RMLUILUA_INPUTENUM(F2, tbl)
	RMLUILUA_INPUTENUM(F3, tbl)
	RMLUILUA_INPUTENUM(F4, tbl)
	RMLUILUA_INPUTENUM(F5, tbl)
	RMLUILUA_INPUTENUM(F6, tbl)
	RMLUILUA_INPUTENUM(F7, tbl)
	RMLUILUA_INPUTENUM(F8, tbl)
	RMLUILUA_INPUTENUM(F9, tbl)
	RMLUILUA_INPUTENUM(F10, tbl)
	RMLUILUA_INPUTENUM(F11, tbl)
	RMLUILUA_INPUTENUM(F12, tbl)
	RMLUILUA_INPUTENUM(F13, tbl)
	RMLUILUA_INPUTENUM(F14, tbl)
	RMLUILUA_INPUTENUM(F15, tbl)
	RMLUILUA_INPUTENUM(F16, tbl)
	RMLUILUA_INPUTENUM(F17, tbl)
	RMLUILUA_INPUTENUM(F18, tbl)
	RMLUILUA_INPUTENUM(F19, tbl)
	RMLUILUA_INPUTENUM(F20, tbl)
	RMLUILUA_INPUTENUM(F21, tbl)
	RMLUILUA_INPUTENUM(F22, tbl)
	RMLUILUA_INPUTENUM(F23, tbl)
	RMLUILUA_INPUTENUM(F24, tbl)
	RMLUILUA_INPUTENUM(NUMLOCK, tbl)
	RMLUILUA_INPUTENUM(SCROLL, tbl)
	RMLUILUA_INPUTENUM(OEM_FJ_JISHO, tbl)
	RMLUILUA_INPUTENUM(OEM_FJ_MASSHOU, tbl)
	RMLUILUA_INPUTENUM(OEM_FJ_TOUROKU, tbl)
	RMLUILUA_INPUTENUM(OEM_FJ_LOYA, tbl)
	RMLUILUA_INPUTENUM(OEM_FJ_ROYA, tbl)
	RMLUILUA_INPUTENUM(LSHIFT, tbl)
	RMLUILUA_INPUTENUM(RSHIFT, tbl)
	RMLUILUA_INPUTENUM(LCONTROL, tbl)
	RMLUILUA_INPUTENUM(RCONTROL, tbl)
	RMLUILUA_INPUTENUM(LMENU, tbl)
	RMLUILUA_INPUTENUM(RMENU, tbl)
	RMLUILUA_INPUTENUM(BROWSER_BACK, tbl)
	RMLUILUA_INPUTENUM(BROWSER_FORWARD, tbl)
	RMLUILUA_INPUTENUM(BROWSER_REFRESH, tbl)
	RMLUILUA_INPUTENUM(BROWSER_STOP, tbl)
	RMLUILUA_INPUTENUM(BROWSER_SEARCH, tbl)
	RMLUILUA_INPUTENUM(BROWSER_FAVORITES, tbl)
	RMLUILUA_INPUTENUM(BROWSER_HOME, tbl)
	RMLUILUA_INPUTENUM(VOLUME_MUTE, tbl)
	RMLUILUA_INPUTENUM(VOLUME_DOWN, tbl)
	RMLUILUA_INPUTENUM(VOLUME_UP, tbl)
	RMLUILUA_INPUTENUM(MEDIA_NEXT_TRACK, tbl)
	RMLUILUA_INPUTENUM(MEDIA_PREV_TRACK, tbl)
	RMLUILUA_INPUTENUM(MEDIA_STOP, tbl)
	RMLUILUA_INPUTENUM(MEDIA_PLAY_PAUSE, tbl)
	RMLUILUA_INPUTENUM(LAUNCH_MAIL, tbl)
	RMLUILUA_INPUTENUM(LAUNCH_MEDIA_SELECT, tbl)
	RMLUILUA_INPUTENUM(LAUNCH_APP1, tbl)
	RMLUILUA_INPUTENUM(LAUNCH_APP2, tbl)
	RMLUILUA_INPUTENUM(OEM_AX, tbl)
	RMLUILUA_INPUTENUM(ICO_HELP, tbl)
	RMLUILUA_INPUTENUM(ICO_00, tbl)
	RMLUILUA_INPUTENUM(PROCESSKEY, tbl)
	RMLUILUA_INPUTENUM(ICO_CLEAR, tbl)
	RMLUILUA_INPUTENUM(ATTN, tbl)
	RMLUILUA_INPUTENUM(CRSEL, tbl)
	RMLUILUA_INPUTENUM(EXSEL, tbl)
	RMLUILUA_INPUTENUM(EREOF, tbl)
	RMLUILUA_INPUTENUM(PLAY, tbl)
	RMLUILUA_INPUTENUM(ZOOM, tbl)
	RMLUILUA_INPUTENUM(PA1, tbl)
	RMLUILUA_INPUTENUM(OEM_CLEAR, tbl)
}

void LuaRmlUiEnumkey_modifier(lua_State* L)
{
	lua_newtable(L);
	int tbl = lua_gettop(L);
	RMLUILUA_INPUTMODIFIERENUM(CTRL, tbl)
	RMLUILUA_INPUTMODIFIERENUM(SHIFT, tbl)
	RMLUILUA_INPUTMODIFIERENUM(ALT, tbl)
	RMLUILUA_INPUTMODIFIERENUM(META, tbl)
	RMLUILUA_INPUTMODIFIERENUM(CAPSLOCK, tbl)
	RMLUILUA_INPUTMODIFIERENUM(NUMLOCK, tbl)
	RMLUILUA_INPUTMODIFIERENUM(SCROLLLOCK, tbl)
}

RegType<LuaRmlUi> LuaRmlUiMethods[] = {
	RMLUI_LUAMETHOD(LuaRmlUi, CreateContext),
	RMLUI_LUAMETHOD(LuaRmlUi, LoadFontFace),
	RMLUI_LUAMETHOD(LuaRmlUi, RegisterTag),
	{nullptr, nullptr},
};

luaL_Reg LuaRmlUiGetters[] = {
	RMLUI_LUAGETTER(LuaRmlUi, contexts),
	RMLUI_LUAGETTER(LuaRmlUi, key_identifier),
	RMLUI_LUAGETTER(LuaRmlUi, key_modifier),
	{nullptr, nullptr},
};

luaL_Reg LuaRmlUiSetters[] = {
	{nullptr, nullptr},
};

RMLUI_LUATYPE_DEFINE(LuaRmlUi)
} // namespace Lua
} // namespace Rml