Module:pl-adj

From Wiktionary, the free dictionary
Jump to navigation Jump to search

This module implements {{pl-decl-adj}} and {{pl-decl-adj-auto}}.

See also: Module:pl-adj/testcases.


local gender = require('Module:gender and number')
local m_links = require('Module:links')

local lang = require("Module:languages").getByCode("pl")

local export = {}

-- automatic declension

local inflectors = {}

inflectors["^((.+)([kg]))[ia]e?$"] = function (pargs, stem, substem, extra)
	local ending = { ["k"] = "cy"; ["g"] = "dzy"; }
	return {
		stem .. "i",
		stem .. "a",
		stem .. "ie",
		substem .. ending[extra],
		stem .. "ie",
		stem .. "iego",
		stem .. "iej",
		stem .. "ich",
		stem .. "iemu",
		stem .. "im",
		stem .. "ą",
		stem .. "im",
		stem .. "imi",
		(pargs.olddat and (stem .. "u") or nil)
	}
end

inflectors["^((.*)[mnpbfwszi%-]i)[ae]?$"] = function (pargs, stem, substem)
	return {
		stem,
		stem .. "a",
		stem .. "e",
		stem,
		stem .. "e",
		stem .. "ego",
		stem .. "ej",
		stem .. "ch",
		stem .. "emu",
		stem .. "m",
		stem .. "ą",
		stem .. "m",
		stem .. "mi"
	}
end

inflectors["^((.+)l)[iae]$"] = function (pargs, stem, substem)
	return {
		stem .. "i",
		stem .. "a",
		stem .. "e",
		stem .. "i",
		stem .. "e",
		stem .. "ego",
		stem .. "ej",
		stem .. "ich",
		stem .. "emu",
		stem .. "im",
		stem .. "ą",
		stem .. "im",
		stem .. "imi"
	}
end

inflectors["^(.+c)i[ae]?$"] = function (pargs, stem, substem)
	return {
		stem .. "i",
		stem .. "ia",
		stem .. "ie",
		stem .. "i",
		stem .. "ie",
		stem .. "iego",
		stem .. "iej",
		stem .. "ich",
		stem .. "iemu",
		stem .. "im",
		stem .. "ią",
		stem .. "im",
		stem .. "imi"
	}
end

inflectors["^((.+)([os])n)[yae]$"] = function (pargs, stem, substem, extra)
	local mpl_suffix

	if stem:match("zielon$") or stem:match("czerwon$") or stem:match("słon$") then
		-- probably the only exceptions
		mpl_suffix = "oni"
	else
		mpl_suffix = ({ ["o"] = "eni", ["s"] = "śni", ["z"] = "źni" })[extra]
	end

	return {
		stem .. "y",
		stem .. "a",
		stem .. "e",
		substem .. mpl_suffix,
		stem .. "e",
		stem .. "ego",
		stem .. "ej",
		stem .. "ych",
		stem .. "emu",
		stem .. "ym",
		stem .. "ą",
		stem .. "ym",
		stem .. "ymi",
	}
end
inflectors["^((.+[^crs])(z)n)[yae]$"] = inflectors["^((.+)([os])n)[yae]$"]

-- .* instead of .+ due to [[cny]] (why are we using .+ in general anyway?)
inflectors["^(.*[^osz]n)[yae]$"] = function (pargs, stem, substem, extra)
	return {
		stem .. "y",
		stem .. "a",
		stem .. "e",
		stem .. "i",
		stem .. "e",
		stem .. "ego",
		stem .. "ej",
		stem .. "ych",
		stem .. "emu",
		stem .. "ym",
		stem .. "ą",
		stem .. "ym",
		stem .. "ymi"
	}
end
inflectors["^(.+[crs]zn)[yae]$"] = inflectors["^(.*[^osz]n)[yae]$"]

inflectors["^(.+[wmpb])[yae]$"] = function (pargs, stem, substem)
	return {
		stem .. "y",
		stem .. "a",
		stem .. "e",
		stem .. "i",
		stem .. "e",
		stem .. "ego",
		stem .. "ej",
		stem .. "ych",
		stem .. "emu",
		stem .. "ym",
		stem .. "ą",
		stem .. "ym",
		stem .. "ymi"
	}
end

inflectors["^((.+s)z?)[yae]$"] = function (pargs, stem, substem)
	return {
		stem .. "y",
		stem .. "a",
		stem .. "e",
		substem .. "i",
		stem .. "e",
		stem .. "ego",
		stem .. "ej",
		stem .. "ych",
		stem .. "emu",
		stem .. "ym",
		stem .. "ą",
		stem .. "ym",
		stem .. "ymi"
	}
end

