Module:ParameterCount/sandbox - Revision history

Gonnym at 10:40, 27 February 2023

2023-02-27T10:40:38Z

← Previous revision		Revision as of 10:40, 27 February 2023
Line 10:		Line 10:
	-- Test whether a string is blank		-- Test whether a string is blank
	local function isBlank(s)		local function isBlank(s)
			--mw.log("here?")
			--mw.log(s)
			--mw.log(s:find('%S'))
			--mw.log(not s:find('%S'))
	return not s:find('%S')		return not s:find('%S')
	end		end
Line 27:		Line 31:
	for key, val in pairs(args) do		for key, val in pairs(args) do
	if testFunc(key, val) then		if testFunc(key, val) then
			--mw.log(key)
			--mw.log(val)
	ret = ret + 1		ret = ret + 1
	end		end
Line 36:		Line 42:
	local function main(frame, testFunc)		local function main(frame, testFunc)
	local blankifiedTestFunc		local blankifiedTestFunc
	local ~~count_for_blanks~~ = 0		local modified_count = 0
	if yesno(frame.args.checkblanks) then		if yesno(frame.args.checkblanks) then
	-- Extend the test function to check for blanks as well.		-- Extend the test function to check for blanks as well.
	blankifiedTestFunc = function (key, val)		blankifiedTestFunc = function(key, val)
	if not isBlank(val) then		if not isBlank(val) then
	return testFunc(key, val)		return testFunc(key, val)
Line 45:		Line 51:
	end		end

	~~count_for_blanks~~ = -1		modified_count = -1
	else		else
	blankifiedTestFunc = testFunc		blankifiedTestFunc = testFunc
	end		end

			if frame.args.checkblanks then
			mw.log("here?")
			modified_count = modified_count - 1
			end

	local module_count = count(frame.args, blankifiedTestFunc)		local module_count = count(frame.args, blankifiedTestFunc)
	local parent_count = count(frame:getParent().args, blankifiedTestFunc)		local parent_count = count(frame:getParent().args, blankifiedTestFunc)
	return module_count + parent_count + ~~count_for_blanks~~		return module_count + parent_count + modified_count
	end		end

Line 58:		Line 70:
	-- All specified parameters are counted, even those not supported by the		-- All specified parameters are counted, even those not supported by the
	-- template.		-- template.
	all = function (frame)		all = function(frame)
	return main(frame, function () return true end)		return main(frame, function() return true end)
	end,		end,

Line 65:		Line 77:
	-- 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.
	main = function (frame)		main = function(frame)
	local args = frame.args		local args = frame.args
	local keys, patterns = {}, {}		local keys, patterns = {}, {}
Line 97:		Line 109:

	-- Construct the test function		-- Construct the test function
	local testFunc = function (key, val)		local testFunc = function(key, val)
	if keys[key] then		if keys[key] then
	return true		return true

Gonnym at 10:07, 27 February 2023

2023-02-27T10:07:49Z

← Previous revision		Revision as of 10:07, 27 February 2023
Line 36:		Line 36:
	local function main(frame, testFunc)		local function main(frame, testFunc)
	local blankifiedTestFunc		local blankifiedTestFunc
			local count_for_blanks = 0
	if yesno(frame.args.checkblanks) ~~~= false~~ then		if yesno(frame.args.checkblanks) then
	-- Extend the test function to check for blanks as well.		-- Extend the test function to check for blanks as well.
	blankifiedTestFunc = function (key, val)		blankifiedTestFunc = function (key, val)
Line 43:		Line 44:
	end		end
	end		end

			count_for_blanks = -1
	else		else
	blankifiedTestFunc = testFunc		blankifiedTestFunc = testFunc
Line 48:		Line 51:
	local module_count = count(frame.args, blankifiedTestFunc)		local module_count = count(frame.args, blankifiedTestFunc)
	local parent_count = count(frame:getParent().args, blankifiedTestFunc)		local parent_count = count(frame:getParent().args, blankifiedTestFunc)
	return module_count + parent_count		return module_count + parent_count + count_for_blanks
	end		end

Gonnym at 10:01, 27 February 2023

2023-02-27T10:01:58Z

← Previous revision		Revision as of 10:01, 27 February 2023
Line 46:		Line 46:
	blankifiedTestFunc = testFunc		blankifiedTestFunc = testFunc
	end		end
	~~return~~ count(frame~~.args + frame:getParent()~~.args, blankifiedTestFunc)		local module_count = count(frame.args, blankifiedTestFunc)
			local parent_count = count(frame:getParent().args, blankifiedTestFunc)
			return module_count + parent_count
	end		end

Gonnym at 10:00, 27 February 2023

2023-02-27T10:00:30Z

← Previous revision		Revision as of 10:00, 27 February 2023
Line 46:		Line 46:
	blankifiedTestFunc = testFunc		blankifiedTestFunc = testFunc
	end		end
	return count(frame:getParent().args, blankifiedTestFunc)		return count(frame.args + frame:getParent().args, blankifiedTestFunc)
	end		end

Gonnym: Create sandbox version of Module:ParameterCount

2023-02-27T10:00:09Z

Create sandbox version of Module:ParameterCount

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 key, val in pairs(args) do
if testFunc(key, val) then
ret = ret + 1
end
end
return ret
end

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

return {
-- Called with {{#invoke:ParameterCount|all}}
-- 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}}
-- 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 (key, val)
if keys[key] then
return true
end
for i, pattern in ipairs(patterns) do
if mw.ustring.find(tostring(key), pattern) then
return true
end
end
return false
end

return main(frame, testFunc)
end
}