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

local export = {}
local pos_functions = {}

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

-- The main entry point.
-- This is the only function that can be invoked from a template.
function export.show(frame)
	PAGENAME = mw.title.getCurrentTitle().text
	
	local poscat = frame.args or error("Part of speech has not been specified. Please pass parameter 1 to the module invocation.")
	
	local params = {
		 = {list = true, default = ""},
		 = {type = "boolean"},
	}
	
	if pos_functions then
		for key, val in pairs(pos_functions.params) do
			params = val
		end
	end
	
	local args = require("Modül:parameters").process(frame:getParent().args, params)
	local veri = {dil = lang, soz_kategorisi = poscat, kategoriler = {}, baslar = args, cekimler = {}}
	
	if args then
		veri.soz_kategorisi = "suffixes"
		
		if poscat == "adjectives" then
			table.insert(veri.kategoriler, lang:getirAsilAd() .. " ön ad yapan ekler")
		elseif poscat == "adverbs" then
			table.insert(veri.kategoriler, lang:getirAsilAd() .. " belirteç yapan ekler")
		elseif poscat == "nouns" then
			table.insert(veri.kategoriler, lang:getirAsilAd() .. " ad yapan ekler")
		elseif poscat == "verbs" then
			table.insert(veri.kategoriler, lang:getirAsilAd() .. " eylem yapan ekler")
		else
			error("No category exists for suffixes forming " .. poscat .. ".")
		end
	end
	
	if pos_functions then
		pos_functions.func(args, veri)
	end
	
	local pagename = mw.title.getCurrentTitle().text
	if pagename:find("") or pagename:find("$") then
		table.insert(veri.kategoriler, lang:getirAsilAd() .. " ardından U gelmeyen Q harfi içeren sözcükler")
	end
	
	return require("Modül:başlık başı").tam_baslikbasi(veri)
end

-- This function does the common work between adjectives and adverbs
function make_comparatives(params, veri)
	local comp_parts = {etiket = "karşılaştırma", accel = "comparative-form-of"}
	local sup_parts = {etiket = "üstünlük", accel = "superlative-form-of"}
	
	if #params == 0 then
		table.insert(params, {"more"})
	end
	
	-- To form the stem, replace -(e)y with -i and remove a final -e.
	local stem = PAGENAME:gsub("()e?y$", "%1i"):gsub("e$", "")
	
	-- Go over each parameter given and create a comparative and superlative form
	for i, val in ipairs(params) do
		local comp = val
		local sup = val
		
		if comp == "more" and PAGENAME ~= "many" and PAGENAME ~= "much" then
			table.insert(comp_parts, "] " .. PAGENAME)
			table.insert(sup_parts, "] " .. PAGENAME)
		elseif comp == "further" and PAGENAME ~= "far" then
			table.insert(comp_parts, "] " .. PAGENAME)
			table.insert(sup_parts, "] " .. PAGENAME)
		elseif comp == "er" then
			table.insert(comp_parts, stem .. "er")
			table.insert(sup_parts, stem .. "est")
		elseif comp == "-" or sup == "-" then
			-- Allowing '-' makes it more flexible to not have some forms
			if comp ~= "-" then
				table.insert(comp_parts, comp)
			end
			if sup ~= "-" then
				table.insert(sup_parts, sup)
			end
		else
			-- If the full comparative was given, but no superlative, then
			-- create it by replacing the ending -er with -est.
			if not sup then
				if comp:find("er$") then
					sup = comp:gsub("er$", "est")
				else
					error("The superlative of \"" .. comp .. "\" cannot be generated automatically. Please provide it with the \"sup" .. (i == 1 and "" or i) .. "=\" parameter.")
				end
			end
			
			table.insert(comp_parts, comp)
			table.insert(sup_parts, sup)
		end
	end
	
	table.insert(veri.cekimler, comp_parts)
	table.insert(veri.cekimler, sup_parts)