inflectors["^(.+[^fwtdmrłnizshpb])[yae]$"] = function (pargs, stem, substem)
	return {
		stem .. "y",
		stem .. "a",
		stem .. "e",
		stem .. "y",
		stem .. "e",
		stem .. "ego",
		stem .. "ej",
		stem .. "ych",
		stem .. "emu",
		stem .. "ym",
		stem .. "ą",
		stem .. "ym",
		stem .. "ymi"
	}
end
inflectors["^(.+[cdr]z)[yae]$"] = inflectors["^(.+[^fwtdmrłnizshpb])[yae]$"]

inflectors["^((.+)([dr]))[yae]$"] = function (pargs, stem, substem, extra)
	local soft_mpl_cons = { ["ch"] = "si", ["h"] = "si", ["zł"] = "źli", ["sł"] = "śli", ["ł"] = "li", ["r"] = "rzy", ["t"] = "ci", ["st"] = "ści", ["d"] = "dzi" }
	
	return {
		stem .. "y",
		stem .. "a",
		stem .. "e",
		substem .. soft_mpl_cons[extra],
		stem .. "e",
		stem .. "ego",
		stem .. "ej",
		stem .. "ych",
		stem .. "emu",
		stem .. "ym",
		stem .. "ą",
		stem .. "ym",
		stem .. "ymi",
		(pargs.olddat and (stem .. "u") or nil)
	}
end
inflectors["^((.-)(c?h))[yae]$"] = inflectors["^((.+)([dr]))[yae]$"]
inflectors["^((.*[^s])(zł))[yae]$"] = inflectors["^((.+)([dr]))[yae]$"]
inflectors["^((.*)(sł))[yae]$"] = inflectors["^((.+)([dr]))[yae]$"]
inflectors["^((.*[^sz])(ł))[yae]$"] = inflectors["^((.+)([dr]))[yae]$"]
inflectors["^((.*sz)(ł))[yae]$"] = inflectors["^((.+)([dr]))[yae]$"]
inflectors["^((.*)(st))[yae]$"] = inflectors["^((.+)([dr]))[yae]$"]
inflectors["^((.*[^s])(t))[yae]$"] = inflectors["^((.+)([dr]))[yae]$"]

-- archaic forms
inflectors["^(.+[^i])en$"] = function (pargs, stem, substem, extra)
	return {
		stem .. "en",
		stem .. "na",
		stem .. "ne",
		stem .. "ni",
		stem .. "ne",
		stem .. "nego",
		stem .. "nej",
		stem .. "nych",
		stem .. "nemu",
		stem .. "nym",
		stem .. "ną",
		stem .. "nym",
		stem .. "nymi"
	}
end

inflectors["^(.+)on$"] = function (pargs, stem, substem, extra)
	return {
		stem .. "on",
		stem .. "ona",
		stem .. "one",
		stem .. "eni",
		stem .. "one",
		stem .. "onego",
		stem .. "onej",
		stem .. "onych",
		stem .. "onemu",
		stem .. "onym",
		stem .. "oną",
		stem .. "onym",
		stem .. "onymi"
	}
end

-- jakikolwiek, którykolwiek
inflectors["^(.+)kolwiek$"] = function (pargs, stem)
	local result = export.autoinflect(stem, pargs)
	if result then
		for i, item in ipairs(result) do
			result[i] = item .. "kolwiek"	
		end
		return result	
	end
end

function export.autoinflect(lemma, pargs)
	pargs = pargs or {}
	for pat, inflector in pairs(inflectors) do
		local st, en, stem, substem, extra = mw.ustring.find(lemma, pat)
		if st then
			return inflector(pargs, stem, substem, extra)
		end
	end
end

-- automatic comparatives

local comparators = {}

local function bardziej(pargs, stem)
	return "[[bardziej]] " .. stem, "[[najbardziej]] " .. stem	
end

comparators["^(.*ow[yaei])$"]           = bardziej
comparators["^(.*sk[ia]e?)$"]           = bardziej
comparators["^(.*scy)$"]                = bardziej
comparators["^(.*[^aeiou][wz]i[ae]?)$"] = bardziej
comparators["^(.*[^aeiou]l[iae]?)$"]    = bardziej

-- -ały, -ała, -ałe (singular)
comparators["^(.-)(i?a)ł([aye])$"] = function (pargs, stem, vowl, suf)
	local shift = { ["ia"] = "ie", ["a"] = "a" }
	return stem .. shift[vowl] .. "lsz" .. suf, "naj" .. stem .. shift[vowl] .. "lsz" .. suf
end

-- -ali (virile plural)
comparators["^(.-)(i?a)li$"] = function (pargs, stem, vowl, suf)
	local shift = { ["ia"] = "ie", ["a"] = "a" }
	return stem .. shift[vowl] .. "lsi", "naj" .. stem .. shift[vowl] .. "lsi"
end

