2 * libuci plugin for Lua
3 * Copyright (C) 2008 Felix Fietkau <nbd@openwrt.org>
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License version 2
7 * as published by the Free Software Foundation
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
15 #include <sys/types.h>
30 #define DPRINTF(...) fprintf(stderr, __VA_ARGS__)
32 #define DPRINTF(...) do {} while (0)
35 static struct uci_context *ctx = NULL;
37 static struct uci_package *
38 find_package(const char *name)
40 struct uci_package *p = NULL;
41 struct uci_element *e;
42 uci_foreach_element(&ctx->root, e) {
43 if (strcmp(e->name, name) != 0)
46 p = uci_to_package(e);
52 static void uci_lua_perror(lua_State *L, char *name)
54 lua_getfield(L, LUA_GLOBALSINDEX, "uci");
55 lua_getfield(L, -1, "warn");
56 if (!lua_isboolean(L, -1))
58 if (lua_toboolean(L, -1) != 1)
60 uci_perror(ctx, name);
66 uci_lua_unload(lua_State *L)
68 struct uci_package *p;
71 luaL_checkstring(L, 1);
72 s = lua_tostring(L, -1);
76 lua_pushboolean(L, 1);
78 lua_pushboolean(L, 0);
84 uci_lua_load(lua_State *L)
86 struct uci_package *p = NULL;
90 lua_pop(L, 1); /* bool ret value of unload */
91 s = lua_tostring(L, -1);
93 if (uci_load(ctx, s, &p)) {
94 uci_lua_perror(L, "uci.load");
95 lua_pushboolean(L, 0);
97 lua_pushboolean(L, 1);
104 uci_lua_get(lua_State *L)
106 struct uci_lua_context *f;
107 struct uci_element *e = NULL;
108 struct uci_package *p = NULL;
109 char *package = NULL;
110 char *section = NULL;
113 int err = UCI_ERR_MEM;
115 luaL_checkstring(L, 1);
116 s = strdup(lua_tostring(L, -1));
120 if ((err = uci_parse_tuple(ctx, s, &package, §ion, &option, NULL)))
123 if (section == NULL) {
128 p = find_package(package);
130 err = UCI_ERR_NOTFOUND;
134 if ((err = uci_lookup(ctx, &e, p, section, option)))
138 case UCI_TYPE_SECTION:
139 lua_pushstring(L, uci_to_section(e)->type);
141 case UCI_TYPE_OPTION:
142 lua_pushstring(L, uci_to_option(e)->value);
155 uci_lua_perror(L, "uci.get");
157 case UCI_ERR_NOTFOUND:
167 uci_lua_set(lua_State *L)
169 struct uci_package *p;
170 char *package = NULL;
171 char *section = NULL;
175 int err = UCI_ERR_MEM;
177 luaL_checkstring(L, 1);
178 s = strdup(lua_tostring(L, -1));
182 if ((err = uci_parse_tuple(ctx, s, &package, §ion, &option, &value)))
185 if ((section == NULL) || (value == NULL)) {
190 p = find_package(package);
192 err = UCI_ERR_NOTFOUND;
195 err = uci_set(ctx, p, section, option, value, NULL);
199 uci_lua_perror(L, "uci.set");
200 lua_pushboolean(L, (err == 0));
205 uci_lua_commit(lua_State *L)
207 struct uci_element *e, *tmp;
208 const char *s = NULL;
211 if (!lua_isnoneornil(L, -1)) {
212 luaL_checkstring(L, 1);
213 s = lua_tostring(L, -1);
216 uci_foreach_element_safe(&ctx->root, tmp, e) {
217 struct uci_package *p = uci_to_package(e);
219 if (s && (strcmp(s, e->name) != 0))
222 if (uci_commit(ctx, &p, false) != 0)
225 lua_pushboolean(L, !failed);
230 uci_lua_save(lua_State *L)
232 struct uci_element *e;
233 const char *s = NULL;
236 if (!lua_isnoneornil(L, -1)) {
237 luaL_checkstring(L, 1);
238 s = lua_tostring(L, -1);
241 uci_foreach_element(&ctx->root, e) {
242 if (s && (strcmp(s, e->name) != 0))
245 if (uci_save(ctx, uci_to_package(e)) != 0)
248 lua_pushboolean(L, !failed);
253 uci_lua_set_confdir(lua_State *L)
257 luaL_checkstring(L, 1);
258 ret = uci_set_confdir(ctx, lua_tostring(L, -1));
259 lua_pushboolean(L, (ret == 0));
264 uci_lua_set_savedir(lua_State *L)
268 luaL_checkstring(L, 1);
269 ret = uci_set_savedir(ctx, lua_tostring(L, -1));
270 lua_pushboolean(L, (ret == 0));
275 static const luaL_Reg uci[] = {
276 { "load", uci_lua_load },
277 { "unload", uci_lua_unload },
278 { "get", uci_lua_get },
279 { "set", uci_lua_set },
280 { "save", uci_lua_save },
281 { "commit", uci_lua_commit },
282 { "set_confdir", uci_lua_set_confdir },
283 { "set_savedir", uci_lua_set_savedir },
289 luaopen_uci(lua_State *L)
291 ctx = uci_alloc_context();
293 luaL_error(L, "Cannot allocate UCI context\n");
294 luaL_register(L, MODNAME, uci);