مۆدیوول:Script

بەڵگەدارکردنی مۆدیوول[دروست بکە]

local p = {}
local getArgs = require('Module:Arguments').getArgs
local data = mw.loadData('Module:Language/data/iso 15924')

function p.code(frame)                                                          -- to output part 1 code
	frame.args.type = "code"
	return p.main(frame)
end

function p.name(frame)                                                          -- to output name
	frame.args.type = "name"
	return p.main(frame)
end

function p.number(frame)                                                          -- to output name
	frame.args.type = "number"
	return p.main(frame)
end

function p.main(frame)                                                          -- main function (doesn't need to be called directly)
	local args = getArgs(frame)
	
	local accents = {["À"]="A",["Á"]="A",["Â"]="A",["Ã"]="A",                   -- accent list
		["Ä"]="A",["Å"]="A",["Ç"]="C",["È"]="E",["É"]="E",
		["Ê"]="E",["Ë"]="E",["Ì"]="I",["Í"]="I",["Î"]="I",
		["Ï"]="I",["Ñ"]="N",["Ò"]="O",["Ó"]="O",["Ô"]="O",
		["Õ"]="O",["Ö"]="O",["Ø"]="O",["Ù"]="U",["Ú"]="U",
		["Û"]="U",["Ü"]="U",["Ý"]="Y"
	}
		
	args[1] = mw.ustring.gsub(args[1],"[À-Ý]",accents)                          -- Deaccent
	args[1] = mw.ustring.gsub(args[1],"%[","")                                  -- Delink
	args[1] = mw.ustring.gsub(args[1],"%]","")                                  -- Delink
	args[1] = mw.ustring.gsub(args[1],"%{","")                                  -- Remove {
	args[1] = mw.ustring.gsub(args[1],"%}","")                                  -- Remove }
	
	for code,table in pairs(data) do
		for _,value in pairs(table) do
			if string.lower(args[1]) == string.lower(value) then
				args[1] = code
			end
		end
		
		if string.lower(args[1]) == string.lower(code) 
		or string.lower(args[1]) == table.num then
			if args.type == "code" then
				return code or ""
			elseif args.type == "name" then
				return table[1] or ""
			elseif args.type == "number" then
				return table.num or ""
			end
		end
	end
end

return p