lua suppliers update + label supplier XML attribute

src/logic/scripting/lua/LuaState.cpp

@@ -247,6 +247,14 @@ const char* lua::LuaState::tostring(int idx) {
     return lua_tostring(L, idx);
 }
 
+bool lua::LuaState::isstring(int idx) {
+    return lua_isstring(L, idx);
+}
+
+bool lua::LuaState::isfunction(int idx) {
+    return lua_isfunction(L, idx);
+}
+
 void lua::LuaState::openlib(const std::string& name, const luaL_Reg* libfuncs, int nup) {
     lua_newtable(L);
     luaL_setfuncs(L, libfuncs, nup);

src/logic/scripting/lua/LuaState.h

@@ -45,6 +45,8 @@ namespace lua {
         luaint tointeger(int idx);
         luanumber tonumber(int idx);
         const char* tostring(int idx);
+        bool isstring(int idx);
+        bool isfunction(int idx);
         int call(int argc);
         int callNoThrow(int argc);
         int execute(int env, const std::string& src, const std::string& file="<string>");