Module:sw-conj

Definition from Wiktionary, the free dictionary
Jump to navigation Jump to search

For use in {{sw-conj}}.


local m_links = require("Module:links")
local m_utils = require("Module:utilities")
local lang = require("Module:languages").getByCode("sw")

PAGENAME = mw.title.getCurrentTitle().text or ''
local export = {}

local o_of_reference = {
	"ye", "o", "yo", "lo", "cho", "vyo", "zo", "ko", "po", "mo"
}

local obj_infixes = {
	"ni", "ku", "m", "tu", "wa", "ji", "u", "i", "li", "ya", "ki", "vi", "zi", "pa", "mu"
}

local irreg_kw_inf = {
	['isha'] = true,
	['enda'] = true,
	['anza'] = true,
}

local subj_list = {
	"1s", "2s", "3s", "1p", "2p", "3p",
	"3c", "4c", "5c", "6c", "7c", "8c", "9c", "10c", "11c", "15c", "16c", "18c",
}

local subjects = {
	["p"] = {
		["1s"] = {"ni"},
		["2s"] = {"u"},
		["3s"] = {"a"},
		["1p"] = {"tu"},
		["2p"] = {"m"},
		["3p"] = {"wa"},
		["3c"] = {"u"},
		["4c"] = {"i"},
		["5c"] = {"li"},
		["6c"] = {"ya"},
		["7c"] = {"ki"},
		["8c"] = {"vi"},
		["9c"] = {"i"},
		["10c"] = {"zi"},
		["11c"] = {"u"},
		["15c"] = {"ku"},
		["16c"] = {"pa"},
		["18c"] = {"mu"},
	},
	["n"] = {
		["1s"] = {"si"},
		["2s"] = {"hu"},
		["3s"] = {"ha"},
		["1p"] = {"hatu"},
		["2p"] = {"ham"},
		["3p"] = {"hawa"},
		["3c"] = {"hau"},
		["4c"] = {"hai"},
		["5c"] = {"hali"},
		["6c"] = {"haya"},
		["7c"] = {"haki"},
		["8c"] = {"havi"},
		["9c"] = {"hai"},
		["10c"] = {"hazi"},
		["11c"] = {"hau"},
		["15c"] = {"haku"},
		["16c"] = {"hapa"},
		["18c"] = {"hamu"},
	},
	["cont"] = {
		["1s"] = {"n"},
		["2s"] = {"w"},
		["3s"] = {""},
		["1p"] = {"tw"},
		["2p"] = {"mw"},
		["3p"] = {"w"},
		["3c"] = {"w"},
		["4c"] = {"y"},
		["5c"] = {"l"},
		["6c"] = {"y"},
		["7c"] = {"ch"},
		["8c"] = {"vy"},
		["9c"] = {"y"},
		["10c"] = {"z"},
		["11c"] = {"w"},
		["15c"] = {"kw"},
		["16c"] = {"p"},
		["18c"] = {"mw"},
	},
}
subjects.r = subjects.p

