Module:cognates

Underlies {{cognates}}.

---

local export = {}
local getArgs = require('Module:Arguments').getArgs

local m_inline = require("Module:inline")
local m_languages = require("Module:languages")

function export.show(frame)
	local args = getArgs(frame)
	local links = {}
	local nat = m_languages.find_by_code(args[1] or "")
	local params = {
		nocap = false,
		nocat = false,
		nopre = false,
	}
	
	local langs = {}
	
	for lang, _ in pairs(args) do
		if type(lang) == "string" then
			if m_languages.find_by_code(lang) then
				table.insert(langs, lang)
			elseif params[lang] ~= nil then --check for parameters
				params[lang] = true
			else
				error("[" .. lang .. "] is not a valid language code or parameter")
			end
		end
	end
	
	table.sort(langs, function(a, b)
		a = m_languages.get_by_code(a)
		b = m_languages.get_by_code(b)
		
		if nat == nil then
			return a.name < b.name
		end
		
		a_test = m_languages.stage_at_split(nat, a)
		b_test = m_languages.stage_at_split(nat, b)
		
		if a_test == b_test then
			return a.name < b.name
		else
			return a_test > b_test
		end
	end
	)
	
	for _, lang in ipairs(langs) do
		local term, data = m_inline.parse(args[lang])
		data[1], data[2], data["nobold"] = lang, term, true
		local pre = data["pre"]
		if pre then
			pre = pre .. " "
			data["pre"] = nil
		end
		local link = (pre or "") .. frame:expandTemplate{title = "m+", args = data}
		if nat and params.nocat == false then link = link .. "[[Category:" .. nat.name .. " terms with " .. m_languages.get_by_code(lang).name .. " cognates]]" end
		table.insert(links, link)
	end
	
	local text = ((not params.nopre) and ((params.nocap and "c") or "C") .. "ognate with ") or ""
	
	for i, link in ipairs(links) do
		if i > 1 then
			if links[i + 1] then
				text = text .. ", "
			else
				text = text .. " and "	
			end
		end
		text = text .. link	
	end
	
	return text
end

return export

--[[
Debug console test string:
=p.show(mw.getCurrentFrame():newChild{title="whatever",args={["rad"]="vas", ["lfv"] = "vat"}})
]]