Modul:letters

local export = {}

local m_parameters = require("Module:parameters")
local m_languages = require("Module:languages")
local m_links = require("Module:links")
local m_scripts = require("Module:scripts")
local m_script_utils = require("Module:script utilities")
local data = mw.loadData("Module:letters/data")

-- Copied from Module:links/templates (function: export.l_term_t), and adapted.
local function link(term, lang, sc, face)
	-- Forward the information to full_link
	return m_links.full_link( { term = term, lang = lang, sc = sc, tr = "" }, face)
end

local function linkNoTag(term, lang)
	return m_links.language_link{ term = term, lang = lang }
end

local function tag(term, lang, sc)
	return m_script_utils.tag_text(term, lang, sc)
end

--The main function, that returns the formatted list of letters.
function export.letters(frame)
	local args = frame:getParent().args
	
	local fullpagename = mw.title.getCurrentTitle().fullText
	if fullpagename:sub(1, 16) ~= "Appendix:Letters" then
		return export.letters2(frame)
	end

	-- The variable "result" is going to contain the end text.
	local result = {}

	-- l = the language code, such as "en" for English
	local l = args
	local langObject = m_languages.getByCode(l) or m_languages.err(l, 1)
	local langName = langObject:getCanonicalName()

	-- sc = the script code, such as "Latn" for Latin
	local sc = args or nil
	local scObject = nil
	local scName = nil

	-- The first categories.
	table.insert(result, "]")
	table.insert(result, "]")

	-- The beginning of the result text, a link to the script appendix between parentheses.
	if sc then
		scObject = m_scripts.getByCode(sc)
		scName = scObject:getCanonicalName()

		table.insert(result, "('']'') ")
		table.insert(result, "]")
	else
		table.insert(result, "(''? script'') ")
	end

	-- colonArgs and numberedArgs are going to be filled below.
	local colonArgs = {}
	local numberedArgs = {}

	-- k = key, it is the key to "v"
	-- v = value, each argument given in Template:letters
	for k, v in pairs(args) do

		-- It does not contain "sc=", which is a named argument.
		-- The argument "1" is not added in numberedArgs. It is the language code.
		if mw.ustring.find(v, ":", 1, true) then
			table.insert(colonArgs, args)
		elseif tonumber(k) ~= nil and k ~= 1 then
			table.insert(numberedArgs, args)
		end
	end

	-- kk = key, it is the key to "vv"
	-- vv = value, each numbered argument, like "Aa", "Bb", "Cc"
	for kk, vv in pairs(numberedArgs) do
		if kk ~= 1 then
			table.insert(result, ", ")
		end

		-- currentLetter = a single value like "Aa"
		local currentLetter = numberedArgs

		-- About "letterCases":
		-- If currentLetter contains "]]), letterCases is a table with only the currentLetter.
		-- Otherwise, letterCases is a table with each letter, unformatted.
		local letterCases = {}
		if mw.ustring.find(currentLetter, "[", 1, true) or mw.ustring.find(currentLetter, "<", 1, true) then
			letterCases = currentLetter
		else
			for i=1, mw.ustring.len(currentLetter) do
				letterCases = mw.ustring.sub(currentLetter, i, i)
			end
		end

		-- kkk = key, it is the key to "vvv"
		-- vvv = value, each letter in letterCases
		for kkk, vvv in pairs(letterCases) do

			-- Formats with "link" each letter in letterCases.
			-- The result is added in the "result" text.
			table.insert(result, link(letterCases, langObject, scObject))

		end

		-- Adds the letter category, like ].
		table.insert(result, "]")
	end

	-- kkkk = key, it is the key to "vvvv"
	-- vvvv = value, it is the value, as in "Aa:⠁"
	for kkkk, vvvv in pairs(colonArgs) do

		if kkkk ~= 1 then
			table.insert(result, ", ")
		end

		local equalSignSplit = mw.text.split (vvvv, ": ", true)
		local partOne = equalSignSplit
		local partTwo = equalSignSplit

		-- The result is added in the "result" text.
		table.insert(result, "'''" .. partOne .. "'''" .. ": " .. link(partTwo, langObject, scObject))

		-- Adds the letter category, like ].
		table.insert(result, "]")

	end

	return table.concat(result)
end