function export.autocompare(lemma, pargs)
	for pat, comparator in pairs(comparators) do
		local st, en, stem, substem, suf = mw.ustring.find(lemma, pat)
		if st then
			return comparator(pargs, stem, substem, suf)
		end
	end
end

-- template functions

local function make_table(items, title, curtitle, width)
	local itemlinks = {}
	
	local forms = {
		"m|nom//voc|s|;|m|ina|acc|s",
		"f|nom//voc|s",
		"n|nom//voc//acc|s",
		"vr|nom//voc|p",
		"nv|nom//voc//acc|p",
		"m//n|gen|s|;|m|pers//an|acc|s",
		"f|gen//dat//loc|s",
		"gen//loc|p|;|vr|acc|p",
		"m//n|dat|s",
		"dat|p",
		"f|acc//ins|s",
		"m//n|ins//loc|s",
		"ins|p",
		"dat|arch",
	}
	local maxl = 0
	for i, item in ipairs(items) do
		table.insert(itemlinks, item and m_links.full_link({lang = lang, term = item, accel = {form = forms[i]}}))
		if not width then -- speed
			local l = mw.ustring.len(m_links.remove_links(item))
			if maxl < l then
				maxl = l
			end
		end
	end

	if not width then
		width = math.floor(maxl * 0.78) -- number obtained by anecdotal evidence
		width = (width < 10) and 10 or width
		width = 11 + (width * 5)
	end
 
	return ([=[<div class="NavFrame" style="display: block; width: %uem;">
<div class="NavHead" style="background:#eff7ff">%s</div>
<div class="NavContent">
{| class="inflection-table" border="1" style="background:#F9F9F9; text-align:center; width: %uem; margin: 0; border-collapse: collapse; border-color: #a2a9b1;"
 ! rowspan="2" style="width: 11em;" title="przypadek"style="background:#d9ebff;" | case
 ! colspan="4" scope="colgroup" title="liczba pojedyncza" style="background:#d9ebff;" | singular
 ! colspan="3" scope="colgroup" title="liczba mnoga"style="background:#d9ebff;" | plural
 |-
 ! style="background:#d9ebff; min-width: 8em;" scope="col" title="rodzaj męskoosobowy/męskozwierzęcy" | masculine personal/animate
 ! style="background:#d9ebff; min-width: 8em;" scope="col" title="rodzaj męskorzeczowy" | masculine inanimate
 ! style="background:#d9ebff; min-width: 8em;" scope="col" title="rodzaj nijaki" | neuter
 ! style="background:#d9ebff; min-width: 8em;" scope="col" title="rodzaj żeński" | feminine
 ! style="background:#d9ebff; min-width: 8em;" scope="col" title="rodzaj męskoosobowy" | virile
 ! style="background:#d9ebff; min-width: 8em;" scope="col" title="rodzaj niemęskoosobowy" | nonvirile
 |-
 ! style="background:#eff7ff;" title="mianownik (jaki? jaka? jakie?), wołacz (o!)" scope="row" | nominative, vocative
 | colspan="2" | %s
 | %s
 | %s
 | %s
 | %s
 |-
 ! style="background:#eff7ff;" title="dopełniacz (jakiego? jakiej?)" scope="row" | genitive
 | colspan="3" | %s
 | rowspan="2" | %s
 | colspan="2" | %s
 |-
 ! style="background:#eff7ff;" title="celownik (jakiemu? jakiej?)" scope="row" | dative
 | colspan="3" | %s
 | colspan="2" | %s
 |-
 ! style="background:#eff7ff;" title="biernik (jakiego? jaki? jaką? jakie?)" scope="row" | accusative
 | %s
 | %s
 | %s
 | rowspan="2" | %s
 | %s
 | %s
 |-
 ! style="background:#eff7ff;" title="narzędnik (jakim? jaką?)" scope="row" | instrumental
 | colspan="3" rowspan="2" | %s
 | colspan="2" | %s
 |-
 ! style="background:#eff7ff;" title="miejscownik (jakim? jakiej?)" scope="row" | locative
 | %s
 | colspan="2" | %s%s
 |}
</div>
</div>]=]):format(
		width, title, width,
		itemlinks[1],
		itemlinks[3],
		itemlinks[2],
		itemlinks[4],
		itemlinks[5],
		itemlinks[6],
		itemlinks[7], 
		itemlinks[8], 
		itemlinks[9], 
		itemlinks[10],
		itemlinks[6],
		itemlinks[1],
		itemlinks[3],
		itemlinks[11],
		itemlinks[8],
		itemlinks[5],
		itemlinks[12],
		itemlinks[13],
		itemlinks[7],
		itemlinks[8],
		itemlinks[14] and ([=[

 |-
 ! style="background-color:#eff7ff;" title="stary celownik (po jakiemu?)" scope="row" | old dative
 | lang="pl" xml:lang="pl" | %s
]=]):format(itemlinks[14]) or ""
	)
end

