v1.4.4

attic/old_tests/lua_test.cpp

@@ -0,0 +1,54 @@
+#include <fstream>
+
+#include "StarVariant.hpp"
+#include "StarLua.hpp"
+#include "StarFormat.hpp"
+
+using namespace Star;
+using namespace std;
+
+int main(int argc, char** argv) {
+  try {
+    LuaEnginePtr luaRoot = LuaEngine::create();
+    luaRoot->loadScript("hello", 
+        R"SCRIPT(
+          function doit()
+            self.called = self.called + 1
+            print("Hello, I am " .. callbacks.name() .. " from " .. self.location .. ", I have " .. self.called .. " matchstick.")
+          end
+        )SCRIPT");
+
+    luaRoot->loadScript("respond", 
+        R"SCRIPT(
+          function doit()
+            self.called = self.called + 1
+            print("Hello " .. callbacks.name() .. " I am from " .. self.location .. ", I have " .. self.called .. " matchstick.")
+          end
+        )SCRIPT");
+
+    LuaCallbacks callbacks;
+
+    auto helloContext = luaRoot->scriptContext("hello");
+    helloContext->addPersistentTable("self", {{"location", "Sweden"}, {"called", 0}});
+
+    auto respondContext = luaRoot->scriptContext("respond");
+    respondContext->addPersistentTable("self", {{"location", "Norway"}, {"called", 0}});
+
+    callbacks.registerFunction("name", [](VariantList const& args) -> Variant { return "Hanz"; });
+    helloContext->setCallbacks("callbacks", callbacks);
+    respondContext->setCallbacks("callbacks", callbacks);
+
+    helloContext->invoke("doit");
+    respondContext->invoke("doit");
+
+    callbacks.registerFunction("name", [](VariantList const& args) -> Variant { return "Franz"; });
+    helloContext->setCallbacks("callbacks", callbacks);
+    respondContext->setCallbacks("callbacks", callbacks);
+
+    helloContext->invoke("doit");
+    respondContext->invoke("doit");
+
+  } catch (std::exception const& e) {
+    coutf("Exception caught: %s\n", e.what());
+  }
+}