--Returns the list of letter names.
function export.letterNames(frame)
	local namespace = mw.title.getCurrentTitle().nsText
	if namespace ~= "Appendix" then
		return export.letterNames2(frame)
	end
	
	local args = frame:getParent().args
	local colonArgs = {}

	-- The variable "result" is going to contain the end text.
	local result = {}

	-- sc = the script code, such as "Latn" for Latin
	local sc = args or nil

	-- l = the language code, such as "en" for English
	local l = args
	local langObject = m_languages.getByCode(l) or m_languages.err(l, 1)

	for k, v in pairs(args) do
		if mw.ustring.find(v, ":", 1, true) then
			table.insert(colonArgs, args)
		end
	end

	-- k = key, it is the key to "v"
	-- v = value, it is the value, as in "Bb: bee"
	for k, v in pairs(colonArgs) do

		if k ~= 1 then
			table.insert(result, ", ")
		end

		local equalSignSplit = mw.text.split (v, ": ", true)
		local partOne = equalSignSplit
		local partTwo = equalSignSplit

		-- The result is added in the "result" text.
		table.insert(result, "'''" .. partOne .. "'''" .. ": " .. link(partTwo, langObject, scObject))

	end

	return table.concat(result)
end

local function qualifier(content)
	if content then
		return 
		'<span class="ib-brac qualifier-brac">(</span>'
		.. '<span class="ib-content qualifier-content">'
		.. content .. '</span>'
		.. '<span class="ib-brac qualifier-brac">)</span> '
	end
end
	

function export.letters2(frame)
	local output, list, categories = {}, {}, {}
	
	local namespace = mw.title.getCurrentTitle().nsText
	
	local params = {
		 = { list = true },
		 = {},
		 = { required = true },
		 = {},
		 = {},
	}
	
	local args = m_parameters.process(frame:getParent().args, params)
	
	local lang = m_languages.getByCode(args.lang) or m_languages.err(args.lang, "lang")
	local langName = lang:getCanonicalName()
	local sc = m_scripts.getByCode(args.sc) or lang:findBestScript(text) or error("Script could not be identified.")
	local scName = sc:getCanonicalName()
	local scCode = sc:getCode()
	local data = data.list and data.list and data.list or data
	
	local qualifierContent = args.qual or '] letters'
	table.insert(
		output,
		qualifier(qualifierContent)
		)
	
	local native_name = data.native_name or args
	if native_name then
		native_name = link(native_name, lang, sc, "bold")
		table.insert(output, native_name .. "; ")
	end
	
	if data.letters then
		for i,v in ipairs(data.letters) do
			table.insert(list, link(v, lang, sc) .. "&nbsp;" .. link(v, lang, sc))
		end
	else
		for i, letterParameter in ipairs(args) do
			if scCode == "Latn" then
				--[[	If script is Latin, no transliteration is needed, so language span
						is applied to whole list, and individual list items are linked and not language-tagged. ]]
				local open_par, uppercase, lowercase, close_par
				
				if mw.ustring.find(letterParameter, "/") then
					open_par, uppercase, lowercase, close_par = mw.ustring.match(letterParameter, "(%(?)(+)/(+)(%)?)")
				elseif mw.ustring.find(letterParameter, "%u.*%l") then
					open_par, uppercase, lowercase, close_par = mw.ustring.match(letterParameter, "^(%(?)(%u)(%l)(%)?)$")
				else
					open_par, letters, close_par = mw.ustring.match(letterParameter, "^(%(?)(+)(%)?)$")
				end
				
				if open_par and close_par then
					if uppercase and lowercase then	
						uppercase, lowercase = linkNoTag(uppercase, lang, sc), linkNoTag(lowercase, lang, sc)
						
						table.insert(list, open_par .. uppercase .. "&nbsp;" .. lowercase .. close_par)
					elseif letters then
						letters = linkNoTag(letters, lang, sc)
						
						table.insert(list, open_par .. letters .. close_par)
					end
				else
					letterParameter = linkNoTag(letterParameter, lang, sc)
					
					table.insert(list, letterParameter)
				end
			else
				--[[	If script is non-Latin, add transliteration to
						and tag each item on the list individually.		]]
				local letters = {}
				local uppercase, lowercase
				local open_par, letterParameter, close_par = mw.ustring.match(letterParameter, "(%(?%s*)(+)(%s*%)?)")
				
				if mw.ustring.find(letterParameter, "/") then
					uppercase, lowercase = mw.ustring.match(letterParameter, "(+)/(.+)")
					uppercase = "]"
					lowercase = "]"
				elseif mw.ustring.find(letterParameter, "^%*.") then
					letters = { "]" }
				else
					for letter in mw.ustring.gmatch(letterParameter, ".") do
						 table.insert(letters, "]")
					end
				end
				
				if uppercase and lowercase then	
					letters = open_par .. link(uppercase .. "&nbsp;" .. lowercase, lang, sc) .. close_par
				elseif letters then
					letters = table.concat(letters, "&nbsp;")
					letters = open_par .. link(letters, lang, sc) .. close_par
				end
				
				table.insert(list, letters)
			end
		end
	end
	
	if namespace == "Template" then
		table.insert(categories, "]")
		table.insert(categories, "]")
	end

	list = table.concat(list, ", ")
	list = mw.ustring.gsub(list, "%), %(", ", ")
	list = mw.ustring.gsub(list, ", %(", " (")
	
	--[[	Add language tagging to whole list for Latin script,
			because individual letters were not tagged.			]]
	if scCode == "Latn" then
		list = tag(list, lang, sc)
	end
	
	table.insert(output, list)
	
	return table.concat(output) .. table.concat(categories)