local tam = {
	["past"] = {
		["p"] = {{
			"li",
			alt = {
				["1s"] = {"ni", "na"},
				["2s"] = {"u", "wa"},
				["1p"] = {"tu", "twa"},
				["2p"] = {"m", "mwa"}
			},
			mono = true,
		}},
		["r"] = {{
			"lio",
			alt = {
				["1s"] = {"ni", "na"},
				["2s"] = {"u", "wa"},
				["1p"] = {"tu", "twa"},
				["2p"] = {"m", "mwa"}
			},
			mono = true,
		}},
		["n"] = {{"ku"}},
	},
	["pres"] = {
		["p"] = {{
			"na",
			alt = {
				["1s"] = {"ni", ""}
			},
			mono = true,
		}},
		["r"] = {{
			"nao",
			alt = {
				["1s"] = {"ni", ""}
			},
			mono = true,
		}},
		["n"] = {{
			"",
			final = "i",
			mono = true,
		}},
	},
	["fut"] = {
		["p"] = {{
			"ta",
			mono = true,
		}},
		["r"] = {{
			"takao",
			mono = true,
		}},
		["n"] = {{
			"ta",
			mono = true,
		}},
	},
	["cond_pres"] = {
		["p"] = {{
			"nge",
			mono = true,
		}},
		["n"] = {
			{
				"singe",
				alt = subjects.p,
				mono = true,
			},
			{
				"nge",
				alt = subjects.n,
				mono = true,
			}
		}
	},
	["cond_past"] = {
		["p"] = {{
			"ngali",
			mono = true,
		}},
		["n"] = {
			{
				"singali",
				alt = subjects.p,
				mono = true,
			},
			{
				"ngali",
				alt = subjects.n,
				mono = true,
			}
		}
	},
	["cond_cont"] = {
		["p"] = {{
			"ngeli",
			mono = true,
		}},
	},
	["perf"] = {
		["p"] = {{
			"me",
			mono = true,
		}},
	},
	["alr"] = {
		["p"] = {{
			"mesha",
			mono = true,
		}},
	},
	["ifw"] = {
		["p"] = {{"ki"}},
	},
	["cons"] = {
		["p"] = {{"ka"}},
	},
	["gnom"] = {
		["p"] = {{
			"a",
			alt = subjects.cont,
		}},
	},
	["ny"] = {
		["n"] = {{"ja"}},
	},
	["ifn"] = {
		["n"] = {{
			"sipo",
			alt = subjects.p,
			mono = true,
		}},
	},
	["subj"] = {
		["p"] = {{
			"",
			final = "e"
		}},
		["n"] = {{
			"si",
			final = "e",
			alt = subjects.p,
		}},
	},
	["rel"] = {
		["p"] = {{
			"",
			final = "ao",
		}},
		["n"] = {{
			"sio",
			alt = subjects.p,
			mono = true,
		}},
	},
}
local tamcopy = tam

function tablelength(T)
  local count = 0
  for _ in pairs(T) do count = count + 1 end
  return count
end

local function get_stem(lemma, args)
	if not mw.ustring.match(lemma, "a$") then
		-- Arabic verb
		return lemma, true, false, {"Swahili verbs in the Arabic conjugation"}
	elseif mw.ustring.match(lemma, "^[^aeiou]+a$") or args.mono ~= nil then
		-- Monosyllabic
		return mw.ustring.gsub(lemma, "^(.*)a$", "%1"), false, true, {"Swahili verbs in the monosyllabic conjugation"}
	else
		-- Normal verbs
		return mw.ustring.gsub(lemma, "^(.*)a$", "%1"), false, false, {}
	end
end

local function link(term, accel_optional)
	if accel_optional then
		return m_links.full_link({lang = lang, term = term, allowSelfLink = false, accel = {form = accel_optional} })
	else
		return m_links.full_link({lang = lang, term = term, allowSelfLink = false})
	end
end

local function user_specified(text)
	if text == '-' then
		return '—'
	else
		local temp = {}
		for i, term in ipairs(mw.text.split(text, '/')) do
			table.insert(temp, link(term))
		end
		return table.concat(temp, '<br/>')
	end
end

