directvt#393 WIP: Lua scripting

o-sdn-o · Dec 27, 2024 · 62a4c8e · 62a4c8e
1 parent b941bfe
commit 62a4c8e
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 1 deletion.
diff --git a/src/netxs/desktopio/console.hpp b/src/netxs/desktopio/console.hpp
@@ -1516,7 +1516,22 @@ namespace netxs::ui
                         log("  %name%: id=%%", utf::adjust(object_name, 11, ' ', true), object_ptr->id);
                     }
                 }
-                scripting_context["gear"] = gear.This();
+                //scripting_context["gear"] = gear.This();
+                static auto lua = []
+                {
+                    auto lua = std::unique_ptr<lua_State, decltype(&::lua_close)>(::luaL_newstate(), &::lua_close);
+                    ::luaL_openlibs(lua.get());
+                    return lua;
+                }();
+
+                auto error = ::luaL_loadbuffer(lua.get(), script_body.data(), script_body.size(), "event")
+                          || ::lua_pcall(lua.get(), 0, 0, 0);
+                if (error)
+                {
+                    log("%%%msg%", prompt::lua, ansi::err(::lua_tostring(lua.get(), -1)));
+                    ::lua_pop(lua.get(), 1);  // Pop error message from stack.
+                }
+
                 //todo unify
                 //auto cmd_list = utf::split(script_body, '$');
                 //for (auto cmd : cmd_list)

diff --git a/src/netxs/desktopio/directvt.hpp b/src/netxs/desktopio/directvt.hpp
@@ -13,6 +13,7 @@ namespace netxs::prompt
     static constexpr auto   gui = " gui: "sv;
     static constexpr auto   ack = " ack: "sv;
     static constexpr auto   key = " key: "sv;
+    static constexpr auto   lua = " lua: "sv;
     static constexpr auto   tty = " tty: "sv;
     static constexpr auto   vtm = " vtm: "sv;
     static constexpr auto   xml = " xml: "sv;