From 8b0d5633db1e4f17ceebd1831a501606a2856fe3 Mon Sep 17 00:00:00 2001
From: Nils Schneider <nils@nilsschneider.net>
Date: Mon, 31 Aug 2015 18:49:42 +0200
Subject: [PATCH] simple-uci: wrapper around uci providing useful functions

- delete_all
- section
- tset
- get_bool
- get_list
- get_first
- add_to_set
- remove_from_set
---
 libs/lua-simple-uci/Makefile           |  33 ++++++
 libs/lua-simple-uci/src/simple-uci.lua | 147 +++++++++++++++++++++++++
 2 files changed, 180 insertions(+)
 create mode 100644 libs/lua-simple-uci/Makefile
 create mode 100644 libs/lua-simple-uci/src/simple-uci.lua

diff --git a/libs/lua-simple-uci/Makefile b/libs/lua-simple-uci/Makefile
new file mode 100644
index 0000000..e007e81
--- /dev/null
+++ b/libs/lua-simple-uci/Makefile
@@ -0,0 +1,33 @@
+#
+# Copyright (C) 2015 Nils Schneider <nils@nilsschneider.net>
+
+include $(TOPDIR)/rules.mk
+
+PKG_NAME:=lua-simple-uci
+PKG_VERSION:=1
+PKG_RELEASE:=1
+
+PKG_LICENSE:=APL2
+
+include $(INCLUDE_DIR)/package.mk
+
+define Package/lua-simple-uci
+	SECTION:=libs
+	CATEGORY:=Libraries
+	TITLE:=Useful functions for accessing uci using lua
+	MAINTAINER:=Nils Schneider <nils@nilsschneider.net>
+	DEPENDS:=+libuci-lua
+endef
+
+define Build/Configure
+endef
+
+define Build/Compile
+endef
+
+define Package/lua-simple-uci/install
+	$(INSTALL_DIR) $(1)/usr/lib/lua
+	$(INSTALL_BIN) src/simple-uci.lua $(1)/usr/lib/lua/
+endef
+
+$(eval $(call BuildPackage,lua-simple-uci))
diff --git a/libs/lua-simple-uci/src/simple-uci.lua b/libs/lua-simple-uci/src/simple-uci.lua
new file mode 100644
index 0000000..2afd60a
--- /dev/null
+++ b/libs/lua-simple-uci/src/simple-uci.lua
@@ -0,0 +1,147 @@
+-- Copyright 2008 Steven Barth <steven@midlink.org>
+-- Copyright 2015 Nils Schneider <nils@nilsschneider.net>
+-- Licensed to the public under the Apache License 2.0.
+--
+-- This is basically everything useful from luci.model.uci
+-- without any luci dependency.
+
+local uci   = require "uci"
+local table = require "table"
+
+local getmetatable = getmetatable
+local next, pairs, ipairs = next, pairs, ipairs
+local type, tonumber = type, tonumber
+
+module "simple-uci"
+
+cursor = uci.cursor
+
+APIVERSION = uci.APIVERSION
+
+local Cursor = getmetatable(cursor())
+
+-- returns a boolean whether to delete the current section (optional)
+function Cursor.delete_all(self, config, stype, comparator)
+	local del = {}
+
+	if type(comparator) == "table" then
+		local tbl = comparator
+		comparator = function(section)
+			for k, v in pairs(tbl) do
+				if section[k] ~= v then
+					return false
+				end
+			end
+			return true
+		end
+	end
+
+	local function helper (section)
+
+		if not comparator or comparator(section) then
+			del[#del+1] = section[".name"]
+		end
+	end
+
+	self:foreach(config, stype, helper)
+
+	for i, j in ipairs(del) do
+		self:delete(config, j)
+	end
+end
+
+function Cursor.section(self, config, type, name, values)
+	local stat = true
+	if name then
+		stat = self:set(config, name, type)
+	else
+		name = self:add(config, type)
+		stat = name and true
+	end
+
+	if stat and values then
+		stat = self:tset(config, name, values)
+	end
+
+	return stat and name
+end
+
+function Cursor.tset(self, config, section, values)
+	local stat = true
+	for k, v in pairs(values) do
+		if k:sub(1, 1) ~= "." then
+			stat = stat and self:set(config, section, k, v)
+		end
+	end
+	return stat
+end
+
+function Cursor.get_bool(self, ...)
+	local val = self:get(...)
+	return ( val == "1" or val == "true" or val == "yes" or val == "on" )
+end
+
+function Cursor.get_list(self, config, section, option)
+	if config and section and option then
+		local val = self:get(config, section, option)
+		return ( type(val) == "table" and val or { val } )
+	end
+	return nil
+end
+
+function Cursor.get_first(self, conf, stype, opt, def)
+	local rv = def
+
+	self:foreach(conf, stype,
+		function(s)
+			local val = not opt and s['.name'] or s[opt]
+
+			if type(def) == "number" then
+				val = tonumber(val)
+			elseif type(def) == "boolean" then
+				val = (val == "1" or val == "true" or
+				       val == "yes" or val == "on")
+			end
+
+			if val ~= nil then
+				rv = val
+				return false
+			end
+		end)
+
+	return rv
+end
+
+function Cursor.add_to_set(self, config, section, option, value, remove)
+	local list = self:get_list(config, section, option)
+
+	if not list then
+		return false
+	end
+
+	local set = {}
+	for _, l in ipairs(list) do
+		set[l] = true
+	end
+
+	if remove then
+		set[value] = nil
+	else
+		set[value] = true
+	end
+
+	list = {}
+	for k, _ in pairs(set) do
+		table.insert(list, k)
+	end
+
+	if next(list) == nil then
+		return self:delete(config, section, option)
+	else
+		return self:set(config, section, option, list)
+	end
+end
+
+function Cursor.remove_from_set(self, config, section, option, value)
+	self:add_to_set(config, section, option, value, true)
+end