Mô đun:Parameters

Có thể viết tài liệu về mô đun này tại Mô đun:Parameters/tài liệu.

-- Mô đun này thực hiện [[Bản mẫu:Parameters]].
-- [SublimeLinter luacheck-globals:mw]

local DEFINITIONS =
{
	["alt"] = {
		["code"] = '<!-- văn bản thay thế cho hình ảnh; xem WP:ALT -->',
		["dlist"] = 'văn bản thay thế cho hình ảnh; xem [[WP:ALT]]'},
	["coordinates"] = {
		["code"] = '<!-- sử dụng {{Tọa độ}} -->',
		["dlist"] = 'sử dụng {{tl|Tọa độ}}'},
	["coords"] = {
		["code"] = '<!-- sử dụng {{Tọa độ}} -->',
		["dlist"] = 'sử dụng {{tl|Tọa độ}}'},
	["tọa độ"] = {
		["code"] = '<!-- sử dụng {{Tọa độ}} -->',
		["dlist"] = 'sử dụng {{tl|Tọa độ}}'},
	["native_name"] = {
		["code"] = '<!-- tên trong ngôn ngữ địa phương; Nếu nhiều hơn một, riêng biệt ' ..
			'sử dụng {{Plainlist}} sử dụng {{lang}}, và bỏ qua native_name_lang -->',
		["dlist"] = 'tên trong ngôn ngữ địa phương; Nếu nhiều hơn một, riêng biệt ' ..
			'sử dụng {{tl|Plainlist}}, sử dụng {{tl|lang}}, và bỏ qua {{thông số|native_name_lang}}'},
	["native_name_lang"] = {
		["code"] = '<!-- mã ngôn ngữ hai hoặc ba ký tự ISO -->',
		["dlist"] = 'mã ngôn ngữ hai hoặc ba ký tự ISO'},
	["start_date"] = {
		["code"] = '<!-- sử dụng {{Start date|nnnn|tt|nn|df=y}} hoặc {{Ngày bắt đầu và tuổi|nnnn|tt|nn|df=yes}}-->',
		["dlist"] = 'sử dụng {{Tlx|Start date|nnnn|tt|nn|df=y}} hoặc {{Tlx|Ngày bắt đầu và tuổi|nnnn|tt|nn|df=yes}}'},
	["end_date"] = {
		["code"] = '<!-- sử dụng {{End date|nnnn|tt|nn|df=y}} -->',
		["dlist"] = 'sử dụng {{tlx|Start date|nnnn|tt|nn|df=y}}'},
	["url"] = {
		["code"] = '<!-- sử dụng {{URL|ví dụ.com}} -->',
		["dlist"] = 'sử dụng {{tl|URL}}'},
	["website"] = {
		["code"] = '<!-- sử dụng {{URL|ví dụ.com}} -->',
		["dlist"] = 'sử dụng {{tls|URL|ví dụ.com}}'},
	["trang chủ"] = {
		["code"] = '<!-- sử dụng {{URL|ví dụ.com}} -->',
		["dlist"] = 'sử dụng {{tls|URL|ví dụ.com}}'},
	["country"] = {
		["code"] = '<!-- không nên sử dụng {{VNM}}, {{flagcountry|Việt Nam}} và các bản mẫu tương tự khác. Xem thêm tại H:IB -->',
		["dlist"] = 'không nên sử dụng {{tl|VNM}}, {{tlx|flagcountry|Việt Nam}} và các bản mẫu tương tự khác. Xem thêm tại [[H:IB]]'},
	["quốc gia"] = {
		["code"] = '<!-- không nên sử dụng {{VNM}}, {{flagcountry|Việt Nam}} và các bản mẫu tương tự khác. Xem thêm tại H:IB -->',
		["dlist"] = 'không nên sử dụng {{tl|VNM}}, {{tlx|flagcountry|Việt Nam}} và các bản mẫu tương tự khác. Xem thêm tại [[H:IB]]'},
}

local p = {}
local removeDuplicates = require('Module:TableTools').removeDuplicates
local yesno = require('Module:Yesno')

local function makeInvokeFunction(funcName)
	return function(frame)
		local getArgs = require('Module:Arguments').getArgs
		return p[funcName](getArgs(frame, {removeBlanks = false}))
	end
end

local function extractParams(page)
	local source = mw.title.new(page, 'Template'):getContent()

	local parameters = {}
	for parameter in string.gmatch(source, '{{{(.-)%f[}|<>]') do
		table.insert(parameters, parameter)
	end
	return removeDuplicates(parameters)
end

local function map(tbl, transform)
	local returnTable = {}
	for k, v in pairs(tbl) do
		returnTable[k] = transform(v)
	end
	return returnTable
end

local function strMap(tbl, transform)
	local returnTable = map(tbl, transform)
	return table.concat(returnTable)
