Modül:de-başlıkbaşı

local export = {}
local pos_functions = {}

local legal_gender = {
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
}

local gender_names = {
	 = "eril",
	 = "eril",
	 = "eril",
	 = "eril",
	 = "eril",
	 = "eril",
	 = "dişil",
	 = "dişil",
	 = "dişil",
	 = "dişil",
	 = "dişil",
	 = "dişil",
	 = "nötr",
	 = "nötr",
	 = "nötr",
	 = "nötr",
	 = "nötr",
	 = "cinsiyeti bilinmeyen",
	 = "cinsiyeti bilinmeyen",
	 = "cinsiyeti bilinmeyen",
	 = "cinsiyeti bilinmeyen",
	 = "cinsiyeti bilinmeyen",
	 = "çoğul",
	 = "çoğul",
}

local legal_verb_classes = {
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
	 = true,
}

local lang = require("Modül:diller").getirKodaGore("de")

-- 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
	PAGENAME = mw.title.getCurrentTitle().text
	
	local head = args; if head == "" then head = nil end
	
	local poscat = frame.args or error("Part of speech has not been specified. Please pass parameter 1 to the module invocation.")
	local class = frame.args; if class == "" then class = nil end
	
	local veri = {dil = lang, soz_kategorisi = poscat, kategoriler = {}, baslar = {head}, cinsiyetler = {}, cekimler = {}}
	
	if pos_functions then
		pos_functions(class, args, veri)
	end
	
	return
		require("Modül:başlık başı").tam_baslikbasi(veri)
end

pos_functions = function(class, args, veri)
	params = {
		 = {list = "comp"},
		 = {list = "sup"},
		 = {},
	}
	local args = require("Modül:parameters").process(args, params)
	veri.baslar = {args}
	
	if args == '-' then
		table.insert(veri.cekimler, {etiket = 'kıyaslanamayan'})
		table.insert(veri.kategoriler, 'Almanca kıyaslanamayan ön adlar')
		return
	end
	
	if #args > 0 then
		for i, form in ipairs(args) do
			args = {sozcuk = (form == 'er' and PAGENAME .. 'er' or form),
				accel = 'comparative-form-of'}
		end
	else
		args = {request = true}
		table.insert(veri.kategoriler, 'de-adj lacking comparative')
	end
	args.etiket = "]"
	table.insert(veri.cekimler, args)
	
	if #args > 0 then
		for i, form in ipairs(args) do
			args = {
				sozcuk = 'am ]',
				accel = 'superlative-form-of'}
		end
	else
		args = {request = true}
		table.insert(veri.kategoriler, 'de-adj lacking superlative')
	end
	args.etiket = "]"
	table.insert(veri.cekimler, args)
end

pos_functions = function(class, args, veri)
	params = {
		 = {list = 'c', default = '?'},
		 = {list = 'gen',
			default = (
				args == 'm' or
				args == 'e' or
				args == 'm-s' or
				args == 'e-t' or
				args == 'n' or
				args == 'n-s' or
				args == 'n-t'
				) and PAGENAME .. 's' or PAGENAME},
		 = {list = 'ç'},
		 = {list = 'dim'},
		 = {},
		 = {list = true},
		 = {list = true},
	}
	
	if veri.soz_kategorisi == 'adlar' then
		params.default = PAGENAME .. 'en'
	end
	
	local args = require("Modül:parameters").process(args, params)
	veri.baslar = {args}
	
	for _, g in ipairs(args) do
		if legal_gender then
			table.insert(veri.cinsiyetler, g)
			if gender_names ~= "cinsiyeti bilinmeyen" then
				table.insert(veri.kategoriler, "Almanca " .. gender_names .. " adlar")
			end
		else
			error("Gender “" .. g .. "” is not an valid German gender.")
		end
	end
	
	for i, form in ipairs(args) do
		args = {sozcuk = form, accel = 'genitive-form-of'}
	end
	args.etiket = "tamlayan hâli"
	table.insert(veri.cekimler, args)
	
	if args == '-' then
		table.insert(veri.cekimler, {etiket = 'çoğulu yok'})
		table.insert(veri.kategoriler, 'Almanca sayılamayan adlar')
	elseif #args > 0 then
		for i, form in ipairs(args) do
			args = {sozcuk = form, accel = 'plural-form-of'}
		end
		args.etiket = "çoğulu"
		table.insert(veri.cekimler, args)
	end
	
	if #args > 0 then
		for i, form in ipairs(args) do
			args = {
				sozcuk = form,
				cinsiyetler = {'n'},
				accel = 'diminutive-form-of gender-n'
				}
		end
		args.etiket = "küçültme"
		table.insert(veri.cekimler, args)
	end
	
	if #args.d > 0 then
		args.d.etiket = "dişil"
		table.insert(veri.cekimler, args.d)
	end
	
	if #args.e > 0 then
		args.e.etiket = "eril"
		table.insert(veri.cekimler, args.e)
	end
