27 lines
770 B
Lua
27 lines
770 B
Lua
local html = setmetatable({}, {__index = function(self, key)
|
|
if key == "unescape" then
|
|
local func = assert(loadfile(modlib.mod.get_resource("modlib", "web", "html", "entities.lua")))
|
|
setfenv(func, {})
|
|
local named_entities = assert(func())
|
|
local function unescape(text)
|
|
return text
|
|
:gsub("&([A-Za-z]+);", named_entities) -- named
|
|
:gsub("&#(%d+);", function(digits) return modlib.text.utf8(tonumber(digits)) end) -- decimal
|
|
:gsub("&#x(%x+);", function(digits) return modlib.text.utf8(tonumber(digits, 16)) end) -- hex
|
|
end
|
|
self.unescape = unescape
|
|
return unescape
|
|
end
|
|
end})
|
|
|
|
function html.escape(text)
|
|
return text:gsub(".", {
|
|
["<"] = "<",
|
|
[">"] = ">",
|
|
["&"] = "&",
|
|
["'"] = "'",
|
|
['"'] = """,
|
|
})
|
|
end
|
|
|
|
return html |