initial

src/tsliblua.cpp

@@ -0,0 +1,25 @@
+
+// Call a Lua function from TS, return true if success - result will be on Lua stack
+bool bll_LuaCall(const char* fname, int argc, const char* argv[]) {
+	lua_getglobal(gL, fname);
+	for(int i=0; i<argc; i++) {
+		lua_pushstring(gL, argv[i]);
+	}
+	if(bll_pcall(gL, argc, 1)) {
+		bll_printError(gL, "call", fname);
+		return false;
+	}
+	return true;
+}
+
+// TS lib function: luacall
+const char* bll_ts_luacall(ADDR obj, int argc, const char* argv[]) {
+	if(argc<2) return "";
+	
+	if(!bll_LuaCall(argv[1], argc-2, &argv[2])) { return ""; }
+	
+	char* retbuf = BlReturnBuffer(BLL_ARG_MAX);
+	bll_toarg(gL, retbuf, -1, false); // provide returned value to ts
+	lua_pop(gL, 1); // pop returned value
+	return retbuf;
+}