Module:eFloras

Module documentation[view] [edit] [history] [purge]

Usage

This module performs tasks for Template:eFloras. The first task is taking the flora_id and the name of the family (or tribe of Asteraceae) and converting them to the corresponding volume numbers for the Floras of North America, China, and Chile. The second is taking the flora_id from the URL and returning the corresponding flora or list name. The data used for these two tasks is in Module:eFloras/data. The third is detecting what type of scientific name is in the third parameter of the template, and applying the correct italicization. For this purpose, the module strips initial and final whitespace, and any italicization or bolding.

{{#invoke:EFloras|volume|1|family=Rosaceae}} or {{#invoke:EFloras|volume|1|Rosaceae}}
{{#invoke:EFloras|resource|1}}
{{#invoke:eFloras|volumeDate|1||Rosaceae}}
{{#invoke:eFloras|volumeDate|1|9|}}
{{#invoke:eFloras|volumeName|1||Rosaceae}}
{{#invoke:eFloras|volumeName|1|9|}}

• {{#invoke:eFloras|name|Asteraceae}}

• {{#invoke:eFloras|name|Aster}}

• {{#invoke:eFloras|name|Aster ericoides}}

• {{#invoke:eFloras|name|Aster ericoides var. ericoides}}

• {{#invoke:eFloras|name|Aster ericoides'' var. ''ericoides}}

• {{#invoke:eFloras|name|Acer tataricum subsp. ginnala}}

Tracking

• Template:Tracking/eFloras/italics or bolding

The above documentation is transcluded from Module:EFloras/doc. (edit | history)
Editors can experiment in this module's sandbox (create | mirror) and testcases (edit | run) pages.
Subpages of this module.

require('Module:No globals')

local p = {}

local data -- Load [[Module:eFloras/data]] if needed and assign to this variable.

local function getResource(floraID)
	data = data or mw.loadData("Module:eFloras/data")
	return data.resources[floraID]
end

function p.resource(frame)
	local floraID = string.match(frame.args[1], "%d+")
	if floraID == nil then
		return "<span style=\"color: red;\">Please provide a resource number (<code>flora_id</code>). See the list of supported resource numbers at [[Module:eFloras/doc]]</span>"
	else
		local flora = getResource(floraID)
		if flora == nil then
			return "<span style=\"color: red;\">The resource number (<code>flora_id</code>) <code>" .. floraID .. "</code> is not recognized. See the list of supported resource numbers at [[Module:eFloras/doc]]</span>[[Category:Pages using eFloras template with unsupported parameter values]]"
		else
			return flora
		end
	end
end

function p.volume(frame)
	local floraID = string.match(frame.args[1], "%d+")
	local family = frame.args[2] or frame.args.family
	data = data or mw.loadData("Module:eFloras/data")
	local flora = data.volumeTable[floraID]
	if flora == nil then
		return ""
	else
		local volume = flora[family]
		if volume == "error" then
			return "19&ndash;21 [[Category:Pages using eFloras template with unsupported parameter values]]"
		elseif volume == nil then
			return ""
		else
			return volume
		end
	end
end

-- Italicize if name requires it.
function p.italicize(name)
	local orig = name
	name = string.gsub(name, "^%s*(.*)%s*$", "%1")
	
	local count
	name, count = string.gsub(name, "\'\'\'?", "")
	
	if count > 0 then
		-- A tracking method used on Wiktionary: [[wikt:Module:debug]].
		-- To see the results:
		-- [[Special:WhatLinksHere/Template:tracking/eFloras/italics or bolding]]
		local frame = mw.getCurrentFrame()
		pcall(frame.expandTemplate, frame, { title = 'tracking/eFloras/italics or bolding' })
		mw.log("Italics in parameter of {{eFloras}}:", orig)
	end
	
	local rank = ""
	if name == "" or name == nil then
		rank = ""
	elseif string.find(name, "aceae") then
		rank = "family"
	elseif string.find(name, "subsp.", nil, true) then
		rank = "subspecies"
	elseif string.find(name, "subg.", nil, true) then
		rank = "subgenus"
	elseif string.find(name, "var.", nil, true) then
		rank = "variety"
	elseif string.find(name, "sect.", nil, true) then
		rank = "section"
	elseif string.find(name, "%a%s%a") then
		rank = "species"
	elseif string.find(name, "%a") then
		rank = "genus"
	else
		error("Module:eFloras could not determine a taxonomic rank for the input that it received: " .. name)
	end
	
	mw.log(name, rank)
	
	if rank == "genus" or rank == "species" then
		return "<i>" .. name .. "</i>"
	elseif rank == "species" or rank == "variety" or rank == "subspecies" then
		local genus, species, lowerRank, lowerRankName = string.match(name, "(%a+)%s+(%a+)%s+(%a+%.)%s+(%a+)") -- Assumes a trinomial name.
		if genus == nil or species == nil or lowerRankName == nil or lowerRank == nil then
			error("The content being passed to the name function is not recognized")
		end
		return "<i>" .. genus .. " " .. species .. "</i> " .. lowerRank .. " <i>" .. lowerRankName .. "</i>"
	elseif rank == "section" or rank == "subgenus" then
		local genus, lowerRank, lowerRankName = string.match(name, "(%a+)%s+(%a+%.)%s+(%a+)")
		if genus == nil or lowerRankName == nil or lowerRank == nil then
			error("The content being passed to the name function is not recognized")
		end
		
		return "<i>" .. genus .. "</i> " .. lowerRank .. " <i>" .. lowerRankName .. "</i>"
	elseif rank == "family" then
		return name
	else
		return ""
	end
end

function p.name(frame)
	local name = frame.args[1]
	return p.italicize(name)
end 

p.get_volume = p.volume

return p