Módulo:string/encode entities

local m_str_utils = require("Module:string utilities")

local codepoint = m_str_utils.codepoint
local decode_entities = m_str_utils.decode_entities
local find = string.find
local format = string.format
local gsub = string.gsub
local match = string.match
local pattern_escape = m_str_utils.pattern_escape

local function encode_entity(ch)
	return "&#x" .. format("%X", codepoint(ch)) .. ";"
end

return function(text, charset, raw)
	if not raw then
		text = decode_entities(text)
	end
	if charset == "" then
		return text
	elseif not charset then
		charset = "\"&'<>\194\160"
	elseif not match(charset, "") then
		return (gsub(text, "", encode_entity))
	end
	return (gsub(text, "*", function(ch)
		return find(charset, ch, 1, true) and encode_entity(ch) or nil
	end))
end