From 4659cfc9c660e7c06af27ef44ee43e6f620fbd23 Mon Sep 17 00:00:00 2001
From: MikalaiR <nikolay.romanovich@narod.ru>
Date: Mon, 13 Jun 2016 10:55:03 +0000
Subject: MirLua: added Modules iterator

git-svn-id: http://svn.miranda-ng.org/main/trunk@16961 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/MirLua/src/m_database.cpp | 46 +++++++++++++++++++++++++++++++++++++--
 1 file changed, 44 insertions(+), 2 deletions(-)

(limited to 'plugins/MirLua/src')

diff --git a/plugins/MirLua/src/m_database.cpp b/plugins/MirLua/src/m_database.cpp
index 4c7ed97a1e..b9dc4cb148 100644
--- a/plugins/MirLua/src/m_database.cpp
+++ b/plugins/MirLua/src/m_database.cpp
@@ -259,9 +259,7 @@ void MakeDbEvent(lua_State *L, DBEVENTINFO &dbei)
 	lua_pop(L, 1);
 
 	lua_getfield(L, -1, "Blob");
-
 	dbei.pBlob = ((BLOB*)lua_touserdata(L, -1))->pBlobData;
-
 	lua_pop(L, 1);
 }
 
@@ -395,6 +393,49 @@ static int db_Settings(lua_State *L)
 	return 1;
 }
 
+static int ModulesEnumProc(const char *szModuleName, DWORD, LPARAM lParam)
+{
+	if (szModuleName)
+	{
+		LIST<char>* p = (LIST<char>*)lParam;
+		p->insert(mir_strdup(szModuleName));
+	}
+	return 0;
+}
+
+static int db_ModulesIterator(lua_State *L)
+{
+	int i = lua_tointeger(L, lua_upvalueindex(1));
+	LIST<char> &param = *(LIST<char>*)lua_touserdata(L, lua_upvalueindex(2));
+
+	if (i < param.getCount())
+	{
+		lua_pushinteger(L, (i + 1));
+		lua_replace(L, lua_upvalueindex(1));
+		lua_pushstring(L, ptrA(mir_utf8encode(param[i])));
+		mir_free(param[i]);
+	}
+	else
+	{
+		lua_pushnil(L);
+		delete &param;
+	}
+	return 1;
+}
+
+static int db_Modules(lua_State *L)
+{	
+	LIST<char> *param = new LIST<char>(5, PtrKeySortT);
+
+	CallService(MS_DB_MODULES_ENUM, (WPARAM)param, (LPARAM)ModulesEnumProc);
+
+	lua_pushinteger(L, 0);
+	lua_pushlightuserdata(L, param);
+	lua_pushcclosure(L, db_ModulesIterator, 2);
+
+	return 1;
+}
+
 static int db_WriteSetting(lua_State *L)
 {
 	MCONTACT hContact = lua_tointeger(L, 1);
@@ -517,6 +558,7 @@ static luaL_Reg databaseApi[] =
 
 	{ "DeleteSetting", db_DeleteSetting },
 	{ "DeleteModule", db_DeleteModule },
+	{ "Modules", db_Modules },
 
 	{ "DBVT_BYTE", NULL },
 	{ "DBVT_WORD", NULL },
-- 
cgit v1.2.3