function export.template_decl(frame)
	local title = mw.title.getCurrentTitle()
	local pargs = frame:getParent().args

	return make_table({
		pargs[ 1] or "{{{1}}}",
		pargs[ 2] or "{{{2}}}",
		pargs[ 3] or "{{{3}}}",
		pargs[ 4] or "{{{4}}}",
		pargs[ 5] or "{{{5}}}",
		pargs[ 6] or "{{{6}}}",
		pargs[ 7] or "{{{7}}}",
		pargs[ 8] or "{{{8}}}",
		pargs[ 9] or "{{{9}}}",
		pargs[10] or "{{{10}}}",
		pargs[11] or "{{{11}}}",
		pargs[12] or "{{{12}}}",
		pargs[13] or "{{{13}}}",
		pargs[14] or ((title.fullText == frame:getParent():getTitle()) and "{{{14}}}"),
	}, pargs.title or ('Declension of <i class="Latn mention" lang="pl" xml:lang="pl">%s</i>'):format(pargs.head or ((title.namespace == 0) and title.text or (pargs[1] or "{{{1}}}"))), title.fullText)
end

function export.template_decl_y(frame)
	local title = mw.title.getCurrentTitle()
	local pargs = frame:getParent().args
	local lemma = pargs[1] and (pargs[1] .. 'y') or ((title.namespace == 0) and title.text or 'darmowy')
	if pargs[2] then
		if declinfo[4] ~= pargs[2] then
			cat = '[[Category:Polish terms needing attention]]'
		end
		declinfo[4] = pargs[2]
	end

	if mw.isSubsting() then
		return ("{{pl-decl-adj}}"):format(
			declinfo[1],
			declinfo[2],
			declinfo[3],
			declinfo[4],
			declinfo[5],
			declinfo[6],
			declinfo[7],
			declinfo[8],
			declinfo[9],
			declinfo[10],
			declinfo[11],
			declinfo[12],
			declinfo[13],
			declinfo[14] and (("|%s"):format(declinfo[14])) or ""
		)
	else
		local table_title = pargs.title or (lemma and ('Declension of <i class="Latn mention" lang="pl" xml:lang="pl">%s</i>'):format(lemma)) or "declension table"
		return make_table(declinfo, table_title, title.fullText) .. cat
	end
end

function export.template_decl_auto(frame)
	local title = mw.title.getCurrentTitle()
	local pargs = frame:getParent().args
	local lemma = frame.args[1] or pargs[1]; if lemma == "" then lemma = nil end
	local nom_m_sg = pargs["nom_m_sg"]; if nom_m_sg == "" then nom_m_sg = nil end
	local nom_vr_pl = pargs["nom_vr_pl"]; if nom_vr_pl == "" then nom_vr_pl = nil end
	lemma = lemma or (title.namespace == 0 and title.text) or (title.nsText == "Template" and "-ni")
	
	local declinfo
	
	if title.fullText == frame:getParent():getTitle() then
		declinfo = {
			"[[-ski]], [[-ty]]",
			"[[-ska]], [[-ta]]",
			"[[-skie]], [[-te]]",
			"[[-scy]], [[-ci]]",
			"[[-skie]], [[-te]]",
			"[[-skiego]], [[-tego]]",
			"[[-skiej]], [[-tej]]",
			"[[-skich]], [[-tych]]",
			"[[-skiemu]], [[-temu]]",
			"[[-skim]], [[-tym]]",
			"[[-ską]], [[-tą]]",
			"[[-skim]], [[-tym]]",
			"[[-skimi]], [[-tymi]]",
			"[[-sku]], [[-tu]]"
		}
	else
		declinfo = export.autoinflect(lemma, pargs) or error(("No declension pattern matches '%s'"):format(lemma))
		
		if not (pargs.olddat and pargs.olddat ~= "") then
			declinfo[14] = nil
		end
		if nom_m_sg then
			-- support short adjectives
			declinfo[1] = nom_m_sg
		end
		if nom_vr_pl then
			-- support [[wesół]]
			declinfo[4] = nom_vr_pl
		end
	end

	if mw.isSubsting() then
		return ("{{pl-decl-adj}}"):format(
			declinfo[1],
			declinfo[2],
			declinfo[3],
			declinfo[4],
			declinfo[5],
			declinfo[6],
			declinfo[7],
			declinfo[8],
			declinfo[9],
			declinfo[10],
			declinfo[11],
			declinfo[12],
			declinfo[13],
			declinfo[14] and (("|%s"):format(declinfo[14])) or ""
		)
	else
		lemma = nom_m_sg or lemma
		local table_title = pargs.title or (lemma and ('Declension of <i class="Latn mention" lang="pl" xml:lang="pl">%s</i>'):format(lemma)) or "declension table"
		return make_table(declinfo, table_title, title.fullText)
	end
end

return export