Module:Sandbox/Erutuon/scripts

From blackwiki
< Module:Sandbox‎ | Erutuon
Revision as of 19:30, 12 April 2018 by blackwiki>Erutuon (function for showing characters belonging to different scripts in a string)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

Lua error in package.lua at line 80: module 'Module:Languages/scripts' not found.



local p = {}

local cp_to_sc = require 'Module:Languages/scripts'.codepointToScript

local function in_array(arr, val)
	for i, v in ipairs(arr) do
		if v == val then
			return true
		end
	end
	return false
end

function export.mapIter(func, iter, iterable, initVal)
	local array = {}
	local i = 0
	for x, y in iter, iterable, initVal do
		i = i + 1
		array[i] = func(y, x, iterable)
	end
	return array
end

function p.list_chars_in_script(str)
	local scripts = {}
	for codepoint in mw.ustring.gcodepoint(str) do
		local script = cp_to_sc(codepoint)
		scripts[script] = scripts[script] or {}
		local char = mw.ustring.char(codepoint)
		if not in_array(scripts[script], char) then
			table.insert(scripts[script], char)
		end
	end
	
	for script, characters in pairs(scripts) do
		table.sort(characters)
	end
	
	return mapIter(
		function (codepoints, script)
			return ('\n* %s: %s')
				:format(mw.ustring.char(unpack(codepoints)))
		end,
		scripts)
end

return p