diff options
| author | Alexander Lantsev <aunsane@gmail.com> | 2015-06-22 09:01:42 +0000 |
|---|---|---|
| committer | Alexander Lantsev <aunsane@gmail.com> | 2015-06-22 09:01:42 +0000 |
| commit | 8be4814cca3be42be785da6a366f3da978a4ab72 (patch) | |
| tree | 2f21fb9ec763c8e7ca6eb16e09aaf7191868a0b1 /plugins/MirLua/src/mlua_script_loader.cpp | |
| parent | 655ac8423ddf001b8d3021e41e7297d7e3e20510 (diff) | |
MirLua: refactoring
git-svn-id: http://svn.miranda-ng.org/main/trunk@14321 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/MirLua/src/mlua_script_loader.cpp')
| -rw-r--r-- | plugins/MirLua/src/mlua_script_loader.cpp | 61 |
1 files changed, 61 insertions, 0 deletions
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 |