Module:sandbox/letters

Hello, you have come here looking for the meaning of the word Module:sandbox/letters. In DICTIOUS you will not only get to know all the dictionary meanings for the word Module:sandbox/letters, but we will also tell you about its etymology, its characteristics and you will know how to say Module:sandbox/letters in singular and plural. Everything you need to know about the word Module:sandbox/letters you have here. The definition of the word Module:sandbox/letters will help you to be more precise and correct when speaking or writing your texts. Knowing the definition ofModule:sandbox/letters, as well as those of other words, enriches your vocabulary and provides you with more and better linguistic resources.
This module sandbox lacks a documentation subpage. Please create it.
Useful links: root page • root page’s subpages • links • transclusions • testcases • sandbox

local export = {}

local m_parameters = require("Module:parameters")

langName = nil
scName = nil

local function linkNoTag(term, lang)
	if not string.match(term, "%[%[") then
		term = "]"
	end
	newTerm, _ = string.gsub(term, '%%]', "]")
	return newTerm
end

local function tag(term, lang, sc)
	return '<span class="' .. sc .. '" lang="' .. lang .. '">' .. term .. '</span>'
end

-- 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
	local wikitext = tag(linkNoTag(term, lang), lang, sc)
	if face == "bold" then
		wikitext = "<b>" .. wikitext .. "</b>"
	end
	return wikitext
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
	langName = args

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

	-- 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
		table.insert(result, "('']'')&nbsp;")
		table.insert(result, "]")
	else
		table.insert(result, "(''? script'')&nbsp;")
	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, l, sc))

		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, l, sc))

		-- 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 "Latn"
	scName = args or "Latin"

	-- l = the language code, such as "en" for English
	local l = args
	langName = args

	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, l, sc))

	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 },
		 = {},
		 = { required = true },
		 = { required = true },
		 = {},
		 = {},
		 = {},
	}
	
	local args = m_parameters.process(frame:getParent().args, params)
	
	local lang = args.lang
	langName = args.langname
	local sc = args.sc or "Latn"
	scName = args.scname or "Latin"

	local qualifierContent = args.qual or '] letters'
	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
	
	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
		
		-- For some reason, args.maxindex is nil.
		if args then
			table.insert(list, ", ")
		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 sc == "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 },
		 = { required = true },
		 = {},
		 = {},
		 = {},
	}
	
	local output = {}
	
	local args = m_parameters.process(frame:getParent().args, params)
	
	local lang = args.lang
	langName = args.langname
	local sc = args.sc or "Latn"
	scName = args.scname or "Latin"
	
	local qualifierContent = args.qual or scName .. "-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 == "Latn" then
		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 = args
	langName = args
	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", langName )
		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
Wikious
Boobota
Sagapedia