add logging functions to the library 'debug'

res/modules/internal/stdcomp.lua

@@ -93,8 +93,7 @@ return {
                 if callback then
                     local result, err = pcall(callback)
                     if err then
-                        --// TODO: replace with error logging
+                        debug.error(err)
-                        print(err)
                     end
                 end
             end
@@ -107,8 +106,7 @@ return {
                 if callback then
                     local result, err = pcall(callback)
                     if err then
-                        --// TODO: replace with error logging
+                        debug.error(err)
-                        print(err)
                     end
                 end
             end

src/logic/scripting/lua/api_lua.hpp

@@ -45,4 +45,6 @@ extern const luaL_Reg transformlib [];
 // Lua Overrides
 extern int l_print(lua::State* L);
 
+void initialize_libs_extends(lua::State* L);
+
 #endif // LOGIC_SCRIPTING_API_LUA_HPP_

src/logic/scripting/lua/lua_engine.cpp

@@ -97,6 +97,8 @@ void lua::initialize() {
     createtable(L, 0, 0);
     setglobal(L, CHUNKS_TABLE);
 
+    initialize_libs_extends(L);
+
     newusertype<Bytearray, Bytearray::createMetatable>(L, "bytearray");
 }
 

src/logic/scripting/lua/lua_extensions.cpp

@@ -0,0 +1,39 @@
+#include "api_lua.hpp"
+
+#include "../../../debug/Logger.hpp"
+
+static debug::Logger logger("lua-debug");
+
+static int l_debug_error(lua::State* L) {
+    auto text = lua::require_string(L, 1);
+    logger.error() << text;
+    return 0;
+}
+
+static int l_debug_warning(lua::State* L) {
+    auto text = lua::require_string(L, 1);
+    logger.warning() << text;
+    return 0;
+}
+
+static int l_debug_log(lua::State* L) {
+    auto text = lua::require_string(L, 1);
+    logger.info() << text;
+    return 0;
+}
+
+void initialize_libs_extends(lua::State* L) {
+    if (lua::getglobal(L, "debug")) {
+
+        lua::pushcfunction(L, lua::wrap<l_debug_error>);
+        lua::setfield(L, "error");
+
+        lua::pushcfunction(L, lua::wrap<l_debug_warning>);
+        lua::setfield(L, "warning");
+
+        lua::pushcfunction(L, lua::wrap<l_debug_log>);
+        lua::setfield(L, "log");
+
+        lua::pop(L);
+    }
+}