Module:urj-fin-nominals

From Wiktionary, the free dictionary
Jump to navigation Jump to search
The following documentation is located at Module:urj-fin-nominals/documentation. [edit] Categories were auto-generated by Module:module categorization. [edit]
Useful links: subpage list • links • transclusions • testcases • sandbox
This module needs documentation.
Please document this module by describing its purpose and usage on the documentation page. 
local m_utilities = require("Module:utilities")
local m_links = require("Module:links")
local m_common = require("Module:urj-fin-common")

local export = {}

local lang = require("Module:languages").getByCode("urj-fin-pro")

-- Functions that do the actual inflecting by creating the forms of a basic term.
local inflections = {}

-- The main entry point.
-- This is the only function that can be invoked from a template.
function export.show(frame)
	local args = frame:getParent().args
	
	local data = {forms = {}, title = nil, categories = {}}
	
	-- Generate the forms
	inflect(args, data)
	
	-- Apply gradation
	for key, forms in pairs(data.forms) do
		for i, form in ipairs(forms) do
			forms[i] = m_common.apply_gradation(form)
		end
	end
	
	-- Check if the lemma form matches the page name
	if data.forms["nom_sg"] and (lang:makeEntryName(data.forms["nom_sg"][1])) ~= mw.title.getCurrentTitle().subpageText then
		table.insert(data.categories, lang:getCanonicalName() .. " entries with inflection not matching pagename")
	end
	
	return make_table(data) .. m_utilities.format_categories(data.categories, lang)
end

function inflect(args, data)
	local prefix = args[1] or ""
	local stem = args[2] or ""
	
	if stem == "" then
		stem = prefix
		prefix = ""
	end
	
	if stem == "" then
		if mw.title.getCurrentTitle().nsText == "Template" then
			stem = "-"
		else
			error("Parameter 1 (stem) must be provided")
		end
	end
	
	local vowels = m_common.detect_harmony(stem)
	local stems = m_common.make_stems((mw.ustring.gsub(stem, "([aeiouäëöü])n[eë]n$", "%1c")))
	
	if mw.ustring.find(stem, "[aeiouäëöü]n[eë]n$") then
		stems.final = stem
	end
	
	make_forms(stems, vowels, data)
	
	if mw.ustring.find(stem, "^[mc]inu$") then
		data.forms["nom_sg"] = {(mw.ustring.gsub(stem, "u$", "ä"))}
		
		for key, form in pairs(data.forms) do
			if key:find("_pl") then
				data.forms[key] = nil
			end
		end
	elseif mw.ustring.find(stem, "^[mth]e$") then
		data.forms["nom_pl"] = {stem, (mw.ustring.gsub(stem, "e$", "öö"))}
		data.forms["acc_pl"] = {stem .. "det", stem .. "idet"}
		
		for key, form in pairs(data.forms) do
			if key:find("_sg") then
				data.forms[key] = nil
			end
		end
	elseif stem == "hän" then
		data.forms["nom_sg"] = {"hän"}
		
		for key, form in pairs(data.forms) do
			if key:find("_pl") then
				data.forms[key] = nil
			end
		end
	end
	
	for key, subforms in pairs(data.forms) do
		for i, form in ipairs(subforms) do
			subforms[i] = prefix .. form
		end
	end
	
	for _, t in ipairs(stems.types) do
		table.insert(data.categories, "Proto-Finnic nominals by type/" .. t)
	end
end

