From 8be4814cca3be42be785da6a366f3da978a4ab72 Mon Sep 17 00:00:00 2001
From: Alexander Lantsev <aunsane@gmail.com>
Date: Mon, 22 Jun 2015 09:01:42 +0000
Subject: MirLua: refactoring

git-svn-id: http://svn.miranda-ng.org/main/trunk@14321 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/MirLua/src/mlua_script_loader.cpp | 61 +++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 plugins/MirLua/src/mlua_script_loader.cpp

(limited to 'plugins/MirLua/src/mlua_script_loader.cpp')

diff --git a/plugins/MirLua/src/mlua_script_loader.cpp b/plugins/MirLua/src/mlua_script_loader.cpp
new file mode 100644
index 0000000000..4ea6c73f80
--- /dev/null
+++ b/plugins/MirLua/src/mlua_script_loader.cpp
@@ -0,0 +1,61 @@
+#include "stdafx.h"
+
+CLuaScriptLoader::CLuaScriptLoader(lua_State *L) : L(L)
+{
+}
+
+void CLuaScriptLoader::RegisterScriptsFolder(const char *path)
+{
+	lua_getglobal(L, "package");
+	lua_getfield(L, -1, "path");
+	const char *oldPath = luaL_checkstring(L, -1);
+	lua_pop(L, 1);
+	lua_pushfstring(L, "%s;%s\\?.lua", oldPath, path);
+	lua_setfield(L, -2, "path");
+	lua_pop(L, 1);
+}
+
+void CLuaScriptLoader::LoadScript(const char *path)
+{
+	if (luaL_dofile(L, path))
+		printf("%s\n", lua_tostring(L, -1));
+}
+
+void CLuaScriptLoader::LoadScripts(const TCHAR *scriptDir)
+{
+	RegisterScriptsFolder(ptrA(mir_utf8encodeT(scriptDir)));
+
+	TCHAR searchMask[MAX_PATH];
+	mir_sntprintf(searchMask, _T("%s\\%s"), scriptDir, _T("*.lua"));
+
+	TCHAR fullPath[MAX_PATH], path[MAX_PATH];
+
+	WIN32_FIND_DATA fd;
+	HANDLE hFind = FindFirstFile(searchMask, &fd);
+	if (hFind != INVALID_HANDLE_VALUE)
+	{
+		do
+		{
+			if (!(fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY))
+			{
+				mir_sntprintf(fullPath, _T("%s\\%s"), scriptDir, fd.cFileName);
+				PathToRelativeT(fullPath, path);
+				if (db_get_b(NULL, MODULE, _T2A(fd.cFileName), 1))
+					LoadScript(T2Utf(path));
+			}
+		} while (FindNextFile(hFind, &fd));
+		FindClose(hFind);
+	}
+}
+
+void CLuaScriptLoader::Load(lua_State *L)
+{
+	TCHAR scriptDir[MAX_PATH];
+	CLuaScriptLoader loader(L);
+
+	FoldersGetCustomPathT(g_hCommonFolderPath, scriptDir, _countof(scriptDir), VARST(COMMON_SCRIPTS_PATHT));
+	loader.LoadScripts(scriptDir);
+
+	FoldersGetCustomPathT(g_hCustomFolderPath, scriptDir, _countof(scriptDir), VARST(CUSTOM_SCRIPTS_PATHT));
+	loader.LoadScripts(scriptDir);
+}
\ No newline at end of file
-- 
cgit v1.2.3