end

pos_functions = pos_functions

function export.detect_type(pr,pa,pp,ps)
	local args = {
		type = "",
		class = "",
	}
	local prefix = ""
	if mw.ustring.match(pr," ") then
		pr, prefix = mw.ustring.match(pr, "(+) (.+)")
		prefix = mw.ustring.gsub(prefix, " ", "")
	end
	pr = mw.ustring.gsub(pr, "e?t$", "")
	pa = mw.ustring.gsub(pa, " .+", "")
	ps = mw.ustring.gsub(ps, " .+", "")
	pp = mw.ustring.gsub(pp, " ", "")
	pp = mw.ustring.gsub(pp, prefix, "")
	pr = mw.ustring.gsub(pr, "ß", "ss")
	pa = mw.ustring.gsub(pa, "ß", "ss")
	pp = mw.ustring.gsub(pp, "ß", "ss")
	ps = mw.ustring.gsub(ps, "ß", "ss")
	local e = mw.ustring.match(pr, "$") and "e" or ""
	if pr .. e .. "te" == pa then
		args.type = 'weak'
	else
		local before, stem_vowel, long = mw.ustring.match(pr, "^(.-)(+)(*)$")
		long = long or ""
		local short = long
		if mw.ustring.len(long) == 1 then
			short = long .. long
		elseif mw.ustring.match(long,"^h.$") then
			short = mw.ustring.gsub(long,"h(.)","%1%1")
		elseif mw.ustring.match(long,"^(.)%1") then
			long = mw.ustring.sub(long,1,1)
			short = long .. long
		end
		mw.log(pr,pa,pp,ps,before,stem_vowel,short,long)
		local function check(class, past, participle)
			participle = participle or past
			if pa == (before .. past .. long) then
				if pp == (before .. participle .. long .. "en") or pp == ("ge" .. before .. participle .. long .. "en") then
				args.type = "strong"
					args.class = type(class) == "string" and class or class()
					return true
				end
			elseif pa == (before .. past .. short) then
				if pp == (before .. participle .. short .. "en") or pp == ("ge" .. before .. participle .. short .. "en") then
					args.type = "strong"
					args.class = type(class) == "string" and class or class()
					return true
				end
			end
			return false
		end
		
		local function check_stem(class, stem)
			if mw.ustring.match(pr, stem .. "$") then
			args.type = "strong"
				args.class = class
				return true
			end
			return false
		end
		
		local done = false
		if stem_vowel == "ä" then
			done = check("3", "o", "o") or check("6", "u", "a") or check("7", "ie", "a")
		elseif stem_vowel == "au" then
			done = check("2", "o")
		elseif stem_vowel == "äu" then
			done = check("2", "o") or check("7", "ie", "au")
		elseif stem_vowel == "ei" then
			done = check("1", "ie") or check("1", "i") or check("7", "ie", "ei")
		elseif stem_vowel == "i" then
			local function distinguish()
				if ps then
					if ps == (before .. "ä" .. long .. "e") then
						return "4"
					else
						return "3"
					end
				else
					error("Please specify the past subjunctive by passing parameter 4")
				end
			end
			done = check("3", "a", "u") or check("3", "i", "o") or check("5", "a", "e")
			done = done or check("7", "ie", "e") or check(distinguish, "a", "o")
		elseif stem_vowel == "ie" then
			done = check("2", "o") or check("5", "a", "e") or check("7", "ie", "e")
		elseif stem_vowel == "ö" then
			done = check("7", "ie", "o")
		elseif stem_vowel == "ü" then
			done = check("2", "o") or check("7", "ie", "u")
		end
		if not done then
			done = check_stem("2", "zieh")
				or check_stem("3", "erlisch")
				or check_stem("3", "fich")
				or check_stem("3", "schall")
				or check_stem("4", "komm")
				or check_stem("4", "nimm")
				or check_stem("5", "iss")
				or check_stem("6", "heb")
				or check_stem("6", "schwör")
				or check_stem("7", "geh")
				or check_stem("7", "hau")
			args.type = "irregular"
		end
	end
	return args.type, args.class
