Modul:CatUtil - Versionsgeschichte

Leyo: Schützte „Modul:CatUtil“: Häufig eingebundenes Modul ([Bearbeiten=Nur angemeldete, nicht neue Benutzer] (unbeschränkt) [Verschieben=Nur Administratoren] (unbeschränkt))

2014-12-29T11:11:41Z

Schützte „Modul:CatUtil“: Häufig eingebundenes Modul ([Bearbeiten=Nur angemeldete, nicht neue Benutzer] (unbeschränkt) [Verschieben=Nur Administratoren] (unbeschränkt))

← Nächstältere Version	Version vom 29. Dezember 2014, 13:11 Uhr
(kein Unterschied)

PerfektesChaos: update

2014-12-18T13:32:26Z

update

← Nächstältere Version		Version vom 18. Dezember 2014, 15:32 Uhr
Zeile 9:		Zeile 9:
	-- table for export		-- table for export
	local CatUtil = {}		local CatUtil = {}
			-- limitation with some leeway
	local MaxQueries = 400		local MaxQueries = 400

Zeile 28:		Zeile 29:


	local function figure( achieve, alike )		local function figure( achieve, alike, about )
	-- Count items in categories		-- Count items in categories
	-- achieve -- table, with category titles		-- achieve -- table, with category titles
	-- alike -- string, with type, or nil		-- alike -- string, with type, or nil
	-- all pages files subcats		-- all pages files subcats
			-- about -- string, with name of calling function
	-- Returns number		-- Returns number
	local n = #achieve		local n = #achieve
Zeile 44:		Zeile 46:
	if not support:find( seek, 1, true ) then		if not support:find( seek, 1, true ) then
	n = -1		n = -1
	r = string.format( "CatUtil::~~countYears~~ scope='%s'",		r = string.format( "CatUtil::%s scope='%s'",
	alike )		about, alike )
	r = fault( r )		r = fault( r )
	end		end
Zeile 59:		Zeile 61:


	local function format( achieve, args )		local function format( achieve, args, about )
	-- Evaluate and format result		-- Evaluate and format result
	-- achieve -- table, with category titles		-- achieve -- table, with category titles
	-- args -- table, with options		-- args -- table, with options
			-- about -- string, with name of calling function
	-- Returns number or string		-- Returns number or string
	local r		local r
Zeile 69:		Zeile 72:
	#titles, MaxQueries )		#titles, MaxQueries )
	else		else
	r = figure( achieve, args.scope )		r = figure( achieve, args.scope, about )
	if type( r ) == "number" then		if type( r ) == "number" then
	if r == 0 then		if r == 0 then
Zeile 113:		Zeile 116:
	r = fault( r )		r = fault( r )
	else		else
	r = format( titles, args )		r = format( titles, args, "count" )
	end		end
	return r		return r
Zeile 166:		Zeile 169:
	end		end
	if min >= max then		if min >= max then
	r = string.format( "~~!!!~~ %d < %d",		r = string.format( "%s %d < %d",
			"stop > since !!",
	min, max )		min, max )
	elseif max - min > MaxQueries then		elseif max - min > MaxQueries then
Zeile 195:		Zeile 199:
	string.format( args.serial, i ) )		string.format( args.serial, i ) )
	end -- for i		end -- for i
	r = format( titles, args )		r = format( titles, args, "countYears" )
	end		end
	end		end
Zeile 206:		Zeile 210:
	local p = { }		local p = { }

	p.~~test~~ = function ( ~~about~~, args )		p.execute = function ( activate, args )
	local r		local r
	if CatUtil[ ~~about~~ ] then		if CatUtil[ activate ] then
	local lucky		local lucky
	lucky, r = pcall( CatUtil[ ~~about~~ ], args )		lucky, r = pcall( CatUtil[ activate ], args )
	else		else
	r = "ERROR CatUtil::~~test~~() ~~about~~=" .. tostring( ~~about~~ )		r = "ERROR CatUtil::execute() activate=" .. tostring( activate )
	end		end
	return r		return r

PerfektesChaos: +

2014-12-17T23:51:14Z