function make_forms(stems, vowels, data)
	data.forms["nom_sg"] = {stems.final}
	data.forms["acc_sg"] = {stems.normal .. "n"}
	data.forms["gen_sg"] = {stems.normal .. "n"}
	data.forms["par_sg"] = {stems.t .. vowels.a}
	data.forms["ine_sg"] = {stems.normal .. "ss" .. vowels.a, stems.normal .. "hn" .. vowels.a}
	data.forms["ela_sg"] = {stems.normal .. "st" .. vowels.a}
	data.forms["ill_sg"] = {stems.normal .. "s" .. vowels.e .. "n"}
	data.forms["ade_sg"] = {stems.normal .. "ll" .. vowels.a}
	data.forms["abl_sg"] = {stems.normal .. "lt" .. vowels.a}
	data.forms["all_sg"] = {stems.normal .. "l" .. vowels.e .. "n", stems.normal .. "l" .. vowels.e .. "k"}
	data.forms["ess_sg"] = {stems.n .. vowels.a}
	data.forms["tra_sg"] = {stems.normal .. "ksi"}
	data.forms["com_sg"] = {stems.n .. vowels.e .. "k"}
	data.forms["ins_sg"] = {stems.normal .. "n"}
	data.forms["abe_sg"] = {stems.normal .. "tt" .. vowels.a}
	
	data.forms["nom_pl"] = {stems.normal .. "t"}
	data.forms["acc_pl"] = {stems.normal .. "t"}
	data.forms["gen_pl"] = {stems.t .. vowels.e .. "n", stems.i .. "t" .. vowels.e .. "n"}
	data.forms["par_pl"] = {stems.i .. "t" .. vowels.a}
	data.forms["ine_pl"] = {stems.i .. "ss" .. vowels.a, stems.i .. "hn" .. vowels.a}
	data.forms["ela_pl"] = {stems.i .. "st" .. vowels.a}
	data.forms["ill_pl"] = {stems.i .. "s" .. vowels.e .. "n"}
	data.forms["ade_pl"] = {stems.i .. "ll" .. vowels.a}
	data.forms["abl_pl"] = {stems.i .. "lt" .. vowels.a}
	data.forms["all_pl"] = {stems.i .. "l" .. vowels.e .. "n", stems.i .. "l" .. vowels.e .. "k"}
	data.forms["ess_pl"] = {stems.i .. "n" .. vowels.a}
	data.forms["tra_pl"] = {stems.i .. "ksi"}
	data.forms["com_pl"] = {stems.i .. "n" .. vowels.e .. "k"}
	data.forms["ins_pl"] = {stems.i .. "n"}
	data.forms["abe_pl"] = {stems.i .. "tt" .. vowels.a}
end


-- Functions for generating the inflection table

function show_form(form)
	if not form then
		return "—"
	elseif type(form) ~= "table" then
		error("a non-table value was given in the list of inflected forms.")
	end
	
	local ret = {}
	
	for key, subform in ipairs(form) do
		table.insert(ret, m_links.full_link({lang = lang, alt = "*" .. subform}))
	end
	
	return table.concat(ret, "<br/>")
end

