#include "stdafx.h"

#define SCRIPT "Script"

CMLuaScript::CMLuaScript(lua_State *L, const TCHAR *path)
	: L(L), status(None), unloadRef(0)
{
	mir_tstrcpy(filePath, path);

	fileName = _tcsrchr(filePath, '\\') + 1;
	TCHAR *dot = _tcsrchr(fileName, '.');

	size_t length = mir_tstrlen(fileName) - mir_tstrlen(dot) + 1;

	ptrT name((TCHAR*)mir_calloc(sizeof(TCHAR) * (length + 1)));
	mir_tstrncpy(name, fileName, length);

	moduleName = mir_utf8encodeT(name);

	MUUID muidLast = MIID_LAST;
	id = GetPluginLangId(muidLast, 0);
}

CMLuaScript::~CMLuaScript()
{
	mir_free(moduleName);
}

bool CMLuaScript::GetScriptEnviroment(lua_State *L)
{
	lua_Debug ar;
	if (lua_getstack(L, 1, &ar) == 0 || lua_getinfo(L, "f", &ar) == 0 || lua_iscfunction(L, -1))
	{
		lua_pop(L, 1);
		return false;
	}

	const char *env = lua_getupvalue(L, -1, 1);
	if (!env || mir_strcmp(env, "_ENV") != 0)
	{
		lua_pop(L, 1);
		return false;
	}

	return true;
}

CMLuaScript* CMLuaScript::GetScriptFromEnviroment(lua_State *L)
{
	if (!GetScriptEnviroment(L))
		return NULL;

	lua_getfield(L, -1, SCRIPT);
	CMLuaScript *script = (CMLuaScript*)lua_touserdata(L, -1);
	lua_pop(L, 3);

	return script;
}

int CMLuaScript::GetScriptIdFromEnviroment(lua_State *L)
{
	CMLuaScript *script = GetScriptFromEnviroment(L);
	if (script != NULL)
		return script->id;

	return hMLuaLangpack;
}

const char* CMLuaScript::GetModuleName() const
{
	return moduleName;
}

const TCHAR* CMLuaScript::GetFilePath() const
{
	return filePath;
}

const TCHAR* CMLuaScript::GetFileName() const
{
	return fileName;
}

const CMLuaScript::Status CMLuaScript::GetStatus() const
{
	return status;
}

bool CMLuaScript::Load()
{
	status = Failed;

	if (luaL_loadfile(L, T2Utf(filePath)))
	{
		Log(lua_tostring(L, -1));
		return false;
	}

	lua_createtable(L, 0, 2);
	lua_pushvalue(L, -1);
	lua_setfield(L, -2, "_G");
	lua_pushlightuserdata(L, this);
	lua_setfield(L, -2, "Script");
	lua_createtable(L, 0, 2);
	lua_getglobal(L, "_G");
	lua_setfield(L, -2, "__index");
	lua_setmetatable(L, -2);
	lua_setupvalue(L, -2, 1);

	if (luaM_pcall(L, 0, 1))
		return false;

	status = Loaded;

	if (lua_isnoneornil(L, -1))
		return true;

	luaL_getsubtable(L, LUA_REGISTRYINDEX, "_LOADED");
	lua_getfield(L, -1, moduleName);
	if (!lua_toboolean(L, -1))
	{
		lua_pop(L, 1);
		lua_pushvalue(L, -2);
		lua_setfield(L, -2, moduleName);
		lua_pop(L, 1);
	}
	else
		lua_remove(L, -2);

	if (!lua_istable(L, -1))
		return true;

	lua_getfield(L, -1, "Load");
	if (lua_isfunction(L, -1))
		luaM_pcall(L);
	else
		lua_pop(L, 1);

	lua_getfield(L, -1, "Unload");
	if (lua_isfunction(L, -1))
	{
		lua_pushvalue(L, -1);
		unloadRef = luaL_ref(L, LUA_REGISTRYINDEX);
	}
	lua_pop(L, 1);

	lua_pop(L, 1);

	return true;
}

void CMLuaScript::Unload()
{
	if (status == Loaded)
	{
		lua_rawgeti(L, LUA_REGISTRYINDEX, unloadRef);
		if (lua_isfunction(L, -1))
			luaM_pcall(L);
		lua_pushnil(L);
		lua_rawsetp(L, LUA_REGISTRYINDEX, this);
		status = None;
	}

	luaL_getsubtable(L, LUA_REGISTRYINDEX, "_LOADED");
	lua_pushnil(L);
	lua_setfield(L, -2, moduleName);
	lua_pop(L, 1);

	KillModuleIcons(id);
	KillModuleSounds(id);
	KillModuleMenus(id);
	KillModuleHotkeys(id);

	KillObjectEventHooks(this);
	KillObjectServices(this);
}