end

pos_functions = {
	params = {
		 = {list = true, allow_holes = true},
		 = {list = true, allow_holes = true},
		},
	func = function(args, veri)
		local shift = 0
		local is_not_comparable = 0
		local is_comparative_only = 0
		
		-- If the first parameter is ?, then don't show anything, just return.
		if args == "?" then
			return
		-- If the first parameter is -, then move all parameters up one position.
		elseif args == "-" then
			shift = 1
			is_not_comparable = 1
		-- If the only argument is +, then remember this and clear parameters
		elseif args == "+" and args.maxindex == 1 then
			shift = 1
			is_comparative_only = 1
		end
		
		-- Gather all the comparative and superlative parameters.
		local params = {}
		
		for i = 1, args.maxindex - shift do
			local comp = args
			local sup = args
			
			if comp or sup then
				table.insert(params, {comp, sup})
			end
		end
		
		if shift == 1 then
			-- If the first parameter is "-" but there are no parameters,
			-- then show "not comparable" only and return.
			-- If there are parameters, then show "not generally comparable"
			-- before the forms.
			if #params == 0 then
				if is_not_comparable == 1 then
					table.insert(veri.cekimler, {etiket = "karşılaştırılamaz"})
					table.insert(veri.kategoriler, lang:getirAsilAd() .. " karşılaştırılamayan ön adlar")
					return
				end
				if is_comparative_only == 1 then
					table.insert(veri.cekimler, {etiket = "] form only"})
					table.insert(veri.kategoriler, lang:getirAsilAd() .. " kıyaslanabilir ön adlar")
					return
				end
			else
				table.insert(veri.cekimler, {etiket = "not generally ]"})
			end
		end
		
		-- Process the parameters
		make_comparatives(params, veri)
	end
}

pos_functions = {
	params = {
		 = {list = true, allow_holes = true},
		 = {list = true, allow_holes = true},
		},
	func = function(args, veri)
		local shift = 0
		
		-- If the first parameter is ?, then don't show anything, just return.
		if args == "?" then
			return
		-- If the first parameter is -, then move all parameters up one position.
		elseif args == "-" then
			shift = 1
		end
		
		-- Gather all the comparative and superlative parameters.
		local params = {}
		
		for i = 1, args.maxindex - shift do
			local comp = args
			local sup = args
			
			if comp or sup then
				table.insert(params, {comp, sup})
			end
		end
		
		if shift == 1 then
			-- If the first parameter is "-" but there are no parameters,
			-- then show "not comparable" only and return. If there are parameters,
			-- then show "not generally comparable" before the forms.
			if #params == 0 then
				table.insert(veri.cekimler, {etiket = "karşılaştırılamaz"})
				table.insert(veri.kategoriler, lang:getirAsilAd() .. " kıyaslanamayan belirteçler")
				return
			else
				table.insert(veri.cekimler, {etiket = "not generally ]"})
			end
		end
		
		-- Process the parameters
		make_comparatives(params, veri)
	end
}

