lua!

src/lua_rds.c

@@ -0,0 +1,50 @@
+#include "lua_rds.h"
+
+static RDSModulator* mod = NULL;
+static lua_State *L = NULL;
+
+int lua_set_rds_pi(lua_State *localL) {
+    int pi_value = luaL_checkinteger(localL, 1);
+	mod->enc->data[mod->enc->program].pi = pi_value;
+    return 0;
+}
+
+void init_lua(RDSModulator* rds_mod) {
+    mod = rds_mod;
+    L = luaL_newstate();
+    luaL_openlibs(L);
+    lua_register(L, "set_rds_pi", lua_set_rds_pi);
+}
+
+void run_lua(char *str, char *cmd_output) {
+    lua_pushstring(L, str);
+    lua_setglobal(L, "cmd");
+
+    int top = lua_gettop(L);
+
+    char path[128];
+	snprintf(path, sizeof(path), "%s/.command95.lua", getenv("HOME"));
+    if (luaL_dofile(L, path) != LUA_OK) {
+        const char *err = lua_tostring(L, -1);
+        fprintf(stderr, "Lua error: %s\n", err);
+        lua_pop(L, 1);
+        lua_settop(L, top);
+        return;
+    }
+
+    lua_getglobal(L, "cmd_output");
+
+    if (lua_isstring(L, -1)) {
+        const char * message = lua_tostring(L, -1);
+        lua_pop(L, 1);
+        if(cmd_output) strcpy(cmd_output, message);
+    }
+}
+
+void destroy_lua(void) {
+    if (L) {
+        lua_close(L);
+        L = NULL;
+    }
+    mod = NULL;
+}