Module:string/encode entities - Revision history

Sware at 10:57, 9 May 2026

2026-05-09T10:57:15Z

← Older revision		Revision as of 10:57, 9 May 2026
Line 1:		Line 1:
	-- TO BE REPLACED BY encode_entities in [[Module:string utilities]]. This function decodes on input by default to prevent double-encoding, which the new function does not, so implementations need to take this into account when being converted.		-- TO BE REPLACED BY encode_entities in [[Module:string utilities]]. This function decodes on input by default to prevent double-encoding, which the new function does not, so implementations need to take this into account when being converted.

	~~local debug_track_module = "Module:debug/track"~~
	local string_decode_entities_module = "Module:string/decodeEntities"		local string_decode_entities_module = "Module:string/decodeEntities"
	local string_utilities_module = "Module:string utilities"		local string_utilities_module = "Module:string utilities"
Line 15:		Line 14:
	encode_entities = require(string_utilities_module).encode_entities		encode_entities = require(string_utilities_module).encode_entities
	return encode_entities(...)		return encode_entities(...)
	~~end~~

	~~local function track(...)~~
	~~track = require(debug_track_module)~~
	~~return track(...)~~
	end		end

Line 25:		Line 19:
	if not raw then		if not raw then
	local decoded = decode_entities(str)		local decoded = decode_entities(str)
	~~if decoded ~= str then~~
	~~track("string/encode entities/decoded first")~~
	~~end~~
	str = decoded		str = decoded
	end		end
	return encode_entities(str, charset, nil, true)		return encode_entities(str, charset, nil, true)
	end		end

Sware: 1 revision imported

2026-04-21T11:22:45Z

1 revision imported

← Older revision	Revision as of 11:22, 21 April 2026
(No difference)

wikt>Theknightwho at 23:08, 21 May 2025

2025-05-21T23:08:24Z

← Older revision		Revision as of 23:08, 21 May 2025
Line 1:		Line 1:
	~~local m_str_utils = require("~~Module:string utilities")		-- TO BE REPLACED BY encode_entities in [[Module:string utilities]]. This function decodes on input by default to prevent double-encoding, which the new function does not, so implementations need to take this into account when being converted.

	local ~~codepoint~~ = ~~m_str_utils.codepoint~~		local debug_track_module = "Module:debug/track"
	local ~~decode_entities = m_str_utils.decode_entities~~		local string_decode_entities_module = "Module:string/decodeEntities"
	~~local find = string.find~~		local string_utilities_module = "Module:string utilities"
	~~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)		local require = require
	return ~~"&#x"~~ .. ~~format~~(~~"%X", codepoint~~(ch)) .. ~~";"~~
			local function decode_entities(...)
			decode_entities = require(string_decode_entities_module)
			return decode_entities(...)
			end

			local function encode_entities(...)
			encode_entities = require(string_utilities_module).encode_entities
			return encode_entities(...)
			end

			local function track(...)
			track = require(debug_track_module)
			return track(...)
	end		end

	return function(~~text~~, charset, raw)		return function(str, charset, raw)
	if not raw then		if not raw then
	~~text~~ = decode_entities(~~text~~)		local decoded = decode_entities(str)
	~~end~~		if decoded ~= str then
	if ~~charset =~~= ~~"" then~~		track("string/encode entities/decoded first")
	~~return text~~		end
	~~elseif not charset~~ then		str = decoded
	~~charset = "\"&'<>\194\160"~~
	~~elseif not match~~(~~charset,~~ "~~[\128-\244]~~") ~~then~~
	~~return (gsub(text, "[" .. pattern_escape(charset) .. "]", encode_entity))~~
	end		end
	return (~~gsub(text, "[%z\1-\127\194-\244][\128-\191]*"~~, ~~function(ch)~~		return encode_entities(str, charset, nil, true)
	~~return find(~~charset, ~~ch, 1~~, true~~) and encode_entity(ch) or nil~~
	~~end)~~)
	end		end

Sware: Created page with "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(te..."

2024-08-06T10:39:07Z

Created page with "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(te..."

New page

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, "[\128-\244]") then
return (gsub(text, "[" .. pattern_escape(charset) .. "]", encode_entity))
end
return (gsub(text, "[%z\1-\127\194-\244][\128-\191]*", function(ch)
return find(charset, ch, 1, true) and encode_entity(ch) or nil
end))
end