Module:inc-apa-decl/noun

From Wiktionary, the free dictionary
Jump to navigation Jump to search


local export = {}

local m_links = require("Module:links")
local m_str_utils = require("Module:string utilities")

local sub = m_str_utils.sub
local gsub = m_str_utils.gsub
local match = m_str_utils.match
local u = m_str_utils.char

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

local genders = {
	["m"] = "masculine", ["f"] = "feminine", ["n"] = "neuter",
}

export.orjoiner = " <small style=\"color:888\">or</small> " -- Share for testing


local cases = {
	"Nominative", "Accusative", "Instrumental", "Dative", "Ablative",
	"Genitive", "Locative", "Vocative"
}

local diaeresis = {i = "ï", u = "ü"}

function ending(tr)
	return sub(tr, -1, -1)
end


function export.joinSuffix(frame, stem, suffixes, etc)

	local output = ""
	local term

	local function to_Deva(tr)
		local is = require("Module:typing-aids").interpret_shortcuts
		return is(tr, "sa")
	end

	local function to_Shrd(tr)
		local is = require("Module:typing-aids").interpret_shortcuts
		return is(tr, "sa-Shrd")
	end

	local function to_Sidd(tr)
		local is = require("Module:typing-aids").interpret_shortcuts
		return is(tr, "sa-Sidd")
	end
	
	local function asis(tr) return tr end
	
	local sc = etc and etc.sc or error("Script not provided.")
	local converter = etc and etc.converter
	if not converter then
		converters = {Deva = to_Deva, Shrd = to_Shrd, Sidd = to_Sidd}
		converter = converters[sc:getCode()] or asis
		if etc then etc.converter = converter end
	end
	for _,suffix in ipairs(suffixes) do
		if match(suffix, "^⌫⌫") then --backspace
			term = sub(stem, 1, -3) .. "Ⓙ" .. sub(suffix, 3, -1)
		elseif match(suffix, "^⌫") then --backspace
			term = sub(stem, 1, -2) .. "Ⓙ" .. sub(suffix, 2, -1)
		else
			term = stem .. "Ⓙ" .. suffix
		end
-- May need a diaeresis at the join.
		term = gsub(term, "aⒿⒿ?([iu])", function(x) return "a" .. diaeresis[x] end)
		term = gsub(term, "Ⓙ", "")
		
		if output ~= "" then
			output = output .. export.orjoiner
		end
		output = output .. m_links.full_link({
			lang = lang,
			sc = sc,
			term = converter(term)})
	end
	
	if output == "" then
		output = "—"
	end

	return output

end

function export.select(word, g, etc)
	-- This is a function rather than inline so as to facilitate testing.
	-- sc is not yet used, but will be in later forms, and will be script object.
	local dn = "Module:inc-apa-decl/noun/data"
	local data = mw.loadData(dn) or error("Could not load data module "..dn)
	if not etc then error("Argument etc not provided.") end
	if not etc.sc then
		error("Argument etc lacks field sc")
--	else error("Argument etc provides script "..etc.sc:getCode())
	end
	toler_other = false
	local word_tr = (lang:transliterate(word, etc.sc)) or toler_other and word
	if not word_tr then
		if etc.sc:getCode() == "None" then
			error(word.." is not in a script registered for Apabhramsa.")
		else
			error("Unknown transliteration error for "..word)
		end
	end
-- Special handling for explicit combining diaeresis.
	if sub(word_tr, -1, -1) == u(0x0308) then
		stem = sub(word_tr, 1, -3) .. "Ⓙ"  .. sub(word_tr, -2, -2)
	else
		stem = word_tr
	end
	local the_ending = ending(stem)
	return data[the_ending] and data[the_ending][g], stem
end

function export.show(frame)
	local args = frame:getParent().args
	local g = args[1]
	local word = args[2] or PAGENAME
	
	if PAGENAME == "inc-apa-decl-noun" then
		word = "पुत्त"
		g = "m"
	end
	
	local sc = lang:findBestScript(word)
	local etc = {sc = sc}
	-- 4th argument is to be supplied when it comes to be used.
	local selected_data, word_tr = export.select(word, g, etc)
	
	local output = {nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil}
	local output_i = 0
	local function insert(s)
		output_i = output_i + 1
		output[output_i] = s
	end
	insert([=[
{| class="inflection-table vsSwitcher" data-toggle-category="inflection" style="background:#FEFEFE; text-align:center; border: 1px solid #CCC;"
|- style="background: #d9ebff;"
! class="vsToggleElement" style="text-align: left;" colspan="3" |]=])
	insert [=[Declension of ]=]
	insert(word)
	insert(" (" .. genders[g] .. ")")

	insert [=[

|- class="vsHide"
! style="background:#eff7ff" | 
! style="background:#eff7ff" | singular
! style="background:#eff7ff" | plural	
	]=]

	for i,v in ipairs(cases) do
		insert("\n|- class=\"vsHide\"\n! style=\"background-color:#eff7ff;\" | ")
		insert(v)
		insert("\n| ")
		insert(export.joinSuffix(frame, word_tr, selected_data[2 * i - 1], etc))
		insert("\n| ")
		insert(export.joinSuffix(frame, word_tr, selected_data[2 * i], etc))
	end

	insert "\n|}"
	return table.concat(output)
	
end

function export.apa(frame)
	return export.show(frame, "apa")
end

return export