end

pos_functions = function(class, args, veri)
	params = {
		 = {list = 'present ='},
		 = {list = 'past ='},
		 = {list = 'past participle ='},
		 = {},
		 = {default = class},
		 = {default = 'haben'},
	}
	
	if class ~= 'weak' or args.type ~= 'weak' then
		params = {list = 'past subjunctive'}
	end
	if class == 'strong' or args.type == 'strong' then
		params.class = {default = nil}
	end
	local args = require("Modül:parameters").process(args, params)
	veri.baslar = {args}
	
	if not args.type then
		args.type, args.class = detect_type(args,args,args,args)
	end
	
	if args.type == 'strong' then
		if not args.class then
			table.insert(veri.cekimler, {etiket = ']'})
			table.insert(veri.kategoriler, 'Almanca sınıfı olmayan güçlü eylemler')
		elseif legal_verb_classes then
			table.insert(veri.cekimler, {etiket = 'sınıf ' .. args.class .. ' ]'})
			table.insert(veri.kategoriler, 'Almanca sınıf ' .. args.class .. ' güçlü eylemler')
		else
			error("Girdiğiniz güçlü eylem sınıfı “" .. args.class .. "” geçerli bir Almanca sınıfı (1-7) değil.")
		end
		table.insert(veri.kategoriler, 'Almanca güçlü eylemler')
	elseif args.type == 'weak' then
		table.insert(veri.cekimler, {etiket = ']'})
		table.insert(veri.kategoriler, 'Almanca zayıf eylemler')
	elseif args.type == 'irregular' then
		table.insert(veri.cekimler, {etiket = ']'})
		table.insert(veri.kategoriler, 'Almanca düzensiz eylemler')
	elseif not args.type then
		table.insert(veri.kategoriler, 'Almanca çekimleme tipi olmayan eylemler')
	else
		error("Eylem tipi “" .. args.type .. "” geçerli bir Almanca tipi (“güçlü” veya “zayıf”) değil.")
	end
	
	if #args == 0 then
		args = {request = true}
	end
	args.etiket = 'üçüncü kişi tekil şimdiki zaman'
	table.insert(veri.cekimler, args)
	
	if #args == 0 then
		args = {request = true}
	end
	args.etiket = 'geçmiş zaman'
	table.insert(veri.cekimler, args)
	
	if #args == 0 then
		args = {request = true}
	end
	args.etiket = 'past participle'
	table.insert(veri.cekimler, args)
	
	if #args > 0 then
		args.etiket = "past subjunctive"
		table.insert(veri.cekimler, args)
	end
	
	if args.auxiliary == 'haben' then
		args.auxiliary = {'haben'}
		table.insert(veri.kategoriler, 'Almanca verbs using haben as auxiliary')
	elseif args.auxiliary == 'sein' then
		args.auxiliary = {'sein'}
		table.insert(veri.kategoriler, 'Almanca verbs using sein as auxiliary')
	elseif args.auxiliary == 'both' then
		args.auxiliary = {'haben', 'sein'}
		table.insert(veri.kategoriler, 'Almanca verbs using haben and sein as auxiliary')
	else
		error("Verb auxiliary “" .. args.auxiliary .. "” is not an valid German auxiliary (“haben”, “sein”, or “both”).")
	end
	args.auxiliary.etiket = "auxiliary"
	table.insert(veri.cekimler, args.auxiliary)
end

return export