Module:number list/show

The following documentation is located at Module:number list/show/doc.^[edit]

Useful links: root page • root page's subpages • links • transclusions • testcases • sandbox

---

local export = {}

local m_number_list = require("Module:number list")

local function compare_numbers(a, b)
	a, b = tonumber(a),  tonumber(b)
	return a < b
end

function export.print_table(language_code, module)
	local module = require(module)
	
	local lang = require("Module:languages").getByCode(language_code)
	local full_link = require("Module:links").full_link
	local tag_text = require("Module:script utilities").tag_text
	local function link(form)
		return full_link({ lang = lang, term = form})
	end
	local function tag(form)
		return tag_text(form, lang)
	end
	
	local form_types = m_number_list.get_number_types(language_code)
	local numeral_index = 1
	table.insert(form_types, numeral_index,
		{key = "numeral", display = "Numeral"})
	
	local number_type_indices = {}
	for number, data in pairs(module.numbers) do
		for i, form_type in pairs(form_types) do
			if data[form_type.key] then
				number_type_indices[i] = true
			end
		end
	end
	
	local numeral_config = module.numeral_config
	if numeral_config then
		number_type_indices[numeral_index] = true
	end
	
	number_type_indices = require("Module:table").keysToList(number_type_indices)
	
	local Array = require("Module:array")
	local output = Array()
	
	local function header(content)
		output:insert(("! %s"):format(content))
	end
	
	local function cell(content)
		output:insert(("| %s"):format(content))
	end
	
	local function row(content)
		output:insert("|-\n")
		if content then
			cell(content)
		end
	end
	
	output:insert('{| class="wikitable"')
	
	-- Add headers.
	header("Number")
	for _, index in ipairs(number_type_indices) do
		header(m_number_list.display_number_type(form_types[index]))
	end
	
	local errors = Array()
	
	for number, data in require("Module:table").sortedPairs(module.numbers, compare_numbers) do
		local number_string
		if type(number) == "number" then
			number_string = ("%.0f"):format(number)
		else
			number_string = number
		end
		
		row(number)
		
		local numeral
		if numeral_config then
			numeral = m_number_list.generate_decimal_numeral(numeral_config, number)
		elseif data.numeral then
			numeral = data.numeral
		end
		if numeral then
			numeral = tag(numeral)
			cell(numeral or "")
		end
		
		for _, i in ipairs(number_type_indices) do
			if i ~= numeral_index then
				local form = data[form_types[i].key]
				cell(type(form) == "table" and Array(form):map(link):concat(", ")
					or form and link(form)
					or "")
			end
		end
		
		-- Check for numerical indices, which are syntax errors.
		for i, word in ipairs(data) do
			errors:insert({ number = number, word = word })
		end
	end
	
	output:insert('|}')
	
	if #errors > 0 then
		output:insert(
			1,
			'\n<span class="error">The following numbers were not inserted '
			.. "correctly and need to be placed inside table syntax: "
			.. errors
				:map(
					function(data)
						return data.number .. ": " .. link(data.word)
					end)
				:concat ", "
			.. "[[Category:Errors in number data modules|"
			.. lang:getCode() .. "]]</span>")
	end
	
	return output:concat("\n")
end

function export.table(frame)
	local language_code
	if type(frame) == "table" then
		language_code = frame.args[1]
	end
	
	local module
	if not language_code then
		module = mw.title.getCurrentTitle().fullText
		local suffix = module:match("^Module:number list/data/(.+)$")
		language_code = suffix:match "^([^/]+)/sandbox$" or suffix
		if not language_code then
			error("No language code in title or in parameter 1.")
		end
		if language_code == "und" then
			return
		end
	end
	
	return export.print_table(language_code, module)
end

return export