Modul:ka-infl-noun

Tilføj links
Fra Wiktionary

Dokumentation for dette modul kan oprettes på Modul:ka-infl-noun/dok 

-- Description:
-- Serves [[Skabelon:ka-infl-noun]]

-- stripped down version of that of en wikt's

local export = {}

local strutils = require("Module:string utilities")
local declensionTable = require("Modul:ka-infl-noun/declension table")
local postpositionTable = require("Modul:ka-infl-noun/postposition table")

--see what savrtsobi means here [[სავრცობი]] 
function savrtsobi(s)
	dat = mw.ustring.sub(s, 1, 1)
	gen = mw.ustring.sub(s, 2, 2)
	ins = mw.ustring.sub(s, 3, 3)
	adv = mw.ustring.sub(s, 4, 4)
	return {
		["dat"] = dat ~= "-" and "("..dat..")" or "",
		["gen"] = gen ~= "-" and "("..gen..")" or "",
		["ins"] = ins ~= "-" and "("..ins..")" or "",
		["adv"] = adv ~= "-" and "("..adv..")" or "",
	}
end


rules = {}
rules["კაცი"] =  {
    ["nom1"] = "ი",
    ["erg1"] = "მა",
    ["dat1"] = "ს",
    ["gen1"] = "ის",
    ["ins1"] = "ით",
    ["adv1"] = "ად",
    ["voc1"] = "ო",
}
rules["დავითი"] =  {
    ["nom1"] = "ი",
    ["erg1"] = "მა",
    ["dat1"] = "ს",
    ["gen1"] = "ის",
    ["ins1"] = "ით",
    ["adv1"] = "ად",
    ["voc1"] = "",
}
rules["ჩაი"] =  {
    ["nom1"] = "",
    ["erg1"] = "მ",
    ["dat1"] = "ს",
    ["gen1"] = "ს",
    ["ins1"] = "თ",
    ["adv1"] = "დ",
    ["voc1"] = "",
}

rules["მთა"] =  {
    ["nom1"] = "",
    ["erg1"] = "მ",
    ["dat1"] = "ს",
    ["gen1"] = "ის",
    ["ins1"] = "ით",
    ["adv1"] = "დ",
    ["voc1"] = "ვ",
}
rules["ანა"] =  {
    ["nom1"] = "",
    ["erg1"] = "მ",
    ["dat1"] = "ს",
    ["gen1"] = "ს",
    ["ins1"] = "თ",
    ["adv1"] = "დ",
    ["voc1"] = "",
}
rules["ხე"] = rules["მთა"]

rules["ხბო"] =  {
    ["nom1"] = "",
    ["erg1"] = "მ",
    ["dat1"] = "ს",
    ["gen1"] = "ს",
    ["ins1"] = "თ",
    ["adv1"] = "დ",
    ["voc1"] = "ვ",
}
rules["დოდო"] = rules["ჩაი"]

local modernPluralRule =  {
    ["nom"] = "ი",
    ["erg"] = "მა",
    ["dat"] = "ს",
    ["gen"] = "ის",
    ["ins"] = "ით",
    ["adv"] = "ად",
    ["voc"] = "ო",
}
local archaicPluralRule =  {
    ["nom"] = "ნი",
    ["erg"] = "თ",
    ["dat"] = "თ",
    ["gen"] = "თ",
    --["ins"]
    --["adv"]
    ["voc"] = "ნო",
}

forms = {}
postpositions = {}

local definers = {}
local word = nil
local genstem = nil
local term = nil

local noplural = false
local givenname = false
local noarchaic = false
local nosingular = false

local wordType

local DEFINERS = {}

local terms