← Nächstältere Version		Version vom 18. Dezember 2014, 01:51 Uhr
Zeile 1:		Zeile 1:
	--[=[ 2014-12-17		--[=[ 2014-12-18
	CatUtil		CatUtil
	* count()		* count()
Zeile 38:		Zeile 38:
	local scope		local scope
	if alike then		if alike then
			local support = "\|all\|pages\|files\|subcats\|"
			local seek
	scope = alike:lower()		scope = alike:lower()
			seek = string.format( "\|%s\|", scope )
			if not support:find( seek, 1, true ) then
			n = -1
			r = string.format( "CatUtil::countYears scope='%s'",
			alike )
			r = fault( r )
			end
	else		else
	scope = "pages"		scope = "pages"
Zeile 61:		Zeile 70:
	else		else
	r = figure( achieve, args.scope )		r = figure( achieve, args.scope )
	if r == 0 then		if type( r ) == "number" then
	if ~~args.show0~~ then		if r == 0 then
	~~r =~~ args.show0		if args.show0 then
	~~end~~		r = args.show0
	~~elseif~~ ~~args.showN~~ ~~then~~		end
	if r ~~== 1 and~~ args.show1 then		elseif args.showN or args.show1 then
	r = args.show1		if r == 1 and args.show1 then
	~~elseif~~ ~~args.showN:find(~~ ~~"%d",~~ 1, ~~true~~ ) ~~then~~		r = args.show1
	~~r = string.format(~~ args.showN, r )		elseif args.showN:find( "%d", 1, true ) then
	~~else~~		r = string.format( args.showN, r )
	~~r = args.showN~~		else
			r = args.showN
			end
	end		end
	end		end
Zeile 138:		Zeile 149:
	if args.stop then		if args.stop then
	if args.stop:match( "^%d+$" ) then		if args.stop:match( "^%d+$" ) then
	max = ~~tonumber(~~ args.stop )		max = args.stop
	elseif args.stop:match( "^[%+%-]%d+$" ) then		elseif args.stop:match( "^[%+%-]%d+$" ) then
	jump = tonumber( args.stop )		jump = tonumber( args.stop )
Zeile 150:		Zeile 161:
	max = os.date( "%Y" )		max = os.date( "%Y" )
	end		end
			max = tonumber( max )
	if jump then		if jump then
	max = max + jump		max = max + jump

PerfektesChaos: Setup

2014-12-17T21:56:31Z

Setup

Neue Seite

--[=[ 2014-12-17
CatUtil
* count()
* countYears()
]=]

-- table for export
local CatUtil = {}
local MaxQueries = 400

local function fault( alert, frame )
-- Format message with class="error"
-- alert -- string, with message
-- frame -- object
-- Returns message with markup
local r = alert
if frame then
r = string.format( "%s * %s", frame:getTitle(), r )
end
r = string.format( "<span class=\"error\">ERROR * %s</span>", r )
return r
end -- fault()

local function figure( achieve, alike )
-- Count items in categories
-- achieve -- table, with category titles
-- alike -- string, with type, or nil
-- all pages files subcats
-- Returns number
local n = #achieve
local r = 0
local scope
if alike then
scope = alike:lower()
else
scope = "pages"
end
for i = 1, n do
r = r + mw.site.stats.pagesInCategory( achieve[ i ], scope )
end -- for i
return r
end -- figure()

local function format( achieve, args )
-- Evaluate and format result
-- achieve -- table, with category titles
-- args -- table, with options
-- Returns number or string
local r
if #achieve > MaxQueries then
r = string.format( "CatUtil:: max cat: %d > %d",
#titles, MaxQueries )
else
r = figure( achieve, args.scope )
if r == 0 then
if args.show0 then
r = args.show0
end
elseif args.showN then
if r == 1 and args.show1 then
r = args.show1
elseif args.showN:find( "%d", 1, true ) then
r = string.format( args.showN, r )
else
r = args.showN
end
end
end
return r
end -- format()

CatUtil.count = function ( args )
local support = "|scope|show0|show1|showN|"
local titles = { }
local r, seek, unknown
for k, v in pairs( args ) do
if type( k ) == "number" then
table.insert( titles, v )
else
seek = string.format( "|%s|", k )
if not support:find( seek, 1, true ) then
if not unknown then
unknown = { }
end
table.insert( unknown, k .. "=" )
end
end
end -- for k, v
if unknown then
r = string.format( "'<code>%s</code>' in CatUtil::count",
table.concat( unknown, " " ) )
r = fault( r )
else
r = format( titles, args )
end
return r
end -- .count()

CatUtil.countYears = function ( args )
local support = "|scope|serial|show0|show1|showN|since|stop|"
local r, seek, unknown
for k, v in pairs( args ) do
if type( k ) == "number" then
k = tostring( k )
end
seek = string.format( "|%s|", k )
if not support:find( seek, 1, true ) then
if not unknown then
unknown = { }
end
table.insert( unknown, k .. "=" )
end
end -- for k, v
if unknown then
r = string.format( "'<code>%s</code>' in CatUtil::countYears",
table.concat( unknown, " " ) )
r = fault( r )
else
local min, max
if args.serial then
if args.serial:find( "%d", 1, true ) then
if args.since then
if args.since:match( "^%d+$" ) then
local jump
min = tonumber( args.since )
if args.stop then
if args.stop:match( "^%d+$" ) then
max = tonumber( args.stop )
elseif args.stop:match( "^[%+%-]%d+$" ) then
jump = tonumber( args.stop )
else
r = string.format( "stop=???%s???",
args.stop )
end
end
if not r then
if not max then
max = os.date( "%Y" )
end
if jump then
max = max + jump
end
if min >= max then
r = string.format( "!!! %d < %d",
min, max )
elseif max - min > MaxQueries then
r = string.format( ">max: %d-%d > %d",
max, min, MaxQueries )
end
end
else
r = string.format( "since=???%s???",
args.since )
end
else
r = "since=???"
end
else
r = "serial=...'%d'"
end
else
r = "serial=???"
end
if r then
r = string.format( "CatUtil::countYears %s", r )
r = fault( r )
else
local titles = { }
for i = min, max do
table.insert( titles,
string.format( args.serial, i ) )
end -- for i
r = format( titles, args )
end
end
return r
end -- .countYears()

-- Export
local p = { }

p.test = function ( about, args )
local r
if CatUtil[ about ] then
local lucky
lucky, r = pcall( CatUtil[ about ], args )
else
r = "ERROR CatUtil::test() about=" .. tostring( about )
end
return r
end

p.count = function ( frame )
local lucky, r = pcall( CatUtil.count, frame:getParent().args )
if not lucky then
r = fault( r, frame )
end
return r
end

p.countYears = function ( frame )
local lucky, r = pcall( CatUtil.countYears, frame:getParent().args )
if not lucky then
r = fault( r, frame )
end
return r
end

function p.CatUtil()
return CatUtil
end

return p