degesch: add a stubbed Lua plugin loader

degesch.c

@@ -79,6 +79,12 @@ enum
 #include <histedit.h>
 #endif // HAVE_EDITLINE
 
+#ifdef HAVE_LUA
+#include <lua.h>
+#include <lualib.h>
+#include <lauxlib.h>
+#endif // HAVE_LUA
+
 /// Some arbitrary limit for the history file
 #define HISTORY_LIMIT 10000
 
@@ -7129,6 +7135,95 @@ server_rename (struct app_context *ctx, struct server *s, const char *new_name)
 	}
 }
 
+// --- Lua ---------------------------------------------------------------------
+
+#ifdef HAVE_LUA
+
+struct lua_plugin
+{
+	struct plugin super;                ///< The structure we're deriving
+	struct app_context *ctx;            ///< Application context
+	lua_State *L;                       ///< Lua state
+};
+
+static void
+lua_plugin_free (struct plugin *self_)
+{
+	struct lua_plugin *self = (struct lua_plugin *) self_;
+	lua_close (self->L);
+}
+
+struct plugin_vtable lua_plugin_vtable =
+{
+	.free = lua_plugin_free,
+};
+
+// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+static void *
+lua_plugin_alloc (void *ud, void *ptr, size_t o_size, size_t n_size)
+{
+	(void) ud;
+	(void) o_size;
+
+	if (n_size)
+		return realloc (ptr, n_size);
+
+	free (ptr);
+	return NULL;
+}
+
+static int
+lua_plugin_panic (lua_State *L)
+{
+	// XXX: we might be able to do something better
+	print_fatal ("Lua panicked: %s", lua_tostring (L, -1));
+	lua_close (L);
+	exit (EXIT_FAILURE);
+	return 0;
+}
+
+static luaL_Reg lua_plugin_library[] =
+{
+	{ NULL,         NULL                  },
+};
+
+static struct plugin *
+lua_plugin_load (struct app_context *ctx, const char *filename,
+	struct error **e)
+{
+	lua_State *L = lua_newstate (lua_plugin_alloc, NULL);
+	if (!L)
+	{
+		error_set (e, "Lua initialization failed");
+		return NULL;
+	}
+
+	lua_atpanic (L, lua_plugin_panic);
+	luaL_openlibs (L);
+
+	luaL_newlib (L, lua_plugin_library);
+	lua_setglobal (L, PROGRAM_NAME);
+
+	int ret;
+	if ((ret = luaL_loadfile (L, filename))
+	 || (ret = lua_pcall (L, 0, 0, 0)))
+	{
+		error_set (e, "%s: %s", "Lua", lua_tostring (L, -1));
+		lua_close (L);
+		return NULL;
+	}
+
+	struct lua_plugin *plugin = xcalloc (1, sizeof *plugin);
+	plugin->super.name = NULL;
+	plugin->super.vtable = &lua_plugin_vtable;
+	plugin->ctx = ctx;
+	plugin->L = L;
+	return &plugin->super;
+}
+
+#endif // HAVE_LUA
+
 // --- Plugins -----------------------------------------------------------------
 
 typedef struct plugin *(*plugin_load_fn)
@@ -7138,6 +7233,9 @@ typedef struct plugin *(*plugin_load_fn)
 // however this possibility is just a byproduct of abstraction
 static plugin_load_fn g_plugin_loaders[] =
 {
+#ifdef HAVE_LUA
+	lua_plugin_load,
+#endif // HAVE_LUA
 };
 
 static struct plugin *