Module:ParameterCount - Revision history

Mr. Stradivarius: Protected "Module:ParameterCount": High-risk Lua module: 20,000+ transclusions ([Edit=Require template editor access] (indefinite) [Move=Require template editor access] (indefinite))

2017-02-11T14:32:57Z

Protected "Module:ParameterCount": High-risk Lua module: 20,000+ transclusions ([Edit=Require template editor access] (indefinite) [Move=Require template editor access] (indefinite))

← Previous revision	Revision as of 14:32, 11 February 2017
(No difference)

Mr. Stradivarius: remove the "blank=yes" from the comments - it's the wrong parameter name, and it's not necessary anyway

2015-11-24T09:30:12Z

remove the "blank=yes" from the comments - it's the wrong parameter name, and it's not necessary anyway

← Previous revision		Revision as of 09:30, 24 November 2015
Line 50:		Line 50:

	return {		return {
	-- Called with {{#invoke:ParameterCount\|all~~\|blank=yes~~}}		-- Called with {{#invoke:ParameterCount\|all}}
	-- All specified parameters are counted, even those not supported by the		-- All specified parameters are counted, even those not supported by the
	-- template.		-- template.
Line 57:		Line 57:
	end,		end,

	-- Called with {{#invoke:ParameterCount\|main~~\|blank=yes~~}}		-- Called with {{#invoke:ParameterCount\|main}}
	-- Users can specify a list of parameters to check, and a list of Lua		-- Users can specify a list of parameters to check, and a list of Lua
	-- Ustring patterns to check each parameter against.		-- Ustring patterns to check each parameter against.

Mr. Stradivarius: don't confuse keys and values

2015-11-24T06:28:10Z

don't confuse keys and values

← Previous revision		Revision as of 06:28, 24 November 2015
Line 25:		Line 25:
	local function count(args, testFunc)		local function count(args, testFunc)
	local ret = 0		local ret = 0
	for i, ~~arg~~ in pairs(args) do		for key, val in pairs(args) do
	if testFunc(~~arg~~) then		if testFunc(key, val) then
	ret = ret + 1		ret = ret + 1
	end		end
Line 38:		Line 38:
	if yesno(frame.args.checkblanks) ~= false then		if yesno(frame.args.checkblanks) ~= false then
	-- Extend the test function to check for blanks as well.		-- Extend the test function to check for blanks as well.
	blankifiedTestFunc = function (~~arg~~)		blankifiedTestFunc = function (key, val)
	if not isBlank(~~arg~~) then		if not isBlank(val) then
	return testFunc(~~arg~~)		return testFunc(key, val)
	end		end
	end		end
Line 92:		Line 92:

	-- Construct the test function		-- Construct the test function
	local testFunc = function (~~arg~~)		local testFunc = function (key, val)
	if keys[~~arg~~] then		if keys[key] then
	return true		return true
	end		end
	for i, pattern in ipairs(patterns) do		for i, pattern in ipairs(patterns) do
	if mw.ustring.find(tostring(~~arg~~), pattern) then		if mw.ustring.find(tostring(key), pattern) then
	return true		return true
	end		end

Mr. Stradivarius: convert keys to strings when checking patterns

2015-11-24T05:45:00Z

convert keys to strings when checking patterns

← Previous revision		Revision as of 05:45, 24 November 2015
Line 97:		Line 97:
	end		end
	for i, pattern in ipairs(patterns) do		for i, pattern in ipairs(patterns) do
	if mw.ustring.find(arg, pattern) then		if mw.ustring.find(tostring(arg), pattern) then
	return true		return true
	end		end

Mr. Stradivarius: don't anchor patterns, as it may not always be desirable

2015-11-24T05:36:34Z

don't anchor patterns, as it may not always be desirable

← Previous revision		Revision as of 05:36, 24 November 2015
Line 79:		Line 79:
	local pattern = args['pattern' .. tostring(i)]		local pattern = args['pattern' .. tostring(i)]
	if pattern and pattern ~= '' then		if pattern and pattern ~= '' then
	return ~~'^' ..~~ pattern ~~.. '$'~~		return pattern
	end		end
	end		end

Mr. Stradivarius: fix variable clash

2015-11-24T05:33:45Z

fix variable clash

← Previous revision		Revision as of 05:33, 24 November 2015
Line 35:		Line 35:
	-- Check shared arguments and get the parent argument count.		-- Check shared arguments and get the parent argument count.
	local function main(frame, testFunc)		local function main(frame, testFunc)
			local blankifiedTestFunc
	if yesno(frame.args.checkblanks) ~= false then		if yesno(frame.args.checkblanks) ~= false then
	-- Extend the test function to check for blanks as well.		-- Extend the test function to check for blanks as well.
	~~testFunc~~ = function (arg)		blankifiedTestFunc = function (arg)
	if not isBlank(arg) then		if not isBlank(arg) then
	return testFunc(arg)		return testFunc(arg)
	end		end
	end		end
			else
			blankifiedTestFunc = testFunc
	end		end
	return count(frame:getParent().args, ~~testFunc~~)		return count(frame:getParent().args, blankifiedTestFunc)
	end		end

Mr. Stradivarius: create module for counting parameters

2015-11-24T05:26:15Z

create module for counting parameters

New page

-- This module produces a count of all the arguments passed to it.

local yesno = require('Module:Yesno')

-- Trim a string
local function trim(s)
return s:match('^%s*(.-)%s*$')
end

-- Test whether a string is blank
local function isBlank(s)
return not s:find('%S')
end

-- Tests whether a string is a valid positional key, and if so, returns it. If
-- the key is invalid, this returns nil.
local function isPositionalKey(s)
s = trim(s)
if s:find('^[1-9][0-9]*$') then
return tonumber(s)
end
end

-- Return the count of all arguments for which testFunc returns a truthy value.
local function count(args, testFunc)
local ret = 0
for i, arg in pairs(args) do
if testFunc(arg) then
ret = ret + 1
end
end
return ret
end

-- Check shared arguments and get the parent argument count.
local function main(frame, testFunc)
if yesno(frame.args.checkblanks) ~= false then
-- Extend the test function to check for blanks as well.
testFunc = function (arg)
if not isBlank(arg) then
return testFunc(arg)
end
end
end
return count(frame:getParent().args, testFunc)
end

return {
-- Called with {{#invoke:ParameterCount|all|blank=yes}}
-- All specified parameters are counted, even those not supported by the
-- template.
all = function (frame)
return main(frame, function () return true end)
end,

-- Called with {{#invoke:ParameterCount|main|blank=yes}}
-- Users can specify a list of parameters to check, and a list of Lua
-- Ustring patterns to check each parameter against.
main = function (frame)
local args = frame.args
local keys, patterns = {}, {}

-- Get key list
for i, key in ipairs(args) do
local positionalKey = isPositionalKey(key)
if positionalKey then
keys[positionalKey] = true
else
keys[trim(key)] = true
end
end

-- Get patterns
do
local function getPattern(i)
local pattern = args['pattern' .. tostring(i)]
if pattern and pattern ~= '' then
return '^' .. pattern .. '$'
end
end
local i = 1
local pattern = getPattern(i)
while pattern do
patterns[i] = pattern
i = i + 1
pattern = getPattern(i)
end
end

-- Construct the test function
local testFunc = function (arg)
if keys[arg] then
return true
end
for i, pattern in ipairs(patterns) do
if mw.ustring.find(arg, pattern) then
return true
end
end
return false
end

return main(frame, testFunc)
end
}