local function make_forms(args, lemma, stem, arabic, monosyllabic)
	local tag, temp, form, subjs
	local forms = {}
	
	local inf, inf_stem = table.concat{'ku', lemma}, table.concat{'ku', stem}
	if args.inf then
		forms.inf = user_specified(args.inf)
	elseif irreg_kw_inf[lemma] then
		inf, inf_stem = table.concat{'kw', lemma}, table.concat{'kw', stem}
		forms.inf = link(inf)
	else
		forms.inf = link(inf)
	end
	
	if args.inf_n then
		forms.inf_n = user_specified(args.inf_n)
	elseif monosyllabic then
		forms.inf_n = link(table.concat{'kuto', inf})
	else
		forms.inf_n = link(table.concat{'kuto', lemma})
	end
	
	if args.hab then
		forms.hab = user_specified(args.hab)
	else
		forms.hab = link(table.concat{'hu', lemma})
	end
	
	if args.imp_s then
		forms.imp_s = user_specified(args.imp_s)
	elseif arabic then
		forms.imp_s = link(lemma)
	elseif monosyllabic then
		forms.imp_s = link(inf)
	else
		forms.imp_s = link(lemma)
	end
	
	if args.imp_p then
		forms.imp_p = user_specified(args.imp_p)
	elseif arabic then
		forms.imp_p = link(table.concat{lemma, 'ni'})
	elseif monosyllabic then
		forms.imp_p = link(table.concat{inf_stem, 'eni'})
	else
		forms.imp_p = link(table.concat{stem, 'eni'})
	end
	
	forms.title = table.concat{"''-", lemma, "''"}
	
	for _, infix in ipairs(obj_infixes) do
		tagfix = infix
		lemmafix = lemma
		if infix == "m" and string.match(string.sub(lemma, 1, 1), "[aeiou]") then
			infix = "mw"
		end
		forms["inf_obj_" .. tagfix] = 'ku' .. infix .. lemma
		forms["hab_obj_" .. tagfix] = 'hu' .. infix .. lemma
		if infix == "ku" or infix == "wa" then -- -eni/-ni ending
			if string.sub(lemma, -1) == "a" then
				lemmafix = string.reverse(string.gsub(string.reverse(lemma), 'a', 'e', 1))
			end
			forms["inf_obj_" .. tagfix] = forms["inf_obj_" .. tagfix] .. '<br/>' .. 'ku' .. infix .. lemmafix .. 'ni'
			forms["hab_obj_" .. tagfix] = forms["hab_obj_" .. tagfix] .. '<br/>' .. 'hu' .. infix .. lemmafix .. 'ni'
		end
	end
	
	for tam, tam_val in pairs(tam) do
		for pol, pols in pairs(tam_val) do
			for _, subj_name in ipairs(subj_list) do
				tag = table.concat({tam, pol, subj_name}, '_')
				temp = {}
				if args[tag] ~= nil then -- user specified
					forms[tag] = user_specified(args[tag])
				else
					for _, pol_val in ipairs(pols) do
						if pol_val.alt and pol_val.alt[subj_name] then
							subjs = pol_val.alt[subj_name]
						else
							subjs = subjects[pol][subj_name]
						end
						for _, subj in ipairs(subjs) do
							accel_keywords = nil
							form = {}
							-- subject marker
							table.insert(form, subj)
							-- tam
							table.insert(form, pol_val[1])
							-- stem
							if monosyllabic and pol_val.mono and not (pol == 'n' and tam == 'pres') then
								table.insert(form, inf_stem)
							else
								table.insert(form, stem)
							end
							-- suffix
							if arabic then
								table.insert(form, "")
							elseif pol_val.final then
								table.insert(form, pol_val.final)
							else
								table.insert(form, "a")
							end
							if (tam == "past" and pol == "r") or (tam == "pres" and pol == "r") or (tam == "fut" and pol == "r") or (tam == "rel" and pol == "p") or (tam == "rel" and pol == "n") then
								if tam == "rel" and pol == "p" then
									oindex = 4
								else
									oindex = 2
								end
								for _, o in ipairs(o_of_reference) do
									relform = {}
									for k, v in pairs(form) do
    									relform[k] = v
									end
									if tam == "rel" and lemma == "wa" then
										if pol == "p" then
											relform[3] = "li"
											relform[4] = "o"
										end
										if pol == "n" then
											relform[3] = ""
											relform[4] = ""
										end
									end
									relform[oindex] = string.gsub(relform[oindex], "o", o)
									if forms[tag .. "_" .. o] ~= nil then -- handles alt forms "na" vs "nina", etc
										forms[tag .. "_" .. o] = forms[tag .. "_" .. o] .. '<br/>' .. table.concat(relform)
									else
										forms[tag .. "_" .. o] = table.concat(relform) -- link(table.concat(relform))
									end
									if oindex == 2 and string.sub(relform[3], 1, 1) == "i" then -- double i as in "aliyoiita"
										relform[oindex] = string.gsub(relform[oindex], o, o .. "i")
										forms[tag .. "_" .. o] = forms[tag .. "_" .. o] .. '<br/>' .. table.concat(relform) -- link(table.concat(relform))
									end
									if lemma == "wa" and (tam == "rel" or tam == "past" or tam == "fut") then -- special case locative options for -wa
										forms[tag .. "_" .. o] = forms[tag .. "_" .. o] .. '<br/>' .. table.concat(relform) .. 'po'
										forms[tag .. "_" .. o] = forms[tag .. "_" .. o] .. '<br/>' .. table.concat(relform) .. 'ko'
										forms[tag .. "_" .. o] = forms[tag .. "_" .. o] .. '<br/>' .. table.concat(relform) .. 'mo'
									end
								end
							end
							for _, infix in ipairs(obj_infixes) do
								obji = infix
								objform = {}
								for k, v in pairs(form) do
    								objform[k] = v
								end
								if infix == "m" and string.match(string.sub(objform[3], 1, 1), "[aeiou]") then
									infix = "mw"
								end
								objform[2] = objform[2] .. infix
								if forms[tag .. "_" .. obji] ~= nil then -- handles alt forms "na" vs "nina", etc
									forms[tag .. "_" .. obji] = forms[tag .. "_" .. obji] .. '<br/>' .. table.concat(objform)
								else
									forms[tag .. "_" .. obji] = table.concat(objform) -- link(table.concat(objform))
								end
								if infix == "ku" or infix == "wa" then -- -eni/-ni ending
									if string.sub(objform[4], -1) == "a" then
										objform[4] = string.gsub(objform[4], "a", "e")
									end
									objform[4] = objform[4] .. "ni"
									forms[tag .. "_" .. obji] = forms[tag .. "_" .. obji] .. '<br/>' .. table.concat(objform) -- link(table.concat(objform))
								end
							end
							output_subj = subj_name
							addition = ""
							tampol = ""
							if true then
								if subj_name == "3s" then
									addition = "m-wa|singular"
								elseif subj_name == "3p" then
									addition = "m-wa|plural"
								elseif subj_name == "3c" then
									output_subj = "m-mi|singular"
								elseif subj_name == "4c" then
									output_subj = "m-mi|plural"
								elseif subj_name == "5c" then
									output_subj = "ji-ma|singular"
								elseif subj_name == "6c" then
									output_subj = "ji-ma|plural"
								elseif subj_name == "7c" then
									output_subj = "ki-vi|singular"
								elseif subj_name == "8c" then
									output_subj = "ki-vi|plural"
								elseif subj_name == "9c" then
									output_subj = "n-n|singular"
								elseif subj_name == "10c" then
									output_subj = "n-n|plural"
									addition = "u-n|plural"
								elseif subj_name == "11c" then
									output_subj = "u-n|singular"
								elseif subj_name == "15c" then
									output_subj = "ku"
									addition = "ku-loc"
								elseif subj_name == "16c" then
									output_subj = "pa"
								elseif subj_name == "18c" then
									output_subj = "mu"
								end
								if tam == "pres" and pol == "p" then
									tampol = "|present"
								elseif tam == "pres" and pol == "n" then
									tampol = "|present|negative"
								elseif tam == "perf" and pol == "p" then
									tampol = "|perfect"
								elseif tam == "gnom" and pol == "p" then
									tampol = "|gnomic"
								elseif tam == "subj" and pol == "p" then
									tampol = "|subjunctive"
								elseif tam == "subj" and pol == "n" then
									tampol = "|subjunctive|negative"
								elseif tam == "past" and pol == "p" then
									tampol = "|past"
								elseif tam == "past" and pol == "n" then
									tampol = "|past|negative"
								elseif tam == "fut" and pol == "p" then
									tampol = "|future"
								elseif tam == "fut" and pol == "n" then
									tampol = "|future|negative"
								elseif tam == "cons" and pol == "p" then
									tampol = "|consecutive"
								elseif tam == "cond_pres" and pol == "p" then
									tampol = "|conditional"
								elseif tam == "ifw" and pol == "p" then
									tampol = "|situational"
								end
								if tampol ~= "" then
									accel_keywords = "verb:|" .. output_subj .. tampol
									if addition ~= "" then
										accel_keywords = accel_keywords .. "|;|" .. addition .. tampol
									end
								end
							end
							if accel_keywords == "" then
								table.insert(temp, link(table.concat(form)))
							else
								table.insert(temp, link(table.concat(form), accel_keywords))
							end
						end
					end
					forms[tag] = table.concat(temp, "<br/>")
				end
			end
		end
	end
	return forms
