Модул:Taxobox/CatSpecies

Документация за този модул може да бъде създадена на Модул:Taxobox/CatSpecies/doc

local p = {}

local function count(categories)
	local count = 0
	for i=1, #categories do
		if mw.title.new('Категория:Видове ' .. categories[i]).exists then
			count = count + mw.site.stats.pagesInCategory('Видове ' .. categories[i], 'pages')
		end
	end
	
	return count
end

function p.plants()
	local plants = { 'спорови', 'голосеменни', 'едносемеделни', 'каменоломкоцветни', 'карамфилоцветни', 'лютикоцветни', 'иглолистни', 'розиди', 'астериди', 'магнолииди', 'мъхове и водорасли', 'растения' }
	
	return count(plants)
end

function p.animals()
	local animals = { 'бозайници', 'влечуги', 'иглокожи', 'земноводни', 'лъчеперки', 'мекотели', 'хрущялни риби', 'червеи', 'мешести', 'членестоноги', 'птици', 'животни' }
	
	return count(animals)
end

function p.all(frame)
	local all = { 'организми', 'гъби', 'вируси', 'бактерии', 'протисти', 'първаци', 'археи', 'хромисти' }

	return p.plants() + p.animals() + count(all)
end

return p