pos_functions = {
	params = {
		 = {list = true, allow_holes = true},
		
		-- TODO: This should really be a list parameter too...
		 = {},
		 = {},
		 = {},
		 = {},
		 = {},
		},
	func = function(args, veri)
		-- Gather all the plural parameters from the numbered parameters.
		local plurals = {}
		
		for i = 1, args.maxindex do
			local pl = args
			
			if pl then
				local qual = args
				
				if qual then
					table.insert(plurals, {sozcuk = pl, belirticiler = {qual}})
				else
					table.insert(plurals, pl)
				end
			end
		end
		
		-- Decide what to do next...
		local mode = nil
		
		if plurals == "?" or plurals == "!" or plurals == "-" or plurals == "~" then
			mode = plurals
			table.remove(plurals, 1)  -- Remove the mode parameter
		end
		
		-- Plural is unknown
		if mode == "?" then
			table.insert(veri.kategoriler, lang:getirAsilAd() .. " çoğulu bilinmeyen veya belli olmayan adlar")
			return
		-- Plural is not attested
		elseif mode == "!" then
			table.insert(veri.cekimler, {etiket = "plural not attested"})
			table.insert(veri.kategoriler, lang:getirAsilAd() .. " doğrulanmamış çoğulu olan adlar")
			return
		-- Uncountable noun; may occasionally have a plural
		elseif mode == "-" then
			table.insert(veri.kategoriler, lang:getirAsilAd() .. " sayılamayan adlar")
			
			-- If plural forms were given explicitly, then show "usually"
			if #plurals > 0 then
				table.insert(veri.cekimler, {etiket = "genellikle sayılamayan"})
				table.insert(veri.kategoriler, lang:getirAsilAd() .. " sayılabilen adlar")
			else
				table.insert(veri.cekimler, {etiket = "]"})
			end
		-- Mixed countable/uncountable noun, always has a plural
		elseif mode == "~" then
			table.insert(veri.cekimler, {etiket = "] ve ]"})
			table.insert(veri.kategoriler, lang:getirAsilAd() .. " sayılamayan adlar")
			table.insert(veri.kategoriler, lang:getirAsilAd() .. " sayılabilen adlar")
			
			-- If no plural was given, add a default one now
			if #plurals == 0 then
				plurals = {"s"}
			end
		-- The default, always has a plural
		else
			table.insert(veri.kategoriler, lang:getirAsilAd() .. " sayılabilen adlar")
			
			-- If no plural was given, add a default one now
			if #plurals == 0 then
				plurals = {"s"}
			end
			if plural and not mw.title.new(plural).exists then
				table.insert(categories, "English nouns with missing plurals")
			end
		end
		
		-- If there are no plurals to show, return now
		if #plurals == 0 then
			return
		end
		
		-- There are plural forms to show, so show them
		local pl_parts = {etiket = "çoğulu", accel = "plural-form-of"}
		
		local stem = PAGENAME
		
		for i, pl in ipairs(plurals) do
			if pl == "s" then
				table.insert(pl_parts, stem .. "s")
			elseif pl == "es" then
				table.insert(pl_parts, stem .. "es")
			else
				table.insert(pl_parts, pl)
			end
		end
		
		table.insert(veri.cekimler, pl_parts)
	end
}

pos_functions = {
	params = {
		 = {list = true},
		},
	func = function(args, veri)
		local plurals = args
		
		-- Decide what to do next...
		local mode = nil
		
		if plurals == "?" or plurals == "!" or plurals == "-" or plurals == "~" then
			mode = plurals
			table.remove(plurals, 1)  -- Remove the mode parameter
		end
		
		-- Plural is unknown
		if mode == "?" then
			table.insert(veri.kategoriler, lang:getirAsilAd() .. " çoğulu bilinmeyen veya belli olmayan özel adlar")
			return
		-- Plural is not attested
		elseif mode == "!" then
			table.insert(veri.cekimler, {etiket = "plural not attested"})
			table.insert(veri.kategoriler, lang:getirAsilAd() .. " doğrulanmamış çoğulu olan özel adlar")
			return
		-- Uncountable noun; may occasionally have a plural
		elseif mode == "-" then
			-- If plural forms were given explicitly, then show "usually"
			if #plurals > 0 then
				table.insert(veri.cekimler, {etiket = "usually ]"})
				table.insert(veri.kategoriler, lang:getirAsilAd() .. " sayılabilen özel adlar")
			else
				table.insert(veri.cekimler, {etiket = "]"})
			end
		-- Mixed countable/uncountable noun, always has a plural
		elseif mode == "~" then
			table.insert(veri.cekimler, {etiket = "] ve ]"})
			table.insert(veri.kategoriler, lang:getirAsilAd() .. " sayılabilen özel adlar")
			
			-- If no plural was given, add a default one now
			if #plurals == 0 then
				plurals = {"s"}
			end
		elseif #plurals > 0 then
			table.insert(veri.kategoriler, lang:getirAsilAd() .. " sayılabilen özel adlar")
		end
		
		-- If there are no plurals to show, return now
		if #plurals == 0 then
			return
		end
		
		-- There are plural forms to show, so show them
		local pl_parts = {etiket = "çoğulu", accel = "proper-noun-plural-form-of"}
		
		local stem = PAGENAME
		
		for i, pl in ipairs(plurals) do
			if pl == "s" then
				table.insert(pl_parts, stem .. "s")
			elseif pl == "es" then
				table.insert(pl_parts, stem .. "es")
			else
				table.insert(pl_parts, pl)
			end
	
		end
		
		table.insert(veri.cekimler, pl_parts)
	end
}