end

function p._check(args)
	local title = args._base or mw.title.getCurrentTitle().fullText
	return string.format(
		'{{#invoke:Check for unknown parameters|check|unknown=' ..
		'[[Thể loại:Trang sử dụng %s với tham số không rõ]]|%s}}', title,
		table.concat(extractParams(args.base), '|'))
end

function p._code(args)
	local definitions = yesno(args.definitions)
	local pad = yesno(args.pad)

	local parameters = extractParams(args.base)
	-- Space-pad the parameters to align the equal signs vertically
	if pad then
		local lengthPerPara = map(parameters, function (parameter)
			return string.len(parameter) end)
		-- Lua doesn't support printf's <*> to specify the width, apparently
		local fs = string.format('%%-%ss', math.max(unpack(lengthPerPara)))
		for i, parameter in pairs(parameters) do
			parameters[i] = string.format(fs, parameter)
		end
	end

	local title = args._base or mw.title.getCurrentTitle().baseText
	return string.format([[{{%s
%s}}]], title, strMap(parameters,
		function(s)
			if definitions then
				return string.format('| %s = %s\n', s,
					DEFINITIONS[s] and DEFINITIONS[s].code or '')
			else
				return string.format('| %s = \n', s)
			end
		end))
end

function p._compare(args)
	local Set = require('Module:Set')

	local function normaliseParams(parameters)
		local paramsNorm = {}
		-- Prepare a key lookup metatable, which will hold the original
		-- parameter names for each normalised parameter, e.g.
		-- [test] = {TEST, Test}. paramIndex functions like a Python
		-- defaultdict, where the default is a table.
		local paramIndex = setmetatable({}, {__index = function(t, k)
			if not rawget(t, k) then
				rawset(t, k, {})
			end
			return rawget(t, k)
		end})
		for _, parameter in pairs(parameters) do
			table.insert(paramsNorm,
				string.lower(string.gsub(parameter, '%A', '')))
			table.insert(paramIndex[
				string.lower(string.gsub(parameter, '%A', ''))], parameter)
		end

		paramsNorm = removeDuplicates(paramsNorm)
		-- Overload key lookup in paramsNorm. While [[Module:Set]] will
		-- operate on the table (which is to say, the normalised parameters
		-- array), key access will be by way of the paramIndex metatable.
		setmetatable(paramsNorm, {__index = paramIndex})
		return paramsNorm
	end

	local baseParams = extractParams(args.base)
	local otherParams = extractParams(args.other)
	local baseNormParams = normaliseParams(Set.valueComplement(
			otherParams, baseParams))
	local otherNormParams = normaliseParams(otherParams)

	return string.format([[Giống nhau:
%s
Tương tự nhau:
%s
Khác nhau:
%s]],
	strMap(Set.valueIntersection(baseParams, otherParams),
		function(v) return string.format('* %s\n', v) end),
	strMap(Set.valueIntersection(baseNormParams, otherNormParams),
		function(v) return string.format('* %s < %s [%s]\n',
			table.concat(baseNormParams[v], '; '),
			table.concat(otherNormParams[v], '; '),
			v)
		end),
	strMap(Set.valueComplement(otherNormParams, baseNormParams),
		function(v) return strMap(baseNormParams[v],
			function(s) return string.format('* %s\n', s) end)
		end))
end

function p._demo(args)
	local title = args._base and ('|_template=' .. args._base) or ''
	return string.format('{{Parameter names example%s|%s}}', title,
		table.concat(extractParams(args.base), '|'))
end

function p._vlist(args)

	return string.format(
		'\n{{TemplateDataHeader}}\n' ..
		'\n<templatedata>\n' ..
		'{\n' ..
		'	"params": {\n' ..
		'		"%s'..
		'": {}\n'..
		'},\n"format": "block"\n'..
		'}'..
		'</templatedata>\n', 
		table.concat(extractParams(args.base), '": {},\n		"'))
end
function p._dlist(args)
	local definitions = yesno(args.definitions, true)
	return strMap(extractParams(args.base),
		function(s)
			if definitions then
				return string.format('; %s: %s\n', s,
					DEFINITIONS[s] and DEFINITIONS[s].dlist or '')
			else
				return string.format('; %s: \n', s)
			end
		end)
end

function p._list(args)
	return strMap(extractParams(args.base),
		function(s) return string.format('* %s\n', s) end)
end



p.check = makeInvokeFunction('_check')
p.code = makeInvokeFunction('_code')
p.compare = makeInvokeFunction('_compare')
p.demo = makeInvokeFunction('_demo')
p.dlist = makeInvokeFunction('_dlist')
p.list = makeInvokeFunction('_list')
p.vlist = makeInvokeFunction('_vlist')

return p