CLuaInstance: Move types, definitions & functions from

luainstance.cpp/.h to luainstance_helpers.cpp/.h

 - No api changes, code only

src/gui/lua/luainstance_helpers.cpp

@@ -0,0 +1,147 @@
+/*
+ * lua instance helper functions
+ *
+ * (C) 2013 Stefan Seyfried (seife)
+ * (C) 2014-2015 M. Liebmann (micha-bbg)
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <config.h>
+#include <cstdio>
+#include <cstdlib>
+#include <cstring>
+#include <unistd.h>
+
+#include <global.h>
+#include <system/debug.h>
+#include <neutrino.h>
+
+#include "luainstance.h"
+
+/* Ported by Benny Chen, http://www.bennychen.cn/tag/lual_checkbool/ */
+bool _luaL_checkbool(lua_State *L, int numArg)
+{
+	bool b = false;
+	if (lua_isboolean(L, numArg))
+		b = lua_toboolean(L, numArg);
+	else {
+		lua_Debug ar;
+		lua_getstack(L, 0, &ar);
+		lua_getinfo(L, "n", &ar);
+		luaL_error(L, "bad argument #%d to '%s' (%s expected, got %s)\n",
+				numArg-1, ar.name,
+				lua_typename(L, LUA_TBOOLEAN),
+				lua_typename(L, lua_type(L, numArg)));
+	}
+	return b;
+}
+
+void paramBoolDeprecated(lua_State *L, const char* val)
+{
+	lua_Debug ar;
+	lua_getstack(L, 1, &ar);
+	lua_getinfo(L, "Sl", &ar);
+	printf("[Lua Script] \33[1;31m%s\33[0m %s (\33[31m\"%s\"\33[0m)\n                      %s \33[32mtrue\33[0m.\n                      (%s:%d)\n",
+					g_Locale->getText(LOCALE_LUA_BOOLPARAM_DEPRECATED1),
+					g_Locale->getText(LOCALE_LUA_BOOLPARAM_DEPRECATED2), val,
+					g_Locale->getText(LOCALE_LUA_BOOLPARAM_DEPRECATED3),
+					ar.short_src, ar.currentline);
+}
+
+void paramDeprecated(lua_State *L, const char* oldParam, const char* newParam)
+{
+	lua_Debug ar;
+	lua_getstack(L, 1, &ar);
+	lua_getinfo(L, "Sl", &ar);
+	printf("[Lua Script] \33[1;31m%s\33[0m %s \33[33m%s\33[0m %s \33[1;33m%s\33[0m.\n                      (%s:%d)\n",
+					g_Locale->getText(LOCALE_LUA_FUNCTION_DEPRECATED1),
+					g_Locale->getText(LOCALE_LUA_PARAMETER_DEPRECATED2), oldParam,
+					g_Locale->getText(LOCALE_LUA_FUNCTION_DEPRECATED3), newParam,
+					ar.short_src, ar.currentline);
+}
+
+void functionDeprecated(lua_State *L, const char* oldFunc, const char* newFunc)
+{
+	lua_Debug ar;
+	lua_getstack(L, 1, &ar);
+	lua_getinfo(L, "Sl", &ar);
+	printf("[Lua Script] \33[1;31m%s\33[0m %s \33[33m%s\33[0m %s \33[1;33m%s\33[0m.\n                      (%s:%d)\n",
+					g_Locale->getText(LOCALE_LUA_FUNCTION_DEPRECATED1),
+					g_Locale->getText(LOCALE_LUA_FUNCTION_DEPRECATED2), oldFunc,
+					g_Locale->getText(LOCALE_LUA_FUNCTION_DEPRECATED3), newFunc,
+					ar.short_src, ar.currentline);
+}
+
+lua_Unsigned checkMagicMask(lua_Unsigned &col)
+{
+	if ((col & MAGIC_MASK) == MAGIC_COLOR)
+		col = CFrameBuffer::getInstance()->realcolor[col & 0x000000ff];
+	return col;
+}
+
+bool tableLookup(lua_State *L, const char *what, std::string &value)
+{
+	lua_pushstring(L, what);
+	lua_gettable(L, -2);
+	bool res = lua_isstring(L, -1);
+	if (res)
+		value = lua_tostring(L, -1);
+	lua_pop(L, 1);
+	return res;
+}
+
+bool tableLookup(lua_State *L, const char *what, lua_Integer &value)
+{
+	lua_pushstring(L, what);
+	lua_gettable(L, -2);
+	bool res = lua_isnumber(L, -1);
+	if (res)
+		value = (lua_Integer) lua_tonumber(L, -1);
+	lua_pop(L, 1);
+	return res;
+}
+
+bool tableLookup(lua_State *L, const char *what, lua_Unsigned &value)
+{
+	lua_pushstring(L, what);
+	lua_gettable(L, -2);
+	bool res = lua_isnumber(L, -1);
+	if (res)
+		value = (lua_Unsigned) lua_tonumber(L, -1);
+	lua_pop(L, 1);
+	return res;
+}
+
+bool tableLookup(lua_State *L, const char *what, void** value)
+{
+	lua_pushstring(L, what);
+	lua_gettable(L, -2);
+	bool res = lua_isuserdata(L, -1);
+	if (res)
+		*value = lua_unboxpointer(L, -1);
+	lua_pop(L, 1);
+	return res;
+}
+
+bool tableLookup(lua_State *L, const char *what, bool &value)
+{
+	lua_pushstring(L, what);
+	lua_gettable(L, -2);
+	bool res = lua_isboolean(L, -1);
+	if (res)
+		value = lua_toboolean(L, -1);
+	lua_pop(L, 1);
+	return res;
+}