From 1c96560f8bc136fa2930dd67f538f65c02a1c350 Mon Sep 17 00:00:00 2001
From: Alexander Lantsev <aunsane@gmail.com>
Date: Sat, 4 Jun 2016 18:01:23 +0000
Subject: MirLua: - fixed DBEVENTINFO metatable - BLOB metatable temporary
 moved to utils - fixed tonumber function

git-svn-id: http://svn.miranda-ng.org/main/trunk@16913 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/MirLua/src/mlua_utils.cpp | 94 ++++++++++++++++++++++++++++++++++-----
 1 file changed, 84 insertions(+), 10 deletions(-)

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

diff --git a/plugins/MirLua/src/mlua_utils.cpp b/plugins/MirLua/src/mlua_utils.cpp
index 94e5e41434..e4ea3efd11 100644
--- a/plugins/MirLua/src/mlua_utils.cpp
+++ b/plugins/MirLua/src/mlua_utils.cpp
@@ -35,6 +35,19 @@ void ShowNotification(const char *caption, const char *message, int flags, MCONT
 	MessageBoxA(NULL, message, caption, MB_OK | flags);
 }
 
+void ObsoleteMethod(lua_State *L, const char *message)
+{
+	lua_Debug ar;
+	if (lua_getstack(L, 0, &ar) == 0 || lua_getinfo(L, "n", &ar) == 0)
+		return;
+
+	char text[512];
+	mir_snprintf(text, "%s is obsolete. %s", ar.name, message);
+	Log(text);
+	if (db_get_b(NULL, MODULE, "PopupOnObsolete", 0))
+		ShowNotification(MODULE, text, MB_OK | MB_ICONWARNING, NULL);
+}
+
 void ReportError(const char *message)
 {
 	Log(message);
@@ -158,7 +171,7 @@ int luaM_tonumber(lua_State *L)
 	{
 		lua_getglobal(L, "_tonumber");
 		lua_pushvalue(L, 1);
-		lua_pushnumber(L, 2);
+		lua_pushvalue(L, 2);
 		luaM_pcall(L, 2, 1);
 	}
 
@@ -234,15 +247,76 @@ bool luaM_toboolean(lua_State *L, int idx)
 	return lua_toboolean(L, idx) > 0;
 }
 
-void ObsoleteMethod(lua_State *L, const char *message)
+/***********************************************/
+
+static int blob_create(lua_State *L)
 {
-	lua_Debug ar;
-	if (lua_getstack(L, 0, &ar) == 0 || lua_getinfo(L, "n", &ar) == 0)
-		return;
+	BYTE *data = (BYTE*)lua_touserdata(L, 1);
+	size_t size = luaL_checkinteger(L, 2);
 
-	char text[512];
-	mir_snprintf(text, "%s is obsolete. %s", ar.name, message);
-	Log(text);
-	if (db_get_b(NULL, MODULE, "PopupOnObsolete", 0))
-		ShowNotification(MODULE, text, MB_OK | MB_ICONWARNING, NULL);
+	BLOB *blob = (BLOB*)lua_newuserdata(L, sizeof(BLOB));
+	blob->cbSize = size;
+	blob->pBlobData = (BYTE*)mir_calloc(size);
+	memcpy(blob->pBlobData, data, size);
+	luaL_setmetatable(L, MT_BLOB);
+
+	return 1;
+}
+
+static int blob__index(lua_State *L)
+{
+	BLOB *blob = (BLOB*)luaL_checkudata(L, 1, MT_BLOB);
+	int i = luaL_checkinteger(L, 2);
+
+	lua_pushinteger(L, (uint8_t)blob->pBlobData[i - 1]);
+
+	return 1;
+}
+
+static int blob__newindex(lua_State *L)
+{
+	BLOB *blob = (BLOB*)luaL_checkudata(L, 1, MT_BLOB);
+	int i = luaL_checkinteger(L, 2);
+
+	blob->pBlobData[i - 1] = (BYTE)luaL_checkinteger(L, 3);
+
+	return 0;
+}
+
+static int blob__len(lua_State *L)
+{
+	BLOB *blob = (BLOB*)luaL_checkudata(L, 1, MT_BLOB);
+
+	lua_pushinteger(L, blob->cbSize);
+
+	return 1;
+}
+
+static int blob__gc(lua_State *L)
+{
+	BLOB *blob = (BLOB*)luaL_checkudata(L, 1, MT_BLOB);
+
+	mir_free(blob->pBlobData);
+
+	return 0;
+}
+
+static const struct luaL_Reg blobApi[] =
+{
+	{ "__index", blob__index },
+	{ "__newindex", blob__newindex },
+	{ "__len", blob__len },
+	{ "__gc", blob__gc },
+
+	(NULL, NULL)
+};
+
+int luaopen_m_utils(lua_State *L)
+{
+	lua_register(L, MT_BLOB, blob_create);
+	luaL_newmetatable(L, MT_BLOB);
+	luaL_setfuncs(L, blobApi, 0);
+	lua_pop(L, 1);
+
+	return 0;
 }
\ No newline at end of file
-- 
cgit v1.2.3