Sware at 15:59, 9 January 2025

2025-01-09T15:59:18Z

← Older revision		Revision as of 15:59, 9 January 2025
Line 7:		Line 7:
	local get_plaintext = require("Module:utilities").get_plaintext		local get_plaintext = require("Module:utilities").get_plaintext
	local match = string.match		local match = string.match
	local memoize = require("Module:~~fun~~")~~.memoize~~		local memoize = require("Module:memoize")
	local remove = table.remove		local remove = table.remove
	local sort = table.sort		local sort = table.sort
Line 91:		Line 91:
	-- begin with the bytes 240 to 244.		-- begin with the bytes 240 to 244.
	do		do
	-- Memoize match ~~because we've set~~ the `simple` flag, which means it		-- Memoize match with the `simple` flag, which means it should only be used
	-- ~~should only be used~~ with fixed additional arguments (in this case, the		-- with fixed additional arguments (in this case, the pattern).
	-- pattern).		local sortkey_match = memoize(match, true)
	local ~~match~~ = memoize(match, true)

	function export.string_sort(item1, item2)		function export.string_sort(item1, item2)
	if ~~match~~(item1, "^[^\240-\244]$") and ~~match~~(item2, "^[^\240-\244]$") then		if sortkey_match(item1, "^[^\240-\244]$") and sortkey_match(item2, "^[^\240-\244]$") then
	return item1 < item2		return item1 < item2
	end		end
Line 139:		Line 138:

	local m_table = require("Module:table")		local m_table = require("Module:table")
	local elems = m_table.~~shallowcopy~~(args)		local elems = m_table.shallowCopy(args)
	local m_languages = require("Module:languages")		local m_languages = require("Module:languages")
	local lang		local lang

Sware at 18:22, 5 August 2024

2024-08-05T18:22:33Z

Show changes

Sware: Created page with "local export = {} -- Custom functions for generating a sortkey that will achieve the desired sort -- order. -- name of module and name of exported function local custom_sort_..."

2021-07-14T22:37:33Z

Created page with "local export = {} -- Custom functions for generating a sortkey that will achieve the desired sort -- order. -- name of module and name of exported function local custom_sort_..."

New page

local export = {}

-- Custom functions for generating a sortkey that will achieve the desired sort
-- order.
-- name of module and name of exported function
local custom_sort_functions = {
egy = { "egy-utilities", "make_sortkey" },
}

local function is_lang_object(lang)
return type(lang) == "table" and type(lang.getCanonicalName) == "function"
end

local function check_lang_object(funcName, argIdx, lang)
if not is_lang_object(lang) then
error("bad argument #" .. argIdx .. " to " .. funcName
.. ": expected language object, got " .. type(lang) .. ".", 2)
end
end

local function check_function(funcName, argIdx, func)
if type(func) ~= "function" then
error("bad argument #" .. argIdx .. " to " .. funcName
.. ": expected function object, got " .. type(func) .. ".", 2)
end
end

-- UTF-8-encoded characters that do not belong to the Basic Multilingual Plane
-- (that is, with code points greater than U+FFFF) have byte sequences that
-- begin with the bytes 240 to 244.
local function contains_non_BMP(str)
return str:find '[\240-\244]'
end

do
local byte, min = string.byte, math.min
function export.laborious_comp(item1, item2)
local l1, l2 = #item1, #item2
for i = 1, min(l1, l2) do
local char1, char2 = byte(item1, i, i), byte(item2, i, i)
if char1 ~= char2 then
return char1 < char2
end
end
return l1 < l2
end
end

function export.make_sortkey_func(lang, keyfunc)
check_lang_object("make_sortkey_func", 1, lang)
keyfunc = keyfunc or function(elem) return elem end
check_function("make_sortkey_func", 2, keyfunc)

local cache = {}

local custom_sort_function = custom_sort_functions[lang:getCode()]
local makeSortKey =
custom_sort_function and require("Module:" .. custom_sort_function[1])[custom_sort_function[2]]
or function(text)
return lang:makeSortKey(text)
end

local m_links = require("Module:links")

return function (element)
element = keyfunc(element)
local result = cache[element]

if result then
return result
end

result = m_links.remove_links(element)
result = mw.ustring.gsub(result, "[%p ]", "")
result = makeSortKey(lang:makeEntryName(result))
cache[element] = result

return result
end
end

function export.make_compare_func(lang, non_BMP, keyfunc)
local make_sortkey = export.make_sortkey_func(lang, keyfunc)

-- When comparing two elements with code points outside the BMP, the
-- less-than operator does not work correctly because of a bug in glibc.
-- See [[phab:T193096]].
if non_BMP then
return function (elem1, elem2)
return export.laborious_comp(make_sortkey(elem1), make_sortkey(elem2))
end
else
return function (elem1, elem2)
return make_sortkey(elem1) < make_sortkey(elem2)
end
end
end

function export.sort(elems, lang, keyfunc)
local non_BMP
for _, elem in ipairs(elems) do
if keyfunc then
elem = keyfunc(elem)
end
if contains_non_BMP(elem) then
non_BMP = true
break
end
end

return table.sort(elems, is_lang_object(lang) and export.make_compare_func(lang, non_BMP, keyfunc) or nil)
end

function export.sort_template(frame)
if not mw.isSubsting() then
error("This template must be substed.")
end

local args
if frame.args.parent then
args = frame:getParent().args
else
args = frame.args
end

local elems = require("Module:table").shallowClone(args)
local m_languages = require("Module:languages")
local lang
if args.lang then
lang = m_languages.getByCode(args.lang) or m_languages.err(args.lang, 'lang')
else
local code = table.remove(elems, 1)
code = code and mw.text.trim(code)
lang = m_languages.getByCode(code) or m_languages.err(code, 1)
end
export.sort(elems, lang)
return table.concat(elems, args.sep or "|")
end

return export

Module:collation - Revision history

Sware at 15:59, 9 January 2025

Sware at 18:22, 5 August 2024

Sware: Created page with "local export = {} -- Custom functions for generating a sortkey that will achieve the desired sort -- order. -- name of module and name of exported function local custom_sort_..."