Module:Pl-adj

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["^((.+)[npbfwsz]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 = 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 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 return ([=[ %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="background-color:#CCCCFF;" 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 "",		pargs[ 2] or "",		pargs[ 3] or "",		pargs[ 4] or "",		pargs[ 5] or "",		pargs[ 6] or "",		pargs[ 7] or "",		pargs[ 8] or "",		pargs[ 9] or "",		pargs[10] or "",		pargs[11] or "",		pargs[12] or "",		pargs[13] or "",		pargs[14] or ((title.fullText == frame:getParent:getTitle) and ""),	}, pargs.title or ('declension of %s'):format(pargs.head or ((title.namespace == 0) and title.text or (pargs[1] or ""))), 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 = '' end declinfo[4] = pargs[2] end

if mw.isSubsting then return (""):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 %s'):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 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 end

if mw.isSubsting then return (""):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 %s'):format(lemma)) or "declension table" return make_table(declinfo, table_title, title.fullText) end end

return export