-- Make the table
function make_table(data)
	return [=[<div class="NavFrame" style="width: 75%">
<div class="NavHead" style="background:rgb(80%,80%,100%);">Inflection of ]=] .. m_links.full_link({lang = lang, alt = "*" .. mw.title.getCurrentTitle().subpageText}, "term") .. (data.title and " (" .. data.title .. ")" or "") .. [=[</div>
<div class="NavContent">
{| class="inflection-table" style="width:100%; color:rgb(0%,0%,30%); border:solid 1px rgb(80%,80%,100%); text-align:left;" cellspacing="1" cellpadding="2"
| colspan="4" | '''Note''': The Proto-Finnic declension system is yet to be reconstructed in detail. What is presented here is only one possibility.
|-
|- style="background:rgb(80%,80%,100%);vertical-align:top;"
! style="width:33%;" colspan="2" |
! style="width:33%;" | singular
! style="width:33%;" | plural
|- style="background:rgb(95%,95%,100%);vertical-align:top;" |
! style="background:rgb(80%,80%,100%);" colspan="2" | nominative
| ]=] .. show_form(data.forms["nom_sg"]) .. [=[

| ]=] .. show_form(data.forms["nom_pl"]) .. [=[

|- style="background:rgb(95%,95%,100%);vertical-align:top;" | 
! style="background:rgb(80%,80%,100%);" colspan="2" | accusative
| ]=] .. show_form(data.forms["acc_sg"]) .. [=[

| ]=] .. show_form(data.forms["acc_pl"]) .. [=[

|- style="background:rgb(95%,95%,100%);vertical-align:top;" |
! style="background:rgb(80%,80%,100%);" colspan="2" | genitive
| ]=] .. show_form(data.forms["gen_sg"]) .. [=[

| ]=] .. show_form(data.forms["gen_pl"]) .. [=[

|- style="background:rgb(95%,95%,100%);vertical-align:top;" |
! style="background:rgb(80%,80%,100%);" colspan="2" | partitive
| ]=] .. show_form(data.forms["par_sg"]) .. [=[

| ]=] .. show_form(data.forms["par_pl"]) .. [=[

|- style="background:rgb(95%,95%,100%);vertical-align:top;" |
! style="background:rgb(80%,80%,100%);" colspan="2" | inessive
| ]=] .. show_form(data.forms["ine_sg"]) .. [=[

| ]=] .. show_form(data.forms["ine_pl"]) .. [=[

|- style="background:rgb(95%,95%,100%);vertical-align:top;" |
! style="background:rgb(80%,80%,100%);" colspan="2" | elative
| ]=] .. show_form(data.forms["ela_sg"]) .. [=[

| ]=] .. show_form(data.forms["ela_pl"]) .. [=[

|- style="background:rgb(95%,95%,100%);vertical-align:top;" |
! style="background:rgb(80%,80%,100%);" colspan="2" | illative
| ]=] .. show_form(data.forms["ill_sg"]) .. [=[

| ]=] .. show_form(data.forms["ill_pl"]) .. [=[

|- style="background:rgb(95%,95%,100%);vertical-align:top;" |
! style="background:rgb(80%,80%,100%);" colspan="2" | adessive
| ]=] .. show_form(data.forms["ade_sg"]) .. [=[

| ]=] .. show_form(data.forms["ade_pl"]) .. [=[

|- style="background:rgb(95%,95%,100%);vertical-align:top;" |
! style="background:rgb(80%,80%,100%);" colspan="2" | ablative
| ]=] .. show_form(data.forms["abl_sg"]) .. [=[

| ]=] .. show_form(data.forms["abl_pl"]) .. [=[

|- style="background:rgb(95%,95%,100%);vertical-align:top;" |
! style="background:rgb(80%,80%,100%);" colspan="2" | allative
| ]=] .. show_form(data.forms["all_sg"]) .. [=[

| ]=] .. show_form(data.forms["all_pl"]) .. [=[

|- style="background:rgb(95%,95%,100%);vertical-align:top;" |
! style="background:rgb(80%,80%,100%);" colspan="2" | essive
| ]=] .. show_form(data.forms["ess_sg"]) .. [=[

| ]=] .. show_form(data.forms["ess_pl"]) .. [=[

|- style="background:rgb(95%,95%,100%);vertical-align:top;" |
! style="background:rgb(80%,80%,100%);" colspan="2" | translative
| ]=] .. show_form(data.forms["tra_sg"]) .. [=[

| ]=] .. show_form(data.forms["tra_pl"]) .. [=[

|- style="background:rgb(95%,95%,100%);vertical-align:top;" |
! style="background:rgb(80%,80%,100%);" colspan="2" | instructive
| ]=] .. show_form(data.forms["ins_sg"]) .. [=[

| ]=] .. show_form(data.forms["ins_pl"]) .. [=[

|- style="background:rgb(95%,95%,100%);vertical-align:top;" |
! style="background:rgb(80%,80%,100%);" colspan="2" | comitative
| ]=] .. show_form(data.forms["com_sg"]) .. [=[

| ]=] .. show_form(data.forms["com_pl"]) .. [=[

|- style="background:rgb(95%,95%,100%);vertical-align:top;" |
! style="background:rgb(80%,80%,100%);" colspan="2" | abessive
| ]=] .. show_form(data.forms["abe_sg"]) .. [=[

| ]=] .. show_form(data.forms["abe_pl"]) .. [=[

|}
</div>
</div>]=]

end

return export
Retrieved from "https://en.wiktionary.org/w/index.php?title=Module:urj-fin-nominals&oldid=79050832"