Côde sourdant di «Module:Categoreyes»

-- This module helps to manipulate categories 
 
local p = {}
local NS = mw.site.namespaces.Category.name
local categories = {}

function p.store(title, follow_redirect, ns, if_exists) 
	-- only for specified NS (number)
	if  ns ~= nil 
	and ns ~= mw.title.getCurrentTitle().namespace then
	   	return
	end
	
	title = mw.title.makeTitle(NS, title)
	
	-- only if category exists
	if not title.exists and if_exists then
	   	return
	end
	
	-- follow A redirect
	if follow_redirect and title.isRedirect then
		title = title.redirectTarget.text
	else
		title = title.text
	end
	
	if not p.is_stored(title) then
		table.insert(categories, title)
	end
	
end

function p.clear() 
	categories = {}
end

function p.get_all() 
	local cats = ""
	for k, v in ipairs(categories) do
		cats = cats .. "[["..NS..":"..v.."]]"
	end
	
	-- do not add the same categories several times
	-- for multiple calling of get_all
	p.clear() 
	
	return cats
end

function p.is_stored(title) 
	for k, v in ipairs(categories) do
		if v == title then
			return true
		end
	end
	return false
end

return p