Mòdul:pl-adj
A continuació es mostra la documentació transclosa de la subpàgina /ús. [salta a la caixa de codi]
Mòdul de suport per la plantilla {{pl-adj-decl}} per a generar la taula de declinació d’un adjectiu en polonès. Vegeu la plantilla per al seu ús.
local p = {}
local lang = {code = "pl", name = "polonès", sc = "Latn"}
local m_links = require('Module:enllaç')
local m_navbar = require('Module:navbar')
-- 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]$"]
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 = p.autoinflect(stem, pargs)
if result then
for i, item in ipairs(result) do
result[i] = item .. "kolwiek"
end
return result
end
end
function p.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 p.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 maxl = 0
for i, item in ipairs(items) do
table.insert(itemlinks, item and m_links.full_link({lang = lang, term = item}))
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
local navbar = m_navbar._open({style="display: block; width: %uem;", title="%s"})
return (navbar .. [=[
{| class="wikitable inflection-table" style="text-align: center; width: %uem; margin: 0; border-collapse: collapse; border-color: #a2a9b1;"
! rowspan="2" style="width: 11em;" title="przypadek" | cas
! colspan="4" scope="colgroup" title="liczba pojedyncza" | singular
! colspan="3" scope="colgroup" title="liczba mnoga" | plural
|-
! style="min-width: 8em;" scope="col" title="rodzaj męskoosobowy/męskozwierzęcy" | masculí animat
! style="min-width: 8em;" scope="col" title="rodzaj męskorzeczowy" | masculí inanimat
! style="min-width: 8em;" scope="col" title="rodzaj nijaki" | neutre
! style="min-width: 8em;" scope="col" title="rodzaj żeński" | femení
! style="min-width: 8em;" scope="col" title="rodzaj męskoosobowy" | viril
! style="min-width: 8em;" scope="col" title="rodzaj niemęskoosobowy" | no viril
|-
! title="mianownik (jaki? jaka? jakie?), wołacz (o!)" scope="row" | nominatiu, vocatiu
| colspan="2" | %s
| %s
| %s
| %s
| %s
|-
! title="dopełniacz (jakiego? jakiej?)" scope="row" | genitiu
| colspan="3" | %s
| rowspan="2" | %s
| colspan="2" | %s
|-
! title="celownik (jakiemu? jakiej?)" scope="row" | datiu
| colspan="3" | %s
| colspan="2" | %s
|-
! title="biernik (jakiego? jaki? jaką? jakie?)" scope="row" | acusatiu
| %s
| %s
| %s
| rowspan="2" | %s
| %s
| %s
|-
! title="narzędnik (jakim? jaką?)" scope="row" | instrumental
| colspan="3" rowspan="2" | %s
| colspan="2" | %s
|-
! title="miejscownik (jakim? jakiej?)" scope="row" | locatiu
| %s
| colspan="2" | %s%s
]=]):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="font-style:italic;" scope="row" title="stary celownik (po jakiemu?)" | datiu antic
| lang="pl" xml:lang="pl" | %s
]=]):format(itemlinks[14]) or "")
.. [=[
|}]=]) .. m_navbar._close()
end
function p.template_decl(frame)
local title = mw.title.getCurrentTitle()
local pargs = frame:getParent().args
local i = 1
while pargs[i] do
pargs[i] = mw.text.trim(pargs[i])
i = i + 1
end
if pargs[2] then
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 ('Declinació de <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
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 = p.autoinflect(lemma, pargs) or error(("No s'ha trobat cap paradigma de declinació per '%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
lemma = nom_m_sg or lemma
local table_title = pargs.title or (lemma and ('Declinació de <i class="Latn mention" lang="pl" xml:lang="pl">%s</i>'):format(lemma)) or "taula de declinació"
return make_table(declinfo, table_title, title.fullText)
end
return p