Modul:usex/templates

local export = {}

local m_languages = require("Module:languages")
local rsplit = mw.text.split
local rfind = mw.ustring.find

function export.usex_t(frame)
	local params = {
		 = {required = true},
		 = {},
		 = {},
		
		 = {type = "boolean"},
		 = {type = "boolean"},
		 = {},
		 = {},
		 = {list = true},
		 = {},
		 = {},
		 = {},
		 = {},
		 = {alias_of = 3},
		 = {alias_of = 3},
		 = {},
		 = {alias_of = "tr"},
		 = {type = "boolean"},
		 = {type = "boolean"},
	}
	
	local quote = (frame.args or "") ~= ""
	local compat = (frame.args or "") ~= ""
	local template_inline = (frame.args or "") ~= ""
	
	if compat then
		params = {required = true}
		params.alias_of = 2
		params.alias_of = 2
		table.remove(params, 1)
	end
	
	local args = require("Module:parameters").process(frame:getParent().args, params)
	
	local lang = args or "und"
	local sc = args
	
	lang = m_languages.getByCode(lang) or m_languages.err(lang, ( compat and "lang" ) or 1)
	sc = (sc and (require("Module:scripts").getByCode(sc) or error("The script code \"" .. sc .. "\" is not valid.")) or nil)
	
	local usex = args
	local translation = args
	local transliteration = args
	local noenum = args
	local inline = args or template_inline
	local ref = args
	local lit = args
	local substs = args
	local qualifiers = args
	local source = args
	local footer = args
	local nocat = args
	local brackets = args
	
	return require("Module:usex").format_usex(lang, sc, usex, translation,
		transliteration, noenum, inline, ref, quote, lit, substs, qualifiers,
		source, nocat, brackets, footer)
end

-- Given a comma-separated list of language codes, return the English equivalent.
function export.format_langs(frame)
	local langcodes = rsplit(frame.args, ",")
	local langnames = {}
	for _, langcode in ipairs(langcodes) do
		local lang = m_languages.getByCode(langcode) or m_languages.err(langcode, 1)
		table.insert(langnames, lang:getCanonicalName())
	end
	if #langnames == 1 then
		return langnames
	elseif #langnames == 2 then
		return langnames .. " and " .. langnames
	else
		local retval = {}
		for i, langname in ipairs(langnames) do
			table.insert(retval, langname)
			if i <= #langnames - 2 then
				table.insert(retval, ", ")
			elseif i == #langnames - 1 then
				table.insert(retval, "<span class=\"serial-comma\">,</span><span class=\"serial-and\"> and</span> ")
			end
		end
		return table.concat(retval, "")
	end
end

-- Given a comma-separated list of language codes, return the first one.
function export.first_lang(frame)
	local langcodes = rsplit(frame.args, ",")
	return langcodes
end

local ignore_prefixes = {"User:", "Talk:",
	"Wiktionary:Beer parlour", "Wiktionary:Translation requests",
	"Wiktionary:Grease pit", "Wiktionary:Etymology scriptorium",
	"Wiktionary:Information desk", "Wiktionary:Tea room",
	"Wiktionary:Requests for", "Wiktionary:Votes"
}

function export.page_should_be_ignored(page)
	-- Ignore user pages, talk pages and certain Wiktionary pages
	for _, ip in ipairs(ignore_prefixes) do
		if rfind(page, "^" .. ip) then
			return true
		end
	end
	if rfind(page, " talk:") then
		return true
	end
	return false
end

function export.page_should_be_ignored_t(frame)
	return export.page_should_be_ignored(frame.args) and "true" or ""
end

return export