end

function export.show(frame)
	if
		mw.title.getCurrentTitle().nsText == "Template" and
		tablelength(frame:getParent().args) == 0 
	then
		return frame:expandTemplate{title= 'sw-conj/table', args = {}}
	end
	
	local args = frame:getParent().args or {}
	
	local lemma = args[1] or PAGENAME
	local stem, arabic, monosyllabic, cat = get_stem(lemma, args)
	
	return frame:expandTemplate{
		title= 'sw-conj/table',
		args = make_forms(args, lemma, stem, arabic, monosyllabic)
		} .. m_utils.format_categories(cat, lang)
end

function export.show_sandbox(frame)
	if
		mw.title.getCurrentTitle().nsText == "Template" and
		tablelength(frame:getParent().args) == 0 
	then
		return frame:expandTemplate{title= 'sw-conj/table/sandbox', args = {}}
	end
	
	local args = frame:getParent().args or {}
	
	local lemma = args[1] or PAGENAME
	local stem, arabic, monosyllabic, cat = get_stem(lemma, args)
	
	return frame:expandTemplate{
		title= 'sw-conj/table/sandbox',
		args = make_forms(args, lemma, stem, arabic, monosyllabic)
		} .. m_utils.format_categories(cat, lang)
end

function export.show_pres_prn(frame)
	if
		mw.title.getCurrentTitle().nsText == "Template" and
		tablelength(frame:getParent().args) == 0 
	then
		return frame:expandTemplate{title= 'sw-conj/table-pres-prn', args = {}}
	end
	
	local args = frame:getParent().args or {}
	
	local lemma = args[1] or PAGENAME
	local stem, arabic, monosyllabic, cat = get_stem(lemma, args)
	
	return frame:expandTemplate{
		title= 'sw-conj/table-pres-prn',
		args = make_forms(args, lemma, stem, arabic, monosyllabic)
		} .. m_utils.format_categories(cat, lang)
