Module:pl-adj
Jump to navigation
Jump to search
- The following documentation is located at Module:pl-adj/documentation. [edit] Categories were auto-generated by Module:module categorization. [edit]
- Useful links: subpage list • links • transclusions • testcases • sandbox
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