Module:snon-mut

export.mutations

function export.mutations(ret, args)

export.mutation_table

function export.mutation_table(frame)

---

local gsub = mw.ustring.gsub
local match = mw.ustring.match
local gmatch = mw.ustring.gmatch
local sub = mw.ustring.sub
local upper = mw.ustring.upper

local m_l = require("Module:links")

local lang = require("Module:languages").getByCode("snon")
local PAGENAME = mw.loadData("Module:headword/data").pagename

local export = {}

function export.mutations(ret, args)
	local lower_radical = mw.ustring.lower(ret.radical or args.word)
	local first_letter = match(lower_radical, "^%W*(%w)")
	local is_proper = ret.radical ~= lower_radical
	
	local vowels = "([aeiouàèìòù])"
	local apostrophe
	
	if args.len then
		ret.lenition = args.len
	elseif match(first_letter, "[bcdfgmptsnlrv]") then
		ret.lenition = ret.radical:gsub("^(.)", "%1h")
	elseif match(first_letter, vowels) then -- h-prothesis
		ret.lenition = "h'" .. lower_radical
		apostrophe = true
	elseif match(lower_radical, "^ghi" .. vowels) then
		ret.lenition = gsub(lower_radical, "^ghi" .. vowels, "chi%1")
	else
		ret.lenition = "-"
	end
	
	local eclipsis_prefixes = {
		["b"] = "m", ["c"] = "g", ["d"] = "n", ["f"] = "v", ["g"] = "n",
		["p"] = "b", ["t"] = "d", ["h"] = "gh", ["s"] = "z", ["v"] = "b",
	}
	
	if args.ecl then
		ret.eclipsis = args.ecl
	elseif eclipsis_prefixes[first_letter] then
		ret.eclipsis = eclipsis_prefixes[first_letter] .. sub(lower_radical, 2, -1)
	elseif match(first_letter, vowels) then
		ret.eclipsis = "n'" .. lower_radical
		apostrophe = true
	elseif match(lower_radical, "^ghi" .. vowels) then
		ret.eclipsis = gsub(lower_radical, "^ghi" .. vowels, "ni%1")
	else
		ret.eclipsis = "-"
	end
	
	if is_proper then
		if apostrophe then
			ret.eclipsis = "n" .. gsub(ret.eclipsis, "^n'(%w)", upper)
			ret.lenition = "h" .. gsub(ret.lenition, "^h'(%w)", upper)
		else
			ret.eclipsis = gsub(ret.eclipsis, "^(%w)", upper)
			ret.lenition = gsub(ret.lenition, "^(%w)", upper)
		end
	end
	
	return ret, apostrophe
end

function export.mutation_table(frame)
	
	local params = {
		[1] = {default = PAGENAME, template_default = "bèdh"},
		["ecl"] = {},
		["len"] = {},
		
		["temp_len"] = {type = "boolean"},
		["temp_ecl"] = {type = "boolean"},
	}
	
	local args = require("Module:parameters").process(frame:getParent().args, params)
	
	local is_vowel
	local ret = {radical = args[1]}
	ret, is_vowel = export.mutations(ret, args)
	
	local links = {}
	for k, v in pairs(ret) do
		if v == "-" then
			links[k] = (args.temp_len or args.temp_ecl) and m_l.full_link{lang = lang, term = ret.radical} or "''not applicable''"
		else
			links[k] = m_l.full_link{lang = lang, term = v}
		end
	end
	
	if args.temp_len then
		return links.lenition
	end
	
	if args.temp_ecl then
		return links.eclipsis
	end
	
	local table_args = {
		palette = "blue",
		notes = "<p style=font-size:85%;>''Note:'' Certain mutated forms of some words can never occur in standard Scots Norse.<br>All possible mutated forms are displayed for convenience.</p>",
		title = "[[Scots Norse#Mutation|Mutated forms]] of " .. ret.radical,
	--	class = "wide",
	}
	
	local contents = [[
	|-
	! radical !! ]] .. (is_vowel and "h-prothesis" or "lenition") .. [[ !! eclipsis
	|-
	| {radical} || {lenition} || {eclipsis}
	]]
	contents = require('Module:string utilities').format(contents, links)
	
	return require("Module:inflection table").inflection_table(frame, table_args, contents)
end

return export