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 "") ~= nil and m_languages.get_by_code(args[1])
	local params = {
		nocap = false,
	}
	
	--[[
	function distance_sort(a, b)
		local a = m_languages.get_by_code(a)
		local b = m_languages.get_by_code(b)
		local distance_a = m_languages.distance(nat, a)
		local distance_b = m_languages.distance(nat, b)
		
		if distance_a == distance_b then
			return a.name < b.name
		else
			return distance_a < distance_b
		end
	end
	
	table.sort(args, distance_sort(a, b))
	]]--
	
	for lang, entry in pairs(args) do
		if type(lang) == "string" then
			if m_languages.find_by_code(lang) and lang ~= nat then
				local term, data = m_inline.parse(entry)
				data[1], data[2] = lang, term
				local link = frame:expandTemplate{title = "m+", args = data}
				if nat then link = link .. "[[Category:" .. nat.name .. " terms with " .. lang.name .. " cognates]]" end
				table.insert(links, link)
			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
	
	local text = ((params.nocap and "c") or "C") .. "ognate with "
	
	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"}})
]]