--Entry point
function export.main(frame)
	local args = frame:getParent().args
	--           debug only
	term = args.term or mw.title.getCurrentTitle().text --PAGENAME
	if mw.text.split(mw.title.getCurrentTitle().prefixedText, ":")[1] == "Template" then  return "" end
	
	terms = mw.text.split(term, " ")
	if #terms == 1 then 
		word = term
	else
		word = terms[#terms]
		table.remove(terms, #terms)
		definers = terms
	end
	
	local i = 1
	
	if args[1] ~= nil and (args[1] == "" or mw.ustring.find(args[1], "[ა-ჰ]") ~= nil) then
		genstem = args[1]
		if genstem == "" then genstem = word end
		i = i + 1
	end
	
	local params = {}
	params["noplural"] = false
	params["given name"] = false
	params["noarchaic"] = false
	params["nosingular"] = false
	
	local newarg = args[i] 
	while newarg ~= nil do
		if newarg == "-" then newarg = "noplural" end
		
		params[newarg] = true
		newarg = args[i]
		i = i + 1
	end
	
	noplural   = params["noplural"]
	givenname  = params["given name"]
	noarchaic  = params["noarchaic"] 
	nosingular = params["nosingular"]
	
	analize()
	deriveDefiners()
	fillTable()
	override(args)
	
	--postpositions. this has to happen before makeing links because it depends on square [[]] brackets
	fillPostpositions()

	makelinks()
	
	forms["note"] = ""
	

	return strutils.format(declensionTable.template, forms) .. "" .. strutils.format(postpositionTable.template, postpositions)
end


local STEM_SG
local STEM_SG_ADV
local STEM_SG_GEN_INST
local STEM_PL
local RULE
local SAVRTSOBI
local NOSINGULAR
local NOPLURAL
local NOARCHAIC

function analize()
	--initializing defaults for all endings
	if nosingular then NOSINGULAR = "" end
	if noplural or givenname then NOPLURAL = "" end
	if noarchaic then NOARCHAIC = "" end
	SAVRTSOBI = savrtsobi("აააა")
	--end defaultization xD
	
	local lastLetter = mw.ustring.sub(word, -1)
	if lastLetter == "ი" then
		STEM_SG = mw.ustring.sub(word, 0, -2)
		STEM_SG_GEN_INST = genstem or STEM_SG
		STEM_SG_ADV = genstem or STEM_SG
		
		STEM_PL = genstem or STEM_SG
		
		wordType = "კაცი"
		
		if givenname then
			SAVRTSOBI = savrtsobi("-აა-")
		end
		if genstem ~= nil then
			if #genstem == #word then
				STEM_SG = genstem
				wordType = "ჩაი"
				if not givenname then
					STEM_PL = mw.ustring.sub(word, 0, -2); --rules : "ტრამვაი"
				end
			end
		else
			if givenname then
				wordType = "დავითი"
			end
		end
	elseif lastLetter == "ა" then
		STEM_SG = word
		STEM_SG_GEN_INST = mw.ustring.sub(word, 0, -2)
		STEM_SG_ADV = word
		STEM_PL = mw.ustring.sub(word, 0, -2)
		
		
		wordType = "მთა"
		if givenname then
			STEM_SG_GEN_INST = word
			wordType = "ანა"
			SAVRTSOBI = savrtsobi("-იი-")
		elseif genstem ~= nil then
			STEM_SG_GEN_INST = genstem
			wordType = "ხბო"
			if #genstem ~= #word then
				STEM_SG_ADV = genstem .. "ა"
				STEM_PL = genstem
				wordType = "მთა"
			else
				SAVRTSOBI = savrtsobi("აიია")
			end
		end
	elseif lastLetter == "ე" then
		STEM_SG = word
		STEM_SG_GEN_INST = mw.ustring.sub(word, 0, -2)
		STEM_SG_ADV = word
		STEM_PL = word
		
		
		wordType = "მთა"
		if givenname then
			SAVRTSOBI = savrtsobi("-იი-")
			STEM_SG_GEN_INST = word
			wordType = "ანა"
		end
		if genstem ~= nil then
			STEM_SG_GEN_INST = genstem
			STEM_PL = genstem
			wordType = "ხბო"
			if #genstem ~= #word then
				STEM_SG_ADV = genstem.."ა"
				wordType = "მთა"
				SAVRTSOBI = savrtsobi("აიია")
			end
		end
	elseif lastLetter == "ო" or lastLetter == "უ" then
		STEM_SG = word
		STEM_SG_GEN_INST = word
		STEM_SG_ADV = word
		STEM_PL = word
		
		SAVRTSOBI = savrtsobi("აიია")
		
		if givenname then
			SAVRTSOBI = savrtsobi("-იი-")
		end
		
		wordType = "ხბო"
		if givenname then
			wordType = "დოდო"
		end
	end
	RULE = rules[wordType]
end



function fillTable()
	forms["term"] = term
	
	forms["nom1"] = NOSINGULAR or "[[" .. DEFINERS["nom12"] .. STEM_SG ..          RULE["nom1"] .. "]]"
	forms["erg1"] = NOSINGULAR or "[[" .. DEFINERS["erg12"] .. STEM_SG ..          RULE["erg1"] .. "]]"
	forms["dat1"] = NOSINGULAR or "[[" .. DEFINERS["dat12"] .. STEM_SG ..          RULE["dat1"] .. "]]" .. SAVRTSOBI["dat"]
	forms["gen1"] = NOSINGULAR or "[[" .. DEFINERS["gen12"] .. STEM_SG_GEN_INST .. RULE["gen1"] .. "]]" .. SAVRTSOBI["gen"]
	forms["ins1"] = NOSINGULAR or "[[" .. DEFINERS["ins12"] .. STEM_SG_GEN_INST .. RULE["ins1"] .. "]]" .. SAVRTSOBI["ins"]
	forms["adv1"] = NOSINGULAR or "[[" .. DEFINERS["adv12"] .. STEM_SG_ADV ..      RULE["adv1"] .. "]]" .. SAVRTSOBI["adv"]
	forms["voc1"] = NOSINGULAR or "[[" .. DEFINERS["voc12"] .. STEM_SG ..          RULE["voc1"] .. "]]"
	
	forms["nom2"] = NOPLURAL or "[[" .. DEFINERS["nom12"] .. STEM_PL .. "ებ" .. modernPluralRule["nom"] .. "]]"
	forms["erg2"] = NOPLURAL or "[[" .. DEFINERS["erg12"] .. STEM_PL .. "ებ" .. modernPluralRule["erg"] .. "]]"
	forms["dat2"] = NOPLURAL or "[[" .. DEFINERS["dat12"] .. STEM_PL .. "ებ" .. modernPluralRule["dat"] .. "]](ა)"
	forms["gen2"] = NOPLURAL or "[[" .. DEFINERS["gen12"] .. STEM_PL .. "ებ" .. modernPluralRule["gen"] .. "]](ა)"
	forms["ins2"] = NOPLURAL or "[[" .. DEFINERS["ins12"] .. STEM_PL .. "ებ" .. modernPluralRule["ins"] .. "]](ა)"
	forms["adv2"] = NOPLURAL or "[[" .. DEFINERS["adv12"] .. STEM_PL .. "ებ" .. modernPluralRule["adv"] .. "]](ა)"
	forms["voc2"] = NOPLURAL or "[[" .. DEFINERS["voc12"] .. STEM_PL .. "ებ" .. modernPluralRule["voc"] .. "]]"
	
	forms["nom3"] = NOPLURAL or NOARCHAIC or "[[" .. DEFINERS["nom3"] .. STEM_SG .. archaicPluralRule["nom"] .. "]]"
	forms["erg3"] = NOPLURAL or NOARCHAIC or "[[" .. DEFINERS["erg3"] .. STEM_SG .. archaicPluralRule["erg"] .. "]](ა)"
	forms["dat3"] = NOPLURAL or NOARCHAIC or "[[" .. DEFINERS["dat3"] .. STEM_SG .. archaicPluralRule["dat"] .. "]](ა)"
	forms["gen3"] = NOPLURAL or NOARCHAIC or "[[" .. DEFINERS["gen3"] .. STEM_SG .. archaicPluralRule["gen"] .. "]](ა)"
	--forms["ins3"]
	--forms["adv3"]
	forms["voc3"] = NOPLURAL or NOARCHAIC or "[[" .. DEFINERS["nom3"] .. STEM_SG .. archaicPluralRule["voc"] .. "]]"

end

function deriveDefiners()
	local marker = {
		["nom12"] = "ი",
		["erg12"] = "მა",
		["dat12"] = "",
		["gen12"] = "ი",
		["ins12"] = "ი",
		["adv12"] = "",
		["voc12"] = "ო",

		["nom3"]  = "ი",
		["erg3"]  = "",
		["dat3"]  = "",
		["gen3"]  = "",
		["voc3"]  = "ნო",
	}

	DEFINERS["nom12"] = ""
	DEFINERS["erg12"] = ""
	DEFINERS["dat12"] = ""
	DEFINERS["gen12"] = ""
	DEFINERS["ins12"] = ""
	DEFINERS["adv12"] = ""
	DEFINERS["voc12"] = ""

	DEFINERS["nom3"] = ""
	DEFINERS["erg3"] = ""
	DEFINERS["dat3"] = ""
	DEFINERS["gen3"] = ""
	DEFINERS["ins3"] = ""
	DEFINERS["adv3"] = ""
	DEFINERS["voc3"] = ""

	for index, definer in pairs(definers) do
		local trimLast = mw.ustring.sub(definer, 0, -2);
		local lastLetter = mw.ustring.sub(definer, -1)

		for case, val in pairs(DEFINERS) do
			DEFINERS[case] = DEFINERS[case] .. trimLast .. (lastLetter == "ი" and marker[case] or lastLetter) .. " "
		end
		--DEFINERS["nom12"] = DEFINERS["nom12"] .. " " .. trimLast + (lastLetter == "ი" and marker["nom12"] or lastLetter)
	end
end

function override(args)
	for case, text in pairs(forms) do --WARNING: NOTE, etc.
		forms[case] = mw.ustring.gsub(args[case] or "+", "+", forms[case])
	end	
end

function makelinks()
	for case, text in pairs(forms) do --WARNING: NOTE, etc.
		forms[case] = mw.ustring.gsub( text, "%[%[(.-)%]%](%([აი]%))", function (captured, sav) -- hyphen is 0 or more non greedy
					return "[[" .. captured .. "#Georgisk|" .. captured..sav .. "]]" end)
		forms[case] = mw.ustring.gsub( forms[case], "%[%[([^#]-)%]%]", function (captured) 
					return  "[[" .. captured .. "]]" end)
	end
	
	for postposition, text in pairs(postpositions) do --WARNING: NOTE, etc.
		postpositions[postposition] = mw.ustring.gsub( text, "%[%[(.-)%]%]", function (captured) -- hyphen is 0 or more non greedy
					return "[[" .. captured .. "]]" end)
	end
end


--<number of letters to truncate>, <letters to add>
--plurals are OK.
postpRules = {}
postpRules["კაცი"] = {
	["vit"] = {"dat", 1, "ივით"},
	["ze"] = {"dat", 1, "ზე"},
	["tan"] = {"dat", 1, "თან"},
	["shi"] = {"dat", 1, "ში"},

	["tvis"] = {"gen", 0, "თვის"},
	["ebr" ] = {"gen", 0, "ებრ"},
	["ken" ] = {"gen", 0, "კენ"},
	["gan" ] = {"gen", 0, "გან"},

	["dan" ] = {"ins", 1, "დან"},
	["urt" ] = {"ins", 0, "ურთ"},

	["mde" ] = {"adv", 1, "მდე"}
}
postpRules["დავითი"] = {
	["vit"] = {"dat", 1, "ივით"},
	["ze"] = {"dat", 1, "ზე"},
	["tan"] = {"dat", 1, "თან"},
	["shi"] = {"dat", 1, "ში"},

	["tvis"] = {"gen", 0, "თვის"},
	["ebr" ] = {"gen", 0, "ებრ"},
	["ken" ] = {"gen", 0, "კენ"},
	["gan" ] = {"gen", 0, "გან"},

	["dan" ] = {"ins", 1, "დან"},
	["urt" ] = {"ins", 0, "-"},

	["mde" ] = {"adv", 1, "მდე"}
}
postpRules["ჩაი"] = {
	["vit"] = {"dat", 1, "ვით"},
	["ze"] = {"dat", 1, "ზე"},
	["tan"] = {"dat", 0, "თან"},
	["shi"] = {"dat", 1, "ში"},

	["tvis"] = {"gen", 0, "თვის"},
	["ebr" ] = {"gen", 0, "ებრ"},
	["ken" ] = {"gen", 0, "კენ"},
	["gan" ] = {"gen", 0, "გან"},

	["dan" ] = {"ins", 1, "დან"},
	["urt" ] = {"ins", 0, "ურთ"},

	["mde" ] = {"adv", 1, "მდე"}
}
postpRules["მთა"] = {
	["vit"] = {"dat", 0, "ავით"},
	["ze"] = {"dat", 1, "ზე"},
	["tan"] = {"dat", 0, "თან"},
	["shi"] = {"dat", 1, "ში"},

	["tvis"] = {"gen", 0, "თვის"},
	["ebr" ] = {"gen", 0, "ებრ"},
	["ken" ] = {"gen", 0, "კენ"},
	["gan" ] = {"gen", 0, "გან"},

	["dan" ] = {"ins", 1, "დან"},
	["urt" ] = {"ins", 0, "ურთ"},

	["mde" ] = {"adv", 1, "მდე"}
}
postpRules["ანა"] = {
	["vit"] = {"dat", 0, "ავით"},
	["ze"] = {"dat", 1, "ზე"},
	["tan"] = {"dat", 0, "თან"},
	["shi"] = {"dat", 1, "ში"},

	["tvis"] = {"gen", 0, "თვის"},
	["ebr" ] = {"gen", 0, "ებრ"},
	["ken" ] = {"gen", 0, "კენ"},
	["gan" ] = {"gen", 0, "გან"},

	["dan" ] = {"ins", 1, "დან"},
	["urt" ] = {"ins", 0, "-"},

	["mde" ] = {"adv", 1, "მდე"}
}
postpRules["ხე"] = postpRules["მთა"]
postpRules["ხბო"] = postpRules["მთა"]
postpRules["დოდო"] = postpRules["ანა"]
postpRules["plural"] = postpRules["კაცი"]

function fillPostpositions()
	postpositions["term"] = term

	local postpRule = postpRules[wordType]
	local postpRule_pl = postpRules["plural"]
	for postSuffix, postGrammar in pairs(postpRule) do
		local case = postGrammar[1];
		local pattern = string.rep(".", postGrammar[2]) .. "%]%]";
		if case == "dat" or case == "gen" or  case == "ins" or case == "adv" then
			pattern = pattern .. "%(?[აი]?%)?"
		end
		local res = mw.ustring.gsub(forms[case.."1"], pattern, postGrammar[3].."]]")

		if postGrammar[3] == "-" then res = "-" end
		postpositions[postSuffix] = res
	end

	for postSuffix, postGrammar in pairs(postpRule_pl) do
		local case = postGrammar[1];
		local pattern = string.rep(".", postGrammar[2]) .. "%]%]";
		if case == "dat" or case == "gen" or  case == "ins" or case == "adv" then
			pattern = pattern .. "%(?[აი]?%)?"
		end
		local res = mw.ustring.gsub(forms[case.."2"], pattern, postGrammar[3].."]]")

		if postGrammar[3] == "-" then res = "-" end
		postpositions[postSuffix.."_pl"] = res
	end
end

return export
Hentet fra "https://da.wiktionary.org/w/index.php?title=Modul:ka-infl-noun&oldid=172069"