被永久保护的模块

模組:Autotaxobox

维基百科,自由的百科全书
跳到导航 跳到搜索
文档图示 模块文档[查看] [编辑] [历史] [清除缓存]

Module:Autotaxobox talk · [edit] · hist · links · doc · subpages · sandbox · testcases

The purpose of this module is to provide support for the automated taxobox system (including templates such as {{Speciesbox}} and {{Automatic taxobox}}), avoiding Mediawiki template expansion depth errors in the traversal of the taxonomic hierarchies encoded in taxonomy templates.

Currently, processing is arbitrarily limited to hierarchies containing at most 100 levels.

See the automated taxobox system map for information on how the module's functions are used in the system.

taxoboxColour

Given a taxon name, this function returns the correct colour of an automated taxobox for that taxon. It does so by searching up the taxonomic hierarchy for a 'real' taxon (i.e. not incertae sedis) that sets the taxobox colour, and then returning that colour. If no 'real' taxon is found, then if an incertae sedis taxon was found, the incertae sedis colour is returned, otherwise "transparent" is returned. (If the taxonomic hierarchy is too deep to process, the error colour is returned.)

Usage:

{{#invoke:Autotaxobox|taxoboxColour|taxon_name}}

Parameters:

The unnamed parameter should be the name of a taxon for which "Template:Taxonomy/taxon_name" exists.

Examples:

{{#invoke:Autotaxobox|taxoboxColour|Felis}} → rgb(211,211,164)
{{#invoke:Autotaxobox|taxoboxColour|Acacia}} → rgb(144,238,144)

taxoboxList

Given the name of a taxon, this function returns the rows of taxa in an automated taxobox, based on the taxonomic hierarchy for the supplied taxon. If the lowest taxon displayed in the taxobox is below the rank of genus, the supplied taxon will usually be at a higher rank than the taxobox's target taxon, so that there is an offset to be taken into account.

Usage:

{{#invoke:Autotaxobox|taxoboxList
|the name of taxon upwards from which the taxonomic hierarchy is to be displayed by this function
|display_taxa = the number of taxa above taxon to force to be displayed
|authority = taxonomic authority for the lowest level taxon in the taxobox (the taxobox_target) (see also offset below)
|parent_authority = taxonomic authority for taxobox_target's parent
|gparent_authority = taxonomic authority for taxobox_target's grandparent
|ggparent_authority = taxonomic authority for taxobox_target's greatgrandparent
|gggparent_authority = taxonomic authority for taxobox_target's greatgreatgrandparent
|bold_first = bold to embolden taxon in its row
|offset = the offset of taxon from taxobox_target – the number of steps from taxobox_target to taxon
}}

Parameters:

The unnamed parameter should be the name of a taxon for which "Template:Taxonomy/taxon_name" exists. The others are explained above.

Examples:

{| class="wikitable"
{{#invoke:Autotaxobox|taxoboxList|Felis|authority=Linnaeus, 1758}}
|}
界: 动物界 Animalia
门: 脊索动物门 Chordata
纲: 哺乳纲 Mammalia
目: 食肉目 Carnivora
科: 猫科 Felidae
亚科: 猫亚科 Felinae
属: 貓屬 Felis
Linnaeus, 1758

taxonomyList

Given a taxon name, this function returns the rows of the taxonomy table displayed on the "Template:Taxonomy/taxon_name" page, based on the taxonomic hierarchy for the supplied taxon name.

When descending the taxonomic hierarchy, if a rank is found that is at either the same or a higher level than a rank already encountered (e.g. a family is found below a subfamily), the cell displaying the rank is given a reddish background; if it's the supplied taxon, the article is put into the tracking category Category:Taxonomy templates showing anomalous ranks. The numerical values defined in getRankTable() are used to determine the correct sequence of ranks. Ranks without values in this table do not have their order checked.

Usage:

{{#invoke:Autotaxobox|taxonomyList|taxon_name}}

Parameters:

The unnamed parameter should be the name of a taxon for which "Template:Taxonomy/taxon_name" exists.

Examples:

{{#invoke:Autotaxobox|taxonomyList|Felis}}
总域: 新壁總域 Neomura [分类 · 编辑]
域: 真核域 Eukaryota [分类 · 编辑]
演化支 單鞭毛生物 Unikonta [分类 · 编辑]
演化支 後鞭毛生物 Opisthokonta [分类 · 编辑]
总界: 动物总界 Holozoa [分类 · 编辑]
演化支 蜷丝动物 Filozoa [分类 · 编辑]
演化支 聚胞动物 Apoikozoa [分类 · 编辑]
界: 动物界 Animalia [分类 · 编辑]
亚界: 真后生动物亚界 Eumetazoa [分类 · 编辑]
演化支 副同源异形基因动物 ParaHoxozoa [分类 · 编辑]
演化支 浮浪幼虫样动物 Planulozoa [分类 · 编辑]
演化支 两侧对称动物 Bilateria [分类 · 编辑]
演化支 肾管动物 Nephrozoa [分类 · 编辑]
总门: 后口动物总门 Deuterostomia [分类 · 编辑]
门: 脊索动物门 Chordata [分类 · 编辑]
演化支 嗅球类 Olfactores [分类 · 编辑]
演化支 有头动物 Craniata [分类 · 编辑]
亚门: 脊椎动物亚门 Vertebrata [分类 · 编辑]
下门: 有颔下门 Gnathostomata [分类 · 编辑]
小门: 真有颔小门 Eugnathostomata [分类 · 编辑]
演化支 真口类 Teleostomi [分类 · 编辑]
高纲: 硬骨鱼高纲 Osteichthyes [分类 · 编辑]
..... .....
演化支 肉鳍鱼类 Sarcopterygii [分类 · 编辑]
..... .....
演化支 四足形类 Tetrapodomorpha [分类 · 编辑]
..... .....
演化支 坚头类 Stegocephalia [分类 · 编辑]
总纲: 四足总纲 Tetrapoda [分类 · 编辑]
演化支 爬行形类 Reptiliomorpha [分类 · 编辑]
演化支 羊膜动物 Amniota [分类 · 编辑]
..... .....
演化支 合弓类 Synapsida [分类 · 编辑]
..... .....
演化支 哺乳形类 Mammaliaformes [分类 · 编辑]
纲: 哺乳纲 Mammalia [分类 · 编辑]
亚纲: 兽亚纲 Theria [分类 · 编辑]
下纲: 真兽下纲 Eutheria [分类 · 编辑]
演化支 胎盘类 Placentalia [分类 · 编辑]
高目: 北方真兽高目 Boreoeutheria [分类 · 编辑]
总目: 勞亞獸總目 Laurasiatheria [分类 · 编辑]
大目: 有阴囊大目 Scrotifera [分类 · 编辑]
演化支 猛兽有蹄类 Ferungulata [分类 · 编辑]
演化支 猛兽类 Ferae [分类 · 编辑]
演化支 食肉形类 Carnivoramorpha [分类 · 编辑]
目: 食肉目 Carnivora [分类 · 编辑]
亚目: 猫型亚目 Feliformia [分类 · 编辑]
总科: 猫总科 Feloidea [分类 · 编辑]
科: 猫科 Felidae [分类 · 编辑]
亚科: 猫亚科 Felinae [分类 · 编辑]
属: 貓屬 Felis [分类 · 编辑]

callTaxonomyKey

This function prepares for, and then calls, {{Taxonomy key}} to display a taxonomy template page. It does this by building up the information the template requires, following one same_as link if present, and then calling it.

It is used by {{Don't edit this line}}.

Usage:

{{#invoke:Autotaxobox|callTaxonomyKey
|taxon=
|parent=
|rank=
|extinct=
|always_display=
|link_target=value of the 'link' parameter in the taxonomy template
|link_text=value of the unnamed parameter in the taxonomy template
|refs=
|same_as=
}}

showRefs

Shows the refs field in a taxonomy template, handing incertae sedis taxa and using '–' for absent refs.

Usage:

{{#invoke:Autotaxobox|showRefs|taxon_name|refs}}

Examples:

{{#invoke:Autotaxobox|showRefs|Neoscona|{{Taxon info|Neoscona|refs}}}} → 脚本错误:函数“showRefs”不存在。
{{#invoke:Autotaxobox|showRefs|Incertae sedis/Characidae|}} → 脚本错误:函数“showRefs”不存在。

taxonLink

Returns a wikilink to a taxon, if required including '†' before it and ' (?)' after it, and optionally italicized or bolded without a wikilink. It can be used externally via {{Taxon link}}. Some parameters can, under some circumstances, be omitted.

Usage:

{{#invoke:Autotaxobox|taxonLink
|taxon=
(having '/?' at the end triggers the output of ' (?)')
|extinct=
('yes' or 'true' triggers the output of '†')
|bold=
('yes' makes the core output bold and not wikilinked)
|italic=
('yes' makes the core output italic)
|link_target=target for the wikilink
|plain_link_text= text of the wikilink
(without †, italics, etc.)
}}

Examples:

{{#invoke:Autotaxobox|taxonLink|taxon=Felis|italic=yes}} → Felis
{{#invoke:Autotaxobox|taxonLink|taxon=Incertae sedis/Animalia}} → incertae sedis
{{#invoke:Autotaxobox|taxonLink|link_target=Pterosaur|plain_link_text=Pterosauromorpha|extinct=yes}} → Pterosauromorpha
{{#invoke:Autotaxobox|taxonLink|taxon=Dinosauria/?|link_target=Dinosaur|plain_link_text=Dinosauria|extinct=yes}} → Dinosauria (?)

Utilities

These functions are intended to be used only in analysing and understanding the automated taxobox system, including the taxonomic hierarchies encoded in taxonomy templates – for example in testing and debugging. They are not part of the functioning of the automated taxobox system.

showRankTable

Returns a sortable wikitable containing the ranks and corresponding numerical values defined in getRankTable() and used in checking the consistency of a taxonomic hierarchy. If a taxon has a value in the rank table, it should always be lower than one higher in the taxonomic hierarchy.

Usage:

{{#invoke:Autotaxobox|showRankTable}}

taxonInfo

Given the names of a taxon and the required item of information stored in the taxon's taxonomy template, this function returns the value of the item, following one "same as" link if available and the value would otherwise be the empty string.

Usage:

{{#invoke:Autotaxobox|taxonInfo|taxon_name|item_name}}

Parameters:

The first unnamed parameter should be the name of a taxon for which "Template:Taxonomy/taxon_name" exists.
The possible values of the second unnamed parameter are given at {{Taxon info/doc}}.

Examples:

{{#invoke:Autotaxobox|taxonInfo|Felis|rank}} → genus
{{#invoke:Autotaxobox|taxonInfo|Aves/skip|same_as}} → Template:Taxonomy/Aves/skip
{{#invoke:Autotaxobox|taxonInfo|Aves/skip|parent}} → Template:Taxonomy/Aves/skip

getMaxSearchLevels

Returns the maximum number of levels of a taxonomic hierarchy encoded in taxonomy templates that the system will search.

Usage:

{{#invoke:Autotaxobox|getMaxSearchLevels}} → 100

find

Given a taxon name and a rank, this function returns the taxon's ancestor of the given rank.

Usage:

{{#invoke:Autotaxobox|find|taxon_name|rank}}

Parameters:

The first unnamed parameter should be the name of a taxon for which "Template:Taxonomy/taxon_name" exists.
The second unnamed parameter should be the Latinized name of a rank.

Examples:

{{#invoke:Autotaxobox|find|Felis|ordo}}脚本错误:函数“find”不存在。
{{#invoke:Autotaxobox|find|Felis|classis}}脚本错误:函数“find”不存在。
{{#invoke:Autotaxobox|find|Pteranodon|phylum}}脚本错误:函数“find”不存在。
{{#invoke:Autotaxobox|find|Pteranodon|classis}}脚本错误:函数“find”不存在。

nth

Given a taxon name, this function returns the nth taxon above it in the taxonomic hierarchy.

Usage:

{{#invoke:Autotaxobox|nth|taxon_name|n=integer}}

Parameters:

The unnamed parameter should be the name of a taxon for which "Template:Taxonomy/taxon_name" exists.
n is the level whose taxon is to be found

Examples:

{{#invoke:Autotaxobox|nth|Felis|n=1}} → Felis
{{#invoke:Autotaxobox|nth|Felis|n=15}} → Theria

nLevels

Given a taxon name, this function returns the number of levels at and above it in the taxonomic hierarchy.

Usage:

{{#invoke:Autotaxobox|nLevels|taxon_name}}

Parameters:

The unnamed parameter should be the name of a taxon for which "Template:Taxonomy/taxon_name" exists.

Examples:

{{#invoke:Autotaxobox|nLevels|Felis}} → 47
{{#invoke:Autotaxobox|nLevels|Pteranodon}} → 59

listAll

Given a taxon name, this function returns a comma-separated list of all the levels at and above it in the taxonomic hierarchy.

Usage:

{{#invoke:Autotaxobox|listAll|taxon_name}}

Parameters:

The unnamed parameter should be the name of a taxon for which "Template:Taxonomy/taxon_name" exists.

Examples:

{{#invoke:Autotaxobox|listAll|Plantae}} → Plantae, Archaeplastida, AH, Diaphoretickes, Bikonta, Eukaryota, Neomura, Life
{{#invoke:Autotaxobox|listAll|Felis}} → Felis, Felinae, Felidae, Feloidea, Feliformia, Carnivora, Carnivoramorpha, Ferae, Ferungulata, Scrotifera, Laurasiatheria, Boreoeutheria, Placentalia, Eutheria, Theria, Mammalia, Mammaliaformes/skip, Synapsida/skip, Amniota, Reptiliomorpha, Tetrapoda, Stegocephalia/skip, Tetrapodomorpha/skip, Sarcopterygii/skip, Osteichthyes, Teleostomi, Eugnathostomata, Gnathostomata, Vertebrata, Craniata, Olfactores, Chordata, Deuterostomia, Nephrozoa, Bilateria, Planulozoa, ParaHoxozoa, Eumetazoa, Animalia, Apoikozoa, Filozoa, Holozoa, Opisthokonta, Unikonta, Eukaryota, Neomura, Life
--[[
This module provides support to the automated taxobox system – the templates
Automatic taxobox, Speciesbox, Subspeciesbox, Infraspeciesbox, etc.

In particular it provides a way of traversing the taxonomic hierarchy encoded
in taxonomy templates (templates with names of the form
"Template:Taxonomy/TAXON_NAME") without causing template expansion depth errors.
]]

local p = {}

--[[=========================================================================
Limit the maximum depth of a taxonomic hierarchy that can be traversed;
avoids excessive processing time and protects against incorrectly set up
hierarchies, e.g. loops.
=============================================================================]]
local MaxSearchLevels = 100

function p.getMaxSearchLevels()
	return MaxSearchLevels
end

--[[========================== taxoboxColour ================================
Determines the correct colour for a taxobox, by searching up the taxonomic
hierarchy from the supplied taxon for the first taxon (other than
'incertae sedis') that sets a taxobox colour. It is assumed that a valid
taxobox colour is defined using CSS rgb() syntax.
If no taxon that sets a taxobox colour is found, then 'transparent' is
returned unless the taxonomic hierarchy is too deep, when the error colour is
returned.
Usage: {{#invoke:Autotaxobox|taxoboxColour|TAXON}}
=============================================================================]]
function p.taxoboxColour(frame)
	local currTaxon = frame.args[1] or ''
	local i = 1 -- count levels processed
	local searching = currTaxon ~= '' -- still searching for a colour?
	local foundICTaxon = false -- record whether 'incertae sedis' found
	local colour = '' -- default is no colour
	while searching and i <= MaxSearchLevels do
		local plainCurrTaxon = p.stripExtra(currTaxon) -- remove trailing text after /
		if plainCurrTaxon == 'incertae sedis' then
			foundICTaxon = true
		else
			local possibleColour = frame:expandTemplate{ title = 'Template:Taxobox colour', args = { plainCurrTaxon } }
			if string.sub(possibleColour,1,3) == 'rgb' then
				colour = possibleColour
				searching = false
			end
		end
		if searching then
			local ok, parent = p.getTaxonInfoItem(frame, currTaxon, 'parent')
			if ok and parent ~= '' then
				currTaxon = parent
				i = i + 1
			else
				searching = false -- run off the top of the hierarchy or tried to use non-existent taxonomy template
			end
		end
	end
	if colour ~= '' then
		return colour
	elseif foundICTaxon then
		return frame:expandTemplate{ title = 'Template:Taxobox colour', args = { 'incertae sedis' } }
	elseif searching then
		-- hierarchy exceeds MaxSearchLevels levels
		return frame:expandTemplate{ title = 'Template:Taxobox/Error colour', args = { } }
	else
		return 'transparent'
	end
end

--[[=========================== taxoboxList =================================
Returns the rows of taxa in an automated taxobox, based on the taxonomic
hierarchy for the supplied taxon.
Usage:
{{#invoke:Autotaxobox|taxoboxList|TAXON
|display_taxa = the number of taxa *above* TAXON to force to be displayed
|authority = taxonomic authority for TAXON
|parent_authority = taxonomic authority for TAXON's parent
|gparent_authority = taxonomic authority for TAXON's grandparent
|ggparent_authority = taxonomic authority for TAXON's greatgrandparent
|ggparent_authority = taxonomic authority for TAXON's greatgreatgrandparent
|bold_first = 'bold' to bold TAXON in its row
}}
=============================================================================]]
function p.taxoboxList(frame)
	local currTaxon = frame.args[1] or ''
	local displayN = (tonumber(frame.args['display_taxa']) or 1)+1
	local auth = frame.args['authority'] or ''
	local parentAuth = frame.args['parent_authority'] or ''
	local gParentAuth = frame.args['gparent_authority'] or ''
	local ggParentAuth = frame.args['ggparent_authority'] or ''
	local gggParentAuth = frame.args['gggparent_authority'] or ''
	local boldFirst = frame.args['bold_first'] or 'link' -- values 'link' or 'bold'
	local taxonTable = p.makeTable(frame, currTaxon)
	local res = ''
 	local force = ''
	-- display all taxa above possible 10th level ancestor
	for i = taxonTable.n, 11, -1 do
		res = res .. frame:expandTemplate{ title = 'Template:Taxobox/showtaxon', args = { taxonTable[i], fc = tostring(displayN >= i) } }
	end
	-- display 10th level ancestor, if it exists
	if taxonTable.n >= 10 then
		force =  tostring(displayN >= 10 or (displayN>0 and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[9] } }== 'true'  and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[8] } }== 'true'  and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[7] } }== 'true'  and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[6] } }== 'true'  and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[5] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[4] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[3] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[2] } } == 'true') )
       		res = res .. frame:expandTemplate{ title = 'Template:Taxobox/showtaxon', args = { taxonTable[10], fc = force } }
	end
	-- display 9th level ancestor, if it exists
	if taxonTable.n >= 9 then
		force =  tostring(displayN >= 9 or (displayN>0 and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[8] } }== 'true'  and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[7] } }== 'true'  and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[6] } }== 'true'  and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[5] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[4] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[3] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[2] } } == 'true') )
       		res = res .. frame:expandTemplate{ title = 'Template:Taxobox/showtaxon', args = { taxonTable[9], fc = force } }
	end
	-- display 8th level ancestor, if it exists
	if taxonTable.n >= 8 then
		force =  tostring(displayN >= 8 or (displayN>0 and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[7] } }== 'true'  and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[6] } }== 'true'  and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[5] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[4] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[3] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[2] } } == 'true') )
       		res = res .. frame:expandTemplate{ title = 'Template:Taxobox/showtaxon', args = { taxonTable[8], fc = force } }
	end
	-- display 7th level ancestor, if it exists
	if taxonTable.n >= 7 then
		force =  tostring(displayN >= 7 or (displayN>0 and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[6] } }== 'true'  and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[5] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[4] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[3] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[2] } } == 'true') )
       		res = res .. frame:expandTemplate{ title = 'Template:Taxobox/showtaxon', args = { taxonTable[7], fc = force } }
	end
	-- display 6th level ancestor, if it exists
	if taxonTable.n >= 6 then
		force =  tostring(displayN >= 6 or (displayN>0 and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[5] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[4] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[3] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[2] } } == 'true') )
       		res = res .. frame:expandTemplate{ title = 'Template:Taxobox/showtaxon', args = { taxonTable[6], fc = force } }
	end
	-- display greatgreatgrandparent, if it exists
	if taxonTable.n >= 5 then
		force =  tostring(displayN >= 5 or (displayN>0 and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[4] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[3] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[2] } } == 'true') )
       		res = res .. frame:expandTemplate{ title = 'Template:Taxobox/showtaxon', args = { taxonTable[5], authority = gggParentAuth, fc = force } }
	end
	-- display greatgrandparent, if it exists; force the display if an infrataxon is below
	if taxonTable.n >= 4 then
		force =  tostring(displayN >= 4 or (displayN>0 and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[3] } } == 'true' and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[2] } } == 'true') )
       		res = res .. frame:expandTemplate{ title = 'Template:Taxobox/showtaxon', args = { taxonTable[4], authority = ggParentAuth, fc = force } }
	end
	-- display grandparent, if it exists; force the display if an infrataxon is below
	if taxonTable.n >= 3 then
		force =  tostring(displayN >= 3 or displayN>0 and
		             frame:expandTemplate{ title = 'Template:Infrataxon', args = { taxonTable[2] } } == 'true')
       		res = res .. frame:expandTemplate{ title = 'Template:Taxobox/showtaxon', args = { taxonTable[3], authority = gParentAuth, fc = force } }
	end
	-- display parent, if it exists
	if taxonTable.n >= 2 then
		res = res .. frame:expandTemplate{ title = 'Template:Taxobox/showtaxon', args = { taxonTable[2], authority = parentAuth, fc = tostring(displayN >= 2) } }
	end
	-- display target taxon
	res = res .. frame:expandTemplate{ title = 'Template:Taxobox/showtaxon', args = { taxonTable[1], authority = auth, fc = 'true', format = boldFirst  } }
	return res
end

--[[========================== taxonomyList =================================
Returns the cells of the taxonomy table displayed on "Template:Taxonomy...."
pages.
Usage: {{#invoke:Autotaxobox|taxonomyList|TAXON}}
=============================================================================]]
function p.taxonomyList(frame)
	local currTaxon = frame.args[1] or ''
	if currTaxon == '' then return '| ||ERROR: no taxon supplied\n|-' end
	local taxonTable = p.makeTable(frame, currTaxon)
	local rankTable = p.getRankTable()
	local lastRankVal = 1000000
	local orderOk
	local res = ''
	for i = taxonTable.n, 1, -1 do
		-- check ranks are in right order in the hierarchy
		local ok, rank = p.getTaxonInfoItem(frame, taxonTable[i], 'rank')
		local currRankVal = rankTable[rank]
		if currRankVal then
			orderOk = currRankVal < lastRankVal
			if orderOk then lastRankVal = currRankVal end
		else
			orderOk = true
		end
		-- now return a row of the taxonomy table with anomalous ranks marked
		if orderOk then
			res = res .. frame:expandTemplate{ title = 'Template:Taxonomy links', args = { taxonTable[i] } }
		else
			if i ~= 1 then
				res = res .. frame:expandTemplate{ title = 'Template:Taxonomy links', args = { taxonTable[i], error = 'true' } }
			else
				res = res .. frame:expandTemplate{ title = 'Template:Taxonomy links', args = { taxonTable[i], error = 'true', last_error = 'true' } }
			end
		end
	end
	return res
end

--[[========================= callTaxonomyKey ===============================
Prepares for, and then calls, Template:Taxonomy key to display a taxonomy
template page. It does this by building up the information the template
requires, following one 'same as' link, if required.
Usage:
{{#invoke:Autotaxobox|callTaxonomyKey
|parent=
|rank=
|extinct=
|always_display=
|link_target=value of 'link' parameter in taxonomy template
|link_text=value of parameter 2 in taxonomy template
|same_as=
}}
=============================================================================]]
local SAME_AS = 7
local PARENT = 1
local RANK = 2
local LINK_TARGET = 3
local LINK_TEXT = 4
local ALWAYS_DISPLAY = 5
local EXTINCT = 6
local REFS = 8

function p.callTaxonomyKey(frame)
	local parent = frame.args['parent'] or ''
	local rank = frame.args['rank'] or ''
	local extinct = frame.args['extinct'] or ''
	local alwaysDisplay = frame.args['always_display'] or ''
	local linkTarget = frame.args['link_target'] or ''
	local linkText = frame.args['link_text'] or '' -- this is the "raw" link text, and can be ''
	local refs = frame.args['refs'] or ''
	local sameAsTaxon = frame.args['same_as'] or ''
	if sameAsTaxon ~= '' then
		-- try using the 'same as' taxon; it's an error if it doesn't exist
		local ok, sameAsInfoStr = pcall(frame.expandTemplate, frame, { title = 'Template:Taxonomy/' .. sameAsTaxon, args = {['machine code'] = 'all' } })
		if ok then
			local sameAsInfo = mw.text.split(sameAsInfoStr, '$', true)
			--'same as' taxon's taxonomy template must not have a 'same as' link
			if sameAsInfo[SAME_AS] == '' then
				if parent == '' then parent = sameAsInfo[PARENT] end
				if rank == '' then rank = sameAsInfo[RANK] end
				if extinct == '' then extinct = sameAsInfo[EXTINCT] end
				if alwaysDisplay == '' then alwaysDisplay = sameAsInfo[ALWAYS_DISPLAY] end
				if linkTarget == '' then linkTarget = sameAsInfo[LINK_TARGET] end
				if linkText == '' then linkText = sameAsInfo[LINK_TEXT] end
				if refs == '' and parent == sameAsInfo[PARENT] then refs = sameAsInfo[REFS] end
			else
				return '<span style="color:red; font-size:1.1em">Error: attempt to follow two "same as" links</span>: <code>same_as = ' .. sameAsTaxon .. '</code>, but [[Template:Taxonomy/' .. sameAsTaxon .. ']] also has a<code>same_as</code> parameter.'
			end
		else
			return frame:expandTemplate{ title = 'Template:Taxonomy key/missing template', args = {taxon=sameAsTaxon, msg='given as the value of <code>same as</code>'} }
		end
	end
	local link = linkTarget
	if linkText ~= '' and linkText ~= linkTarget then link = link .. "|" .. linkText end
	return frame:expandTemplate{ title = 'Template:Taxonomy key',
			args = {parent=parent, rank=rank, extinct=extinct, always_display=alwaysDisplay, link_target=linkTarget, link=link, refs=refs, same_as=sameAsTaxon} }
end

--[[============================ taxonInfo ==================================
Extracts and returns information from Template:Taxonomy/TAXON, following
one 'same as' link if required.
Usage: {{#invoke:Autotaxobox|taxonInfo|TAXON|ITEM}}
ITEM is one of: 'parent', 'rank', 'link target', 'link text', 'link', 'extinct',
'always display', 'refs', 'same as' or 'all'.
If ITEM is not specified, the default is 'all' – all values in a single string
separated by '$'.
=============================================================================]]
function p.taxonInfo(frame)
	local taxon = frame.args[1] or ''
	local item = frame.args[2] or ''
	if item == '' then item = 'all' end
	local ok, info = p.getTaxonInfoItem(frame, taxon, item)
	return info
end

--[[============================ taxonLink ==================================
Returns a wikilink to a taxon, if required including '†' before it and
' (?)' after it, and optionally italicized or bolded without a wikilink.
Usage:
{{#invoke:Autotaxobox|taxonLink
|taxon=           : having '/?' at the end triggers the output of ' (?)'
|extinct=         : 'yes' or 'true' trigger the output of '†'
|bold=            : 'yes' makes the core output bold and not wikilinked
|italic=          : 'yes' makes the core output italic
|link_target=     : target for the wikilink
link_text=        : text of the wikilink (may be same as link_target), without †, italics, etc.
}}
=============================================================================]]
function p.taxonLink(frame)
	local taxon = frame.args['taxon'] or ''
	local extinct = frame.args['extinct'] or ''
	local bold = frame.args['bold'] or ''
	local italic = frame.args['italic'] or ''
	local linkTarget = frame.args['link_target'] or ''
	local linkText = frame.args['link_text'] or frame.args['plain_link_text'] or '' --temporarily allow alternative args
	-- if link text is missing, try to find a replacement
	if linkText == '' then
		if string.find(taxon, 'Incertae sedis', 1, true) then
			linkText = "''incertae sedis''"
			linkTarget = 'Incertae sedis'
		else
			linkText = p.stripExtra(taxon)
		end
	end
	local link = ''
	if bold == 'yes' then link = '<b>' .. linkText .. '</b>'
	else
		if linkTarget == linkText or linkTarget == '' then link = linkText
		else link = linkTarget .. '|' .. linkText
		end
		link = '[[' .. link .. ']]'
	end
	if italic == 'yes' and not string.find(link, "''", 1, true) then link = '<i>' .. link .. '</i>' end
	if (extinct == 'yes' or extinct == 'true') and not string.find(link, '†', 1, true) then
		link = '<span style="font-style:normal;font-weight:normal;">†</span>' .. link
	end
	if string.sub(taxon, -2) == '/?' and not string.find(link, '?', 1, true) then
		link = link .. '<span style="font-style:normal;font-weight:normal;"> (?)</span>'
	end
	return link
end

--[[========================== showRankTable ================================
Returns a wikitable showing the ranks and their values as set up by
getRankTable().
Usage: {{#invoke:Autotaxobox|showRankTable}}
=============================================================================]]

function p.showRankTable(frame)
	local rankTable = p.getRankTable()
	local res = '{| class="wikitable sortable"\n|+ Ranks checked in taxonomy templates\n! Rank !! Shown as !! Value\n'
	for k, v in pairs(rankTable) do
		local rankShown = frame:expandTemplate{ title = 'Template:Sinicize rank', args = { k } }
		res = res .. '|-\n|' .. k .. '||' .. rankShown .. '||' .. v .. '\n'
	end
	return res .. '|}\n'
end

--[[=============================== nth =====================================
External utility function primarily intended for use in checking and debugging.
Returns the nth level above a taxon in a taxonomic hierarchy, where the taxon
itself is counted as the first level.
Usage: {{#invoke:Autotaxobox|nth|TAXON|n=N}}
=============================================================================]]
function p.nth(frame)
	local currTaxon = frame.args[1] or ''
	if currTaxon == '' then return 'ERROR: no taxon supplied' end
	local n = tonumber(frame.args['n'] or 1)
	if n > MaxSearchLevels then
		return 'Exceeded maximum number of levels allowed (' .. MaxSearchLevels .. ')'
	end
	local i = 1
	local inHierarchy = true -- still in the taxonomic hierarchy or off the top?
	while i < n and inHierarchy do
		local ok, parent = p.getTaxonInfoItem(frame, currTaxon, 'parent')
			if ok and parent ~= '' then
			currTaxon = parent
			i = i + 1
		else
			inHierarchy = false
		end
	end
	if inHierarchy then return currTaxon
	else return 'Level ' .. n .. ' is past the top of the taxonomic hierarchy'
	end
end

--[[============================= nLevels ===================================
External utility function primarily intended for use in checking and debugging.
Returns number of levels in a taxonomic hierarchy, starting from
the supplied taxon as level 1.
Usage: {{#invoke:Autotaxobox|nLevels|TAXON}}
=============================================================================]]
function p.nLevels(frame)
	local currTaxon = frame.args[1] or ''
	if currTaxon == '' then return 'ERROR: no taxon supplied' end
	local i = 1
	local inHierarchy = true -- still in the taxonomic hierarchy or off the top?
	while inHierarchy and i < MaxSearchLevels  do
		local ok, parent = p.getTaxonInfoItem(frame, currTaxon, 'parent')
		if ok and parent ~= '' then
			currTaxon = parent
			i = i + 1
		else
			inHierarchy = false
		end
	end
	if inHierarchy then return MaxSearchLevels .. '+'
	else return i
	end
end

--[[============================= listAll ===================================
External utility function primarily intended for use in checking and debugging.
Returns a comma separated list of a taxonomic hierarchy, starting from
the supplied taxon.
Usage: {{#invoke:Autotaxobox|listAll|TAXON}}
=============================================================================]]
function p.listAll(frame)
	local currTaxon = frame.args[1] or ''
	if currTaxon == '' then return 'ERROR: no taxon supplied' end
	return p.listTaxa(p.makeTable(frame, currTaxon))
end

--[[=========================================================================
Internal functions
=============================================================================]]

--[[= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Internal utility function to strip off any extra parts of a taxon name, i.e.
anything after a '/'. Thus "Felidae/?" would be reduced to "Felidae".
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function p.stripExtra(taxonName)
	local i = string.find(taxonName,'/')
	if i then
		return string.sub(taxonName,1,i-1)
	else
		return taxonName
	end
end

--[[= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Internal utility function to convert a taxon table to a comma-separated list.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function p.listTaxa(taxonTable)
	local lst = taxonTable[1]
	for i = 2, taxonTable.n, 1 do
		lst = lst .. ', ' .. taxonTable[i]
	end
	return lst
end

--[[= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Internal utility function to extract an item of information from a 
taxonomy template, following one 'same as' link if required.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function p.getTaxonInfoItem(frame, taxon, item)
	-- item == 'link' is a special case
	if item == 'link' then
		return p.getTaxonInfoLink(frame, taxon)
	end
	-- item ~= 'link'
	local ok, info = pcall(frame.expandTemplate, frame, { title = 'Template:Taxonomy/' .. taxon, args = {['machine code'] = item } })
	if ok then
		if info == '' then
			-- try 'same as'
			local sameAsTaxon = frame:expandTemplate{ title = 'Template:Taxonomy/' .. taxon, args = {['machine code'] = 'same as' } }
			if sameAsTaxon ~= '' then
				ok, info = pcall(frame.expandTemplate, frame, { title = 'Template:Taxonomy/' .. sameAsTaxon, args = {['machine code'] = item } })
			end
		end
	end
	if ok then
		-- if item is 'link_text' check whether '(?)' needs to be added
		if item == 'link_text' and string.sub(taxon, -2) == '/?' and not string.find(info, '?', 1, true) then
			info = info .. '<span style="font-style:normal;font-weight:normal;"> (?)</span>'
		end
	else
		info = '[[Template:Taxonomy/' .. taxon .. ']]' --error indicator in code before conversion to Lua
	end
	return ok, info
end

function p.getTaxonInfoLink(frame, taxon)
	local ok, linkText, linkTarget
	local link = ''
	ok, linkText = p.getTaxonInfoItem(frame, taxon, 'link_text')
	if ok then
		ok, linkTarget = p.getTaxonInfoItem(frame, taxon, 'link_target')
		if ok then
			if linkText == linkTarget then link = linkText
			else link = linkTarget .. '|' .. linkText
			end
		end
	end
	return ok, link
end

--[[= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Internal utility function to return a table (array) constructed from a
taxonomic hierarchy stored in "Template:Taxonomy/..." templates.
TABLE.n holds the total number of taxa; TABLE[1]..TABLE[TABLE.n] the taxon
names.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function p.makeTable(frame, currTaxon)
	local i = 1
	local inHierarchy = true -- still in the taxonomic hierarchy or off the top?
	local taxonTable = {}
	taxonTable[1] = currTaxon;
	while i < MaxSearchLevels and inHierarchy do
		local ok, parent = p.getTaxonInfoItem(frame, currTaxon, 'parent')
		if ok and parent ~= '' then
			currTaxon = parent
			i = i + 1
			taxonTable[i] = currTaxon
		else
			inHierarchy = false -- run off the top of the hierarchy or tried to use non-existent taxonomy template
		end
	end
	taxonTable.n = i
	return taxonTable
end

--[[= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Internal utility function to set up a table of numerical values corresponding
to 'Linnaean' ranks, with upper ranks having higher values. In a valid
taxonomic hierarchy, a lower rank should never have a higher value than a
higher rank. The actual numerical values are arbitrary so long as they are
ordered.
The ranks should correspond to those in Template:Anglicise ranks.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function p.getRankTable()
	return {
		classis = 1400,
		cohort = 1100,
		divisio = 1500,
		domain = 1700,
		familia = 800,
		forma = 100,
		genus = 600,
		grandordo = 1005,
		['grandordo-mb'] = 1002,
		infraclassis = 1397,
		infralegio = 1197,
		infraordo = 997,
		infraphylum = 1497,
		infraregnum = 1597,
		infratribus = 697,
		legio = 1200,
		magnordo = 1006,
		microphylum = 1495,
		micrordo = 995,
		mirordo = 1004,
		['mirordo-mb'] = 1001,
		nanophylum = 1499,
		nanordo = 999,
		ordo = 1000,
		parafamilia = 800,
		parvordo = 996,
		phylum = 1500,
		regnum = 1600,
		sectio = 500,
		--series = 400, used too inconsistently to check
		species = 300,
		subclassis = 1398,
		subcohort = 1098,
		subdivisio = 1498,
		subfamilia = 798,
		subgenus = 598,
		sublegio = 1198,
		subordo = 998,
		subphylum = 1498,
		subregnum = 1598,
		subsectio = 498,
		subspecies = 298,
		subtribus = 698,
		superclassis = 1403,
		supercohort = 1103,
		superdivisio = 1503,
		superdomain = 1703,
		superfamilia = 803,
		superlegio = 1203,
		superordo = 1003,
		superphylum = 1503,
		superregnum = 1603,
		supertribus = 703,
		tribus = 700,
		varietas = 200,
		zoodivisio = 1300,
		zoosectio = 900,
		zoosubdivisio = 1298,
		zoosubsectio = 898,
	}
end

return p