local ldebug = require "luci.debug"
local string = require "string"
local coroutine = require "coroutine"
-local cutil = require "luci.cutil"
local getmetatable, setmetatable = getmetatable, setmetatable
local rawget, rawset, unpack = rawget, rawset, unpack
--
-- Pythonic string formatting extension
--
---[[
getmetatable("").__mod = function(a, b)
if not b then
return a
return a:format(b)
end
end
-]]--
--
--
-- Instantiates a class
---[[
local function _instantiate(class, ...)
local inst = setmetatable({}, {__index = class})
return inst
end
-]]--
--- Create a Class object (Python-style object model).
-- The class object can be instantiated by calling itself.
-- @return A class object
-- @see instanceof
-- @see clone
---[[
function class(base)
return setmetatable({}, {
__call = _instantiate,
__index = base
})
end
-]]--
-class = cutil.class
--- Test whether the given object is an instance of the given class.
-- @param object Object instance
--- Create valid XML PCDATA from given string.
-- @param value String value containing the data to escape
-- @return String value containing the escaped data
+local function _pcdata_repl(c)
+ local i = string.byte(c)
+
+ if ( i >= 0x00 and i <= 0x08 ) or ( i >= 0x0B and i <= 0x0C ) or
+ ( i >= 0x0E and i <= 0x1F ) or ( i == 0x7F )
+ then
+ return ""
+
+ elseif ( i == 0x26 ) or ( i == 0x27 ) or ( i == 0x22 ) or
+ ( i == 0x3C ) or ( i == 0x3E )
+ then
+ return string.format("&#%i;", i)
+ end
+
+ return c
+end
+
function pcdata(value)
- return value and tostring(value):gsub("[&\"'<>]", {
- ["&"] = "&",
- ['"'] = """,
- ["'"] = "'",
- ["<"] = "<",
- [">"] = ">"
- })
+ return value and tostring(value):gsub("[&\"'<>%c]", _pcdata_repl)
end
--- Strip HTML tags from given string.