end

function export.show_pres_pn(frame)
	if
		mw.title.getCurrentTitle().nsText == "Template" and
		tablelength(frame:getParent().args) == 0 
	then
		return frame:expandTemplate{title= 'sw-conj/table-pres-pn', args = {}}
	end
	
	local args = frame:getParent().args or {}
	
	local lemma = args[1] or PAGENAME
	local stem, arabic, monosyllabic, cat = get_stem(lemma, args)
	
	return frame:expandTemplate{
		title= 'sw-conj/table-pres-pn',
		args = make_forms(args, lemma, stem, arabic, monosyllabic)
		} .. m_utils.format_categories(cat, lang)
end

function export.show_pres_p(frame)
	if
		mw.title.getCurrentTitle().nsText == "Template" and
		tablelength(frame:getParent().args) == 0 
	then
		return frame:expandTemplate{title= 'sw-conj/table-pres-p', args = {}}
	end
	
	local args = frame:getParent().args or {}
	
	local lemma = args[1] or PAGENAME
	local stem, arabic, monosyllabic, cat = get_stem(lemma, args)
	
	return frame:expandTemplate{
		title= 'sw-conj/table-pres-p',
		args = make_forms(args, lemma, stem, arabic, monosyllabic)
		} .. m_utils.format_categories(cat, lang)
end

return export