end

function export.letterNames2(frame)
	local output, list = {}, {}
	
	local namespace = mw.title.getCurrentTitle().nsText
	
	local params = {
		 = { list = true, required = true },
		 = {},
		 = { required = true },
		 = {},
		 = {},
	}
	
	local output = {}
	
	local args = m_parameters.process(frame:getParent().args, params)
	
	local lang = m_languages.getByCode(args.lang) or m_languages.err(args.lang, "lang")
	local sc = args.sc or "Latn"
	sc = m_scripts.getByCode(sc)
	
	local qualifierContent = args.qual or sc:getCanonicalName() .. "-script letter names"
	table.insert(
		output,
		qualifier(qualifierContent)
		)
	
	local native_name =  args
	if native_name then
		native_name = link(native_name, lang, sc, "bold")
		table.insert(output, native_name .. "; ")
	end
	
	if sc:getCode() == "Latn" then
		local alternative_names
		for i, letter_name in ipairs(args) do
			alternative_names = mw.text.split(letter_name, "%s*/%s*")
			
			local letterNames = {}
			for i, letter_name in ipairs(alternative_names) do
				table.insert(letterNames, linkNoTag(letter_name, lang, sc) )
				if alternative_names then
					table.insert(letterNames, " / ")
				end
			end
			
			table.insert(list, table.concat(letterNames))
		end
	end
	
	list = table.concat(list, ", ")
	
	table.insert(output, list)
	
	return table.concat(output)
end

function export.definition(frame)
	local parameters = {
		 = { list = true },
		 = {},
		 = {},
		 = {},
		 = {},
	}
	
	local args = m_parameters.process(frame:getParent().args, parameters)
	
	local types = {
		letter = {
			text = table.concat {
				'<span class="use-with-mention">',
				'The {{{ordinal}}} ] of the {{{canonical name}}} ]{{{alphabet name}}}, ',
				'called {{{letter names list}}} ',
				'and written in the {{{Latin script}}}.'
				},
			},
		name = {
			text = table.concat {
				'<span class="use-with-mention">',
				'The name of the {{{Latin-script}}} letter ',
				'{{{uppercase}}}{{{separator}}}{{{lowercase}}}.</span>',
				},
			},
		diacritic = {},
		ordinal = {},
		syllable = {},
	}
	
	local lang = m_languages.getByCode(args) or m_languages.err(args, 1)
	local type = args
	
	local alphabet_name = args
	if alphabet_name then
		alphabet_name = " (" .. alphabet_name .. ")"
	else
		alphabet_name = ""
	end
	
	local data
	if type then
		if types then
			data = types
		else
			error('The type of definition "' .. tostring(type) .. '" is not recognized.')
		end
	else
		error("Select a type of definition using parameter 2: letter, letter name, diacritic, ordinal, or syllable.")
	end
	
	local text = {data.text}
	
	if #text > 0 then
		text.add = function(self, code, item)
			if self and self then
				self = mw.ustring.gsub(self, "{{{" .. code .. "}}}", item)
			end
		end
		
		text:add("canonical name", lang:getCanonicalName() )
		text:add("Latin-script", "]")
		text:add("alphabet name", alphabet_name)
	else
		error('The type "' .. type .. '" does not have text defined.')
	end
	
	return text
end

return export