pos_functions = {
	params = {
		 = {list = "pres_3sg", allow_holes = true},
		
		 = {},
		 = {},
		 = {},
		 = {},
		 = {},
		
		 = {list = "pres_ptc", allow_holes = true},
		
		 = {},
		 = {},
		 = {},
		 = {},
		 = {},
		
		 = {list = "past", allow_holes = true},
		
		 = {},
		 = {},
		 = {},
		 = {},
		 = {},
		
		 = {list = "past_ptc", allow_holes = true},
		
		 = {},
		 = {},
		 = {},
		 = {},
		 = {},
		},
	func = function(args, veri)
		-- Get parameters
		local par1 = args
		local par2 = args
		local par3 = args
		local par4 = args
		
		local pres_3sg_forms = {etiket = "üçüncü tekil kişi geniş zaman", accel = "third-person-singular-form-of"}
		local pres_ptc_forms = {etiket = "şimdiki zaman", accel = "present-participle-form-of"}
		local past_forms = {etiket = "basit geçmiş zaman", accel = "simple-past-form-of"}
		local pres_3sg_form = par1 or PAGENAME .. "s"
		local pres_ptc_form = par2 or PAGENAME .. "ing"
		local past_form = par3 or PAGENAME .. "ed"
		
		if par1 and not par2 and not par3 then
			-- This is the "new" format, which uses only the first parameter.
			if par1 == "es" then
				pres_3sg_form = PAGENAME .. "es"
				pres_ptc_form = PAGENAME .. "ing"
				past_form = PAGENAME .. "ed"
			elseif par1 == "ies" then
				if not mw.ustring.find(PAGENAME, "y$") then
					error("The first parameter is \"ies\" but the verb does not end in -y.")
				end
				
				local stem = mw.ustring.gsub(PAGENAME, "y$", "")
				pres_3sg_form = stem .. "ies"
				pres_ptc_form = stem .. "ying"
				past_form = stem .. "ied"
			elseif par1 == "d" then
				pres_3sg_form = PAGENAME .. "s"
				pres_ptc_form = PAGENAME .. "ing"
				past_form = PAGENAME .. "d"
			else
				pres_3sg_form = PAGENAME .. "s"
				pres_ptc_form = par1 .. "ing"
				past_form = par1 .. "ed"
			end
		else
			-- This is the "legacy" format, using the second and third parameters as well.
			-- It is included here for backwards compatibility and to ease the transition.
			if par3 then
				if par3 == "es" then
					pres_3sg_form = par1 .. par2 .. "es"
					pres_ptc_form = par1 .. par2 .. "ing"
					past_form = par1 .. par2 .. "ed"
				elseif par3 == "ing" then
					pres_3sg_form = PAGENAME .. "s"
					pres_ptc_form = par1 .. par2 .. "ing"
					
					if par2 == "y" then
						past_form = PAGENAME .. "d"
					else
						past_form = par1 .. par2 .. "ed"
					end
				elseif par3 == "ed" then
					
					if par2 == "i" then
						pres_3sg_form = par1 .. par2 .. "es"
						pres_ptc_form = PAGENAME .. "ing"
					else
						pres_3sg_form = PAGENAME .. "s"
						pres_ptc_form = par1 .. par2 .. "ing"
					end
					
					past_form = par1 .. par2 .. "ed"
				elseif par3 == "d" then
					pres_3sg_form = PAGENAME .. "s"
					pres_ptc_form = par1 .. par2 .. "ing"
					past_form = par1 .. par2 .. "d"
				end
			else
				if par2 == "es" then
					pres_3sg_form = par1 .. "es"
					pres_ptc_form = par1 .. "ing"
					past_form = par1 .. "ed"
				elseif par2 == "ies" then
					
					
					pres_3sg_form = par1 .. "ies"
					pres_ptc_form = par1 .. "ying"
					past_form = par1 .. "ied"
				elseif par2 == "ing" then
					pres_3sg_form = PAGENAME .. "s"
					pres_ptc_form = par1 .. "ing"
					past_form = par1 .. "ed"
				elseif par2 == "ed" then
					pres_3sg_form = PAGENAME .. "s"
					pres_ptc_form = par1 .. "ing"
					past_form = par1 .. "ed"
				elseif par2 == "d" then
					
					pres_3sg_form = PAGENAME .. "s"
					pres_ptc_form = par1 .. "ing"
					past_form = par1 .. "d"
				end
			end
		end
		
		local pres_3sg_qual = args
		local pres_ptc_qual = args
		local past_qual = args
		
		table.insert(pres_ptc_forms, {sozcuk = pres_ptc_form, belirticiler = {pres_ptc_qual}})
		table.insert(pres_3sg_forms, {sozcuk = pres_3sg_form, belirticiler = {pres_3sg_qual}})
		table.insert(past_forms, {sozcuk = past_form, belirticiler = {past_qual}})
		
		-- Present 3rd singular
		for i = 2, args.maxindex do
			local form = args
			local qual = args
			
			if form then
				table.insert(pres_3sg_forms, {sozcuk = form, belirticiler = {qual}})
			end
		end
		
		-- Present participle
		for i = 2, args.maxindex do
			local form = args
			local qual = args
			
			if form then
				table.insert(pres_ptc_forms, {sozcuk = form, belirticiler = {qual}})
			end
		end
		
		-- Past
		for i = 2, args.maxindex do
			local form = args
			local qual = args
			
			if form then
				table.insert(past_forms, {sozcuk = form, belirticiler = {qual}})
			end
		end
		
		-- Past participle
		local past_ptc_forms = {etiket = "geçmiş ortacı", accel = "past-participle-form-of"}
		
		if par4 then
			local qual = args; if qual == "" then qual = nil end
			table.insert(past_ptc_forms, {sozcuk = par4, belirticiler = {qual}})
			
			for i = 2, args.maxindex do
				local form = args
				local qual = args
				
				if form then
					table.insert(past_ptc_forms, {sozcuk = form, belirticiler = {qual}})
				end
			end
		end
		
		-- Are the past forms identical to the past participle forms?
		local identical = true
		
		if #past_forms ~= #past_ptc_forms then
			identical = false
		else
			for key, val in ipairs(past_forms) do
				if past_ptc_forms.sozcuk ~= val.sozcuk or past_ptc_forms.qual ~= val.qual then
					identical = false
					break
				end
			end
		end
		
		-- Insert the forms
		table.insert(veri.cekimler, pres_3sg_forms)
		table.insert(veri.cekimler, pres_ptc_forms)
		
		if #past_ptc_forms == 0 or identical then
			past_forms.etiket = "geçmiş zaman ve yakın geçmiş zaman"
			past_forms.accel = "simple-past-and-participle-form-of"
			table.insert(veri.cekimler, past_forms)
		else
			table.insert(veri.cekimler, past_forms)
			table.insert(veri.cekimler, past_ptc_forms)
		end
	end
}

return export