local export = {}

local lang = require("Module:languages").getByCode("ny")

local plural_classes = {
	["1"] = "c2", ["1a"] = "c2", ["3"] = "c4", ["7"] = "c8", ["9"] = "c10",
	["12"] = "c13", ["5"] = "c6", ["1a/6"] = "c6", ["9/6"] = "c6", ["14"] = "c6"}

local plural_rules = {
		   ["1"] = {[1] = {"mw",    "", 3}, [2] = {"mu",   "a", 3}, [3] = { "m",   "a", 2}},
		  ["1a"] = {[1] = {  "",   "a", 1}},
		["1a/6"] = {[1] = {  "",  "ma", 1}},
		   ["3"] = {[1] = {"mu",  "mi", 3}, [2] = {"mw", "miy", 3}, [3] = { "m",  "mi", 2}},
		   ["5"] = {[1] = {"ts", "mas", 3}, [2] = {"th", "mat", 3}, [3] = {"ph", "map", 3}, [4] = {"kh", "mak", 3}, [5] = {"", "ma", 1}},
		   ["7"] = {[1] = {"ch",   "z", 3}},
		   ["9"] = {[1] = {  "",    "", 1}},
		 ["9/6"] = {[1] = {  "",  "ma", 1}},
		["14"] = {[1] = {  "",  "ma", 1}}
}

function export.noun(frame)
	local params = {
		[1] = {required=true},
		[2] = {},
		["head"] = {},
		["h"] = {alias_of = "head"}
	}
	
	local args = require("Module:parameters").process(frame:getParent().args, params)
	
	local data = {lang = lang, pos_category = "nouns", categories = {}, heads = {args["head"]}, genders = {mw.text.split(args[1], "%/")[1]}, inflections = {}}
	table.insert(data.categories, lang:getCanonicalName() .. " class " .. data.genders[1] .. " nouns")
	
	if args[2] ~= "-" and plural_classes[args[1]] then
		local infl_plural = {label = "plural", accel = {form = "p", gender = plural_classes[args[1]]}, request = true}
		
		-- If no plural was provided, generate one
		if not args[2] then
			local singular = args["head"] and require("Module:links").remove_links(args["head"]) or mw.title.getCurrentTitle().text
			args[2] = export.generate_plural(singular, args[1])
		end
		
		if args[2] then	
			table.insert(infl_plural, {term = args[2], genders = {plural_classes[args[1]]}})
		end
		
		table.insert(data.inflections, infl_plural)
	end
	
	return require("Module:headword").full_headword(data)
end


function match_case(string1, string2)
	local c1 = mw.ustring.sub(string1, 1, 1)
	local c2 = mw.ustring.sub(string2, 1, 1)
	
	if (mw.ustring.lower(c1) == c1) then
		return mw.ustring.lower(c2) .. mw.ustring.sub(string2, 2)
	else
		return mw.ustring.upper(c2) .. mw.ustring.sub(string2, 2)
	end
end


function export.generate_plural(singular, class)
	if plural_rules[class] then
		for k, v in ipairs(plural_rules[class]) do
			if mw.ustring.find(mw.ustring.lower(singular), "^" .. v[1]) then
				return match_case(singular, v[2] .. mw.ustring.sub(singular, v[3]))
			end
		end
	end
end

return export