package/uci/patches/120-uci_trigger.patch

   1 --- /dev/null
   2 +++ b/trigger/Makefile
   3 @@ -0,0 +1,44 @@
   4 +include ../Makefile.inc
   5 +LUA_VERSION=5.1
   6 +PREFIX_SEARCH=/usr /usr/local /opt/local
   7 +LUA_PLUGINDIR=$(firstword \
   8 +       $(foreach ldir,$(subst ;, ,$(shell lua -e 'print(package.cpath)')), \
   9 +               $(if $(findstring lib/lua/,$(ldir)),$(patsubst %/?.so,%,$(ldir))) \
  10 +       ) \
  11 +)
  12 +
  13 +# find lua prefix
  14 +LUA_PREFIX=$(firstword \
  15 +       $(foreach prefix,$(PREFIX_SEARCH),\
  16 +               $(if $(wildcard $(prefix)/include/lua.h),$(prefix)) \
  17 +       ) \
  18 +)
  19 +
  20 +libdir=$(prefix)/libs
  21 +luadir=$(if $(LUA_PLUGINDIR),$(LUA_PLUGINDIR),$(libdir)/lua/$(LUA_VERSION))
  22 +luainc=$(shell pkg-config --silence-errors --cflags lua$(LUA_VERSION))
  23 +
  24 +CPPFLAGS=-I.. $(if $(luainc),$(luainc), -I$(LUA_PREFIX)/include)
  25 +LIBS=-L.. -luci $(shell pkg-config --silence-errors --libs lua$(LUA_VERSION))
  26 +
  27 +PLUGIN_LD=$(CC)
  28 +ifeq ($(OS),Darwin)
  29 +  PLUGIN_LDFLAGS=-bundle
  30 +else
  31 +  PLUGIN_LDFLAGS=-shared -Wl,-soname,$(SHLIB_FILE)
  32 +endif
  33 +
  34 +all: uci_trigger.so
  35 +
  36 +uci_trigger.so: uci_trigger.o
  37 +       $(PLUGIN_LD) $(PLUGIN_LDFLAGS) -o $@ $^ $(LIBS)
  38 +
  39 +%.o: %.c
  40 +       $(CC) $(CPPFLAGS) $(CFLAGS) $(FPIC) -c -o $@ $<
  41 +
  42 +install:
  43 +       mkdir -p $(DESTDIR)$(luadir)
  44 +       $(INSTALL) -m0644 uci_trigger.so $(DESTDIR)$(luadir)/
  45 +
  46 +clean:
  47 +       rm -f *.so *.o uci_trigger.so
  48 --- /dev/null
  49 +++ b/trigger/uci_trigger.c
  50 @@ -0,0 +1,132 @@
  51 +#include <sys/types.h>
  52 +#include <sys/time.h>
  53 +#include <stdbool.h>
  54 +#include <string.h>
  55 +#include <stdio.h>
  56 +#include <lualib.h>
  57 +#include <lauxlib.h>
  58 +#include "uci.h"
  59 +
  60 +// #define DEBUG
  61 +
  62 +static int refcount = 0;
  63 +static lua_State *gL = NULL;
  64 +static bool prepared = false;
  65 +
  66 +struct trigger_set_op {
  67 +       struct uci_package *p;
  68 +       struct uci_history *h;
  69 +};
  70 +
  71 +static int trigger_set(lua_State *L)
  72 +{
  73 +       struct trigger_set_op *so =
  74 +               (struct trigger_set_op *)lua_touserdata(L, 1);
  75 +       struct uci_package *p = so->p;
  76 +       struct uci_history *h = so->h;
  77 +       struct uci_context *ctx = p->ctx;
  78 +
  79 +       /* ignore non-standard savedirs/configdirs
  80 +        * in order to not trigger events on uci state changes */
  81 +       if (strcmp(ctx->savedir, UCI_SAVEDIR) ||
  82 +               strcmp(ctx->confdir, UCI_CONFDIR))
  83 +               return 0;
  84 +
  85 +       if (!prepared) {
  86 +               lua_getglobal(L, "require");
  87 +               lua_pushstring(L, "uci.trigger");
  88 +               lua_call(L, 1, 0);
  89 +
  90 +               lua_getglobal(L, "uci");
  91 +               lua_getfield(L, -1, "trigger");
  92 +               lua_getfield(L, -1, "load_modules");
  93 +               lua_call(L, 0, 0);
  94 +               prepared = true;
  95 +       } else {
  96 +               lua_getglobal(L, "uci");
  97 +               lua_getfield(L, -1, "trigger");
  98 +       }
  99 +
 100 +       lua_getfield(L, -1, "set");
 101 +       lua_createtable(L, 4, 0);
 102 +
 103 +       lua_pushstring(L, p->e.name);
 104 +       lua_rawseti(L, -2, 1);
 105 +       if (h->section) {
 106 +               lua_pushstring(L, h->section);
 107 +               lua_rawseti(L, -2, 2);
 108 +       }
 109 +       if (h->e.name) {
 110 +               lua_pushstring(L, h->e.name);
 111 +               lua_rawseti(L, -2, 3);
 112 +       }
 113 +       if (h->value) {
 114 +               lua_pushstring(L, h->value);
 115 +               lua_rawseti(L, -2, 4);
 116 +       }
 117 +       lua_call(L, 1, 0);
 118 +       lua_pop(L, 2);
 119 +       return 0;
 120 +}
 121 +
 122 +#ifdef DEBUG
 123 +
 124 +static int report (lua_State *L, int status) {
 125 +       if (status && !lua_isnil(L, -1)) {
 126 +               const char *msg = lua_tostring(L, -1);
 127 +               if (msg == NULL) msg = "(error object is not a string)";
 128 +               fprintf(stderr, "ERROR: %s\n", msg);
 129 +               lua_pop(L, 1);
 130 +       }
 131 +       return status;
 132 +}
 133 +
 134 +#else
 135 +
 136 +static inline int report(lua_State *L, int status) {
 137 +       return status;
 138 +}
 139 +
 140 +#endif
 141 +
 142 +static void trigger_set_hook(const struct uci_hook_ops *ops, struct uci_package *p, struct uci_history *h)
 143 +{
 144 +       struct trigger_set_op so;
 145 +
 146 +       so.p = p;
 147 +       so.h = h;
 148 +       report(gL, lua_cpcall(gL, &trigger_set, &so));
 149 +}
 150 +
 151 +static struct uci_hook_ops hook = {
 152 +       .set = trigger_set_hook,
 153 +};
 154 +
 155 +static int trigger_attach(struct uci_context *ctx)
 156 +{
 157 +       if (!gL) {
 158 +               gL = luaL_newstate();
 159 +               if (!gL)
 160 +                       return -1;
 161 +               luaL_openlibs(gL);
 162 +
 163 +               refcount++;
 164 +       }
 165 +       uci_add_hook(ctx, &hook);
 166 +       return 0;
 167 +}
 168 +
 169 +static void trigger_detach(struct uci_context *ctx)
 170 +{
 171 +       if (gL && (--refcount <= 0)) {
 172 +               lua_close(gL);
 173 +               gL = NULL;
 174 +               refcount = 0;
 175 +               prepared = false;
 176 +       }
 177 +}
 178 +
 179 +struct uci_plugin_ops uci_plugin = {
 180 +       .attach = trigger_attach,
 181 +       .detach = trigger_detach,
 182 +};