IndicWiki Sandbox - User contributions [en]

Template:Speciesbox/checkgenus

2026-05-11T08:16:41Z

Indicwiki: 1 revision imported

<noinclude></noinclude><nowiki/>{{#switch:{{Taxon info|{{{1|Felis}}}|rank}}|genus=|ichnogenus=|oogenus=|[[Category:Speciesboxes with genus parameter not a genus]]}}<noinclude>
{{documentation}}</noinclude>

Module:Taxobox ranks

2026-05-11T08:16:40Z

Indicwiki: 1 revision imported

Module:Article stub box/styles.css

2026-05-11T08:16:40Z

Indicwiki: 1 revision imported

/* {{pp-template}} */
/* Article stub message box styles */
.asbox {
position: relative;
overflow:hidden;
}
.asbox table {
background: transparent;
}
.asbox p {
margin: 0;
}
.asbox p + p {
margin-top: 0.25em;
}
.asbox-body {
font-style: italic;
}
.asbox-note {
font-size: smaller;
}
.asbox .navbar {
position: absolute;
top: -0.75em;
right: 1em;
display: none;
}
:not(p):not(.asbox) + style + .asbox,
:not(p):not(.asbox) + link + .asbox {
margin-top: 3em;
}

Module:Article stub box

2026-05-11T08:16:40Z

Indicwiki: 1 revision imported

--[[
This module was created by User:CodeHydro (Alexander Zhikun He).
User:Jackmcbarn and User:Mr._Stradivarius provided a great deal of assistance in writting p.main()

p.main() draw heavily from the following version of Template:Asbox of the English Wikipedia, authored primarily by User:Rich_Farmbrough
https://en.wikipedia.org/w/index.php?title=Template:Asbox&oldid=619510287

p.templatepage() is derived from the following revision of Template:Asbox/templatepage, authored primarily by User:MSGJ
https://en.wikipedia.org/w/index.php?title=Template:Asbox/templatepage&oldid=632914791

Both templates had significant contributions from numerous others listed in the revision history tab of their respective pages.
--]]
local WRAPPER_TEMPLATE, args = 'Template:Article stub box'
local templatestyles = 'Module:Article stub box/styles.css'
local p, Buffer, stubCats = {
--Prevents dupli-cats... get it? Maybe not?
cats = setmetatable({}, {__newindex = function(t, i, v)
if not rawget(t, i) then
rawset(t, i, v)
table.insert(t, i)
end
end}),
--initializes variables required by both p.main and p.templatepage
init = function(self, frame, page)
args, page = args or require('Module:Arguments').getArgs(frame, {
wrappers = WRAPPER_TEMPLATE
}), page or mw.title.getCurrentTitle()
--Ensures demo parameter will never affect category() output for articles
self.demo = self.demo or page.namespace ~= 0 and args.demo
return args, page
end
}, require('Module:Buffer')

--[[
Formats category links. Stores them until called with cat.done=true
Takes multiple or single categories in the form of 'cat'
or a table of strings and/or tables containing parts. (See below)
]]
local attention, catTag, catKey = Buffer'Stub message templates needing attention', '[[Category:%s]]', '%s|%s%s'
local function category(cat)
for _, v in ipairs((tostring(cat) == cat or cat.t) and {cat} or cat) do
--[[
If v is a table:
[1] = full category name; defaults to local attention if blank
k = Category sort key. Prefix before v.t
t = page.text or args.tempsort#; appended after k (or in its place if omitted). Required if v is not a string
Basically the same as v = (v[1] or attention) .. ' | ' .. (v.k or '') .. v.t
]]
if v and v ~= true then--reject v = nil, false, or true
local thingToFormat
if tostring(v) == v then
thingToFormat = v
else
local buf
if v[1] then
buf = Buffer(v[1])
else
buf = attention
end
thingToFormat = buf:_in(v.k):_(v.t):_str(2, nil, nil, '|')
end
p.cats[catTag:format(thingToFormat)] = true
end
end
return cat.done and table.concat(p.cats, p.demo and ' | ' or nil) or ''
end

--[[
Makes an ombox warning;
Takes table {ifNot = Boolean, text, {cat. sort key, cat. sort name}}
Will return an empty string instead when ifNot evaluates to true
]]
local function ombox(v)
if v.ifNot then return end
p.ombox = p.ombox or require('Module:Message box').ombox
category{v[2]}
return p.ombox{
type = 'content',
text = v[1]
}
end

--[[
Unlike original template, module now takes unlimited cats! This function also performs
most stub category error checks except for the ombox for when main |category= is omitted (See p.template())
]]
local function catStub(page, pageDoc)
stubCats = {missing = {}, v = {}}
-- zwj and zwnj have semantical use in other other wikis, don't remove them
local zwj = '\226\128\141' -- U+200D, E2 80 8D
local zwnj = '\226\128\140' -- U+200C, E2 80 8C
local disallowedUnicodeChars = '[^%w%p%s' .. zwj .. zwnj .. ']' -- for i18n we make this a separate string
local code
for k, _ in pairs(args) do
--Find category parameters and store the number (main cat = '')
table.insert(stubCats, string.match(k, '^category(%d*)$'))
end
table.sort(stubCats)
for k, v in ipairs(stubCats) do
--Get category names and, if called by p.templatepage, the optional sort key
local tsort, cat = args['tempsort' .. v], mw.ustring.gsub(args['category' .. v], disallowedUnicodeChars, '')--remove all hidden unicode chars
--Do not place template in main category if |tempsort = 'no'. However, DO place articles of that template in the main category.
table.insert(stubCats.v,
page and (--p.templatepage passes page; p.main does not, i.e. articles are categorized without sort keys.
v=='' and tsort == 'no'--if true, inserts 'true' in table, which category() will reject
or tsort and {cat, k = ' ', t = tsort}
or {cat, k = ' *', t = page.text}--note space in front of sort key
)
or cat
)
--Check category existance only if on the template page (i.e. stub documentation)
if page then
if not mw.title.new('Category:' .. cat).exists then
code = code or mw.html.create'code':wikitext'|category'
table.insert(stubCats.missing, tostring(mw.clone(code):wikitext(v)))
end
--[[
Checks non-demo stub template for documentation and flags if doc is present.
All stub cats names are checked and flagged if it does not match 'Category: [] stub'.
The main stub cat is exempt from the name check if the stub template has its own doc
(presumably, this doc would have an explanation as to why the main stub cat is non-conforming).
]]
table.insert(stubCats.v, v == '' and not p.demo and pageDoc.exists and
'Stub message templates with documentation subpages'
or not cat:match' stubs$' and {k = 'S', t = page.text}
)
end
end
--Add category names after loop is completed
category(stubCats.v)
return #stubCats.missing > 0 and ombox{
--Changed, original msg:
--One or more of the stub categories defined in this template do not seem to exist!
--Please double-check the parameters {{para|category}}, {{para|category1}} and {{para|category2}}.
'The following parameter'
.. (#stubCats.missing == 1 and ' defines a stub category that does' or 's define stub categories that do')
.. ' not exist: ' .. mw.text.listToText(stubCats.missing),
{k = 'N', t = page.text}
}
end

--Shows population of categories found by catStub(). Outputs demo values if none
local function population()
local wikitext, base = {}, '* [[:Category:%s]] (population: %s)\n'
if not args.category and stubCats[1] ~= false then
table.insert(stubCats, 1, false)
end
for _, v in ipairs(stubCats) do
table.insert(wikitext, base:format(
v and args['category' .. v] or '{{{category}}}',
v and mw.site.stats.pagesInCategory(args['category' .. v], 'all') or 0
))
end
return table.concat(wikitext)
end

--Includes standard stub documention and flags stub templates with bad parameter values.
function p.templatepage(frame, page)
args, page = p:init(frame, page)
local tStubDoc = mw.title.new'Template:Stub documentation'
local pageDoc = page:subPageTitle('doc')
--Reorganization note: Original Asbox alternates between outputting categories and checking on params |category#=.
--Rather than checking multiple times and switching tasks, all stub category param operations have been rolled into catStub()
return Buffer(
ombox{--Show ombox warnings for missing args.
ifNot = args.category,
'The <code>|category</code> parameter is not set. Please add an appropriate stub category.',
{k = 'C', t = page.text}
})
:_(ombox{
ifNot = args.subject or args.article or args.qualifier,
'This stub template contains no description! At least one of the parameters <code>|subject</code>, <code>|article</code> or <code>|qualifier</code> must be defined.',
{k = 'D', t = page.text}
})
:_(catStub(page, pageDoc))--catStub() may also return an ombox if there are non-existing categories
:_(category{
done = p.demo ~= 'doc',--Outputs categories if not doc demo
'Stub message templates',
args.icon and
'Stub message templates using icon parameter'
or args.image and (
mw.title.new('Media:' .. mw.text.split(args.image, '|')[1]).exists--do nothing if exists. category() will reject true
or {k = 'B', t = page.text}
)
or 'Stub message templates without images',
args.imagealt and {k = 'I', t = page.text},
})
:_((not p.demo or p.demo == 'doc') and--Add standard stub template documentation
require('Module:Documentation').main{
content = Buffer(page.text ~= 'Stub' and--This comparison performed in {{Asbox/stubtree}} before it invokes Module:Asbox stubtree
-- TODO: update this instance of Asbox to Article stub box eventually
require('Module:Asbox stubtree').subtree{args = {pagename = page.text}}
)
:_in'\n== About this template ==\nThis template is used to identify a':_(args.subject):_'stub':_(args.qualifier):_out' '--space
:_'. It uses {{[[Template:Article stub box|article stub box]]}}, which is a meta-template designed to ease the process of creating and maintaining stub templates.\n=== Usage ===\nTyping '
:_(mw.html.create'code'
:wikitext( mw.text.nowiki( '{{' ), page.text == 'Stub' and 'stub' or page.text, '}}')
)
:_' produces the message shown at the beginning, and adds the article to the following categor'
:_(#stubCats > 1 and 'ies' or 'y')
:_':\n'
:_(population())
:_(pageDoc.exists and--transclusion of /doc if it exists
frame:expandTemplate{title = pageDoc.text}
)
:_'\n== General information ==\n'
:_(frame:expandTemplate{title = tStubDoc.text})
:_'\n\n'(),
['link box'] = Buffer'This documentation is automatically generated by [[Module:Article stub box]].'
:_in'The general information is transcluded from [[Template:Stub documentation]]. '
:_(mw.html.create'span'
:cssText'font-size:smaller;font-style:normal;line-height:130%'
:node(('([%s edit] | [%s history])'):format(
tStubDoc:fullUrl('action=edit', 'relative'),
tStubDoc:fullUrl('action=history', 'relative')
))
)
:_out()
:_(page.protectionLevels.edit and page.protectionLevels.edit[1] == 'sysop' and
"This template is [[WP:PROTECT|fully protected]] and any [[WP:CAT|categories]] should be added to the template's ["
.. pageDoc:fullUrl('action=edit&preload=Template:Category_interwiki/preload', 'relative')
.. '| /doc] subpage, which is not protected.'
)' <br/>'
}
)()
end

function p.main(frame, page)
args, page = p:init(frame, page)
local output = mw.html.create'div'
:attr{role = 'note'}
:addClass'metadata plainlinks asbox stub'
:tag'table'
:attr{role = 'presentation'}
:tag'tr'
:addClass'noresize'
:node((args.icon or args.image) and
mw.html.create'td'
:wikitext(args.icon or ('[[File:%s|%spx|alt=%s|class=%s]]'):format(
args.image or '',
args.pix or '40x30',
args.imagealt or 'Stub icon',
args.imageclass or ''
))
)
:tag'td'
:tag'p'
:addClass'asbox-body'
:wikitext(
Buffer'This':_(args.subject):_(args.article or 'article'):_(args.qualifier)' ',--space
' is a [[Wikipedia:stub|stub]]. You can help Wikipedia by [',
page:fullUrl('action=edit', 'relative'),
' adding missing information].'
)
:done()
:node(args.note and
mw.html.create()
:tag'p'
:addClass'asbox-note'
:wikitext(args.note)
:done()
)
:allDone()
:node(args.name and
require'Module:Navbar'._navbar{
args.name,
mini = 'yes',
}
)
--[[
Stub categories for templates include a sort key; this ensures that all stub tags appear at the beginning of their respective categories.
Articles using the template do not need a sort key since they have unique names.
When p.demo equals 'doc', the demo stub categories will appear as those for a stub template.
Otherwise, any non-nil p.demo will emulate article space categories (plus any error cats unless set to 'art')
]]
if page.namespace == 0 then -- Main namespace
category'All stub articles'
catStub()
elseif p.demo then
if p.demo ~= 'doc' then catStub() end
--Unless p.demo is set to 'art', it will also include error categories normally only shown on
--the template but not in the article. The elseif after namespace == 0 means demo cats will never show in article space.
p.demodoc = p.demo ~= 'art' and p.templatepage(frame, page)
output = mw.html.create()
:node(output)
:tag'small':wikitext(
'Demo categories: ',
(category{done = true}:gsub('(%[%[)(Category:)([^|%]]-)(%|)', '%1%2%3|%2%3%4'):gsub('(%[%[)(Category:)', '%1:%2'))
):done()
:wikitext(p.demo == 'doc' and p.demodoc or nil)
else
--Checks for valid name; emulates original template's check using {{FULLPAGENAME:{{{name|}}}}}
local normalizedName = mw.title.new(args.name or '')
if normalizedName and normalizedName.fullText == page.fullText then
output = mw.html.create():node(output):wikitext(p.templatepage(frame, page))
elseif not page.isSubpage and page.namespace == 10 then-- Template namespace and not a subpage
category{{k = args.name and 'E' or 'W', t = page.text}}
end
end
return frame:extensionTag{ name = 'templatestyles', args = { src = templatestyles} } .. tostring(output:wikitext(not p.demo and category{done = true} or nil))
end

return p

Template:Article stub box

2026-05-11T08:16:40Z

Indicwiki: 1 revision imported

<includeonly>{{#invoke:Article stub box|main}}</includeonly><noinclude>
{{documentation}}

</noinclude>

Template:Taxobox/core/styles.css

2026-05-11T08:16:38Z

Indicwiki: 1 revision imported

/* {{pp-template}} */
@media (max-width:640px) {
body:not(.skin-minerva) .infobox {
width:100% !important;
}
body:not(.skin-minerva) .infobox th {
width:50%;
}
}
@media screen {
html.skin-theme-clientpref-night .infobox.biota tr {
background: transparent !important;
}
html.skin-theme-clientpref-night .infobox.biota img {
background: transparent;
}
}

@media screen and (prefers-color-scheme: dark) {
html.skin-theme-clientpref-os .infobox.biota tr {
background: transparent !important;
}
html.skin-theme-clientpref-os .infobox.biota img {
background: white;
}
}

.infobox.biota .taxobox-edit-taxonomy img {
background: transparent !important;
}
body.skin-vector table.biota.infobox {
margin-top:0.5em;
}

body.skin--responsive table.biota.infobox tr.taxonrow2 td {
padding:2px 10px;
}

Module:Cite IUCN

2026-05-11T08:16:37Z

Indicwiki: 1 revision imported

require('strict');
local getArgs = require ('Module:Arguments').getArgs;

local amendment_pattern = '%s*%(amended version of (%d%d%d%d) assessment%)';
local errata_pattern = '%s*%(errata version published in (%d%d%d%d)%)';
local green_status_pattern = '%s*%((Green Status assessment)%)';

--[[--------------------------< I U C N _ I D E N T I F I E R S _ G E T >--------------------------------------

cs1|2 templates cite single sources; when the identifiers in |doi=, |id=, and |article-number= are different from
each other then the template is attempting to cite multiple sources. This function evaluates the identifier portions
of these parameters. returns seven values: identifyier parts (or nil when parameter not used) and a message (nil on
success, error message else)

the identifier portions of the several parameters must be properly formed

]]

local function iucn_identifiers_get (args, error_msgs_t, maint_msgs_t)
local doi_taxon_ID, doi_assesment_ID
local art_num_taxon_ID, art_num_assesment_ID
local url_taxon_ID, url_assesment_ID

if args.doi then
local lang_tag
doi_taxon_ID, doi_assesment_ID, lang_tag = args.doi:match ('[Tt](%d+)[Aa](%d+)%.(%l%l)$')
if not doi_taxon_ID or not ({['en'] = true, ['es'] = true, ['fr'] = true, ['pt'] = true})[lang_tag] then
table.insert (error_msgs_t, 'malformed |doi= identifier');
end
end
local artnum = args['article-number'] or args.page; -- |page= is deprecated; one accepted; |article-number= preferred
if artnum then
art_num_taxon_ID, art_num_assesment_ID = artnum:match ('^[eE]%.[Tt](%d+)[Aa](%d+)$')
if not art_num_taxon_ID then
table.insert (error_msgs_t, 'malformed |article-number= identifier');
end
if args.page then -- maint message when |page= is used
table.insert (maint_msgs_t, 'uses deprecated |page= identifier');
args.page = nil; -- unset as not used
args['article-number'] = artnum; -- make sure that {{cite journal}} gets |article-number=
end
end
if args.url then
if args.url:match ('https://www.iucnredlist.org/species/') then -- must be a 'new-form' url
url_taxon_ID, url_assesment_ID = args.url:match ('/species/(%d+)/(%d+)')
if not url_taxon_ID then
table.insert (error_msgs_t, 'malformed |url= identifier');
end
end
end

if not error_msgs_t[1] then
if doi_taxon_ID and art_num_taxon_ID then
if (doi_taxon_ID ~= art_num_taxon_ID or ((doi_assesment_ID ~= art_num_assesment_ID) and not args.errata)) then
table.insert (error_msgs_t, '|doi= / |article-number= mismatch');
end
end
if doi_taxon_ID and url_taxon_ID then
if (doi_taxon_ID ~= url_taxon_ID or ((doi_assesment_ID ~= url_assesment_ID) and not args.errata)) then
table.insert (error_msgs_t, '|doi= / |url= mismatch');
end
end

if art_num_taxon_ID and url_taxon_ID then
if (art_num_taxon_ID ~= url_taxon_ID or ((art_num_assesment_ID ~= url_assesment_ID) and not args.errata)) then
table.insert (error_msgs_t, '|article-number= / |url= mismatch');
end
end
end

return doi_taxon_ID, doi_assesment_ID, art_num_taxon_ID, art_num_assesment_ID;
end

--[[--------------------------< I U C N _ V O L U M E _ C H E C K >--------------------------------------------

compares volume in |volume= (if present) against year in |date= or |year= (if present) against volume in |doi= (if present)

returns nil if all that are present are correct; message else

]]

local function iucn_volume_check (args, maint_msgs_t)
local vol = args.volume;
local date = args.date or args.year;
local doi = args.doi and args.doi:match ('[Ii][Uu][Cc][Nn]%.[Uu][Kk]%.(%d%d%d%d)')

if vol and date and (vol ~= date) then
table.insert (maint_msgs_t, '|volume= / |date= mismatch');
end

if vol and doi and ((vol ~= doi) and not args.amends) then
table.insert (maint_msgs_t, '|volume= / |doi= mismatch');
end

if date and doi and ((doi ~= date) and not args.amends) then
table.insert (maint_msgs_t, '|date= / |doi= mismatch');
end
end

--[[--------------------------< _ C I T E >--------------------------------------------------------------------

entry point for calls from another module

Wraps {{cite journal}}:
takes cite journal parameters but updates old style url using electronic article number number
|article-number= should be in format e.T13922A45199653
the url uses 13922/45199653
so we need to extract the number between T and A (taxon ID) and the number after A (assessment ID)
the target url is https://www.iucnredlist.org/species/13922/45199653
usage: {{#invoke:iucn|cite}}
template: {{Template:Cite iucn}}

]]

local function _cite (args, frame)
local error_msgs_t = {}; -- holds error messages for rendering
local maint_msgs_t = {}; -- holds hidden maint messages for rendering
local namespace = mw.title.getCurrentTitle().namespace; -- used for categorization
frame = frame or mw.getCurrentFrame() -- fetches frame if called from another module

if args.title and (args.title:match (errata_pattern) or args.title:match (amendment_pattern)) then
table.insert (error_msgs_t, 'title has extraneous text'); -- announce that this template has has errata or amendment text
end

local doi_taxon_ID, doi_assesment_ID; -- all of these contain the same identifying info in slightly
local art_num_taxon_ID, art_num_assesment_ID; -- different forms. when any combination of these is present,

doi_taxon_ID, doi_assesment_ID, art_num_taxon_ID, art_num_assesment_ID = iucn_identifiers_get (args, error_msgs_t, maint_msgs_t);

args.id = nil -- unset; not supported

local url_taxon_ID = art_num_taxon_ID or doi_taxon_ID; -- select for use in url that we will create
local url_assesment_ID = art_num_assesment_ID or doi_assesment_ID;

local url = args.url;
if url then
if url:find ('iucnredlist.org/details/', 1, true) then -- old-form url
if url_taxon_ID then -- when there is an identifier
url = nil -- unset; we'll create new url below
else -- here when old-form but no identifier that we can use to create new url
args.url = args.url:gsub ("http:", "https:") -- sometimes works with redirect on iucn site
end
table.insert (maint_msgs_t, 'old-form url') -- announce that this template has has an old-form url
elseif url:find ('iucnredlist.org/species/', 1, true) then -- new-form url
-- table.insert (maint_msgs_t, 'new-form url') --TODO: restore this line when most new-form urls have been removed from article space -- announce that this template has has an new-form url
else
table.insert (error_msgs_t, 'unknown url') -- emit error message
end
end

if not url then -- when no url or unset old-form url
if url_taxon_ID then
args.url = "https://www.iucnredlist.org/species/" .. url_taxon_ID .. '/' .. url_assesment_ID
else
table.insert (error_msgs_t, 'no identifier') -- emit error message
end
end

-- add journal if not provided (TODO decide if this should override provided value)
if not args['journal'] and not args['work'] then
args['journal'] = "[[IUCN Red List|IUCN Red List of Threatened Species]]"
end

iucn_volume_check (args, maint_msgs_t); -- |volume=, |year= (|date=), |doi= must all refer to the same volume

if not args.volume and (args.year or args.date) then
args.volume = args.year or args.date
end

if args.errata then
args['orig-date'] = 'errata version of ' .. (args.year or args.date or args.volume) .. ' assessment';
args.date = args.errata; -- update publication data to errata year
args.year = nil; -- unset these as no longer needed
args.errata = nil;
elseif args.amends then
args['orig-date'] = 'amended version of ' .. args.amends .. ' assessment';
args.amends = nil; -- unset as no longer needed
end
-- add free-to-read icon to mark a correctly formed doi
if args.doi then
args['doi-access'] = args.doi:match ('10%.2305/[Ii][Uu][Cc][Nn].+[Tt]%d+[Aa]%d+%.%a%a') and 'free' or nil;
args.language = args.language or args.lang or args.doi:match ('10%.2305/[Ii][Uu][Cc][Nn].+[Tt]%d+[Aa]%d+%.(%a%a)');
args.lang = nil; -- unset; use canonical form
end

local out_t = {};
if error_msgs_t[1] then
table.insert (out_t, ' <span class="error" style="font-size:100%">{{[[Template:cite iucn|cite iucn]]}}: error: ');
table.insert (out_t, table.concat (error_msgs_t, ', '));
table.insert (out_t, ' ([[Template:Cite iucn#Error messages|help]])');
if (0 == namespace) then
table.insert (out_t, '[[Category:cite IUCN errors]]');
end
table.insert (out_t, '</span>');
end

if maint_msgs_t[1] then
table.insert (out_t, '<span class="citation-comment" style="display: none; color: #085; margin-left: 0.3em;">');
if not error_msgs_t[1] then
table.insert (out_t, '{{[[Template:cite iucn|cite iucn]]}}: ')
table.insert (out_t, table.concat (maint_msgs_t, ', '));
table.insert (out_t, ' ([[Template:Cite iucn#Maintenance messages|help]])');
if (0 == namespace) then
table.insert (out_t, '[[Category:cite IUCN maint]]');
end
end
table.insert (out_t, '</span>');
end

if (not args['doi-access']) and (0 == namespace) then
table.insert (out_t, '[[Category:cite IUCN without doi]]');
end

return require ('Module:Citation/CS1')._citation (frame, args, {CitationClass='journal'}) .. -- invoke the module to bypass the call to {{cite journal}}
table.concat (out_t); -- error and maint messages and categories
end

--[[--------------------------< C I T E >----------------------------------------------------------------------

entry point for template calls

]]

local function cite (frame)
local args = getArgs (frame); -- local copy of template arguments
return _cite (args, frame);
end

--[=[-------------------------< E T _ A L _ P A T T E R N S >--------------------------------------------------

This adapted from Module:Citation/CS1/Configuration

This table provides Lua patterns for the phrase "et al" and variants in a name.

]=]

local et_al_patterns = {
"[;,]? *[\"']*%f[%a][Ee][Tt]%.? *[Aa][Ll][%.;,\"']*$", -- variations on the 'et al' theme
"[;,]? *[\"']*%f[%a][Ee][Tt]%.? *[Aa][Ll][Ii][AaIi][Ee]?[%.;,\"']*$", -- variations on the 'et alia', 'et alii' and 'et aliae' themes (false positive 'et aliie' unlikely to match)
"[;,]? *%f[%a]and [Oo]thers", -- an alternative to et al.
}

--[[---------------------< N A M E _ H A S _ E T A L >--------------------------

This adapted from Module:Citation/CS1

Evaluates the content of a name for variations on the theme of et al. If found,
returns true; nil else

]]

local function name_has_etal (name)
local etal;

if name then -- name can be nil in which case just return
name = name:gsub ('%b<>', ''); -- remove any html markup (typically <i>...</i>)
for _, pattern in ipairs (et_al_patterns) do -- loop through all of the patterns
if name:match (pattern) then -- if this 'et al' pattern is found in name
return true; -- has etal, so return true
end
end
end
end

--[[--------------------------< A U T H O R _ L I S T _ M A K E >----------------------------------------------

creates a list of individual |authorn= parameters from the list of names provided in the raw iucn citation. names
must have the form: Surname, I. (more than one 'I.' pair allowed but no spaces between I. pairs)

assumes that parenthetical text at the end of the author-name-list is a collaboration
Name, I.I., & Name, I.I. (Colaboration name)

assumes that <i>et al.</i> is the last name in a list of names

]]

--local function author_names_get (raw_iucn_cite)
local function author_names_get (raw_iucn_cite, params_t) -- EXPERIMENT
local list = {}; -- table that holds name list parts
local author_names = raw_iucn_cite:match ('^([^%d]-)%s+%d%d%d%d'); -- extract author name-list from raw iucn citation
local collaboration = author_names:match ('%s*(%b())$'); -- get collaboration name if it exists

if collaboration then -- when there is a colaboration
collaboration = collaboration:gsub ('[%(%)]', ''); -- remove bounding parentheses
author_names = author_names:gsub ('%s*(%b())$', ''); -- and remove collaboration from author-name-list
end

local names = author_names:gsub ('%.?,?%s+&%s+', '.|'); -- replace 'separators' (<optional dot><optional comma><space><ampersand><space>) with <dot><pipe>
names = names:gsub ('%.,%s*', '.|'); -- replace 'separators' (<dot><comma><optional space>) with <dot><pipe>
names = names:gsub ('(%.%u),', '%1.|'); -- special case for when last initial is missing its trailing dot
list = mw.text.split (names, '|'); -- split the string on the pipes into entries in list{}

if 0 == #list then
params_t['author'] = author_names; -- EXPERIMENT
return table.concat ({'|author=', author_names}), params_t; -- EXPERIMENT -- no 'names' of the proper form; return the original as a single |author= parameter
-- return table.concat ({'|author=', author_names}) -- no 'names' of the proper form; return the original as a single |author= parameter
else
for i, name in ipairs (list) do -- spin through the list and
if name_has_etal (name) then -- if this name has some form of 'et al'
params_t['display-authors'] = 'etal'; -- EXPERIMENT
list[i] = '|display-authors=etal'; -- add |dispaly-authors=etal parameter and
break; -- assume that the etal was the last 'name' so stop processing names
else
params_t['author' .. i] = name; -- EXPERIMENT
list[i] = table.concat ({'|author', (i == 1) and '' or i, '=', name}); -- add |authorn= parameter names; create |author= instead of |author1=
end
end
if collaboration then
params_t['collaboration'] = collaboration; -- EXPERIMENT
table.insert (list, table.concat ({'|collaboration', '=', collaboration})); -- add |collaboration= parameter
end
return table.concat (list, ' '); -- make a big string and return that
end
end

--[[--------------------------< T I T L E _ G E T >------------------------------------------------------------

extract and format citation title; attempts to get the italic right

''binomen'' (amended or errata title)
''binomen''
''binomen'' ssp. ''subspecies''
''binomen'' subsp. ''subspecies''
''binomen'' var. ''variety''
''binomen'' subvar. ''subvariety''

all of the above may have trailing amended or errata text in parentheses

TODO: are there others?

]]

local function title_get (raw_iucn_cite)
local title = raw_iucn_cite:match ('%d%d%d%d%.%s+(.-)%s*%. The IUCN Red List of Threatened Species');

local patterns = { -- tables of string.match patterns [1] and string.gsub patterns [2]
{'(.-)%sssp%.%s+(.-)%s(%b())$', "''%1'' ssp. ''%2'' %3"}, -- binomen ssp. subspecies (zoology) with errata or amended text
{'(.-)%sssp%.%s+(.+)', "''%1'' ssp. ''%2''"}, -- binomen ssp. subspecies (zoology)
{'(.-)%ssubsp%.%s+(.-)%s(%b())$', "''%1'' subsp. ''%2'' %3"}, -- binomen subsp. subspecies (botany) with errata or amended text
{'(.-)%ssubsp%.%s+(.+)', "''%1'' subsp. ''%2''"}, -- binomen subsp. subspecies (botany)
{'(.-)%svar%.%s+(.-)%s+(%b())$', "''%1'' var. ''%2'' %3"}, -- binomen var. variety (botany) with errata or amended text
{'(.-)%svar%.%s+(.+)', "''%1'' var. ''%2''"}, -- binomen var. variety (botany)
{'(.-)%ssubvar%.%s+(.-)%s(%b())$', "''%1'' subvar. ''%2'' %3"}, -- binomen subvar. subvariety (botany) with errata or amended text
{'(.-)%ssubvar%.%s+(.+)', "''%1'' subvar. ''%2''"}, -- binomen subvar. subvariety (botany)
{'(.-)%s*(%b())$', "''%1'' %2"}, -- binomen with errata or amended text
{'(.+)', "''%1''"}, -- binomen
}

for i, v in ipairs (patterns) do -- spin through the patterns
if title:match (v[1]) then -- when a match
title = title:gsub (v[1], v[2]); -- add italics
break; -- and done
end
end

-- return table.concat ({' |title=', title}); -- return the |title= parameter
return title; -- return the formatted title
end

--[[--------------------------< M A K E _ C I T E _ I U C N >--------------------------------------------------

parses apart an iucn-format citation copied from their webpage and reformats that into a {{cite iucn}} template for substing

automatic substing by User:AnomieBOT/docs/TemplateSubster

]]

local function make_cite_iucn (frame)
local args_t = getArgs (frame);
local raw_iucn_cite = args_t[1];

local template_t = {'{{cite iucn '}; -- sequence that holds the {{cite iucn}} template as it is being assembled; for nowiki'd output
local params_t = {}; -- table of parameter/value pairs for substing

local year, volume, artnum, doi, accessdate, language;

year = raw_iucn_cite:match ('^%D+(%d%d%d%d)');
volume, artnum = raw_iucn_cite:match ('(%d%d%d%d):%s+(e%.T%d+A+%d+)%.%s?');
doi = raw_iucn_cite:match ('10%.2305/IUCN%.UK%.[%d%-]+%.RLTS%.T%d+A%d+%.%a%a');
language = raw_iucn_cite:match ('10%.2305/IUCN%.UK%.[%d%-]+%.RLTS%.T%d+A%d+%.(%a%a)');

accessdate = raw_iucn_cite:match ('Accessed on (.-)%.?$') or raw_iucn_cite:match ('Downloaded on (.-)%.?$'); -- 'Downloaded' → 'Accessed' change occured December 2021;
accessdate = accessdate:gsub ('^0', ''); -- strips leading 0 in day 01 January 2020 -> 1 January 2020

table.insert (template_t, author_names_get (raw_iucn_cite, params_t)); -- add author name parameters; as a single string to <template_t>; as individual entries to <params_t>

table.insert (template_t, table.concat ({' |year=', year})); -- add formatted year
params_t.year = year;

local title = title_get (raw_iucn_cite);
local type_p = title:match (green_status_pattern);
if type_p then
title = title:match ('^([^%(]+)%s*%(');
table.insert (template_t, table.concat ({' |type=', type_p})); -- add formatted errata
params_t.type = type_p;
end

local errata = title:match (errata_pattern); -- nil unless IUCN citation has errata annotation; else year that this errata published (|date=)
if errata then
table.insert (template_t, table.concat ({' |errata=', errata})); -- add formatted errata
params_t.errata = errata;
title = title:gsub (errata_pattern, ''); -- remove errata annotation
end
local amends = title:match (amendment_pattern); -- nil unless IUCN citation has amendment annotation; else year that this assessment amends (|orig-date=)
if amends then
table.insert (template_t, table.concat ({' |amends=', amends})); -- add year of assessment that this assessment amends
params_t.amends = amends;
title = title:gsub (amendment_pattern, ''); -- remove amendment annotation
end

table.insert (template_t, table.concat ({' |title=', title})); -- add formatted title
params_t.title = title;
table.insert (template_t, table.concat ({' |volume=', volume})); -- add formatted volume
params_t.volume = volume;
table.insert (template_t, table.concat ({' |article-number=', artnum})); -- add formatted article number
params_t['article-number'] = artnum;
table.insert (template_t, table.concat ({' |doi=', doi})); -- add formatted doi
params_t.doi = doi;
table.insert (template_t, table.concat ({' |language=', language})); -- add formatted language
params_t.language = language;

table.insert (template_t, table.concat ({' |access-date=', accessdate})); -- add formatted access-date
params_t['access-date'] = accessdate;

table.insert (template_t, '}}'); -- close the template

if args_t[2] then -- if anything in args_t[2], write a nowiki'd version that editors can copy into <ref> tags
return frame:preprocess (table.concat ({'<syntaxhighlight lang="wikitext" inline="1">', table.concat (template_t), '</syntaxhighlight>'})); -- caveat lector: if left long enough anomiebot will subst this
end

if args_t['ref'] then -- enable subst of ref tags with name
return frame:preprocess ('<ref name=' .. args_t['ref'] .. '>' .. table.concat (template_t) .. '</ref>')
end

return frame:preprocess (table.concat (template_t)); -- render {{cite iucn}} template; substable
end

--[[--------------------------< E X P O R T E D F U N C T I O N S >------------------------------------------
]]

return {
cite = cite, -- wraps {{cite journal}}
_cite = _cite, -- for calling from other modules
make_cite_iucn = make_cite_iucn, -- wraps {{cite IUCN}}
}

Template:Taxonomy/Stegocephali

2026-05-11T08:16:37Z

Indicwiki: 1 revision imported

<noinclude>{{pp-template|small=yes}}{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=clade
|link=Stegocephali
|parent=Elpistostegalia
|extinct=
|refs=
}}

Template:Taxonomy/Podiata

2026-05-11T08:16:36Z

Indicwiki: 1 revision imported

{{Don't edit this line {{{machine code|}}}
|rank=clade
|link=Podiata
|parent=Eukaryota
|refs={{Cite journal |last1=Yazaki |first1=Euki |last2=Shiratori |first2=Takashi |last3=Inagaki |first3=Yuji |date=2025-08-18 |title=Protists with Uncertain Phylogenetic Affiliations for Resolving the Deep Tree of Eukaryotes |journal=Microorganisms |language=en |volume=13 |issue=8 |pages=1926 |doi=10.3390/microorganisms13081926 |issn=2076-2607 |pmc=12388492 |pmid=40871430 |doi-access=free}}
}}

Template:Taxonomy/Pseudophilautus

2026-05-11T08:16:36Z

Indicwiki: 1 revision imported

{{Don't edit this line {{{machine code|}}}
|rank=genus
|link=Pseudophilautus
|parent=Rhacophorinae
|extinct=
|refs=
}}

Template:Rhacophoridae-stub

2026-05-11T08:16:36Z

Indicwiki: 1 revision imported

{{asbox
| image = Zhangixalus thaoae Holotype.jpg
| pix = 40x30
| subject = [[Rhacophoridae]]
| qualifier =
| category = Rhacophoridae stubs
| tempsort =
| name = Template:Rhacophoridae-stub
}}

Module:Conservation status

2026-05-11T08:16:35Z

Indicwiki: 1 revision imported

local p = {}

-- function main() - entry point for template
function p.main(frame)
local system = mw.text.trim(frame:getParent().args[1]) -- needs trim() for unnamed parameters
local status = mw.text.trim(frame:getParent().args[2])
local refs = mw.text.trim(frame:getParent().args[3] or "" )

--TODO add handling of extinct parameter

return '! colspan = 2 | <div style = "text-align:center;">[[Conservation status]]</div>' -- header row
.. '\n|-'
.. '\n| colspan = 2 | <div style = "text-align:center;">'
.. p._main(frame, system, status, refs) -- status content
.. '</div>'

end
-- function status() - entry point for direct invoke testing (assumes table structure and adds cell content)
function p.status(frame)
local system = mw.text.trim(frame.args[1])
local status = mw.text.trim(frame.args[2])
local refs = mw.text.trim(frame.args[3] or "" )
--TODO if system and status then return
return p._main(frame, system, status, refs)
end
function p._main(frame, system, status, refs)

local output = "ERROR"
system = string.upper(system)
status = string.upper(status)
local systemText = ""

--TODO check for system; if none give needs handling with long list of possible statuses to match current system

if system == "IUCN3.1" or system == "IUCN" then
output = p.IUCN31(frame, system, status)
systemText = "[[IUCN Red List|IUCN 3.1]]"
elseif system == "IUCN2.3" then
output = p.IUCN23(frame, system, status)
systemText = "[[IUCN Red List|IUCN 2.3]]"
elseif system == "CNCFLORA" then
--output = p.CNCFlora(frame, system, status)
output = p.UsesIUCN31(frame, system, status) -- uses IUCN3.1 system and criteria (need to block catgories)
systemText = "[[CNCFlora]]"
elseif system == "TPWCA" then
output = p.UsesIUCN31(frame, system, status) -- uses IUCN3.1 system and criteria (need to block catgories)
systemText = "[[NTFlora#TPWCA|TPWCA]]"
elseif system == "SANBI" or system == "RLSAP" then
output = p.SANBI(frame, system, status)
systemText = "[[Red List of South African Plants|SANBI Red List]]"
elseif system == "NATURESERVE" or system == "TNC" then
output = p.NatureServe(frame, system, status)
systemText = "[[NatureServe conservation status|NatureServe]]"
elseif system == "EPBC" then
output = p.EPBC(frame, system, status)
systemText = "[[Environment Protection and Biodiversity Conservation Act 1999|EPBC Act]]"
elseif system == "ESA" then
output = p.ESA(frame, system, status)
systemText = "[[Endangered Species Act|ESA]]"
elseif system == "COSEWIC" then
output = p.COSEWIC(frame, system, status)
systemText = "[[Committee on the Status of Endangered Wildlife in Canada|COSEWIC]]"
elseif system == "DECF" then
output = p.DECF(frame, system, status)
systemText = "[[Declared Rare and Priority Flora List|DEC]]"
elseif system == "NSWBCA" then
output = p.NSWBCA(frame, system, status)
systemText = "[[Biodiversity Conservation Act 2016 (NSW)|NSWBCA]]"
elseif system == "QLDNCA" then
output = p.QLDNCA(frame, system, status)
systemText = "[[Nature Conservation Act 1992|NCA]]"
elseif system == "CITES" then
output = p.CITES(frame, system, status)
--systemText = "[[CITES]]"
elseif system == "NZTCS" then
output = p.NZTCS(frame, system, status)
systemText = "[[New Zealand Threat Classification System|NZ TCS]]"
elseif system ~= nil then
output = p.SystemNotRecognised(frame, system, status)
systemText = mw.text.trim(frame.args[1]) -- raw system in parameter (not uppercase as system variable )
else -- no system parameter
mw.addWarning ("No conservation system provided")
end
if output ~= "ERROR" then
--[=[ template code
<small> ({{#if:{{{status_text|}}}
|[[{{{status_text|#Conservation status}}}|See text]] -- links to section in article?
|[[IUCN Red List|IUCN 3.1]]}}){{{3|}}}</small>
]=]
local statusText = frame:getParent().args['status_text']
--local systemText = " [[IUCN Red List|IUCN 3.1]]"
if statusText then
if statusText == "" then statusText = "#Conservation status" end
systemText = "[[" .. statusText .. "|See text]]"
end
if systemText ~= "" then
output = output .. "<small> (" .. systemText .. ")" .. refs .. "</small>" -- "</div>"
else
output = output .. "<small> " .. refs .. "</small>" -- "</div>"
end

return output
end
end
--[[ OTHER SYSTEMS
Territory Parks and Wildlife Conservation Act 2000 (TPWCA)

]]

function p.SystemNotRecognised(frame, system, status)
local output = system .. ' ' .. status
if status == "EX" then
local extinct = "[[Extinction|Extinct]]"
if frame:getParent().args['extinction_date'] and frame:getParent().args['extinction_date'] ~= "" then
extinct = extinct .. " (" .. frame:getParent().args['extinction_date'] .. ")"
end
output = p.addImage("Status iucn3.1 EX.svg", 'Extinct') .. extinct
elseif status == "CR" then
output = "[[Critically endangered species|Critically Endangered]]"
elseif status == "EN" then
output = "[[Endangered species|Endangered]]"
elseif status == "NT" then
output = "[[Near Threatened]]"
else
output = status
end
return output .. p.addCategory("Taxoboxes with an unrecognised status system")
end

--***************************************** IUCN 3.1 **********************************
function p.IUCN31(frame, system, status)

local output = system .. ' ' .. status
if status == "EX" then
local extinct = "[[Extinction|Extinct]]"
if frame:getParent().args['extinction_date'] and frame:getParent().args['extinction_date'] ~= "" then
extinct = extinct .. " (" .. frame:getParent().args['extinction_date'] .. ")" end
output = p.addImage("Status iucn3.1 EX.svg", 'Extinct') .. extinct .. p.addCategory("IUCN Red List extinct species")
elseif status == "EW" then
output = p.addImage("Status iucn3.1 EW.svg", 'Extinct in the Wild') .. "[[Extinct in the Wild]]" .. p.addCategory("IUCN Red List extinct in the wild species")
elseif status == "CR" then
output = p.addImage("Status iucn3.1 CR.svg", 'Critically Endangered') .. "[[Critically endangered species|Critically Endangered]]" .. p.addCategory("IUCN Red List critically endangered species")
elseif status == "EN" then
output = p.addImage("Status iucn3.1 EN.svg", 'Endangered') .. "[[Endangered species (IUCN status)|Endangered]]" .. p.addCategory("IUCN Red List endangered species")
elseif status == "VU" then
output = p.addImage("Status iucn3.1 VU.svg", 'Vulnerable') .. "[[Vulnerable species|Vulnerable]]" .. p.addCategory("IUCN Red List vulnerable species")
elseif status == "NT" then
output = p.addImage("Status iucn3.1 NT.svg", 'Near Threatened') .. "[[Near Threatened]]" .. p.addCategory("IUCN Red List near threatened species")
elseif status == "LC" then
output = p.addImage("Status iucn3.1 LC.svg", 'Least Concern') .. "[[Least Concern]]" .. p.addCategory("IUCN Red List least concern species")
elseif status == "DD" then
output = p.addImage("Status iucn3.1 blank.svg", 'Data Deficient') .. "[[Data deficient|Data Deficient]]" .. p.addCategory("IUCN Red List data deficient species")
elseif status == "NE" then
output = "[[Not evaluated]]"
elseif status == "NR" then
output = "''Not recognized''"
elseif status == "NA" then -- only used in regional assessments?
output = "''Not applicable''"
elseif status == "PE" then
output = p.addImage("Status iucn3.1 CR.svg", 'Critically endangered') .. "[[Critically endangered]], possibly extinct" .. p.addCategory("IUCN Red List critically endangered species")
elseif status == "PEW" then
output = p.addImage("Status iucn3.1 CR.svg", 'Critically endangered') .. "[[Critically endangered]], possibly extinct in the wild" .. p.addCategory("IUCN Red List critically endangered species")
else
-- | '''''Invalid status'''''{{#ifeq: {{NAMESPACEE}} | {{ns: 0}} | [[Category:Invalid conservation status]]|}}
output = "'''''Invalid status'''''" .. p.addCategory("Invalid conservation status")
end

-- | '''''Invalid status'''''{{#ifeq: {{NAMESPACEE}} | {{ns: 0}} | [[Category:Invalid conservation status]]|}}
--}}<small> ({{#if:{{{status_text|}}}|[[{{{status_text|#Conservation status}}}|See text]]|[[IUCN Red List|IUCN 3.1]]}}){{{3|}}}</small></div><!--

-- local thirdParam = "" --mw.text.trim(frame:getParent().args[3] or "")
-- local statusText = frame:getParent().args['status_text']
-- local systemText = " [[IUCN Red List|IUCN 3.1]]"
-- if statusText then
-- systemText = "[[{{{status_text|#Conservation status}}}|See text]]"
-- end
-- output = output .. "<small> (" .. systemText .. thirdParam .. ")</small></div>"
return output
end

-- ********************************* IUCN 2.3 **********************************************
function p.IUCN23(frame, system, status)

local output = system .. ' ' .. status
if status == "EX" then
local extinct = "[[Extinction|Extinct]]"
local extinctionDate = frame:getParent().args['extinction_date'] or ""
if extinctionDate ~= "" then extinct = extinct .. " (" .. frame:getParent().args['extinction_date'] .. ")" end
output = p.addImage("Status iucn2.3 EX.svg", 'Extinct') .. extinct .. p.addCategory("IUCN Red List extinct species")
elseif status == "EW" then
output = p.addImage("Status iucn2.3 EW.svg", 'Extinct in the Wild') .. "[[Extinct in the Wild]]" .. p.addCategory("IUCN Red List extinct in the wild species")
elseif status == "CR" then
output = p.addImage("Status iucn2.3 CR.svg", 'Critically Endangered') .. "[[Critically endangered species|Critically Endangered]]" .. p.addCategory("IUCN Red List critically endangered species")
elseif status == "EN" then
output = p.addImage("Status iucn2.3 EN.svg", 'Endangered') .. "[[Endangered species (IUCN status)|Endangered]]" .. p.addCategory("IUCN Red List endangered species")
elseif status == "VU" then
output = p.addImage("Status iucn2.3 VU.svg", 'Vulnerable') .. "[[Vulnerable species|Vulnerable]]" .. p.addCategory("IUCN Red List vulnerable species")
elseif status == "LR" then
output = p.addImage("Status iucn2.3 blank.svg", 'Lower risk') .. "Lower risk" .. p.addCategory("Invalid conservation status")
elseif status == "CD" or status == "LR/CD" then
output = p.addImage("Status iucn2.3 CD.svg", 'Conservation Dependent') .. "[[Conservation Dependent]]" .. p.addCategory("IUCN Red List conservation dependent species")
elseif status == "NT" or status == "LR/NT" then
output = p.addImage("Status iucn2.3 NT.svg", 'Near Threatened') .. "[[Near Threatened]]" .. p.addCategory("IUCN Red List near threatened species")
elseif status == "LC" or status == "LR/LC" then
output = p.addImage("Status iucn2.3 LC.svg", 'Least Concern') .. "[[Least Concern]]" .. p.addCategory("IUCN Red List least concern species")
elseif status == "DD" then
output = p.addImage("Status iucn2.3 blank.svg", 'Data Deficient') .. "[[Data deficient|Data Deficient]]" .. p.addCategory("IUCN Red List data deficient species")
elseif status == "NE" then
output = "[[Not evaluated]]"
elseif status == "NR" then
output = "''Not recognized''"
elseif status == "PE" then
output = p.addImage("Status iucn2.3 CR.svg", 'Critically endangered') .. "[[Critically endangered]], possibly extinct" .. p.addCategory("IUCN Red List critically endangered species")
elseif status == "PEW" then
output = p.addImage("Status iucn2.3 CR.svg", 'Critically endangered') .. "[[Critically endangered]], possibly extinct in the wild" .. p.addCategory("IUCN Red List critically endangered species")
else -- | '''''Invalid status'''''{{#ifeq: {{NAMESPACEE}} | {{ns: 0}} | [[Category:Invalid conservation status]]|}}
output = "'''''Invalid status'''''" .. p.addCategory("Invalid conservation status")
end

return output
end

--******************************************* CNCFlora***************************************

-- Note: this is not needed if using IUCN 3.1 system and criteria; just use that function with no catgories
-- alternatively rename this function as p.UsesIUCN31()
--function p.CNCFlora(frame, system, status)
function p.UsesIUCN31(frame, system, status)

local output = system .. ' ' .. status
if status == "EX" then
output = p.addImage("Status iucn3.1 EX.svg", 'Extinct') .. "[[Extinction|Extinct]]" --.. p.addCategory("IUCN Red List extinct species")
elseif status == "EW" then
output = p.addImage("Status iucn3.1 EW.svg", 'Extinct in the Wild') .. "[[Extinct in the Wild]]" --.. p.addCategory("IUCN Red List extinct in the wild species")
elseif status == "CR" then
output = p.addImage("Status iucn3.1 CR.svg", 'Critically Endangered') .. "[[Critically endangered species|Critically Endangered]]" --.. p.addCategory("IUCN Red List critically endangered species")
elseif status == "EN" then
output = p.addImage("Status iucn3.1 EN.svg", 'Endangered') .. "[[Endangered species|Endangered]]" --.. p.addCategory("IUCN Red List endangered species")
elseif status == "VU" then
output = p.addImage("Status iucn3.1 VU.svg", 'Vulnerable') .. "[[Vulnerable species|Vulnerable]]" --.. p.addCategory("IUCN Red List vulnerable species")
elseif status == "NT" then
output = p.addImage("Status iucn3.1 NT.svg", 'Near Threatened') .. "[[Near Threatened]]" --.. p.addCategory("IUCN Red List near threatened species")
elseif status == "LC" then
output = p.addImage("Status iucn3.1 LC.svg", 'Least Concern') .. "[[Least Concern]]" --.. p.addCategory("IUCN Red List least concern species")
elseif status == "DD" then
output = p.addImage("Status iucn3.1 blank.svg", 'Data Deficient') .. "[[Data deficient|Data Deficient]]" --.. p.addCategory("IUCN Red List data deficient species")
elseif status == "NE" then
output = "''Not evaluated''"
elseif status == "NR" then
output = "''Not recognized''"
elseif status == "PE" then
output = p.addImage("Status iucn3.1 CR.svg", 'Critically endangered') .. "[[Critically endangered]], possibly extinct" --.. p.addCategory("IUCN Red List critically endangered species")
elseif status == "PEW" then
output = p.addImage("Status iucn3.1 CR.svg", 'Critically endangered') .. "[[Critically endangered]], possibly extinct in the wild" --.. p.addCategory("IUCN Red List critically endangered species")
else
output = "'''''Invalid status'''''" .. p.addCategory("Invalid conservation status")
end

return output
end
-- *************** Natureserve/TNC ********************************
function p.NatureServe(frame, system, status)

local output = system .. ' ' .. status
if status == "GX" then
local extinct = "Presumed [[Extinction|Extinct]]"
if frame:getParent().args['extinction_date'] and frame:getParent().args['extinction_date'] ~= "" then extinct = extinct.. " (" .. frame:getParent().args['extinction_date'] .. ")" end
output = p.addImage("Status TNC GX.svg", 'Extinct') .. extinct .. p.addCategory("NatureServe presumed extinct species")
elseif status == "GH" then
output = p.addImage("Status TNC GH.svg", 'Possibly Extinct') .. "Possibly [[Extinction|Extinct]]" .. p.addCategory("NatureServe possibly extinct species")
elseif status == "G1" then
output = p.addImage("Status TNC G1.svg", 'Critically Imperiled') .. "Critically Imperiled" .. p.addCategory("NatureServe critically imperiled species")
elseif status == "G2" then
output = p.addImage("Status TNC G2.svg", 'Imperiled') .. "Imperiled" .. p.addCategory("NatureServe imperiled species")
elseif status == "G3" then
output = p.addImage("Status TNC G3.svg", 'Vulnerable') .. "Vulnerable" .. p.addCategory("NatureServe vulnerable species")
elseif status == "G4" then
output = p.addImage("Status TNC G4.svg", 'Apparently Secure') .. "Apparently Secure" .. p.addCategory("NatureServe apparently secure species")
elseif status == "G5" then
output = p.addImage("Status TNC G5.svg", 'Secure') .. "Secure" .. p.addCategory("NatureServe secure species")
elseif status == "GU" then
output = p.addImage("Status TNC blank.svg", 'Unrankable') .. "Unrankable"
elseif status == "GNR" then
output = p.addImage("Status TNC blank.svg", 'Unranked') .. "Unranked"
elseif status == "TX" then
local extinct = "Presumed [[Extinction|Extinct]]"
if frame:getParent().args['extinct'] then extinct = " (" .. frame:getParent().args['extinct'] .. ")" end
output = p.addImage("Status TNC TX.svg", 'Extinct') .. extinct .. p.addCategory("NatureServe presumed extinct species")
elseif status == "TH" then
output = p.addImage("Status TNC TH.svg", 'Possibly Extinct') .. "Possibly [[Extinction|Extinct]]" .. p.addCategory("NatureServe possibly extinct species")
elseif status == "T1" then
output = p.addImage("Status TNC T1.svg", 'Critically Imperiled') .. "Critically Imperiled" .. p.addCategory("NatureServe critically imperiled species")
elseif status == "T2" then
output = p.addImage("Status TNC T2.svg", 'Imperiled') .. "Imperiled" .. p.addCategory("NatureServe imperiled species")
elseif status == "T3" then
output = p.addImage("Status TNC T3.svg", 'Vulnerable') .. "Vulnerable" .. p.addCategory("NatureServe vulnerable species")
elseif status == "T4" then
output = p.addImage("Status TNC T4.svg", 'Apparently Secure') .. "Apparently Secure" .. p.addCategory("NatureServe apparently secure species")
elseif status == "T5" then
output = p.addImage("Status TNC T5.svg", 'Secure') .. "Secure" .. p.addCategory("NatureServe secure species")
elseif status == "TU" then
output = p.addImage("Status TNC blank.svg", 'Unrankable') .. "Unrankable"
else
output = "'''''Invalid status'''''" .. p.addCategory("Invalid conservation status")
end
return output
end

-- ********* EPBC: Environment Protection and Biodiversity Conservation Act 1999 (Australia) ************
function p.SANBI(frame, system, status)

local output = system .. ' ' .. status
if status == "EX" then
local extinct = "[[Extinction|Extinct]]"
if frame:getParent().args['extinct'] then extinct = " (" .. frame:getParent().args['extinct'] .. ")" end
output = p.addImage("Status SANBI EX.svg", 'Extinct') .. extinct --.. p.addCategory("SANBI Red List extinct biota")
elseif status == "EW" then
output = p.addImage("Status SANBI EW.svg", 'Extinct in the Wild') .. "[[Extinct in the Wild]]" --.. p.addCategory("SANBI Red List extinct in the wild biota")
elseif status == "RE" then
output = p.addImage("Status SANBI RE.svg", 'Regionally Extinct') .. "Regionally Extinct" --.. p.addCategory("SANBI Red List regionally extinct biota")
elseif status == "CR" then
output = p.addImage("Status SANBI CR.svg", 'Critically endangered') .. "[[Critically endangered species|Critically endangered]]" --.. p.addCategory("SANBI Red List critically endangered biota")
elseif status == "EN" then
output = p.addImage("Status SANBI EN.svg", 'Endangered') .. "[[Endangered species|Endangered]]" --.. p.addCategory("SANBI Red List endangered biota")
elseif status == "VU" then
output = p.addImage("Status SANBI VU.svg", 'Vulnerable') .. "[[Vulnerable species|Vulnerable]]" --.. p.addCategory("SANBI Red List vulnerable biota")
elseif status == "NT" then
output = p.addImage("Status SANBI NT.svg", 'Near Threatened') .. "[[Near Threatened]]" --.. p.addCategory("SANBI Red List near threatened biota")
elseif status == "LC" then
output = p.addImage("Status SANBI LC.svg", 'Least Concern') .. "[[Least Concern]]" --.. p.addCategory("SANBI Red List least concern biota")
elseif status == "RA" then
output = p.addImage("Status SANBI Ra.svg", 'Rare') .. "Rare" -- p.addCategory("SANBI Red List rare biota")
else
output = "'''''Invalid status'''''" .. p.addCategory("Invalid conservation status")
end

return output
end
function p.EPBC(frame, system, status)

local output = system .. ' ' .. status
if status == "EX" then
local extinct = "[[Extinction|Extinct]]"
if frame:getParent().args['extinct'] then extinct = " (" .. frame:getParent().args['extinct'] .. ")" end
output = p.addImage("Status EPBC EX.svg", 'Extinct') .. extinct .. p.addCategory("EPBC Act extinct biota")
elseif status == "EW" then
output = p.addImage("Status EPBC EW.svg", 'Extinct in the Wild') .. "[[Extinct in the Wild]]" .. p.addCategory("EPBC Act extinct in the wild biota")
elseif status == "CR" then
output = p.addImage("Status EPBC CR.svg", 'Critically endangered') .. "[[Critically endangered species|Critically endangered]]" .. p.addCategory("EPBC Act critically endangered biota")
elseif status == "EN" then
output = p.addImage("Status EPBC EN.svg", 'Endangered') .. "[[Endangered species|Endangered]]" .. p.addCategory("EPBC Act endangered biota")
elseif status == "VU" then
output = p.addImage("Status EPBC VU.svg", 'Vulnerable') .. "[[Vulnerable species|Vulnerable]]" .. p.addCategory("EPBC Act vulnerable biota")
elseif status == "CD" then
output = p.addImage("Status EPBC CD.svg", 'Conservation Dependent') .. "[[Conservation Dependent]]" .. p.addCategory("EPBC Act conservation dependent biota")
elseif status == "DL" or status == "DELISTED" then
output = p.addImage("Status EPBC DL.svg", 'Delisted') .. "Delisted"
else
output = "'''''Invalid status'''''" .. p.addCategory("Invalid conservation status")
end

return output
end

-- *************** ESA ********************************
function p.ESA(frame, system, status)

local output = system .. ' ' .. status
if status == "EX" then
local extinct = "[[Extinction|Extinct]]"
if frame:getParent().args['extinct'] then extinct = " (" .. frame:getParent().args['extinct'] .. ")" end
output = p.addImage("Status ESA EX.svg", 'Extinct') .. extinct
elseif status == "LE" or status == "E" then
output = p.addImage("Status ESA LE.svg", 'Endangered') .. "[[Endangered species|Endangered]]" .. p.addCategory("ESA endangered species")
elseif status == "LT" or status == "T" then
output = p.addImage("Status ESA LT.svg", 'Threatened') .. "[[Threatened species|Threatened]]" .. p.addCategory("ESA threatened species")
elseif status == "DL" or status == "DELISTED" then
output = p.addImage("Status ESA DL.svg", 'Delisted') .. "Delisted"
else
output = "'''''Invalid status'''''" .. p.addCategory("Invalid conservation status")
end

return output
end
-- ********** COSEWIC: Committee on the Status of Endangered Wildlife in Canada **************
function p.COSEWIC(frame, system, status)

local output = system .. ' ' .. status
if status == "X" then
local extinct = "[[Extinction|Extinct]]"
if frame:getParent().args['extinct'] then extinct = " (" .. frame:getParent().args['extinct'] .. ")" end
output = p.addImage("Status COSEWIC X.svg", 'Extinct') .. extinct
elseif status == "XT" then
output = p.addImage("Status COSEWIC XT.svg", 'Extirpated (Canada)') .. "Extirpated (Canada)"
elseif status == "E" then
output = p.addImage("Status COSEWIC E.svg", 'Endangered') .. "[[Endangered species|Endangered]]"
elseif status == "T" then
output = p.addImage("Status COSEWIC T.svg", 'Threatened') .. "[[Threatened species|Threatened]]"
elseif status == "SC" then
output = p.addImage("Status COSEWIC SC.svg", 'Special Concern') .. "Special Concern"
elseif status == "DD" then
output = p.addImage("Status_COSEWIC_blank.svg", 'Data Deficient') .. "Data Deficient"
elseif status == "NAR" then
output = p.addImage("Status COSEWIC NAR.svg", 'Not at risk') .. "[[Least Concern|Not at risk]]"
else
output = "'''''Invalid status'''''" .. p.addCategory("Invalid conservation status")
end
return output
end
-- *************** DECF ********************************
function p.DECF(frame, system, status)

local output = system .. ' ' .. status
if status == "X" then
local extinct = "Declared Rare — Presumed [[Extinction|Extinct]]"
if frame:getParent().args['extinct'] then extinct = " (" .. frame:getParent().args['extinct'] .. ")" end
output = p.addImage("Status DECF X.svg", 'Extinct') .. extinct
elseif status == "R" then
output = p.addImage("Status DECF R.svg", 'Declared rare') .. "Declared [[Rare species|rare]]"
elseif status == "P1" then
output = p.addImage("Status DECF P1.svg", 'Priority One — Poorly Known Taxa') .. "Priority One — Poorly Known Taxa"
elseif status == "P2" then
output = p.addImage("Status DECF P2.svg", 'Priority Two — Poorly Known Taxa') .. "Priority Two — Poorly Known Taxa"
elseif status == "P3" then
output = p.addImage("Status DECF P3.svg", 'Priority Three — Poorly Known Taxa') .. "Priority Three — Poorly Known Taxa"
elseif status == "P4" then
output = p.addImage("Status DECF P4.svg", 'Priority Four — Rare Taxa') .. "Priority Four — Rare Taxa"
elseif status == "DL" or status == "DELISTED" then
output = p.addImage("Status DECF DL.svg", 'Delisted') .. "Delisted"
else
output = "'''''Invalid status'''''" .. p.addCategory("Invalid conservation status")
end

return output
end

-- *************** QLDNCA (Queensland Nature Conservation Act ********************************
-- https://www.data.qld.gov.au/dataset/conservation-status-of-queensland-wildlife/resource/d20c485d-b5dc-4c07-8304-df6a21783d4b
function p.QLDNCA(frame, system, status)

local output = system .. ' ' .. status
if status == "EX" then
output = "[[Extinct]]" .. p.addCategory("Nature Conservation Act extinct biota")
elseif status == "EW" or status == "PE" then -- PE is the code used but keep EW for compatibility
output = "[[Extinct in the Wild]]" .. p.addCategory("Nature Conservation Act extinct in the wild biota")
elseif status == "CR" then
output = "[[Critically endangered species|Critically Endangered]]" .. p.addCategory("Nature Conservation Act critically endangered biota")
elseif status == "EN" or status == "E" then
output = "[[Endangered species|Endangered]]" .. p.addCategory("Nature Conservation Act endangered biota")
elseif status == "VU" or status == "V" then
output = "[[Vulnerable species|Vulnerable]] " .. p.addCategory("Nature Conservation Act vulnerable biota")
elseif status == "R" then
output = "Rare" .. p.addCategory("Nature Conservation Act rare biota")
elseif status == "NT" then
output = "[[Near Threatened]]" .. p.addCategory("Nature Conservation Act near threatened biota")
elseif status == "SL" then
output = "[[Special Least Concern]]" .. p.addCategory("Nature Conservation Act special least concern biota")
elseif status == "LC" or status == "C" then
output = "[[Least Concern]]" .. p.addCategory("Nature Conservation Act least concern biota")
else
output = "'''''Invalid status'''''" .. p.addCategory("Invalid conservation status")
end

return output
end
-- *************** NSWBCA ********************************
function p.NSWBCA(frame, system, status)
local output = system .. ' ' .. status
if status == "EX" then
output = "[[Extinct]]"
elseif status == "EW" then
output = "[[Extinct in the Wild]]"
elseif status == "CR" then
output = "[[Critically endangered species|Critically Endangered]]"
elseif status == "EN" then
output = "[[Endangered species|Endangered]]"
elseif status == "VU" then
output = "[[Vulnerable species|Vulnerable]] "
-- elseif status == "R" then
-- output = "Rare"
-- elseif status == "NT" then
-- output = "[[Near Threatened]]"
elseif status == "LC" then
output = "[[Least Concern]]"
else
output = "'''''Invalid status'''''" .. p.addCategory("Invalid conservation status")
end
return output
end
-- *************** CITES ********************************
function p.CITES(frame, system, status)

--colours: Animalia rgb(235,235,210) Archaeplastida rgb(180,250,180)
local colour = frame:getParent().args['colour']

local categoryPrefix = "Taxa"
--mw.addWarning (tostring(colour))
if colour == 'rgb(235,235,210)' then categoryPrefix = "Fauna"
elseif colour == 'rgb(180,250,180)' then categoryPrefix = "Flora"
else mw.addWarning (tostring(colour))
end

local output = system .. ' ' .. status
if status == "CITES_A1" then
output = "[[CITES]] Appendix I" .. p.addCategory(categoryPrefix .. " listed on CITES Appendix I")
elseif status == "CITES_A2" then
output = "[[CITES]] Appendix II" .. p.addCategory(categoryPrefix .. " listed on CITES Appendix II")
elseif status == "CITES_A3" then
output = "[[CITES]] Appendix III" .. p.addCategory(categoryPrefix .. " listed on CITES Appendix III")
else
output = "'''''Invalid status'''''" .. p.addCategory("Invalid conservation status")
end
return output

end

-- *************** NZTCS ********************************
function p.NZTCS(frame, system, status)

local output = system .. ' ' .. status
if status == "EX" then
local extinct = "[[Extinction|Extinct]]"
if frame:getParent().args['extinction_date'] and frame:getParent().args['extinction_date'] ~= "" then
extinct = extinct .. " (" .. frame:getParent().args['extinction_date'] .. ")"
end
output = p.addImage("Status 2019 NZTCS EX.svg", "extinct") .. extinct
-- Threatened categories 2019 (NC,NE,NV,NI)
elseif status == "NC" then
output = p.addImage("Status 2019 NZTCS NC.svg", "Nationally Critical") .. "Nationally Critical"
elseif status == "NE" then
output = p.addImage("Status 2019 NZTCS NE.svg", "Nationally Endangered") .. "Nationally Endangered"
elseif status == "NV" then
output = p.addImage("Status 2019 NZTCS NV.svg", "Nationally Vulnerable") .. "Nationally Vulnerable"
elseif status == "NI" or status == "ni" then
output = p.addImage("Status 2019 NZTCS NI.svg", "Nationally Increasing") .. "Nationally Increasing"
-- At Risk categories (2019 version):
elseif status == "D" or status == "d" then
output = p.addImage("Status 2019 NZTCS D.svg", "Declining") .. "Declining"
elseif status == "REL" or status == "Rel" or status == "rel" then
output = p.addImage("Status 2019 NZTCS REL.svg", "Relict") .. "Relict"
elseif status == "NU" or status == "nu" then
output = p.addImage("Status 2019 NZTCS NU.svg", "Naturally Uncommon") .. "Naturally Uncommon"
-- At Risk categories (2008 version):
elseif status == "R" or status == "r" then
output = p.addImage("Status NZTCS R.svg", "Recovering") .. "Recovering" -- included in NI in 2019 category

--- other
elseif status == "NT" or status == "nt" then
output = p.addImage("Status 2019 NZTCS NT.svg", "Not Threatened" ) .. "Not Threatened"
elseif status == "DD" or status == "dd" then
output = p.addImage("Status 2019 NZTCS DD.svg", "Data Deficit" ) .. "Data Deficit"

-- Older categories (version 2002): SD,GD,SP,RR
elseif status == "SD" then
output = p.addImage("Status NZTCS SD.svg", 'Serious Decline') .. "Serious Decline"
elseif status == "GD" then
output = p.addImage("Status NZTCS GD.svg", 'Gradual Decline') .. "Gradual Decline"
elseif status == "SP" then
output = p.addImage("Status NZTCS SP.svg", 'Sparse') .. "Sparse"
elseif status == "RR" then
output = p.addImage("Status NZTCS RR.svg", 'Range Restricted') .. "Range Restricted"

-- otherwise invalid conservation status
else
output = "'''''Invalid status'''''" .. p.addCategory("Invalid conservation status")
end

return output

end

-- *************** functions for image and category output ********
function p.addImage(file, alt)
local statusNumber = mw.getCurrentFrame():getParent().args['number'] or 1
--mw.addWarning ("statusNo=" .. statusNumber)

if file ~= "" and tonumber(statusNumber)<3 then
return "[[File:" .. file .. "|frameless|alt=" .. ( alt or '|link=' ) .. "|class=skin-invert-image]]<br />"
end
return ""
end
function p.addCategory(category)
local ns = mw.title.getCurrentTitle().namespace
-- ns = 0 -- to test category put on page
if category ~= "" and ns == 0 then
return "[[Category:" .. category .. "]]"
end
return ""
end

return p

Template:Cite IUCN

2026-05-11T08:16:35Z

Indicwiki: 1 revision imported

<includeonly>{{#invoke:cite IUCN|cite}}</includeonly><noinclude>
{{Documentation}}

</noinclude>

Template:Taxonomy/Rhacophorinae

2026-05-11T08:16:34Z

Indicwiki: 1 revision imported

{{Don't edit this line {{{machine code|}}}
|rank=subfamilia
|link=Rhacophorinae
|parent=Rhacophoridae
|extinct=
}}

Template:Taxonomy/Rhacophoridae

2026-05-11T08:16:34Z

Indicwiki: 1 revision imported

{{Don't edit this line {{{machine code|}}}
|rank=familia
|link=Rhacophoridae
|parent=Ranoidea
|extinct=
}}

Template:Taxonomy/Ranoidea

2026-05-11T08:16:34Z

Indicwiki: 1 revision imported

<noinclude>{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=superfamilia
|link=Ranoidea
|parent=Neobatrachia
}}

Template:Taxonomy/Choanozoa

2026-05-11T08:16:34Z

Indicwiki: 1 revision imported

{{Don't edit this line {{{machine code|}}}
|rank=cladus
|link=Choanozoa
|parent=Filozoa
|refs=*{{cite journal |last1=Brunet |first1=Thibaut |first2=Nicole |last2=King |title=The origin of animal multicellularity and cell differentiation |journal=Developmental Cell |volume=43 |issue=2 |date=2017 |pages=124–140 |doi=10.1016/j.devcel.2017.09.016 |url = https://www.cell.com/developmental-cell/pdf/S1534-5807(17)30769-4.pdf |doi-access = free |pmid=29065305 |pmc=6089241 |bibcode=2017DevCe..43..124B }}
*{{Cite journal |last1=Adl |first1=Sina M. |last2=Bass |first2=David |last3=Lane|first3=Christopher E. |last4=Lukeš |first4=Julius |last5=Schoch |first5=Conrad L. |last6=Smirnov |first6=Alexey |last7=Agatha |first7=Sabine |last8=Berney |first8=Cedric |last9=Brown |first9=Matthew W. |date=2018-09-26 |title=Revisions to the Classification, Nomenclature, and Diversity of Eukaryotes|journal=Journal of Eukaryotic Microbiology |volume=66 |issue=1 |pages=4–119 |doi=10.1111/jeu.12691|pmid=30257078 |pmc=6492006 }}
}}

Template:Taxonomy/Salientia

2026-05-11T08:16:34Z

Indicwiki: 1 revision imported

<noinclude>{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=clade
|link=Salientia
|parent=Batrachia
|refs=
}}

Template:Taxonomy/Neobatrachia

2026-05-11T08:16:34Z

Indicwiki: 1 revision imported

<noinclude>{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=subordo
|link=Neobatrachia
|parent=Anura
}}

Template:Taxonomy/Lissamphibia

2026-05-11T08:16:33Z

Indicwiki: 1 revision imported

<noinclude>{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=subclassis
|link=Lissamphibia
|parent=Amphibia
}}

Template:Taxonomy/Batrachia

2026-05-11T08:16:33Z

Indicwiki: 1 revision imported

<noinclude>{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=superordo
|link=Batrachia
|parent=Lissamphibia
|refs=
}}

Template:Taxonomy/Anura

2026-05-11T08:16:33Z

Indicwiki: 1 revision imported

<noinclude>{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=ordo
|link=Frog|Anura
|parent=Salientia
}}

Module:Buffer

2026-05-11T08:16:32Z

Indicwiki: 1 revision imported

--[[=============================
This Module was written by Alexander Zhikun He, also known as User:Codehydro on the English Wikipedia

All methods were developed independently and any resemblance to other string buffer libraries would be coincidental.
Furthermore, many methods will not work when compiled by standard Lua libraries as they depend on behaviors unique to
the MediaWiki Scribunto mod, which, for example, has a getmetatable() method that always returns nil on non-tables.
https://www.mediawiki.org/wiki/Extension:Scribunto/Lua_reference_manual

Source code comments may be thin at some points because they are intended to be supplemented by the documentation page:
https://en.wikipedia.org/wiki/Module:Buffer/doc

Licensed under Creative Commons Attribution-ShareAlike 3.0 Unported License
https://en.wikipedia.org/wiki/Wikipedia:Text_of_Creative_Commons_Attribution-ShareAlike_3.0_Unported_License

https://en.wikipedia.org/wiki/Module:Buffer
https://en.wikipedia.org/wiki/User:Codehydro
=============================--]]
local function Valid(v)--type validation
if v and v~=true then--reject nil/boolean; faster than 2 type() comparisons
local str = tostring(v)--functions not filtered since unlikely passed by accident (Scribunto does not have userdata/thread types)
if str~=v and str=='table' then return rawget(v, 1) and table.concat(v) end--tostring(string-type) returns same ref; same refs compare faster than type()
if str~='' then return str end--numbers are coerced to string per table.concat op; appending in string form saves ops on repeat concat
end
end
local noOp, MBpairs = function()end do local iMap, vMap, oMap, pIter, pOther, pFast, Next--Map
local function init()--init = noOp after first run
function Next(t) return next, t end--slightly faster to do this than to use select()
function pIter(t, k) k = (iMap[t] or MBpairs(t, true) and iMap[t])[not k and 1 or vMap[t][k]] return k, t[k] end--don't use rawget; accepting unmapped tables does not measurably affect performance.
function pOther(t, k) k = (oMap[t] or MBpairs(t, true) and oMap[t])[nil==k and 1 or vMap[t][k]] return k, t[k] end--comparison to nil because false is a valid key
function pFast(t, k) k = not k and 1 or k < (vMap[t] or #t) and k + 1 or nil return k, t[k] end--mapless iterator; almost as fast as native ipairs; slight performance penalty when length not cached
--k and k < (vMap[t] or #t) and k + 1 or not k and 1 or nil return k, t[k] end--mapless iterator; almost as fast as native ipairs; slight performance penalty when length not cached
local mk = {__mode = 'k'}--use mode 'k'; found that mode 'kv' sometimes garbage collects maps mid-loop (may not error because iterators auto re-map, but that's expensive)
init, iMap, vMap, oMap = noOp, setmetatable({}, mk), setmetatable({}, mk), setmetatable({}, mk)--iMap is numeric keys, oMap is non-numeric keys, and vMap points to next key
end
function MBpairs(t, ...)--pairs always iterates in order
local iter, ex = ...
iter = iter==init()--nil
if iter and not oMap[t] and ex==nil and rawget(t, 1)~=nil and next(t, #t)==nil then--while possible to miss keys, more thorough check would negate the benefit of pFast
vMap[t] = #t return pFast, t, nil
elseif ... or not vMap[t] or select('#', ...)~=1 then
local ti, tn, to, n = {}, {}, {}, #t--reduces table lookups
iMap[t], vMap[t], oMap[t] = ti, tn, to
for k = 1, n do ti[k], tn[k] = k, k + 1 end--stage one avoids number type checking op in stage two for most numeric keys
for k in (ex or Next)(t) do
if not tn[k] then table.insert(tonumber(k)~=k and to or ti, k) end
end
if #ti~=n then
table.sort(ti)
for k = 1, #ti do tn[ti[k]] = k + 1 end--somewhat wasteful, but trying to avoid overwriting can be even more expensive
end
for k = 1, #to do tn[to[k]] = k + 1 end
end
return iter and pIter or oMap[t] and pOther or noOp, t--noOp for mapless
end
end
local parent, rawkey, spec do--new scope for variables not reused outside (reduces number of var names that need to checked outside of scope)
local mkv = {__mode='kv', __call=function(t,k,v)t[k]=v return k end}--shared meta for Buffer parent property, raw mode, and specialized functions
parent, rawkey, spec = setmetatable({}, mkv), setmetatable({}, mkv), setmetatable({}, mkv)--shared meta less memory
end

local MB, MBi, MBmix, buffHTML, gfuncs, noCache, Element do--minimize number of locals per scope to reduce time spent sifting through irrelevant variable names
local _stream do local stream--keep stream near top of scope
local function init(f)--init = noOp after first run
local function each(self, ...)
for k = 1, select('#', ...) do
k = Valid(select(k, ...))--slightly faster than table.insert(self, (Valid(select(k, ...))))
if k then table.insert(self, k) end
end
return self
end
init, stream, _stream = noOp, {
__call = function(t, v) v = v and Valid(v) return v and table.insert(t, v) or t end,--last_concat cleared before entering stream mode
__index = function(t, i) return i=='each' and each or MB.__index(t, i) and setmetatable(t, MB)[i] end,--no table look up minimizes resources to retrieve the only stream function
__tostring = function(t) return setmetatable(t, MB)() end
} for k, v in next, MB do stream[k] = stream[k] or v end
setmetatable(stream, getmetatable(MB))
end
function _stream(self, ...) self.last_concat = init() return setmetatable(self, stream):each(...) end
end
local function isMBfunc(Buffer, s, ...)--helper for :getParent()-like methods (including getBuffer which does not return a parent)
return s and (select('#', ...)==0 and--eventually should figure out to make this work for :getHTML which is very similar
(not rawkey[s] and tostring(s):match'^_.*' and MB.__index(Buffer, s) and MB.__index(Buffer, s)(Buffer) or MBmix(Buffer, s))--unprefixed function names append as a string
or assert(MB.__index(Buffer, s), ('" %s " does not match any available Module:Buffer function'):format(s))(Buffer, ...)--getParent is a one-way trip so one-time assert not expensive
) or Buffer
end
local function MBselect(n, ...)--helper for :_out and :_str
local n, seps = n - 1, {select(2, ...)}
if type(seps[n])=='table' then
if buffHTML and rawget(seps[n], buffHTML) then return ... end
setmetatable(seps, {__index = setmetatable(seps[n], {__index = function(t) return rawget(t, 1) end})})[n] = nil
end
return ..., seps
end
local _inHTML do local lastBuffer, lastHTML
local function init(...)--init replaced and new version called on return
local create, mwFunc = mw.html.create do
local mwHTMLmeta = getmetatable(create())
buffHTML, mwFunc, _inHTML = setmetatable(mw.clone(mwHTMLmeta), getmetatable(MB)), mwHTMLmeta.__index--buffHTML declared near top of module; remove _inHTML from outer scope
function init(nodes, ...)
local name, args, tag = select(... and type(...)=='table' and 1 or 2, nil, ...)
tag = create(Valid(name), args)
if nodes then table.insert(nodes, tag.parent and tag or rawset(tag, 'parent', parent[nodes])) end
if args then
local a, b = args.selfClosing, args.parent
args.selfClosing, args.parent = nil
if next(args) then Element._add(parent(tag.nodes, tag), args) end
args.selfClosing, args.parent = a, b--in case args is reused
end
return tag
end
for k, v in next, {[mw] = mwHTMLmeta,
__call = function(h, v) return MBmix(spec[h.nodes] and h.nodes or spec(setmetatable(parent(h.nodes, h), MB), Element), v) end,
__concat = false,--false means take from MB
__eq = false
} do buffHTML[k] = v or MB[k] end
end
local nonSelf, BHi = {tag=true,done=true,allDone=true}, buffHTML.__index do local g
g = {__index = function(t, i)
if gfuncs and gfuncs[i] then g.__index, gfuncs = gfuncs return g.__index[i] end
end}
setmetatable(nonSelf, g)
setmetatable(BHi, g)
end
for k in next, nonSelf do--any HTML objects returned by these funcs will be granted Module:Buffer enhancements
local func = mwFunc[k]
BHi[k] = function(t, ...) local HTML = func(t, ...) return parent[HTML] and HTML or setmetatable(parent(HTML, t), buffHTML) end
end
do local function joinNode(HTML, sep)
local nodes, join = HTML.nodes
if noCache and rawkey[sep] or Valid(sep) then join, HTML.nodes = tostring(rawset(HTML, 'nodes', {MB.__call(nodes, sep)})), nodes end
return join or tostring(HTML)
end
for k, v in next, {
getParent = function(HTML, ...) lastHTML = HTML return MBi.getParent(HTML:allDone(), ...) end,--return to Buffer that created the HTML tree
getBuffer = function(HTML, ...) lastHTML = HTML return isMBfunc(lastBuffer, ...) end,--return to last used
killParent = function(HTML, ...) MBi.killParent(HTML:allDone(), ...) return HTML end,
_out = function(HTML, ...)
if ...==0 then MBi._out(HTML.nodes, ...) return HTML end
lastHTML, HTML = HTML, HTML:allDone()
local n, ops, seps = select('#', ...)
if n > 1 then
local ops, seps = MBselect(n, ...)
return parent[HTML]:_in(joinNode(HTML, rawget(seps, 0))):_out(ops, rawset(seps, buffHTML, true))
end
return parent[HTML]:_(joinNode(HTML, ...))
end,
_str = function(HTML, ...)--does not set lastHTML
if ...==0 then return joinNode(HTML, select(2, ...)) end--passing 0 strings without calling allDone()
local HTML, n = HTML:allDone(), select('#', ...)
if n > 1 then
local ops, seps = MBselect(n, ...)
return parent[HTML]:_in(joinNode(HTML, rawget(seps, 1))):_str(ops, rawset(seps, buffHTML, true))
end
return joinNode(HTML, ...)
end,
_parent = function(HTML, ...) table.insert(HTML.nodes, parent[HTML:allDone()]:_str(...)) return HTML end
} do BHi[k] = v end
end
do local htmlArg, skip, outFuncs = {parent=true,selfClosing=true,tagName=true}, {}
do local out local function func(nodes, ...) return out(parent[nodes], ...) end
outFuncs = setmetatable({
tag = function(nodes, ...) return parent(setmetatable(init(nodes, ...), buffHTML), parent[nodes]) end,
done = function(b, ops)
b = parent[b]
while b.parent and ops~=0 do b, ops = b.parent, ops and ops - 1 or 0 end
return b
end
}, {__index = function(nodes, i)
if rawget(BHi, i) then out = BHi[i] return func end--rawget to exclude globals
end})
end
Element = {
_add = function(nodes, t)
for k, v in MBpairs(t), t, skip[t] do (v~=true and MBmix or noOp)(nodes, v) end
local HTML = parent[nodes] for k, v in MBpairs(t, false) do
if htmlArg[k] then HTML[k] = v
elseif v and v~=true then
if nonSelf[k] then
if k=='tag' then
if type(v)=='table' then
skip[v], k = 1, rawset(create(Valid(v[1])), 'parent', HTML)
Element._add(spec(parent(k.nodes, k, table.insert(nodes, k)), Element), v)
if k.selfClosing then k.nodes = nil else spec[k.nodes], parent[k.nodes] = nil end--free memory/reduce clutter; parent ref will auto-unset when k.nodes is nil
if not k.tagName then k.styles, k.attributes = nil end
else table.insert(nodes, create(v)) end
elseif mwFunc[k] then
if k=='done' and tonumber(v)~=v and v[1] and tonumber(v[1])==v[1] then skip[v] = 1 end
MBmix(outFuncs[k](nodes, skip[v] and v[1]).nodes, v)
elseif v[1] or v[2] then
k = MBi[k](nodes, unpack(v, 1, rawset(skip, v, k=='_B' and 1 or 2)[v]))
Element._add(getmetatable(k) and rawget(k, 'nodes') or k, v)--if k is not a table, then v should not contain any extra keys or this may error.
else MBi[k](nodes, v) end--k probably == '_G' or '_R'
elseif mwFunc[k] then
if type(v)~='table' or rawget(v, 'nodes') then mwFunc[k](HTML, v)
else
local css = k=='css'
for x, y in MBpairs(v, true) do (y and y~=true and mwFunc[k] or noOp)(HTML, css and x:gsub('_', '-') or x, y) end--iterate non-numbers first
for _, y in MBpairs(v, nil) do (y and y~=true and mwFunc[k] or noOp)(HTML, y) end--don't bother with gsub since text must be quoted anyhow
end
elseif rawget(Element, k) or rawget(MBi, k) then
if tonumber(v)==v or v[1]==nil or getmetatable(v) then (Element[k] or MBi[k])(nodes, v)--v is probably string-able object, or a table to be handled by :_all
else (Element[k] or MBi[k])(nodes, unpack(v, 1, table.maxn(v))) end--v is definately a table
else mwFunc.css(HTML, k:gsub('_', '-', 1), tostring(v)) end--oddly enough, :_add clocked its fastest runtime after adding auto-gsub as a feature
skip[v] = nil
end
end
return nodes
end
}
local tempMeta = {mode='v', copy={styles=true,attributes=true}}
function tempMeta.__index(t, i) return tempMeta.copy[i] and rawset(t, i, MBi._cc(false, 0, t.orig[i]))[i] or t.orig[i] end
rawkey[setmetatable(Element, {__index = outFuncs, __concat=function(Element, v) return setmetatable({nodes=spec({}, Element),orig=parent[v]}, tempMeta) end})] = math.huge
end
function MBi:getHTML(...)
lastBuffer = self
if ... then
if select('#', ...)==1 then return not rawkey[s] and tostring(...):match'^_' and BHi[...] and BHi[...](lastHTML) or lastHTML(...)
else return assert(BHi[...], ('" %s " does not match any mw.html or Buffer-mw.html function'):format(tostring(...)))(lastHTML, select(2, ...)) end
end
return lastHTML
end
function MBi:_html(...) return MBi._(self, lastHTML, select(spec[self]==Element and select('#', ...)==0 and 1 or 2, true, ...)) end
return init(...)
end
function _inHTML(self, ...)
local HTML = init(nil, ...)
if HTML.selfClosing and spec[self]==Element then self.last_concat = table.insert(self, HTML) return self end
lastBuffer, lastHTML = self, setmetatable(parent(HTML, self), buffHTML)--set after 'args' table processed by :_add
return HTML
end
end
local _var, unbuild do local prev, rebuild
local function init(...)--init replaced before return
local function pick(b, v) return b and table.insert(b, v) or v end
local function c(a, num) return rawset(a.a or a, 0, a[0] and a[0] + a.c or num and a[1] or a[1]:byte())[0] end
local same, build, alt = {__tostring = function(a, b) return a.a[0] and pick(b, a.a.string and string.char(a.a[0]) or a.a.table and a.a[1][a.a[0]] or a.a[0]) end}, {
__index = {c = 1},
__tostring = function(t) return t:_build() end,
table = function(a, b) local i = next(a[1], a[0]) or a[0]==#a[1] and next(a[1]) return pick(b, rawset(a.a or a, 0, i)[1][i]) end,--change rate (a.c) ignored since users control the table's contents
number = function(a, b) return pick(b, c(a, true)) end,
string = function(a, b) return pick(b, string.char(c(a))) end
}, {__index = function(a, i) return a.a[i] end, __tostring = function(a, b) return (rawget(a, 0) and a[0]==tostring(a[0]) and rawset(a, 0, a[0]:byte()) or a).a._build(a, b) end}
local function shift(t, c)
t[0] = t[0] and t[0] + c or t:_build() and t[0] - t.c + c
if t.table then t[0] = (t[0] - 1) % #t[1] + 1 end
end
function rebuild(...)
local v, c = ...
if v or select('#', ...)==0 then
if v and not c then return prev end
local meta, c = select(v and 1 or 3, alt, c, same, 0)
return setmetatable({a = prev, _build = meta.__tostring, c = c}, meta)
elseif v==nil then--no-op
elseif c then shift(prev, c)--v == false
else prev:_build() end
end
init, noCache = function(v, c) prev = setmetatable({v, c = c, _build = build[type(v)] or v, [type(v)] = true, alt = {}}, build) return prev end, true
return init(...)
end
function unbuild(sep)
for k, v in MBpairs(sep, nil) do
k = getmetatable(v) if k and (k==build or k==alt) then shift(v.a or v, -v.c) end
end
end
function _var(self, ...)
local obj if ... and ...~=true then obj = init(...)
elseif prev then
if ...~=false then obj = rebuild(...)
else rebuild(...) end
end
return obj and MBi._(self, obj, nil, true) or self
end
end
local lib; MBi = setmetatable({stream = _stream,
_inHTML = _inHTML,
_var = _var,
_ = function(self, v, ...)
local at, raw = select(select('#', ...)==1 and ...==true and 1 or 2, nil, ...)
if raw then rawkey[self] = math.huge else v = Valid(v) end
if v or raw then
if at or rawkey[self] then raw = #self end--if length increases by more than one after table.insert, then set rawkey[self] = math.huge; rawkey[self] may be equal to a previous 'at'
at, self.last_concat = at and (tonumber(at)~=at and raw + at or at)
table.insert(self, select(at and 1 or 2, at, v))
if at and at < 0 or raw and #self - raw > 1 then rawkey[self] = math.huge elseif at and #self==raw then rawkey[self] = rawkey[self] and math.max(rawkey[self], at) or at end
end--above line looks bizarre because one table.insert op may make length jump from 0 to 8: local wtf={[2]=2,[4]=4,[8]=8}mw.log(#wtf,table.insert(wtf,1),#wtf)
return self
end,
_nil = function(self, at, ...)
if ...~=true and ...~=false then--faster than type(...) ~= 'boolean'
if not at or at=='0' then
self[#self] = ... if ... then rawkey[self] = math.huge end
else
local n, v = tonumber(at), ...
if n~=at then
if n then n = #self + at
elseif at~=true and select('#', ...)==0 then v, n = at, #self end
end
if n then
if v==nil and n > 0 then table.remove(self, n)
else self[math.floor(n)], rawkey[self] = v, math.huge end--floor position for consistency with Table library
end
end
self.last_concat = nil
end
return self
end,
_all = function(self, t, valKey)
for k, v in MBpairs(t) do MBmix(self, v, valKey) end
for k, v in valKey and MBpairs(t, false) or noOp, t do
if tonumber(v) then MBi._(self, k, v)--self not always a buffer
elseif rawget(MBi, k) and v and v~=true then
if v[1]==nil or getmetatable(v) then MBi[k](self, v)
else MBi[k](self, unpack(v, 1, table.maxn(v))) end
end
end
return self
end,
_str = function(t, ...)
local n = select('#', ...)
if n > 1 then
local k, ops, seps, r = 2, MBselect(n, ...)
r = MB(t(seps[1]))
while parent[t] and ops > 1 and r:_(parent[t](seps[k]), 1) do t, k, ops = parent[t], k + 1, ops - 1 end
return table.concat(r, seps[k] or nil)
end
return MB.__call(t, ...)
end,
_in = function (self, ...) return parent(MB(...), self) end,
_out = function(t, ...)
if ...==0 then return parent(t, parent[t], MBi._cc(t, t, MB.__call(t, (select(2, ...))), getmetatable(t))) end--love how :_cc needed nothing new to implement this *self pat on back*
local n = select('#', ...)
if n > 1 then
local k, ops, seps = 1, MBselect(n, ...)
while parent[t] and ops > 0 do t, k, ops = parent[t]:_(t(seps[k])), k + 1, ops - 1 end
elseif parent[t] then return parent[t]:_(t(...)) end
return t
end,
_cc = function(self, clear, copy, meta)
if clear then
if rawequal(clear, copy) then return self, spec[MBi._cc] and setmetatable(spec[MBi._cc], MB)--rawequal to avoid re-string via __eq in case both are different Buffer objects
elseif copy==true then copy = self end
if clear~=0 then
assert(type(clear)=='table', debug.traceback('Buffer:_cc can only "clear" tables. Did you forget to call with a colon?', 2))--errors can be hard to trace without this
for k in self and next or noOp, clear do rawset(clear, k, nil) end
else return MBi._cc(false, {unpack(copy)}, copy) end--copy length w/o empty strings; recursion to avoid self = false causing garbage collection (non-weak child may exist)
if self==false or copy and type(copy)=='table' then--self==false means copy is a table (saves a type op for recursive calls)
meta = meta or getmetatable(copy)
if self and #copy > 1 then--preserves length with empty strings; developed from studying http://www.lua.org/source/5.1/ltable.c.html
local n, null, i, e = #copy, {}, math.ldexp(2, select(2, math.frexp(#copy)) - 2)
e, spec[MBi._cc], parent[null] = i - 1, null, clear
for k = 1, e do table.insert(clear, false) end
while i<=n do table.insert(clear, i, '') i, null[i] = i + math.ldexp(2, select(2, math.frexp(n - i)) - 2), '' end
for k = 1, e do rawset(clear, k, nil) end
end
for k, v in next, copy do rawset(clear, k, type(v)=='table' and MBi._cc(false, 0, v) or v) end
elseif copy then rawset(clear, 1, (Valid(copy))) end
rawkey[setmetatable(clear, meta)], parent[clear] = rawkey[copy], parent[copy]
end
return self and rawset(self, 'last_concat', nil) or clear
end,
_parent = function(self, ...) return parent[self] and MBi._(self, parent[self]:_str(...)) or self end,
getParent = function(self, ...) return isMBfunc(parent[self] or parent[parent(self, setmetatable({}, MB))], ...) end,
killParent = function(self, ...) return parent[self] and isMBfunc(parent[self], ...) and parent(self) or self end,
_build = function(self, t) table.insert(t, self()) end,--for compatibility with mw.html:node()
last_concat = false--prevent library check
}, {__index = function(t, i)--import string, mw.text, and mw.ustring libraries on an as-needed basis
local func = string[i] or mw.text[i] or mw.ustring[i] or type(i)=='string' and mw.ustring[i:match'^u(.+)'] if func then
lib = lib or function (s, f, ...)
if parent[s] and next(s)==nil then return s:_((f(tostring(parent[Element and (spec[s]==Element and s:allDone() or spec[parent[s]]==Element and parent[s]) or s]), ...))) end
return f(tostring(s), ...)--not using ternary/logical operators here to allow multiple return values
end
return rawset(t, i, i:match'^u?gsub' and function(self, p, r, ...)return lib(self, func, p, r or '', ...)end--Why are ugsub/gsub special? because empty strings are against my religion!
or function(self, ...)return lib(self, func, ...)end)[i]
end
end})
end

function MBmix(t, v, ...) return v and ((type(v)~='table' or getmetatable(v)) and MBi._(t, v) or (select('#', ...)==0 and spec[t] and spec[t]._add or MBi._all)(t, v, ...)) or t end--:_all always passes two args

local _G, new_G = _G--localize _G for console testing (console _G ~= module _G)
return setmetatable({__index = function(t, i) return spec[t] and spec[t][i] or MBi[i] end,
__call = function(t, ...)
local rawsep, sep, i, j, raw = noCache and rawkey[...] and ..., ...
if i or j or rawsep or Valid(sep) then
raw, sep, i, j = rawkey[spec[t]] or rawkey[t], rawsep or Valid(sep), i and (i~=tonumber(i) and i + #t or i), j and (j~=tonumber(j) and j + #t or j)
if rawsep or raw and (raw>=(j or #t) or i < 1) then
raw, i, j = {}, i and math.floor(i), j and math.floor(j)--floor for consistency with table.concat(t, sep, i, j), which ignores decimals
raw.lc, t.last_concat = t.last_concat--temporarily unset last_concat to prevent disqualification from mapless iteration
for k, v in MBpairs(t) do
if raw[1] or not i or k>=i then if j and k > j then break end
if raw.s then raw.s = table.insert(raw, tostring(sep)) end--if sep contains v and v is a Buffer-variable, sep must be strung before v
k = Valid(v) if k then
raw.s = rawsep or sep and raw[1] and table.insert(raw, sep)
table.insert(raw, k)
end
end
end
if rawsep and not raw.s then raw[#raw] = unbuild(sep) end--unbuild rawsep if final index in t was invalid
t.last_concat = raw.lc return table.concat(raw)
end
return table.concat(t, sep, i and math.max(i, 1), j and math.min(j, #t))
end
return MB.__tostring(t)
end,
__tostring = function(t)
if t.last_concat then return t.last_concat end
local r = rawkey[spec[t]] or rawkey[t]
r = table.concat(r and r>=#t and MBi._all({}, t) or t)
return (noCache or rawset(t, 'last_concat', r)) and r
end,
__concat = function(a, b)
if buffHTML then
for k = 1, 2 do local v = select(k, a, b)--faster than for k, v in pairs{a, b} do
if v and spec[v] and spec[v]==Element then
if parent[v].selfClosing then
if rawequal(a, b) then return (not noCache or parent[v].tagName) and v:_str(0):rep(2) or v:_str(0)..v:_str(0) end--rawequal avoids premature tostring of Buffer:_var objects;
b, a = select(k, b, parent[v], a)
else local temp = Element .. v --helper method; returns a mirror of parent[v]
MBmix(MBmix(parent(temp.nodes, temp), a), k==1 and spec[b]==Element and parent[b] or b)
return buffHTML.__tostring(setmetatable(temp, {__index=parent[v], __mode='v'}))--switch from tempMeta to avoid MBi._cc op of styles/attributes
end
end
end
end
return table.concat(MBmix(MBmix({}, a), b))
end,
__pairs = MBpairs,
__ipairs = MBpairs,
__eq = function(a, b) return tostring(a)==tostring(b) end--avoid a==b in this module; use rawequal(a,b) when they may be different Buffers (premature tostring waste ops and is bad for Buffer:_var)
}, {__tostring = function()return''end,
__call = function(self, ...) MB = MB or self
if new_G then if ... and _G and ...==_G then new_G = ... end
elseif ... and (...==_G or type(...)=='table' and (...)._G==...) then
local Nil, mG = {}, (...):getmetatable() or (...):setmetatable{}:getmetatable()
new_G, _G, gfuncs = ..., ..., {--gfuncs stored for Buffer:_inHTML; new_G is a is a Module:Buffer local declared just before the final return statement.
_G = function(self, i, ...)
local X, save = rawget(new_G, i), select('#', ...)==0 and self or ...
if i and i~=true and not (X and save and rawequal(X, save)) and rawset(new_G, i, save) and (X~=nil or save==nil and new_G[i]~=nil) then--rawequal in case X is another buffer
local mG = getmetatable(new_G) or {__call=mG.__call}
if mG.__index then pcall(rawset, mG.__index, i, X)
else mG.__index = setmetatable(new_G, mG) and {[i] = X} end
end
return self, ...--avoiding __eq with rawequal(self,save) is overkill since buffers can self-save without being passed as save
end,
_R = function(self, i, v, m)
if i~='new_G' then if i and i~=true then rawset(new_G, i , v) end
elseif not v or v==true or v._G~=_G then new_G = setmetatable(v~=true and v or {}, {__call = mG.__call, __index = v~=true and m~=true and (m or new_G) or nil})
else new_G, (not m and (m~=nil or v==new_G) and Nil or getmetatable(v)).__index = v, m~=true and (m or new_G) or nil end--setting Nil.__index is noOp
return self
end,
_2 = function(self, ...)
if new_G[...]~=nil then return new_G[...] end--higher priority so Buffer:_G('new_G', ...) can prevent an overwrite
if ...=='new_G' then return rawset((select('#', ...)~=1 and MBi._R(new_G, ...) or new_G), '_G', _G) end
return select(select('#', ...)==1 and 1 or 2, self:_G(...))--return only one value; 'return select(2, self:_G(...)) or self' doesn't work for returning nil
end,
_B = function(self, v) return v or v==nil and Nil end
} for k, v in next, gfuncs do MBi[k] = v end
setmetatable(Nil,{__concat=MB.__concat,__newindex=noOp,__call=noOp,__tostring=noOp,__metatable=MB,__index=setmetatable({_B=MBi._B,_=function()return Nil end,last_concat=''},
{__index=function(t,i)return (MBi[i] or i and not tonumber(i)) and t._ or nil end})})
function mG.__call(G, k, ...) return (k._G or G.type(k)=='table') and (G.select('#', ...)~=1 and G.rawset(k, ...) or G:rawset(..., k) and k) or G:rawset(k, (...)) and ... end
end
local new = setmetatable({}, self)
if ... and (...)==new_G then return select(2, ...) and MBmix(new:_G((select(2, ...))), select(3, ...)) or new end
return ... and MBi._(new, ...) or new
end,
__index = function(t, i)
MB = MB or t return MBi[i] and function(...) return MBi[i](setmetatable({}, t), select(...==t and 2 or 1,...)) end
end
})

Template:Asbox

2026-05-11T08:16:25Z

Indicwiki: 1 revision imported

#REDIRECT [[Template:Article stub box]]

{{Redirect category shell|
{{R from move}}
{{R from modification}}
{{R from template shortcut}}
}}

Template:Taxonomy/Osteichthyes

2026-05-11T08:16:25Z

Indicwiki: 1 revision imported

<noinclude>{{pp-template}}{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=cladus
|link=Osteichthyes
|parent=Eugnathostomata
|refs=
}}

Template:Taxonomy

2026-05-11T08:16:23Z

Indicwiki: 1 revision imported

<includeonly>{{#if:{{{rank|}}}|
{{!}} {{anglicise rank|{{{rank|}}}}}:
{{!}} <div style="display:inline" class="{{lc:{{anglicise rank|{{{rank}}} }} }}">{{#invoke:string|replace|{{{link}}}|. |. |count=1}}</div>{{#if:{{{auth|}}}
|<br /><div style="font-size: 85%;">{{{auth}}}</div>}}
{{!}}-
}}</includeonly><noinclude>{{documentation}}</noinclude>

Template:Taxon italics

2026-05-11T08:16:23Z

Indicwiki: 1 revision imported

{{#invoke:TaxonItalics|main|{{{1|<noinclude>Homo sapiens</noinclude>}}}|abbreviated={{{abbreviated|no}}}|linked={{{linked|no}}}}}<noinclude>
{{Documentation}}
</noinclude>

Template:Taxon info

2026-05-11T08:16:23Z

Indicwiki: 1 revision imported

{{#invoke:Autotaxobox|taxonInfo|{{{1|<noinclude>Acacia</noinclude>}}}|{{{2|<noinclude>parent</noinclude>}}}}}<noinclude>{{documentation}}</noinclude>

Template:Taxobox/species

2026-05-11T08:16:23Z

Indicwiki: 1 revision imported

{{#if:{{{2|}}}|
! colspan = 2 {{!}} <div style = "text-align: center">[[Conservation status]]</div>
{{!}}-
{{!}} colspan = 2 {{!}} <div style = "text-align: center">{{#if:{{{1|}}}|{{#switch:{{{1}}} | iucn2.3 | IUCN2.3 = {{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3|}}}}}| iucn | IUCN | iucn3.1 | IUCN3.1 = {{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3|}}}}}| epbc | EPBC = {{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3|}}}}}| tnc | TNC | natureserve | NatureServe ={{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3|}}}}}| esa | ESA ={{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3|}}}}} | cosewic | COSEWIC = {{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3|}}}}} | decf | DECF = {{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3|}}}}} | CITES | cites = {{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3}}}|{{{colour|}}}}}| nztcs | NZTCS = {{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3}}}|{{{colour|}}}}}| CNCFLORA | cncflora |CNCFlora = {{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3}}}}}
| NSWBCA = {{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3}}}}}
| qldnca | QLDNCA = {{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3}}}}}
| rlsap | RLSAP |sanbi |SANBI = {{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3}}}}}
|TPWCA |tpwca = {{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3}}}}}|{{#invoke:Conservation status|status|{{{1}}}|{{{2}}}|{{{3}}}}}
}}
| {{#switch:{{{2}}}
| EX
| ex = [[Extinction|Extinct]]{{#switch:{{{extinction_date|}}}|y|yes|true|=| ({{{extinction_date}}})}}
| EW
| ew = [[Extinction|Extinct]] in the wild {{#ifeq: {{NAMESPACEE}} | {{ns: 0}} | [[Category:Species extinct in the wild]][[Category:Taxoboxes needing a status system parameter]]|}}
| CR
| cr = [[Critically endangered species|Critically endangered]] {{#ifeq: {{NAMESPACEE}} | {{ns: 0}} | [[Category:Critically endangered species]][[Category:Taxoboxes needing a status system parameter]]|}}
| EN
| en = [[Endangered species|Endangered]] {{#ifeq: {{NAMESPACEE}} | {{ns: 0}} | [[Category:Endangered species]][[Category:Taxoboxes needing a status system parameter]]|}}
| VU
| vu = [[Vulnerable species|Vulnerable]] {{#ifeq: {{NAMESPACEE}} | {{ns: 0}} | [[Category:Vulnerable species]][[Category:Taxoboxes needing a status system parameter]]|}}
| NT
| nt = [[Near Threatened]] {{#ifeq: {{NAMESPACEE}} | {{ns: 0}} | [[Category:Near threatened species]][[Category:Taxoboxes needing a status system parameter]]|}}
| LC
| lc = [[Least Concern]] {{#ifeq: {{NAMESPACEE}} | {{ns: 0}} | [[Category:Least concern species]][[Category:Taxoboxes needing a status system parameter]]|}}
| SE
| se
| SECURE
| Secure
| secure = Secure {{#ifeq: {{NAMESPACEE}} | {{ns: 0}} | [[Category:Taxoboxes needing a status system parameter]]|}}
| DD
| dd = [[Data deficient|Data Deficient]] {{#ifeq: {{NAMESPACEE}} | {{ns: 0}} | [[Category:Taxoboxes needing a status system parameter]]|}}
| DOM
| dom
| DOMESTICATED
| Domesticated
| domesticated = Domesticated {{#ifeq: {{NAMESPACEE}} | {{ns: 0}} | [[Category:Domesticated animals]]|}}

| {{{2}}} {{#ifeq: {{NAMESPACEE}} | {{ns: 0}} |[[Category:Invalid conservation status]]|}}
}}<small>{{{3|}}}</small>
}}</div>
}}<noinclude>{{documentation}}</noinclude>

Template:Speciesbox/trim

2026-05-11T08:16:22Z

Indicwiki: 1 revision imported

{{if empty|{{#invoke:String|match|s={{{1}}}|^×?[%a%-"]+|ignore_errors=true}}|{{#invoke:String|match|s={{{1}}}|^× [%a%-"]+|ignore_errors=true}}}}<noinclude>{{Documentation}}</noinclude>

Template:Speciesbox/parameterCheck

2026-05-11T08:16:22Z

Indicwiki: 1 revision imported

<noinclude>{{pp-template|small=yes}}</noinclude>{{#ifeq:{{NAMESPACENUMBER}}|0|{{#if:{{{1|}}}|{{#if:{{{2|}}}{{{3|}}}|[[Category:Speciesboxes with incorrect parameters specifying the taxon]]|{{Speciesbox/checkgenus|{{Speciesbox/getGenus|{{{1}}}|}}}}}}|{{#if:{{{2|}}}|{{#if:{{{3|}}}|{{Speciesbox/checkgenus|{{{2}}}}}|[[Category:Speciesboxes with incorrect parameters specifying the taxon]]}}|{{#if:{{{3|}}}|[[Category:Speciesboxes with incorrect parameters specifying the taxon]]|[[Category:Speciesboxes relying on page title]]}}}}}}}}<noinclude>{{documentation}}</noinclude>

Template:Speciesbox/name

2026-05-11T08:16:22Z

Indicwiki: 1 revision imported

<noinclude></noinclude><includeonly>{{#invoke:Automated taxobox|speciesboxName|{{{1|}}}|{{{2|}}}|{{{3|}}}|{{{4|}}}|{{{5|}}}|{{{6|}}}}}</includeonly><noinclude>{{documentation}}</noinclude>

Template:Speciesbox/getSpecies

2026-05-11T08:16:22Z

Indicwiki: 1 revision imported

<noinclude>{{pp-template|small=yes}}</noinclude>{{#if:{{{1|}}}|{{remove first word|{{{1}}}}}|{{#if:{{{2|}}}|{{{2}}}|{{remove first word|<includeonly>{{PAGENAME}}</includeonly><noinclude>Acacia aemula</noinclude>}}}}}}

Template:Speciesbox/getGenus

2026-05-11T08:16:22Z

Indicwiki: 1 revision imported

{{#if:{{{1|}}}|{{first word|{{{1}}}}}|{{#if:{{{2|}}}|{{{2}}}|{{first word|<includeonly>{{PAGENAME}}</includeonly><noinclude>Acacia aemula</noinclude>}}}}}}

Template:Speciesbox

2026-05-11T08:16:21Z

Indicwiki: 1 revision imported

<noinclude></noinclude><nowiki/>{{Taxobox/core<includeonly>
| edit link = {{if empty|{{{edit link|}}}|{{{edit_link|}}}|edit}}</includeonly><noinclude></noinclude>
| temporal_range = {{#if:{{{fossil_range|}}}{{{fossil range|}}}|{{#iferror:{{geological range|{{if empty|{{{temporal_range|}}}|{{{temporal range|}}}|{{{fossil_range|}}}|{{{fossil range|}}}}} }}|{{if empty|{{{temporal_range|}}}|{{{temporal range|}}}|{{{fossil_range|}}}|{{{fossil range|}}}}}|{{geological range|{{if empty|{{{temporal_range|}}}|{{{temporal range|}}}|{{{fossil_range|}}}|{{{fossil range|}}}}} }} }} | {{#if:{{{oldest fossil|}}}{{{oldest_fossil|}}}|{{geological range|{{if empty|{{{oldest fossil|}}}|{{{oldest_fossil}}}}}|{{if empty|{{{youngest fossil|}}}|{{{youngest_fossil|}}}|Recent}} }} }} }}<noinclude></noinclude>
| parent = <includeonly>{{{parent|{{Speciesbox/getGenus|{{{taxon|}}}|{{{genus|}}}}}}}}</includeonly><noinclude>Acacia</noinclude>
| display_taxa = {{#expr:{{if empty|{{{display parents|}}}|{{{display_parents|}}}|1}}-1}}<noinclude></noinclude>
| authority = {{{authority|}}}
| parent_authority = {{if empty|{{{parent_authority|}}}|{{{parent authority|}}}}}
| grandparent_authority = {{if empty|{{{grandparent_authority|}}}|{{{grandparent authority|}}}}}
| greatgrandparent_authority = {{if empty|{{{greatgrandparent_authority|}}}|{{{greatgrandparent authority|}}}}}
| greatgreatgrandparent_authority = {{if empty|{{{greatgreatgrandparent_authority|}}}|{{{greatgreatgrandparent authority|}}}}}
| greatgreatgreatgrandparent_authority = {{if empty|{{{greatgreatgreatgrandparent_authority|}}}|{{{greatgreatgreatgrandparent authority|}}}}}
| offset = 1
<noinclude></noinclude>
| name = {{Speciesbox/name|{{if empty|{{{name|}}}|<noinclude>''Acacia aemula''</noinclude>}}|{{{taxon|}}}|{{{genus|}}}|{{{species|}}}|{{PAGENAMEBASE}}|{{if empty|{{{italic_title|}}}|{{{italic title|}}}|yes}}}}<noinclude></noinclude>
| colour = {{#if:{{{color_as|}}}{{{colour_as|}}}{{{color as|}}}{{{colour as|}}}|{{Taxobox colour|{{if empty|{{{color_as|}}}|{{{colour_as|}}}|{{{color as|}}}|{{{colour as|}}}}}}}|{{#invoke:Autotaxobox|taxoboxColour|<includeonly>{{{parent|{{Speciesbox/getGenus|{{{taxon|}}}|{{{genus|}}}}}}}}</includeonly><noinclude>Acacia</noinclude> }} }}
| status = {{{status|}}}
| status_system = {{if empty|{{{status system|}}}|{{{status_system|}}}}}
| status_ref = {{if empty|{{{status ref|}}}|{{{status_ref|}}}}}
| status2 = {{{status2|}}}
| status2_system = {{if empty|{{{status2 system|}}}|{{{status2_system|}}}}}
| status2_ref = {{if empty|{{{status2 ref|}}}|{{{status2_ref|}}}}}
| status3 = {{{status3|}}}
| status3_system = {{if empty|{{{status3 system|}}}|{{{status3_system|}}}}}
| status3_ref = {{if empty|{{{status3 ref|}}}|{{{status3_ref|}}}}}
| trend = {{{trend|}}}
| image = {{{image|}}}
| upright = {{if empty|{{{image_upright|}}}|{{{image upright|}}}}}
| image_alt = {{if empty|{{{image alt|}}}|{{{image_alt|}}}}}
| image_caption = {{if empty|{{{image caption|}}}|{{{image_caption|}}}}}
| image2 = {{{image2|}}}
| upright2 = {{if empty|{{{image2_upright|}}}|{{{image2 upright|}}}}}
| image2_alt = {{if empty|{{{image2 alt|}}}|{{{image2_alt|}}}}}
| image2_caption = {{if empty|{{{image2 caption|}}}|{{{image2_caption|}}}}}
| classification_status = {{if empty|{{{classification status|}}}|{{{classification_status|}}}}}
| diversity = {{{diversity|}}}
| diversity_ref = {{if empty|{{{diversity ref|}}}|{{{diversity_ref|}}}}}
| diversity_link = {{if empty|{{{diversity link|}}}|{{{diversity_link|}}}}}
| extinct = {{{extinct|}}}
| species = {{#if:{{{extinct|}}}|&dagger;|{{#ifeq:{{{status|}}}|EX|&dagger;|{{Taxon info|<includeonly>{{Speciesbox/getGenus|{{{taxon|}}}|{{{genus|}}}}}</includeonly><noinclude>Acacia</noinclude>|dagger}}}}}}'''{{taxon italics|abbreviated=yes|<includeonly>{{Speciesbox/trim|{{Speciesbox/getGenus|{{{taxon|}}}|{{{genus|}}}}}}} {{Speciesbox/getSpecies|{{{taxon|}}}|{{{species|}}}}}</includeonly><noinclude>Acacia aemula</noinclude>}}'''
| binomial = <span style="font-weight:normal;">{{#if:{{{extinct|}}}|&dagger;|{{#ifeq:{{{status|}}}|EX|&dagger;|{{Taxon info|<includeonly>{{Speciesbox/getGenus|{{{taxon|}}}|{{{genus|}}}}}</includeonly><noinclude>Acacia</noinclude>|dagger}}}}}}</span>{{taxon italics|<includeonly>{{Speciesbox/trim|{{Speciesbox/getGenus|{{{taxon|}}}|{{{genus|}}}}}}} {{Speciesbox/getSpecies|{{{taxon|}}}|{{{species|}}}}}</includeonly><noinclude>Acacia aemula</noinclude>}}
| binomial_authority = {{if empty|{{{authority|}}}|{{{binomial authority|}}}|{{{binomial_authority|}}}}}
| subdivision = {{{subdivision|}}}
| subdivision_ranks = {{if empty|{{{subdivision ranks|}}}|{{{subdivision_ranks|}}}|Subspecies}}
| subdivision_ref = {{if empty|{{{subdivision_ref|}}}|{{{subdivision ref|}}}}}
| type_strain = {{if empty|{{{type strain|}}}|{{{type_strain|}}}}}
| type_strain_ref = {{if empty|{{{type_strain_ref|}}}|{{{type strain ref|}}}}}
| range_map = {{if empty|{{{range map|}}}|{{{range_map|}}}}}
| range_map_upright = {{if empty|{{{range_map_upright|}}}|{{{range map upright|}}}}}
| range_map_alt = {{if empty|{{{range map alt|}}}|{{{range_map_alt|}}}}}
| range_map_caption = {{if empty|{{{range map caption|}}}|{{{range_map_caption|}}}}}
| range_map2 = {{if empty|{{{range map2|}}}|{{{range_map2|}}}}}
| range_map2_upright = {{if empty|{{{range_map2_upright|}}}|{{{range map2 upright|}}}}}
| range_map2_alt = {{if empty|{{{range map2 alt|}}}|{{{range_map2_alt|}}}}}
| range_map2_caption = {{if empty|{{{range map2 caption|}}}|{{{range_map2_caption|}}}}}
| range_map3 = {{if empty|{{{range map3|}}}|{{{range_map3|}}}}}
| range_map3_upright = {{if empty|{{{range_map3_upright|}}}|{{{range map3 upright|}}}}}
| range_map3_alt = {{if empty|{{{range map3 alt|}}}|{{{range_map3_alt|}}}}}
| range_map3_caption = {{if empty|{{{range map3 caption|}}}|{{{range_map3_caption|}}}}}
| range_map4 = {{#invoke:Infobox mapframe|autoWithCaption}}
| synonyms_ref = {{if empty|{{{synonyms ref|}}}|{{{synonyms_ref|}}}}}
| synonyms = {{{synonyms|}}}
}}{{Speciesbox/parameterCheck|{{{taxon|}}}|{{{genus|}}}|{{{species|}}}}}{{#invoke:Check for unknown parameters|check|unknown={{main other|[[Category:Pages using speciesbox with unknown parameters|_VALUE_{{PAGENAME}}]]}}|preview=Page using [[Template:Speciesbox]] with unknown parameter "_VALUE_"|ignoreblank=y| mapframe_args = y | authority | binomial authority | binomial_authority | classification status | classification_status | color as | color_as | colour as | colour_as | display parents | display_parents | diversity | diversity link | diversity ref | diversity_link | diversity_ref | edit link | edit_link | extinct | fossil range | fossil_range | genus | grandparent authority | grandparent_authority | greatgrandparent authority | greatgrandparent_authority | greatgreatgrandparent authority | greatgreatgrandparent_authority | greatgreatgreatgrandparent authority | greatgreatgreatgrandparent_authority | image | image alt | image caption | image upright | image_alt | image_caption | image_upright | image2 | image2 alt | image2 caption | image2 upright | image2_alt | image2_caption | image2_upright | italic title | italic_title | name | oldest fossil | oldest_fossil | parent | parent authority | parent_authority | range map | range map alt | range map caption | range map upright | range map2 | range map2 alt | range map2 caption | range map2 upright | range map3 | range map3 alt | range map3 caption | range map3 upright | range_map | range_map_alt | range_map_caption | range_map_upright | range_map2 | range_map2_alt | range_map2_caption | range_map2_upright | range_map3 | range_map3_alt | range_map3_caption | range_map3_upright | species | status | status ref | status system | status_ref | status_system | status2 | status2 ref | status2 system | status2_ref | status2_system | status3 | status3_ref | status3_system | subdivision | subdivision ranks | subdivision ref | subdivision_ranks | subdivision_ref | synonyms | synonyms ref | synonyms_ref | taxon | temporal range | temporal_range | trend | type strain | type strain ref | type_strain | type_strain_ref | youngest fossil | youngest_fossil }}{{#invoke:Check for conflicting parameters|check
| template = [[Template:Speciesbox]]
| cat = {{main other|Category:Pages using speciesbox with conflicting parameters}}
| edit link; edit_link
| temporal_range; temporal range; fossil_range; fossil range
| oldest fossil; oldest_fossil
| youngest fossil; youngest_fossil
| display parents; display_parents
| authority; binomial authority; binomial_authority
| parent_authority; parent authority
| grandparent_authority; grandparent authority
| greatgrandparent_authority; greatgrandparent authority
| greatgreatgrandparent_authority; greatgreatgrandparent authority
| greatgreatgreatgrandparent_authority; greatgreatgreatgrandparent authority
| italic_title; italic title
| color_as; colour_as; color as; colour as
| status system; status_system
| status ref; status_ref
| status2 system; status2_system
| status2 ref; status2_ref
| image_upright; image upright
| image alt; image_alt
| image caption; image_caption
| image2_upright; image2 upright
| image2 alt; image2_alt
| image2 caption; image2_caption
| classification status; classification_status
| diversity ref; diversity_ref
| diversity link; diversity_link
| subdivision ranks; subdivision_ranks
| subdivision_ref; subdivision ref
| type strain; type_strain
| type_strain_ref; type strain ref
| range map; range_map
| range_map_upright; range map upright
| range map alt; range_map_alt
| range map caption; range_map_caption
| range map2; range_map2
| range_map2_upright; range map2 upright
| range map2 alt; range_map2_alt
| range map2 caption; range_map2_caption
| range map3; range_map3
| range_map3_upright; range map3 upright
| range map3 alt; range_map3_alt
| range map3 caption; range_map3_caption
| synonyms ref; synonyms_ref
}}<noinclude>
{{documentation}}</noinclude>

Module:Taxonbar/conf

2026-05-11T08:16:19Z

Indicwiki: 1 revision imported

local p = {}

--Database entry format: { 'parameter name', 'label to display', propertyId in Wikidata or 'URL' }
--
-----------------------------------------------------------------------------------------------
--| If propertyId is... | then... |
--|------------------------|------------------------------------------------------------------|
--| a Wikidata property ID | it must be a number without quotes |
--| an external URL | it must be in quotes and begin with http://, https://, or // |
--| | The ID should be represented by $1 |
--| | (e.g. 'https://en.wikipedia.org/wiki/$1') |
--| an interwiki URL | put the interwiki name, a colon, and $1 in quotes (e.g. 'en:$1') |
--| set to 0 | that database won't show unless forced; taxon link suppressed |
--| set to its negative | that database won't show unless forced; taxon link allowed |
-----------------------------------------------------------------------------------------------
p.databases = {
{ 'Wikidata', '[[Wikidata]]', 'Wikidata:$1' }, --for ordering purposes: 1st
{ 'Wikispecies', '[[Wikispecies]]', 'Wikispecies:$1' }, --for ordering purposes: 2nd (if available)

--Wikidata properties for identifing taxa
{ 'ABA', '[[American Birding Association|ABA]]', 4526 },
{ 'ADW', '[[Animal Diversity Web|ADW]]', 4024 },
{ 'AFD', '[[Australian Faunal Directory|AFD]]', 6039 },
{ 'AfroMoths', 'AfroMoths', 6093 }, ---[[AfroMoths]] DNE as of 2/2026
{ 'AlgaeBase', '[[AlgaeBase]]', 1348 },
{ 'AmphibiaWeb', '[[AmphibiaWeb]]', 5036 },
{ 'AntWeb', '[[AntWeb]]', 5299 },
{ 'AoI', 'AoI', 5003 }, ---[[Amphibians of India]] DNE as of 2/2026
{ 'AoFP', 'AoFP', 6159 }, ---[[Atlas of Florida Plants]] DNE as of 2/2026
{ 'APA', 'APA', 6137 }, ---[[Alabama Plant Atlas]] DNE as of 2/2026
{ 'APDB', 'APDB', 2036 }, ---[[African Plant Database]] DNE as of 2/2026
{ 'Aphid Species File', 'Aphid Species File' , 12767}, ---[[Aphid Species File]] DNE as of 2/2026
{ 'APNI', '[[Australian Plant Name Index|APNI]]', 5984 },
{ 'APSA', 'APSA', 2809 }, ---[[Australasian Pollen and Spore Atlas]] DNE as of 2/2026
{ 'Araneae', 'Araneae', 3594 }, ---[[]] DNE as of 2/2026
-- { 'ARKive', '[[ARKive]]', 2833 }, --went dead in 2019; the archived links provided by Wikidata don't link to content
{ 'ASW', '[[Amphibian Species of the World|ASW]]', 5354 },
-- { 'ALA', '[[Atlas of Living Australia]]', 7051 },
{ 'ATRF', '[[Australian Tropical Rainforest Plants|ATRF]]', 6904 },
{ 'AusFungi', '[[Australian online fauna & flora databases|AusFungi]]', 9076 },
{ 'AusLichen', '[[Australian online fauna & flora databases|AusLichen]]', 9093 },
{ 'Avibase', '[[Avibase]]', 2026 },
{ 'BacDive', '[[BacDive]]', 2946 },
{ 'Bamona', 'BAMONA', 3398 }, ---[[Butterflies and Moths of North America]] DNE as of 2/2026
{ 'BHL', '[[Biodiversity Heritage Library|BHL]]', 687 },
{ 'BioLib', 'BioLib', 838 }, ---[[BioLib]] DNE as of 2/2026
{ 'BirdLife', '[[BirdLife International|BirdLife]]', 5257 },
{ 'BirdLife-Australia', '[[BirdLife Australia|BirdLife-Australia]]', 6040 },
{ 'BOLD', '[[Barcode of Life Data System|BOLD]]', 3606 },
{ 'bow', '[[Birds of the World|BOW]]', 3444 }, --uses eBird identifier (a common identifier for all Cornell Ornithology Labs databases)
{ 'BTO', '[[British Trust for Ornithology|BTO]]', 4798 }, --BTO Birds of Britain ID (links to page that includes the code)
-- { 'BTO', '[[British Trust for Ornithology|BTO]]', 4567 }, --BTO five-letter code (no link)
{ 'BugGuide', '[[BugGuide]]', 2464 },
{ 'ButMoth', 'ButMoth', 3060 },
{ 'Calflora', 'Calflora', 3420 }, ---[[Calflora]] DNE as of 2/2026, but [[Draft:Calflora]] available
{ 'Cal-IPC', 'Cal-IPC', 6176 }, ---[[California Invasive Plant Council]] DNE as of 2/2026
{ 'CoL', '[[Catalogue of Life|CoL]]', 10585 },
{ 'Center', '[[Center for Biological Diversity|Center]]', 6003 },
{ 'CMS', '[[Convention on the Conservation of Migratory Species of Wild Animals|CMS]]', 6033 },
{ 'CNPS', '[[California Native Plant Society|CNPS]]', 4194 },
{ 'Cockroach Species File', 'Cockroach Species File (old)', 6052 }, ---[[Cockroach Species File]] DNE as of 2/2026
{ 'Cockroach Species File New', 'Cockroach Species File (new)', 12817 }, ---[[Cockroach Species File]] DNE as of 2/2026
{ 'Coleorrhyncha Species File', 'Coleorrhyncha Species File' , 12771}, ---[[Coleorrhyncha Species File]] DNE as of 2/2026
{ 'Conifers', 'Conifers.org', 1940 }, ---[[Conifers.org]] DNE as of 2/2026
{ 'COOL', 'COOL', 6408 }, ---[[Cercopoidea Organised On Line|COOL]] DNE as of 2/2026
{ 'Coreoidea Species File', 'Coreoidea Species File', 6053 }, ---[[Coreoidea Species File]] DNE as of 2/2026
{ 'Dermaptera Species File', 'Dermaptera Species File', 12750 }, ---[[Dermaptera Species File]] DNE as of 2/2026
{ 'eBird', '[[eBird]]', 3444 },
{ 'Ecocrop', '[[Ecocrop]]', 4753 },
{ 'ECOS', 'ECOS', 6030 }, ---[[Environmental Conservation Online System]] DNE as of 2/2026
{ 'eFloraSA', '[[State Herbarium of South Australia|eFloraSA]]', 6933 },
{ 'Embioptera Species File', 'Embioptera Species File', 12751 }, ---[[Embioptera Species File]] DNE as of 2/2026
{ 'EoL', '[[Encyclopedia of Life|EoL]]', 830 },
{ 'EPPO', '[[EPPO Code|EPPO]]', 3031 },
{ 'EUNIS', '[[European Nature Information System|EUNIS]]', 6177 },
{ 'EURING', '[[European Union for Bird Ringing|EURING]]', 3459 },
{ 'Euro+Med PlantBase', 'Euro+Med PlantBase', 12380 }, ---[[Euro+Med PlantBase]] DNE as of 2/2026
{ 'FaunaEuropaea', '[[Fauna Europaea]]', 1895 },
{ 'FaunaEuropaeaNew', '[[Fauna Europaea|Fauna Europaea (new)]]', 4807 },
{ 'FEIS', 'FEIS', 6044 }, ---[[Fire Effects Information System]] DNE as of 2/2026
{ 'Featherbase', 'Featherbase', 12589 }, ---[[Featherbase]] DNE as of 2/2026
{ 'FishBase', '[[FishBase]]', 938 },
{ 'FloraBase', '[[FloraBase]]', 3101 },
{ 'FLOW', 'FLOW', 6096 }, ---[[Fulgoromorpha Lists On the Web]] DNE as of 2/2026
{ 'FNA', '[[Flora of North America|FNA]]', 1727 },
{ 'FoAO', '[[Flora of Australia|FoAO]]', 3100 }, --old
{ 'FoAO2', '[[Flora of Australia|FoAO2]]', 6756 }, --new
{ 'FoC', '[[Flora of China (series)|FoC]]', 1747 },
{ 'FoIO', 'FoIO', 3795 }, ---[[Flora of Israel Online]] DNE as of 2/2026, he.wiki link interferes with display
-- { 'Fossilworks', '[[Fossilworks]]', 842 }, --site dead (on 1 Apr 2024)
-- { 'Freebase', '[[Freebase (database)|Freebase]]', 646 }, --closed in 2015
{ 'GBIF', '[[Global Biodiversity Information Facility|GBIF]]', 846 },
{ 'GISD', '[[Global Invasive Species Database|GISD]]', 5626 },
{ 'GNAB', 'GNAB', 4715 }, ---[[Guide to North American Birds]] DNE as of 2/2026
{ 'GONIAT', 'GONIAT', 5216 }, ---[[GONIAT]] DNE as of 2/2026
{ 'GrassBase', '[[GrassBase]]', 1832 },
{ 'GRIN', '[[Germplasm Resources Information Network|GRIN]]', 1421 },
{ 'Grylloblattodea Species File', 'Grylloblattodea Species File' , 12768}, ---[[Grylloblattodea Species File]] DNE as of 2/2026
{ 'IBC', '[[Handbook of the Birds of the World|IBC]]', 3099 },
-- { 'ICTV', '[[International Committee on Taxonomy of Viruses|ICTV]]', 1076 }, ---currently unavailable and a new wididata identifier will be needed for the new taxon id
{ 'IFPNI', '[[International Fossil Plant Names Index|IFPNI]]', 6341 },
{ 'iNaturalist', '[[iNaturalist]]', 3151 },
{ 'IndexFungorum', '[[Index Fungorum|IndexFungorum]]', 1391 },
{ 'Insecta.pro', 'Insecta.pro', 7224 }, ---[[Insects (Insecta) of the World]] DNE as of 2/2026
{ 'IPA', 'IPA', 6161 }, ---[[Invasive Plant Atlas of the United States]] DNE as of 2/2026
{ 'IPNI', '[[International Plant Names Index|IPNI]]', 961 },
{ 'IRMNG', '[[Interim Register of Marine and Nonmarine Genera|IRMNG]]', 5055 },
{ 'ISC', '[[Invasive Species Compendium|ISC]]', 5698 },
{ 'Isoptera Species File', 'Isoptera Species File', 12752 }, ---[[Isoptera Species File]] DNE as of 2/2026
{ 'ITIS', '[[Integrated Taxonomic Information System|ITIS]]', 815 },
{ 'IUCN', '[[IUCN Red List|IUCN]]', 627 },
{ 'LepIndex', '[[The Global Lepidoptera Names Index|LepIndex]]', 3064 },
{ 'LoB', 'LoB', 5862 }, ---[[Catalogue of Lepidoptera of Belgium]] DNE as of 2/2026
{ 'LPSN', '[[List of Prokaryotic names with Standing in Nomenclature|LPSN]]', 1991 },
{ 'Lygaeoidea Species File', 'Lygaeoidea Species File (old)', 11311 }, ---[[Lygaeoidea Species File]] DNE as of 2/2026
{ 'Lygaeoidea Species File New', 'Lygaeoidea Species File (new)', 12818 }, ---[[Lygaeoidea Species File]] DNE as of 2/2026
{ 'Mantophasmatodea Species File', 'Mantophasmatodea Species File' , 12769}, ---[[Mantophasmatodea Species File]] DNE as of 2/2026
{ 'Mantodea Species File', 'Mantodea Species File', 6055 }, ---[[Mantodea Species File]] DNE as of 2/2026
{ 'MDD', '[[American Society of Mammalogists#Mammal Diversity Database|MDD]]', 12560 },
{ 'MichiganFlora', 'MichiganFlora', 6103 }, ---[[Michigan Flora]] DNE as of 2/2026
{ 'MoBotPF', '[[Missouri Botanical Garden|MoBotPF]]', 6034 },
{ 'MoL', 'MoL', 6092 }, ---[[Map of Life]] DNE as of 2/2026
{ 'MNHN', '[[National Museum of Natural History, France|MNHN]]', 6046 },
{ 'MilliBase', '[[MilliBase]]', 12271 },
{ 'MONA', '[[MONA number|MONA]]', 4758 },
{ 'MaBENA', 'MaBENA', 9608 }, ---[[Moths and Butterflies of Europe and North Africa]] DNE as of 2/2026
{ 'MSW', '[[Mammal Species of the World|MSW]]', 959 },
{ 'MycoBank', '[[MycoBank]]', 962 },
{ 'NAS', 'NAS', 6163 }, ---[[Nonindigenous Aquatic Species]] DNE as of 2/2026
{ 'NatureServe', '[[NatureServe]]', 10243 },
{ 'NBN', '[[National Biodiversity Network|NBN]]', 3240 },
{ 'NCBI', '[[National Center for Biotechnology Information|NCBI]]', 685 },
{ 'Neotropical', '[[Neotropical Birds Online|Neotropical]]', 6047 },
{ 'NOAA', '[[National Marine Fisheries Service|NOAA]]', 6049 },
{ 'NSWFlora', '[[NSWFlora]]', 3130 }, ---[[New South Wales Flora]]
{ 'NTFlora', '[[FloraNT|NTFlora]]', 5953 }, ---inconsistent property name/link
{ 'NZBO', 'NZBO', 6048 }, ---[[New Zealand Birds Online]] DNE as of 2/2026
{ 'NZOR', 'NZOR', 2752 }, ---[[New Zealand Organisms Register]] DNE as of 2/2026
{ 'NZPCN', '[[New Zealand Plant Conservation Network|NZPCN]]', 7496 },
{ 'Observation.org', '[[Observation.org]]', 6105 },
{ 'OBIS', '[[Ocean Biodiversity Information System|OBIS]]', 6754 },
{ 'ODNR', '[[Ohio Department of Natural Resources|ODNR]]', 6289 },
{ 'OTTOL', '[[Open Tree of Life]]', 9157 },
{ 'Orthoptera Species File', 'Orthoptera Species File (old)', 6050 }, ---[[Orthoptera Species File]] DNE as of 2/2026
{ 'Orthoptera Species File New', 'Orthoptera Species File (new)', 12785 }, ---[[Orthoptera Species File]] DNE as of 2/2026
{ 'Paldat', 'PalDat', 4122 }, ---[[Palynological Database]] DNE as of 2/2026
{ 'PaleobioDB', '[[Paleobiology Database]]', 10907 },
{ 'Fossilworks', '[[Paleobiology Database]]', 842 }, --will use to get identifier for PBDB if not already set
{ 'Panarctic', 'Panarctic Flora', 2434 }, ---[[Panarctic Flora]] DNE as of 2/2026
{ 'PfaF', '[[Plants for a Future|PfaF]]', 4301 },
{ 'PFI', 'PFI', 6114 }, ---[[Portal to the Flora of Italy]] DNE as of 2/2026
{ 'Phasmida Species File', 'Phasmida Species File (old)', 4855 }, ---[[Phasmida Species File]] DNE as of 2/2026
{ 'Phasmida Species File New', 'Phasmida Species File (new)', 12819 }, ---[[Phasmida Species File]] DNE as of 2/2026
{ 'Plecoptera Species File', 'Plecoptera Species File' , 12770}, ---[[Plecoptera Species File]] DNE as of 2/2026
{ 'PPE', 'PPE', 6061 }, ---[[Plant Parasites of Europe]] DNE as of 2/2026
{ 'PlantList', '[[The Plant List|Plant List]]', 1070 },
{ 'PLANTS', '[[Natural Resources Conservation Service#Plants|PLANTS]]', 1772 },
{ 'PlantZAfrica', '[[South_African_National_Biodiversity_Institute#Management_of_biodiversity_resources|PlantZAfrica]]', 12645 },
{ 'Plazi', '[[Plazi]]', 1992 },
{ 'POWO', '[[Plants of the World Online|POWO]]', 5037 },
{ 'Psocodea Species File', 'Psocodea Species File (old)', 8145 }, ---[[Psocodea Species File]] DNE as of 2/2026
{ 'Psocodea Species File New', 'Psocodea Species File (new)', 12820 }, ---[[Psocodea Species File]] DNE as of 2/2026
{ "Psyl'list", "Psyl'list", 6376 }, ---[[Psyl'list]] DNE as of 2/2026
{ 'RD', '[[Reptile Database|RD]]', 5473 },
{ 'RHS', '[[Royal Horticultural Society|RHS]]', 8765 },
{ 'SANBI', '[[South African National Biodiversity Institute|SANBI]]', 6056 },
{ 'ScaleNet', 'ScaleNet', 6516 }, ---[[ScaleNet]] DNE as of 2/2026
{ 'SCC', 'SCC', 6057 }, ---[[Systematic Catalog of Culicidae]] DNE as of 2/2026
{ 'SeaLifeBase', '[[SeaLifeBase]]', 6018 },
{ 'SEINet', 'SEINet', 6209 }, ---[[SEINet]] DNE as of 2/2026
{ 'SeqCode Registry', 'SeqCode Registry', 13490 },
{ 'Species+', '[[CITES|Species+]]', 2040 },
{ 'SpeciesFungorum', '[[Index Fungorum|SpeciesFungorum]]', 1391 },
{ 'SPRAT', '[[Species Profile and Threats Database|SPRAT]]', 2455 },
{ 'Steere', '[[New York Botanical Garden|Steere]]', 6035 },
{ 'TaiCOL', '[[:zh:臺灣物種名錄|TaiCOL]]', 12218 }, ---closest match as of 2/2026 for Catalogue of Life in Taiwan ([[:d:Q26218155]])
{ 'Taxonomicon', 'Taxonomicon', 7066 },
{ 'Tree of Life', '[[Tree of Life Web Project|Tree of Life]]', 5221 },
{ 'Tropicos', '[[Tropicos]]', 960 },
{ 'TSA', '[[:de:Tierstimmenarchiv|TSA]]', 5397 }, ---closest match as of 2/2026 ([[:d:Q2432535]])
-- { 'uBio', 'uBio', 4728 }, ---[[Universal Biological Indexer and Organizer]] DNE as of 2/2026 --defunct and dead link
{ 'VASCAN', 'VASCAN', 1745 }, ---[[Vascular Plants of Canada]] DNE as of 2/2026
{ 'VicFlora', '[[National Herbarium of Victoria|VicFlora]]', 5945 }, ---closest match as of 2/2026
{ 'Watson', 'Watson & Dallwitz', 1761 }, ---[[]] DNE as of 2/2026
{ 'White-Files', 'White-Files', 6347 }, ---[[White-Files]] DNE as of 2/2026
{ 'World Arachnid Catalog', 'WAC', 11803 }, ---[[World Arachnid Catalog]] ([[:d:Q113675145]]) DNE as of 2/2026
-- { 'WCSP', '[[World Checklist of Selected Plant Families|WCSP]]', 3591 }, --defunct and dead link (or redirects to POWO)
{ 'WiO', 'WiO', 6285 }, ---[[Weeds in Ontario]] DNE as of 2/2026
{ 'WisFlora', 'WisFlora', 6227 }, ---[[Flora of Wisconsin]] DNE as of 2/2026
{ 'WoI', 'WoI', 3746 }, ---[[Wildflowers of Israel]] DNE as of 2/2026
{ 'WFO', '[[World Flora Online|WFO]]', 7715 },
{ 'World Auchenorrhyncha DB', 'World Auchenorrhyncha DB', 12057 }, ---[[World Auchenorrhyncha Database]] DNE as of 2/2026
{ 'WoRMS', '[[World Register of Marine Species|WoRMS]]', 850 },
{ 'WSC', '[[World Spider Catalog|WSC]]', 3288 },
{ 'Xeno-canto', '[[Xeno-canto]]', 2426 },
{ 'ZooBank', '[[ZooBank]]', 1746 },
{ 'Zoraptera Species File', 'Zoraptera Species File', 12753 }, ---[[Zoraptera Species File]] DNE as of 2/2026

--URLs (parameter must be manually specified on each Wikipedia article)
-- { 'eMonocot', '[[eMonocot]]', 'http://e-monocot.org/taxon/urn:kew.org:wcs:taxon:$1' }, --defunct and dead link (or redirects to POWO)
-- { 'emonocotfamily', '[[eMonocot]]', 'http://e-monocot.org/taxon/urn:kew.org:wcs:family:$1' }, --ditto
{ 'WSC species', '[[World Spider Catalog]]', 'http://www.wsc.nmbe.ch/search?sFamily=&fMt=begin&sGenus=&gMt=begin&sSpecies=&sMt=begin&mMt=exact&multiPurpose=slsid&sMulti=$1' },
{ 'WSC genus', '[[World Spider Catalog]]', 'http://www.wsc.nmbe.ch/search?sFamily=&fMt=begin&sGenus=&gMt=begin&sSpecies=&sMt=begin&mMt=exact&multiPurpose=glsid&sMulti=$1' },
{ 'WSC family', '[[World Spider Catalog]]', 'http://www.wsc.nmbe.ch/search?sFamily=&fMt=begin&sGenus=&gMt=begin&sSpecies=&sMt=begin&mMt=exact&multiPurpose=flsid&sMulti=$1' },

--hidden by default (usually b/c !English, see [[Template:Taxonbar/doc#Excluded databases]])
{ 'CoL-Taiwan', 'CoL-Taiwan', -3088 }, ---[[]] DNE as of 2/2026 (see [[:d:Property:P12218]] for new version)
{ 'CONABIO', '[[CONABIO]]', -4902 },
{ 'CzechNDOP', '[[:cs:Agentura ochrany přírody a krajiny ČR|CzechNDOP]]', -5263 }, ---closest match as of 2/2026 ([[:d:Q8183220]])
{ 'DFCA', 'DFCA', -6115 }, ---[[Digital Flora of Central Africa]] DNE as of 2/2026
{ 'DORIS', "[[:fr:DORIS (FFESSM)|DORIS]]", -4630 }, ---closest match as of 2/2026 ([[:d:Q3036834]])
{ 'Dyntaxa', 'Dyntaxa', -1939 }, ---[[Dyntaxa]] DNE as of 2/2026
{ 'EEO', 'EEO', -6043 }, ---[[Espèces Envahissantes Outre-mer]] DNE as of 2/2026
{ 'FloraCatalana', 'FloraCatalana', -5179 }, ---[[FloraCatalana]] DNE as of 2/2026
{ 'FloraWeb', 'FloraWeb', -6094 }, ---[[FloraWeb]] DNE as of 2/2026
{ 'FOIH', '[[Flemish organization for Immovable Heritage, |FOIH]]', -4311 },
{ 'GTIBMA', 'GTIBMA', -6054 }, ---[[Groupe de travail Invasions biologiques en milieux aquatiques]] DNE as of 2/2026
{ 'Hepaticarum', 'Index Hepaticarum', -2794 }, ---[[Index Hepaticarum]] DNE; redirects to [[List of E. Schweizerbart serials]] as of 2/2026
{ 'KNSL', '[[Korean National Species List]]', -13330 },
{ 'Oiseaux', '[[:fr:Oiseaux.net|Oiseaux]]', -6025 }, ---closest match as of 2/2026 ([[:d:Q3349966]])
{ 'Plantarium', 'Plantarium', -3102 }, ---[[Plantarium]] DNE as of 2/2026
{ 'Soortenregister', '[[:nl:Nederlands Soortenregister|Soortenregister]]', -3405 }, ---closest match as of 2/2026 ([[:d:Q2246990]])
{ 'TAXREF', 'TAXREF', -3186 }, ---[[TAXREF]] DNE as of 2/2026
{ 'TelaBotanica', '[[TelaBotanica]]', -3105 },
{ 'Titan', 'Titan', -4125 }, ---[[]] DNE as of 2/2026
{ 'Verspreidingsatlas', 'Verspreidingsatlas', -6142 }, ---[[Verspreidingsatlas]] DNE as of 2/2026
{ 'Vlinderstichting', 'Vlinderstichting', -3322 }, ---[[Vlinderstichting]] DNE as of 2/2026
{ 'WikiAves', '[[WikiAves]]', -4664 },
}

--Alias entry format: { 'alias', 'parameter name in p.databases' }
p.aliases = {
{ 'AlgeaBase', 'AlgaeBase' },
{ 'FE', 'FaunaEuropaea' },
{ 'FW', 'Fossilworks' },
{ 'grinurl', 'GRIN' },
{ 'indexfungorum', 'Fungorum' },
{ 'NameBank', 'uBio' },
{ 'PaleoDB', 'Fossilworks' },
{ 'species', 'Species+' },
{ 'TOL', 'Tree of Life'},
{ 'WCSPF', 'WCSP' },
{ 'wsc-gen', 'WSC genus' },
{ 'wsc-fam', 'WSC family' },
{ 'wsc-sp', 'WSC species'},
{ 'Xenocanto', 'Xeno-canto' },
}

return p

Module:Taxonbar

2026-05-11T08:16:18Z

Indicwiki: 1 revision imported

require('strict')

local conf = require( 'Module:Taxonbar/conf' ) --configuration module
local TaxonItalics = require( 'Module:TaxonItalics' ) --use a function to conditionally italicize taxon names

--[[==========================================================================]]
--[[ Local functions ]]
--[[==========================================================================]]

local function isNilOrEmpty( thing )
if thing == nil or thing == '' then
return true
end
return nil
end

local function getIdFromWikidata( item, property )
local id = nil
if property == 'PWikispecies:$1' then
local siteLinks = item.sitelinks
if siteLinks then
local speciesWiki = item.sitelinks.specieswiki
if speciesWiki then
id = speciesWiki.title
end
end
return id
elseif item.claims[property] == nil then
return id
end
--[[ this code picks up deprecated values on wikidata; better to use getBestStatements
for _, statement in pairs( item.claims[property] ) do
if statement.mainsnak.datavalue then
id = statement.mainsnak.datavalue.value
break
end
end
]]
local statements = item:getBestStatements(property)[1]
if statements and
statements.mainsnak and
statements.mainsnak.datavalue and
statements.mainsnak.datavalue.value
then
id = statements.mainsnak.datavalue.value
end

return id
end

local function getLink( property, db, val )
local link, returnVal = '', {}

returnVal.isError = false

if mw.ustring.find( val, '//' ) then
link = val
else
if type(property) == 'number' and property > 0 then
local entityObject = mw.wikibase.getEntity('P'..property)
local dataType

if entityObject then dataType = entityObject.datatype
else returnVal.isError = true end

if dataType == 'external-id' then
local formatterURL = nil
if property == 3746 or --Wildflowers of Israel
property == 3795 or --Flora of Israel Online
property == 5397 --Tierstimmenarchiv
then
formatterURL = entityObject:getBestStatements('P1630')[2] --use 2nd formatterURL for English version
end
if formatterURL == nil then formatterURL = entityObject:getBestStatements('P1630')[1] end --default to [1]
if formatterURL then
if formatterURL.mainsnak.datavalue and formatterURL.mainsnak.datavalue.value then --nil check for ABA
link = formatterURL.mainsnak.datavalue.value
end
end
if db == 'bow' then -- for birds of world which uses eBird identifier
link = 'https://birdsoftheworld.org/bow/species/$1'
elseif db == 'speciesfungorum' then -- SpeciesFungorum uses Index Fungorum identifier
link = 'https://www.speciesfungorum.org/Names/NamesRecord.asp?RecordID=$1'
elseif db == 'fossilworks' then
link = 'https://paleobiodb.org/classic/basicTaxonInfo?taxon_no=$1'
end
elseif dataType == 'url' then
local subjectItem = entityObject:getBestStatements('P1629')[1]
if subjectItem then
local officialWebsite = mw.wikibase.getEntity(subjectItem.mainsnak.datavalue.value.id):getBestStatements('P856')[1]
if officialWebsite then link = officialWebsite.mainsnak.datavalue.value end
end
elseif dataType == 'string' then
local formatterURL = entityObject:getBestStatements('P1630')[1]
if formatterURL then
link = formatterURL.mainsnak.datavalue.value
else
local subjectItem = entityObject:getBestStatements('P1629')[1]
if subjectItem then
local officialWebsite = mw.wikibase.getEntity(subjectItem.mainsnak.datavalue.value.id):getBestStatements('P856')[1]
if officialWebsite then link = officialWebsite.mainsnak.datavalue.value end
end
end
else
returnVal.isError = true
end
elseif type(property) == 'string' then
link = property
end

--local valurl = val
local valurl = mw.uri.encode( val, 'PATH' )
valurl = string.gsub (valurl, '%%2F', '/') --escape '/' (e.g. issue with P5354); see wikidata T128078 and https://gerrit.wikimedia.org/r/c/mediawiki/extensions/Wikibase/+/664820/3/lib/includes/PropertyInfoSnakUrlExpander.php

if type(property) == 'number' then
--doublecheck language for Wildflowers of Israel ID
if property == 3746 then link = mw.ustring.gsub(link, '/hebrew/', '/english/') end
--format spaces in PfaF binomials, e.g. "Elaeagnus x ebbingei"
if property == 4301 then valurl = mw.ustring.gsub(valurl, '%%20', '+') end
end
valurl = mw.ustring.gsub(valurl,'%%','%%%%')
link = mw.ustring.gsub(link, '$1', valurl)
end

link = mw.ustring.gsub(link, '^[Hh][Tt][Tt][Pp]([Ss]?)://', 'http%1://') --fix wikidata URL
val = mw.ustring.match(val, '([^=/]*)/?$') --get display name from end of URL
if mw.ustring.find( link, '//' ) then
returnVal.text = '['..link..' '..mw.text.encode(mw.uri.decode(val, 'PATH'),'%[%]')..']'
elseif link == '' then
returnVal.text = val
else
returnVal.text = '<span class="external">[['..link..'|'..val..']]</span>'
end
return returnVal
end

local function createRow( id, label, rawValue, link, withUid )
if link then
local outStr = '*<span style="white-space:nowrap;">'..label..' <span'
if withUid then outStr = outStr..' class="uid"' end
return outStr..'>'..link..'</span></span>\n'
else
return '* '..mw.text.tag('span', {class='error'}, 'The identifier '..id..' '..rawValue..' is not valid.')..'\n'
end
end

local function copyTable(inTable)
if type(inTable) ~= 'table' then return inTable end
local outTable = setmetatable({}, getmetatable(inTable))
for key, value in pairs (inTable) do outTable[copyTable(key)] = copyTable(value) end
return outTable
end

local p = {}

--[[==========================================================================]]
--[[ Main ]]
--[[==========================================================================]]

function p.authorityControlTaxon( frame )
local resolveEntity = require( 'Module:ResolveEntityId' )
local whitelist = require( 'Module:Taxonbar/whitelist' ).whitelist --to create acceptableInstanceOf_Strict & acceptableInstanceOf_All
local parentArgs = copyTable(frame:getParent().args)
local currentTitle = mw.title.getCurrentTitle()
local currentEntityId = mw.wikibase.getEntityIdForCurrentPage()

local stringArgs = false
local fromTitleCount, firstRow, rowCount = 1, 0, 0
local outString, errors = '', ''
local iFroms = 0 --integer size of tFroms, b/c Lua
local tFroms = {} --non-sequential table of unique froms
local tCats = {
'[[Category:Taxonbars without from parameter]]',
'[[Category:Taxonbars desynced from Wikidata]]',
'', -- [3] placeholder for [[Category:Taxonbar pages requiring a Wikidata item]]
'', -- [4] placeholder for [[Category:Taxonbars on possible non-taxon pages]]
'', -- [5] placeholder for [[Category:Taxonbars with invalid from parameters]]
'', -- [6] placeholder for [[Category:Taxonbars with duplicate from parameters]]
'', -- [7] placeholder for [[Category:Taxonbars with from2 matching article title]]
'', -- [8] placeholder for [[Category:Taxonbars with from2 matching article title & QID]]
'', -- [9] placeholder for [[Category:Taxonbars with manual taxon IDs]]
'', --[10] placeholder for [[Category:Taxonbars with manual taxon IDs identical to Wikidata]]
'', --[11] placeholder for [[Category:Taxonbars with manual taxon IDs differing from Wikidata]]
'', --[12] placeholder for [[Category:Taxonbars with unknown parameters]]
'', --[13] placeholder for [[Category:Taxonbars with unnamed parameters]]
'', --[14] placeholder for [[Category:Taxonbars with multiple manual Wikidata items]]
'', --[15] placeholder for [[Category:Taxonbars with automatically added basionyms]]
'', --[16] placeholder for [[Category:Taxonbars with automatically added original combinations]]
'', --[17] placeholder for [[Category:Taxonbars with automatically added monotypic species]]
'', --[18] placeholder for [[Category:Taxonbars with automatically added monotypic genera]]
'', --[19] placeholder for [[Category:Taxonbars of monotypic species missing genera on Wikidata]]
'', --[20] placeholder for [[Category:Taxonbars of monotypic genera missing species on Wikidata]]
'', --[21] placeholder for [[Category:Taxonbars without primary Wikidata taxon IDs]]
'', --[22] placeholder for [[Category:Taxonbars without secondary Wikidata taxon IDs]]
'', --[23] placeholder for [[Category:Taxonbars with 20–24 taxon IDs]]
'', --[24] placeholder for [[Category:Taxonbars with 25–29 taxon IDs]]
'', --[25] placeholder for [[Category:Taxonbars with 30–34 taxon IDs]]
'', --[26] placeholder for [[Category:Taxonbars with 35–39 taxon IDs]]
'', --[27] placeholder for [[Category:Taxonbars with 40–44 taxon IDs]]
'', --[28] placeholder for [[Category:Taxonbars with 45+ taxon IDs]]
'', --[29] placeholder for [[Category:Taxonbars of monotypic species missing genera on Wikipedia]]
'', --[30] placeholder for [[Category:Taxonbars of monotypic genera missing species on Wikipedia]]
}
local acceptableInstanceOf_Strict = whitelist{ args = { 'strict' } }
local acceptableInstanceOf_All = whitelist{ args = { 'all' } }

--monotypic flags for WP-side check
local mono = nil
local monoWPok = nil
local monoGenus = nil
local monoSpecies = nil
local monoParent = nil --parent taxon name

--Assess the page's relationship with Wikidata
local currentItem = nil
if currentTitle.namespace == 10 then --i.e. Module:Taxonbar/sandbox, Template:Taxonbar/doc, etc.
if resolveEntity._id(parentArgs['from']) then
currentItem = mw.wikibase.getEntity(parentArgs['from'])
end
if currentItem == nil then
if resolveEntity._id(parentArgs['from1']) then
currentItem = mw.wikibase.getEntity(parentArgs['from1'])
end
end
elseif resolveEntity._id(currentEntityId) then
currentItem = mw.wikibase.getEntity(currentEntityId)
else --currentEntityId == nil/unresolvable
tCats[3] = '[[Category:Taxonbar pages requiring a Wikidata item]]'
end
if currentItem then
tCats[4] = '[[Category:Taxonbars on possible non-taxon pages]]' --unset if acceptable found
for _, instanceOfState in pairs ( currentItem:getBestStatements('P31') ) do --instance of
local instanceOf = instanceOfState.mainsnak.datavalue.value.id
if acceptableInstanceOf_All[instanceOf] then
tCats[4] = ''
break
end
end
end

--Cleanup args
for k, v in pairs( frame:getParent().args ) do
if type(k) == 'string' then
--make args case insensitive
local lowerk = mw.ustring.lower(k)
if isNilOrEmpty( parentArgs[lowerk] ) then
parentArgs[k] = nil
parentArgs[lowerk] = v
end
--remap abc to abc1
if mw.ustring.find(lowerk,'%d$') == nil then --if no number at end of param
if isNilOrEmpty( parentArgs[lowerk..'1'] ) then
parentArgs[lowerk] = nil
lowerk = lowerk..'1'
parentArgs[lowerk] = v
end
end
if v and v ~= '' then
--remap 'for' to 'title'
if mw.ustring.sub(lowerk,1,3) == 'for' then
local forTitle = mw.ustring.gsub(lowerk,'^for','title',1)
if isNilOrEmpty( parentArgs[forTitle] ) then
parentArgs[lowerk] = nil
lowerk = forTitle
parentArgs[lowerk] = v
end
end
--find highest from or title param
if mw.ustring.sub(lowerk,1,4) == 'from' then
local fromNumber = tonumber(mw.ustring.sub(lowerk,5,-1))
if fromNumber and fromNumber >= fromTitleCount then fromTitleCount = fromNumber end
--look for duplicate froms while we're here
if mw.ustring.find(v, '^Q%d') then
if tFroms[v] then
tCats[6] = '[[Category:Taxonbars with duplicate from parameters]]'
tFroms[v] = tFroms[v] + 1
else
tFroms[v] = 1
iFroms = iFroms + 1
end
if iFroms == 2 then
tCats[14] = '[[Category:Taxonbars with multiple manual Wikidata items]]'
end
end
elseif mw.ustring.sub(lowerk,1,5) == 'title' then
local titleNumber = tonumber(mw.ustring.sub(lowerk,4,-1))
if titleNumber and titleNumber >= fromTitleCount then fromTitleCount = titleNumber end
elseif mw.ustring.lower(v) ~= 'no' and mw.ustring.lower(v) ~= 'yes' then
stringArgs = true
tCats[9] = '[[Category:Taxonbars with manual taxon IDs]]'
end
end
end --if type(k) == 'string'
end --for

--Check for unknown parameters
--create knowns list
local acceptableArgs = { from = true, } --master list of l/c acceptable args
for _, d in pairs( conf.databases ) do
if d[1] ~= 'Wikidata' then --made obsolete by from
acceptableArgs[mw.ustring.lower(d[1])] = true
end
end
for _, a in pairs( conf.aliases ) do
acceptableArgs[mw.ustring.lower(a[1])] = true
end
--create trimmed parents list
local baseParentArgs = {} --condensed list of l/c parent args w/o trailing #s
for k, _ in pairs( parentArgs ) do
if type(k) == 'string' then
local lowerk = mw.ustring.lower(k)
local base = mw.ustring.gsub(lowerk, '[%d]*$', '')
baseParentArgs[base] = true
elseif type(k) == 'number' then
tCats[13] = '[[Category:Taxonbars with unnamed parameters|'..k..']]'
end
end
--compare lists and spit out unknowns
local unknownParams = {}
for k, _ in pairs( baseParentArgs ) do
if acceptableArgs[k] == nil then
tCats[12] = '[[Category:Taxonbars with unknown parameters|'..k..']]'
unknownParams[#unknownParams + 1] = k
end
end
--warn if unknown(s) present
if #unknownParams > 0 then
local plural = 's'
local itthem = 'them'
if #unknownParams == 1 then
plural = ''
itthem = 'it'
end
errors = errors..require('Module:If preview')._warning({
mw.ustring.format(
'Unknown parameter%s <code>%s</code>. Please correct %s or consider adding %s to Wikidata.',
plural,
table.concat(unknownParams, '</code>, <code>'),
itthem,
itthem
)
})
end

--Append basionym to arg list, if not already provided
if currentItem then
local currentBasState = currentItem:getBestStatements('P566')[1] --basionym
if currentBasState then
local datavalue = currentBasState.mainsnak.datavalue
local basionymId = datavalue and datavalue.value.id
if basionymId and resolveEntity._id(basionymId) and tFroms[basionymId] == nil then
--check that basionym is a strict instance of taxon
local basionymItem = mw.wikibase.getEntity(basionymId)
if basionymItem then
for _, instanceOfState in pairs ( basionymItem:getBestStatements('P31') ) do --instance of
local instanceOf = instanceOfState.mainsnak.datavalue.value.id
if acceptableInstanceOf_Strict[instanceOf] then
--housekeeping
tFroms[basionymId] = 1
iFroms = iFroms + 1
fromTitleCount = fromTitleCount + 1
--append basionym & track
parentArgs['from'..fromTitleCount] = basionymId
tCats[15] = '[[Category:Taxonbars with automatically added basionyms]]'
break
end end end end end end

--Append original combination to arg list, if not already provided
if currentItem then
local currentOCState = currentItem:getBestStatements('P1403')[1] --original combination
if currentOCState then
local orcoId = currentOCState.mainsnak.datavalue.value.id
if orcoId and resolveEntity._id(orcoId) and tFroms[orcoId] == nil then
--check that orco is a strict instance of taxon
local orcoItem = mw.wikibase.getEntity(orcoId)
if orcoItem then
for _, instanceOfState in pairs ( orcoItem:getBestStatements('P31') ) do --instance of
local instanceOf = instanceOfState.mainsnak.datavalue.value.id
if acceptableInstanceOf_Strict[instanceOf] then
--housekeeping
tFroms[orcoId] = 1
iFroms = iFroms + 1
fromTitleCount = fromTitleCount + 1
--append orco & track
parentArgs['from'..fromTitleCount] = orcoId
tCats[16] = '[[Category:Taxonbars with automatically added original combinations]]'
break
end end end end end end

--Append monotypic genus/species to arg list of monotypic species/genus, if not already provided
if currentItem then
for _, instanceOfState in pairs ( currentItem:getBestStatements('P31') ) do --instance of
local taxonRank = nil
local parentItem = nil
local parentTaxon = nil
local parentTaxonRank = nil
local parentMonoGenus = nil --holy grail/tbd
local childItem = nil
local childTaxon = nil
local childTaxonRank = nil
local childMonoSpecies = nil --holy grail/tbd
local instanceOf = instanceOfState.mainsnak.datavalue.value.id
if instanceOf and (instanceOf == 'Q310890' or instanceOf == 'Q47487597') then --monotypic/fossil taxon
--find & save monoParent for future WP-side check
if monoParent == nil then
mono = true
local label = nil
local taxonName = currentItem:getBestStatements('P225')[1] --taxon name
if taxonName then
local datavalue = taxonName.mainsnak.datavalue
if datavalue then
label = datavalue.value
end
end
label = label or currentItem:getLabel()
if label then
monoParent = mw.ustring.gsub(label, ' .+', '')
end
end

local missingP171orP427sortkey = '*'
local taxonRankState = currentItem:getBestStatements('P105')[1] --taxon rank
if taxonRankState then taxonRank = taxonRankState.mainsnak.datavalue.value.id end

if taxonRank and taxonRank == 'Q7432' then --species
--is monotypic species; add genus
monoSpecies = true
local parentTaxonState = currentItem:getBestStatements('P171')[1] --parent taxon
if parentTaxonState then
parentTaxon = parentTaxonState.mainsnak.datavalue.value.id
else
tCats[19] = '[[Category:Taxonbars of monotypic species missing genera on Wikidata|'..missingP171orP427sortkey..']]'
break
end
--confirm parent taxon rank == genus & monotypic
if parentTaxon and resolveEntity._id(parentTaxon) then
parentItem = mw.wikibase.getEntity(parentTaxon)
if parentItem then
local parentTaxonRankState = parentItem:getBestStatements('P105')[1] --taxon rank
if parentTaxonRankState then parentTaxonRank = parentTaxonRankState.mainsnak.datavalue.value.id end
if parentTaxonRank and parentTaxonRank == 'Q34740' then --parent == genus
for _, parentInstanceOfState in pairs ( parentItem:getBestStatements('P31') ) do --instance of
local parentInstanceOf = parentInstanceOfState.mainsnak.datavalue.value.id
if parentInstanceOf and
(parentInstanceOf == 'Q310890' or parentInstanceOf == 'Q47487597') then --monotypic/fossil taxon
parentMonoGenus = parentTaxon --confirmed
break
end
end
if parentMonoGenus and tFroms[parentMonoGenus] == nil then
--housekeeping
tFroms[parentMonoGenus] = 1
iFroms = iFroms + 1
fromTitleCount = fromTitleCount + 1
--append monotypic genus & track
parentArgs['from'..fromTitleCount] = parentMonoGenus
tCats[18] = '[[Category:Taxonbars with automatically added monotypic genera]]'
break
end end end end
if parentMonoGenus == nil or tFroms[parentMonoGenus] == nil then
tCats[19] = '[[Category:Taxonbars of monotypic species missing genera on Wikidata]]'
break
end

elseif taxonRank and taxonRank == 'Q34740' then --genus
--is monotypic genus; add species
--(https://www.wikidata.org/wiki/Wikidata:Property_proposal/child_monotypic_taxon unnecessary thanks to P427!)
monoGenus = true
local childTaxonState = currentItem:getBestStatements('P427')[1] --taxonomic type
if childTaxonState then
childTaxon = childTaxonState.mainsnak.datavalue.value.id
else
tCats[20] = '[[Category:Taxonbars of monotypic genera missing species on Wikidata|'..missingP171orP427sortkey..']]'
break
end
--confirm child taxon rank == species & monotypic
if childTaxon and resolveEntity._id(childTaxon) then
childItem = mw.wikibase.getEntity(childTaxon)
if childItem then
local childTaxonRankState = childItem:getBestStatements('P105')[1] --taxon rank
if childTaxonRankState then childTaxonRank = childTaxonRankState.mainsnak.datavalue.value.id end
if childTaxonRank and childTaxonRank == 'Q7432' then --child == species
for _, childInstanceOfState in pairs ( childItem:getBestStatements('P31') ) do --instance of
local childInstanceOf = childInstanceOfState.mainsnak.datavalue.value.id
if childInstanceOf and
(childInstanceOf == 'Q310890' or childInstanceOf == 'Q47487597') then --monotypic/fossil taxon
childMonoSpecies = childTaxon --confirmed
break
end
end
if childMonoSpecies and tFroms[childMonoSpecies] == nil then
--housekeeping
tFroms[childMonoSpecies] = 1
iFroms = iFroms + 1
fromTitleCount = fromTitleCount + 1
--append monotypic species & track
parentArgs['from'..fromTitleCount] = childMonoSpecies
tCats[17] = '[[Category:Taxonbars with automatically added monotypic species]]'
break
end end end end
if childMonoSpecies == nil or tFroms[childMonoSpecies] == nil then
tCats[20] = '[[Category:Taxonbars of monotypic genera missing species on Wikidata]]'
break
end
end --monotype searches

end --monotype handling
end --for
end --if currentItem

--Setup navbox
local navboxParams = {
name = 'Taxonbar',
bodyclass = 'hlist',
listclass = '',
groupstyle = 'text-align: left;',
}

for f = 1, fromTitleCount, 1
do
local elements, title = {}, nil
--cleanup parameters
if parentArgs['from'..f] == '' then parentArgs['from'..f] = nil end
if parentArgs['title'..f] == '' then parentArgs['title'..f] = nil end
--remap aliases
for _, a in pairs( conf.aliases ) do
local alias, name = mw.ustring.lower(a[1]), mw.ustring.lower(a[2])
if parentArgs[alias..f] and parentArgs[name..f] == nil then
parentArgs[name..f] = parentArgs[alias..f]
parentArgs[alias..f] = nil
end
end
--Fetch Wikidata item
local from = resolveEntity._id(parentArgs['from'..f])
local item = mw.wikibase.getEntity(from)
local label = nil
if type(item) == 'table' then
local statements = item:getBestStatements('P225')[1] --taxon name
if statements then
local datavalue = statements.mainsnak.datavalue
if datavalue then
label = datavalue.value
end
end
label = label or item:getLabel()
else
if parentArgs['from'..f] then
tCats[1] = ''
tCats[5] = '[[Category:Taxonbars with invalid from parameters]]'
errors = errors..mw.text.tag('strong', {class='error'}, 'Error: "'..
parentArgs['from'..f]..'" is not a valid Wikidata entity ID.<br />')
end
end
if label and label ~= '' then
title = mw.title.new(label)
end
if title == nil and parentArgs['title'..f] then
title = mw.title.new(parentArgs['title'..f])
end
if title == nil and f == 1 then
title = currentTitle
end

if title then
if isNilOrEmpty( parentArgs['wikidata'..f] ) and
(title.namespace == 0) then
if parentArgs['from'..f] then
parentArgs['wikidata'..f] = parentArgs['from'..f]
elseif item then
parentArgs['wikidata'..f] = item.id
end
end
if title.namespace == 0 or stringArgs then --only in mainspace or if manual overrides exist
local sourceCount = 0
for _, params in pairs( conf.databases ) do
params[1] = mw.ustring.lower(params[1])
local propId = params[3]
--Wikidata fallback if requested
if (item and item.claims) and
(type(propId) == 'string' or (type(propId) == 'number' and propId > 0))
then
local wikidataId = getIdFromWikidata( item, 'P'..propId )
local v = parentArgs[params[1]..f]
if wikidataId then
if isNilOrEmpty(v) then
parentArgs[params[1]..f] = wikidataId
else
if v and v ~= 'no' and v ~= wikidataId then
tCats[11] = '[[Category:Taxonbars with manual taxon IDs differing from Wikidata]]'
elseif v and v == wikidataId then
tCats[10] = '[[Category:Taxonbars with manual taxon IDs identical to Wikidata]]'
end
end
end
end
if (item and item.claims) and
( (type(propId) == 'number' and propId < 0))
then
local wikidataId = getIdFromWikidata( item, 'P'..-propId )
--mw.addWarning ("propId=" .. tostring(propId) .. "; wikidata=" .. tostring(wikidataId))
local v = parentArgs[params[1]..f]
if v == 'yes' then
if wikidataId then
parentArgs[params[1]..f] = wikidataId
else
parentArgs[params[1]..f] = nil -- don't want to use 'yes' as id
end
end
end
local val = parentArgs[params[1]..f]
if val and val ~= '' and mw.ustring.lower(val) ~= 'no' then
if type(propId) == 'number' then
if propId < 0 then propId = -propId end --allow link
if propId > 0 then --link
table.insert( elements, createRow( params[1], params[2]..':', val, getLink( propId, params[1], val ).text, true ) )
if params[1] == 'fossilworks' then -- fossilworks being use to link to PBDB
if elements[#elements] == elements[#elements-1] then -- check if identical PBDB entry already set
--mw.addWarning("item has both Fossilworks and PBDB identifers:" .. val)
elements[#elements] = nil
end
end
else --propId == 0; no link
table.insert( elements, createRow( params[1], params[2]..':', val, val, true ) )
end
else
table.insert( elements, createRow( params[1], params[2]..':', val, getLink( propId, params[1], val ).text, true ) )
end
if params[1] ~= 'wikidata' and params[1] ~= 'wikispecies' then
sourceCount = sourceCount + 1
end
end
end --for _, params in pairs( conf.databases ) do

if sourceCount >= 45 then tCats[28] = '[[Category:Taxonbars with 45+ taxon IDs]]'
elseif sourceCount >= 40 then tCats[27] = '[[Category:Taxonbars with 40–44 taxon IDs]]' --endashes
elseif sourceCount >= 35 then tCats[26] = '[[Category:Taxonbars with 35–39 taxon IDs]]'
elseif sourceCount >= 30 then tCats[25] = '[[Category:Taxonbars with 30–34 taxon IDs]]'
elseif sourceCount >= 25 then tCats[24] = '[[Category:Taxonbars with 25–29 taxon IDs]]'
elseif sourceCount >= 20 then tCats[23] = '[[Category:Taxonbars with 20–24 taxon IDs]]'
end

--Generate navbox title
if sourceCount > 0 then
rowCount = rowCount + 1
if firstRow == 0 then firstRow = f end
--set title from wikidata if it doesn't exist
if isNilOrEmpty( parentArgs['title'..f] ) then
parentArgs['noTitle'..f] = true
parentArgs['title'..f] = title.text
end
--if it exists now, set row heading to title
if not isNilOrEmpty( parentArgs['title'..f] ) then
navboxParams['group'..f] = TaxonItalics.italicizeTaxonName(parentArgs['title'..f], false)
else
navboxParams['group'..f] = ''
end
navboxParams['list'..f] = table.concat( elements )
elseif currentEntityId and (currentEntityId == parentArgs['from'..f] or fromTitleCount == 1) then
tCats[21] = '[[Category:Taxonbars without primary Wikidata taxon IDs]]'
else
tCats[22] = '[[Category:Taxonbars without secondary Wikidata taxon IDs]]'
end

--Tracking cats
if not isNilOrEmpty( parentArgs['from'..f] ) then
tCats[1] = '' --blank "missing from" if 'from' exists
if parentArgs['from'..f] == currentEntityId then
tCats[2] = '' --blank "desynced" if 'from' matches current page
end
end
if tCats[1] ~= '' then
tCats[2] = '' --cannot be "desynced" if no 'from' params
end
if mono and monoWPok == nil then
if monoSpecies then
if monoParent == label then
monoWPok = true
tCats[29] = ''
else
tCats[29] = '[[Category:Taxonbars of monotypic species missing genera on Wikipedia]]'
end
end
if monoGenus then
local labelGenus = mw.ustring.gsub(label, ' .+', '')
local labelIsBinomial = mw.ustring.match(label, '^[A-Z][a-z]+ [a-z]+')
if labelIsBinomial and monoParent == labelGenus then
monoWPok = true
tCats[30] = ''
else
tCats[30] = '[[Category:Taxonbars of monotypic genera missing species on Wikipedia]]'
end
end
end

end --if title.namespace == 0 or stringArgs
end --if title
end --for f = 1, fromTitleCount, 1

if rowCount > 0 then
local Navbox = require('Module:Navbox')
if rowCount > 1 then
--remove duplicates and don't bother moving page title to top
local rowIDs = {}
for f = 1, fromTitleCount, 1
do
if not isNilOrEmpty( parentArgs['title'..f] ) then
if rowIDs[parentArgs['wikidata'..f]] then --remove duplicate
navboxParams['group'..f] = nil
navboxParams['list'..f] = nil
else
rowIDs[parentArgs['wikidata'..f]] = true
end
end
end
if parentArgs['title'..2] and parentArgs['title'..2] == currentTitle.text then
if currentItem and parentArgs['from'..2] == currentItem['id'] then
tCats[8] = '[[Category:Taxonbars with from2 matching article title & QID]]'
else
tCats[7] = '[[Category:Taxonbars with from2 matching article title]]'
end
end
--adjust navbox for number of rows
navboxParams['title'] = '[[Help:Taxon identifiers|Taxon identifiers]]'
if rowCount >= 4 then
navboxParams['navbar'] = 'plain'
else
navboxParams['state'] = 'off'
navboxParams['navbar'] = 'off'
end
elseif parentArgs['noTitle'..firstRow] then --show title & taxon for 1-row taxonbars, per talk
navboxParams['title'] = '[[Help:Taxon identifiers|Taxon identifiers]]'
navboxParams['state'] = 'off'
navboxParams['navbar'] = 'off'
else
navboxParams['group'..firstRow] = '[[Help:Taxon identifiers|Taxon identifiers]]<br />'..navboxParams['group'..firstRow]
end

--return navbox
outString = Navbox._navbox(navboxParams)
end --if rowCount > 0

--Add categories
if string.sub(currentTitle.subpageText,1,9) == 'testcases' then parentArgs['demo'] = true end
if not isNilOrEmpty( parentArgs['demo'] ) then
outString = outString..mw.text.nowiki(table.concat(tCats))..'<br />'
elseif currentTitle.namespace == 0 then
outString = outString..table.concat(tCats)
end

return outString..errors
end

function p.taxonbar(frame) return p.authorityControlTaxon( frame:newChild{title = frame:getTitle()} ) end

return p

Module:Autotaxobox

2026-05-11T08:16:18Z

Indicwiki: 1 revision imported

--[[*************************************************************************
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.
*****************************************************************************]]

require('strict')

local TaxonRanks = require('Module:Taxobox ranks') -- use functions from Module:Taxobox ranks to handle ranks
local TaxonItalics = require('Module:TaxonItalics') -- use a function from Module:TaxonItalics to italicize a taxon name
local TableRow = '|- class="taxonrow" \n'
local TableEnd = '|}\n'
local p = {} -- functions made public
local l = {} -- internal functions, kept separate
local colour = '' -- colour for taxobox and taxonomy listings

--[[=========================================================================
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.
The value can be obtained externally via
{{#invoke:Autotaxobox|getMaxSearchLevels}}
=============================================================================]]
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)
return p.getTaxoboxColour(frame, frame.args[1] or '')
end

function p.getTaxoboxColour(frame, currTaxon)
-- note that colour is global to this function; default is empty string
local i = 1 -- count levels processed
local searching = currTaxon ~= '' -- still searching for a colour?
local foundICTaxon = false -- record whether 'incertae sedis' found
while searching and i <= MaxSearchLevels do
local plainCurrTaxon, dummy = l.stripExtra(currTaxon) -- remove trailing text after /
if string.lower(plainCurrTaxon) == 'incertae sedis' then
foundICTaxon = true
else
local possibleColour = frame:expandTemplate{ title = '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
if foundICTaxon then
colour = frame:expandTemplate{ title = 'Taxobox colour', args = { 'incertae sedis' } }
elseif searching then
-- hierarchy exceeds MaxSearchLevels levels
colour = frame:expandTemplate{ title = 'Taxobox/Error colour', args = { } }
else
colour = 'transparent'
end
end
return colour
end

--[[= = = = = = = = = = = = = topLevelTaxon = = = = = = = = = = = = = = = =
Defines the correct top level taxa, one of which should terminate every
taxonomic hierarchy encoded in taxonomy templates.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.topLevelTaxon(taxon)
return taxon == 'Life' or taxon == 'Veterovata' or taxon == 'Ichnos'
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
|gggparent_authority = taxonomic authority for TAXON's greatgreatgrandparent
|ggggparent_authority = taxonomic authority for TAXON's greatgreatgreatgrandparent
|bold_first = 'bold' to bold TAXON in its row
|virus = 'yes' to apply virus taxa italicization standards
}}
=============================================================================]]
function p.taxoboxList(frame)
local currTaxon = frame.args[1] or ''
if currTaxon == '' then return '' end
local displayN = (tonumber(frame.args['display_taxa']) or 1) + 1
local authTable = {}
authTable[1] = frame.args['authority'] or ''
authTable[2] = frame.args['parent_authority'] or ''
authTable[3] = frame.args['gparent_authority'] or ''
authTable[4] = frame.args['ggparent_authority'] or ''
authTable[5] = frame.args['gggparent_authority'] or ''
authTable[6] = frame.args['ggggparent_authority'] or ''
local authTableMax = 6
local boldFirst = frame.args['bold_first'] or 'link' -- values 'link' or 'bold'
local virus = frame.args['virus'] or 'no' -- values 'yes' or 'no'
local offset = tonumber(frame.args['offset'] or 0)
-- adjust the authority table if 'authority' refers to a rank lower than the target taxon
if offset ~= 0 then
for i = 1, authTableMax do
local j = i + offset
if j <= authTableMax then
authTable[i] = authTable[j]
else
authTable[i] = ''
end
end
end
local taxonTable, taxonRankTable = l.makeTable(frame, currTaxon)
local res = ''
local topTaxonN = taxonTable.n
-- display all taxa above possible greatgreatgrandparent, without authority
for i = topTaxonN, authTableMax+1, -1 do
res = res .. l.showTaxon(frame, taxonTable[i], taxonRankTable[i], topTaxonN==i, '', displayN >= i, '', virus)
end
-- display all taxa above possible parent, with authority if given
for i = math.min(topTaxonN, authTableMax), 2, -1 do
res = res .. l.showTaxon(frame, taxonTable[i], taxonRankTable[i], topTaxonN==i, authTable[i], displayN >= i, '', virus)
end
-- display target taxon, always displayed and emboldened
res = res .. l.showTaxon(frame, taxonTable[1], taxonRankTable[1], topTaxonN==1, authTable[1], true, boldFirst, virus)
return res
end

--[[= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Show one taxon row in a taxobox.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.showTaxon(frame, taxon, rank, isTopTaxon, auth, force, boldFirst, virus)
-- it's an error if this is the top taxon and it's not a top level taxon (e.g. "Life")
if isTopTaxon then
if l.topLevelTaxon(taxon) then
return '' -- don't display a top level taxon
elseif (mw.title.new('Taxonomy/'..taxon, 'Template') or {}).exists then
-- taxonomy template for this taxon has no parent specified
return frame:expandTemplate{ title = 'Create taxonomy', args = {taxon, msg='Taxonomy template does not specify a parent'} } .. '\n' .. TableRow
else
-- no taxonomy template for this taxon
return frame:expandTemplate{ title = 'Create taxonomy', args = {taxon, msg='Missing taxonomy template'} } .. '\n' .. TableRow
end
else
-- if showing is not already forced, force if it's a principal rank or an authority is specified
force = force or frame:expandTemplate{ title = 'Principal rank', args = {rank} } == 'yes' or
auth ~= ''
if not force then
-- if showing is still not already forced, force if the taxonomy template has 'always_display' set
local ok, alwaysDisplay = p.getTaxonInfoItem(frame, taxon, 'always_display')
force = alwaysDisplay == 'yes' or alwaysDisplay == 'true'
end
if force then
local res = l.tableCell(TaxonRanks.doAngliciseRank(rank, 'no') .. ':')
local bold = 'no'
if boldFirst == 'bold' then bold = 'yes' end
if auth ~= '' then
auth = '<br><small>' .. auth .. '</small>'
end
local res = res .. l.tableCell(l.getTaxonLink(frame, taxon, rank, bold, '', '', virus) .. auth) -- italic, abbreviated
return res .. TableRow
else
return ''
end
end
end

--[[========================== taxonomyList =================================
Returns the cells of the taxonomy table displayed on the right hand side of
"Template:Taxonomy...." pages.
Usage: {{#invoke:Autotaxobox|taxonomyList|TAXON}}
=============================================================================]]
function p.taxonomyList(frame)
local currTaxon = frame.args[1] or ''
if currTaxon == '' then
return '{|class="infobox biota"\n' .. TableRow .. l.tableCell('') .. l.tableCell('ERROR: no taxon supplied') .. TableEnd
end
local taxonTable, taxonRankTable = l.makeTable(frame, currTaxon)

local lastRankVal = 1000000
local orderOk = true
-- check whether the taxonomy is for viruses; use already determined taxon colour if possible
local virus = 'no'
local taxoColour = colour
if taxoColour == '' then
if taxonTable[taxonTable.n] == 'Ichnos' or taxonTable[taxonTable.n] == 'Veterovata' then
taxoColour = frame:expandTemplate{ title = 'Taxobox colour', args = { taxonTable[taxonTable.n] } }
else
taxoColour = frame:expandTemplate{ title = 'Taxobox colour', args = { taxonTable[taxonTable.n - 1] } }
end
end
if taxoColour == frame:expandTemplate{ title = 'Taxobox colour', args = { 'virus' } } then
virus = 'yes'
end
-- add information message
local res = '<p style="float:right">Bold ranks show taxa that will be shown in taxoboxes<br>because rank is principal or <code>always_display=yes</code>.</p>\n'

-- start table
res = res .. '{| class="infobox biota" style="text-align: left; font-size:100%"\n' .. TableRow .. '! colspan=4 style="text-align: center; color:var(--color-base,#202122); background-color: '
.. taxoColour .. '"|Ancestral taxa\n'
-- deal first with the top level taxon; if there are no errors, it should be Life/Veterovata/Ichnos, which are
-- not displayed
local taxon = taxonTable[taxonTable.n]
if not l.topLevelTaxon(taxon) then
local msg = 'Taxonomy template missing'
if mw.title.new('Taxonomy/'..taxon, 'Template').exists then
msg = 'Parent taxon needed'
end
res = res .. TableRow .. l.tableCell('colspan=2', frame:expandTemplate{title = 'Create taxonomy', args = {taxon, msg = msg}})
end
-- now output the rest of the table
local currRankVal
for i = taxonTable.n-1, 1, -1 do
-- check ranks are in right order in the hierarchy
taxon = taxonTable[i]
local rank = taxonRankTable[i]
currRankVal = TaxonRanks.lookupRankVal(rank)
if currRankVal then
orderOk = currRankVal < lastRankVal
if orderOk then lastRankVal = currRankVal end
else
orderOk = true
end
-- see if the row will be displayed in a taxobox; bold the rank if so
local boldRank = false
local ok, alwaysDisplay = p.getTaxonInfoItem(frame, taxon, 'always_display')
if ok and (alwaysDisplay == 'yes' or alwaysDisplay == 'true') then
boldRank = true
else
boldRank = frame:expandTemplate{ title = 'Principal rank', args = {rank} } == 'yes'
end
-- now return a row of the taxonomy table with anomalous ranks marked
local errorStr = ''
if not orderOk then errorStr = 'yes' end
local link = l.getTaxonLink(frame, taxon, rank, '', '', '', virus) -- bold, italic, abbreviated
res = res .. l.taxonomyListRow(frame, taxon, rank, link, boldRank, errorStr)
end
-- close table
res = res .. TableEnd
-- error-tracking for taxonomy templates
-- if the last row has an anomalous rank, put the page in an error-tracking category
local errCat1 = ''
if not orderOk then
errCat1 = '[[Category:Taxonomy templates showing anomalous ranks]]\n'
end
-- if the last row has a taxon name in the page name that does not match the link text,
-- put the taxonomy template in a tracking category
local dummy, linkText = p.getTaxonInfoItem(frame, taxon, 'link_text')
local match = l.matchTaxonLink(taxon, linkText, currRankVal and currRankVal < TaxonRanks.lookupRankVal('genus'))
local errCat2 = ''
if not match then
errCat2 = '[[Category:Taxonomy templates with name and link text not matching|' .. taxon .. ']]\n'
end
if errCat1..errCat2 ~= '' then
res = res .. frame:expandTemplate{ title = 'Template other', args = { errCat1..errCat2} }
end
return res
end

--[[ = = = = = = = = = = = = = = taxonomyListRow = = = = = = = = = = = = = =
Returns a single row of the taxonomy table displayed on the right hand side
of "Template:Taxonomy...." pages.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.taxonomyListRow(frame, taxon, rank, link, boldRank, error)
local res = ''
if taxon == '' or rank == '' then return res end
local baseTaxon, qualifier = l.stripExtra(taxon)
-- if appropriate, make it clear that some taxa have been skipped via a ... row
if qualifier == '/skip' then
res = res .. TableRow .. l.tableCell('.....') .. l.tableCell('.....')
end
-- now generate a row of the table
res = res .. TableRow
local cellContent = ''
local anglicizedRank = TaxonRanks.doAngliciseRank(rank, 'no')
if boldRank then
cellContent = cellContent .. '<b>' .. anglicizedRank .. '</b>:'
else
cellContent = cellContent .. anglicizedRank .. ':'
end
if error == 'yes' then
cellContent = '<span style="background-color:#FDD">' .. cellContent .. '</span>'
end
res = res .. l.tableCell(cellContent)
.. l.tableCell('<span style="white-space:nowrap;">' .. link .. '</span>')
.. l.tableCell('<span style="font-size:smaller;white-space:nowrap;">' .. qualifier .. '</span>')
.. l.tableCell('<span style="white-space:nowrap;">' .. frame:expandTemplate{ title = 'Edit a taxon', args = { taxon } } .. '</span>')
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 PARENT = 1
local RANK = 2
local LINK_TARGET = 3
local LINK_TEXT = 4
local ALWAYS_DISPLAY = 5
local EXTINCT = 6
local SAME_AS = 7
local REFS = 8

function p.callTaxonomyKey(frame)
local taxon = frame.args['taxon'] or ''
local parent = frame.args['parent'] or ''
local rank = frame.args['rank'] or ''
local extinct = string.lower(frame.args['extinct']) or ''
local alwaysDisplay = string.lower(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 = string.lower(sameAsInfo[EXTINCT]) end
if alwaysDisplay == '' then alwaysDisplay = string.lower(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
-- check consistency of extinct status; if this taxon is not extinct, parent must not be either
local extinctError = 'no'
if parent ~= '' and (extinct == '' or extinct == 'no' or extinct == 'false') then
local ok, parentExtinct = p.getTaxonInfoItem(frame, parent, 'extinct')
if ok and (parentExtinct == 'yes' or parentExtinct == 'true') then extinctError = 'yes' end
end
return frame:expandTemplate{ title = 'Taxonomy key',
args = {taxon=taxon, parent=parent, rank=rank, extinct=extinct, always_display=alwaysDisplay, link_target=linkTarget, link=link, refs=refs, same_as=sameAsTaxon, extinct_error = extinctError} }
end

--[[============================= showRefs ==================================
Shows the refs field in a taxonomy template, handing incertae sedis taxa and
using '–' for absent refs.
Usage: {{#invoke:Autotaxobox|showRefs|TAXON|REFS}}
=============================================================================]]
function p.showRefs(frame)
local taxonName = frame.args[1] or ''
local refs = frame.args[2] or ''
return l.doShowRefs(taxonName, refs)
end

--[[= = = = = = = = = = = = = = doShowRefs = = = = = = = = = = = = = = = = =
Show the refs field in a taxonomy template.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.doShowRefs(taxonName, refs)
if mw.text.split(taxonName, '/', true)[1] == 'Incertae sedis' then
refs = 'not applicable (<i>incertae sedis</i>)'
elseif refs == '' then
refs = '–'
end
return refs
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', '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

--[[= = = = = = = = = = = getTaxonInfoItem = = = = = = = = = = = = = = = = =
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)
local ok, info
-- item == 'dagger' is a special case
if item == 'dagger' then
ok, info = p.getTaxonInfoItem(frame, taxon, 'extinct')
if ok then
if info == 'yes' or info == 'true' then
info = '&dagger;'
else
info = ''
end
end
-- item ~= 'dagger'
else
ok, info = pcall(frame.expandTemplate, frame, { title = 'Taxonomy/' .. taxon, args = {['machine code'] = item } })
if ok then
if info == '' then
-- try 'same as'
local sameAsTaxon = frame:expandTemplate{ title = 'Taxonomy/' .. taxon, args = {['machine code'] = 'same as' } }
if sameAsTaxon ~= '' then
ok, info = pcall(frame.expandTemplate, frame, { title = 'Taxonomy/' .. sameAsTaxon, args = {['machine code'] = item } })
end
end
end
end
if ok then
-- if item is 'link_text', trim info and check whether '(?)' needs to be added
if item == 'link_text' then
-- there is a newline at the end of linkText when taxonomy template has "|link = LINK_TARGET|LINK_TEXT"
info = mw.text.trim(info)
if string.sub(taxon, -2) == '/?' and not string.find(info, '?', 1, true) then
info = info .. '<span style="font-style:normal;font-weight:normal;"> (?)</span>'
end
end
else
info = '[[Template:Taxonomy/' .. taxon .. ']]' --error indicator in code before conversion to Lua
end
return ok, 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 = string.lower(frame.args['extinct'] or '')
local bold = frame.args['bold'] or ''
local italic = frame.args['italic'] or ''
local abbreviated = frame.args['abbreviated'] 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
return l.makeLink(taxon, extinct, bold, italic, abbreviated, linkTarget, linkText)
end

--[[= = = = = = = = = = = = = = getTaxonLink = = = = = = = = = = = = = = = =
Internal function to drive l.makeLink().
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.getTaxonLink(frame, taxon, rank, bold, italic, abbreviated, virus)
local ok, extinct = p.getTaxonInfoItem(frame, taxon, 'extinct')
if italic == '' then
italic = frame:expandTemplate{ title = 'Is italic taxon', args = { rank, virus = virus } }
end
local ok, linkTarget = p.getTaxonInfoItem(frame, taxon, 'link_target')
local ok, linkText = p.getTaxonInfoItem(frame, taxon, 'link_text')
return l.makeLink(taxon, extinct, bold, italic, abbreviated, linkTarget, linkText)
end

--[[= = = = = = = = = = = = = = makeLink = = = = = = = = = = = = = = = = = =
Actually make the link.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.makeLink(taxon, extinct, bold, italic, abbreviated, linkTarget, linkText)
local dummy
-- 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, dummy = l.stripExtra(taxon)
end
end
if linkTarget == '' then linkTarget = linkText end
if italic == 'yes' then linkText = TaxonItalics.italicizeTaxonName(linkText, false, abbreviated=='yes') end
local link = ''
if bold == 'yes' then link = '<b>' .. linkText .. '</b>'
else
if linkTarget == linkText then link = linkText
else link = linkTarget .. '|' .. linkText
end
link = '[[' .. link .. ']]'
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

--[[============================== find =====================================
Returns the taxon above the specified taxon with a given rank.
Usage: {{#invoke:Autotaxobox|find|TAXON|RANK}}
=============================================================================]]
function p.find(frame)
local currTaxon = frame.args[1] or ''
if currTaxon == '' then return '<span class="error">no taxon supplied</span>' end
local rank = frame.args[2] or ''
if rank == '' then return '<span class="error">no rank supplied</span>' end
local inHierarchy = true -- still in the taxonomic hierarchy or off the top?
local searching = true -- still searching
while inHierarchy and searching do
local ok, parent = p.getTaxonInfoItem(frame, currTaxon, 'parent')
if ok and parent ~= '' then
currTaxon = parent
local ok, currRank = p.getTaxonInfoItem(frame, currTaxon, 'rank')
if currRank == rank then
searching = false
end
else
inHierarchy = false
end
end
if inHierarchy and not searching then return currTaxon
else return '<span class="error">rank not found</span>'
end
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

--[[============================ hasRankVal =================================
External utility function to determine whether the rank has an arbitrary
value attached in order to allow rank order consistency checking.
Usage: {{#invoke:Autotaxobox|hasRankVal|RANK}}
=============================================================================]]
function p.hasRankVal(frame)
local rank = frame.args[1] or ''
if rank == '' then return '<span class="error">no rank supplied</span>' end
local rankVal = TaxonRanks.lookupRankVal(rank)
if not rankVal then rankVal = 'no' else rankVal = 'yes' end
return rankVal
end

--[[=========================== hasRankVal1 =================================
External utility function to determine whether the rank has an arbitrary
value attached in order to allow rank order consistency checking.
Usage: {{#invoke:Autotaxobox|hasRankVal|RANK}}
=============================================================================]]
function p.hasRankVal1(rank)
if rank == '' then return 'no' end
local rankVal = TaxonRanks.lookupRankVal(rank)
if not rankVal then rankVal = 'no' else rankVal = 'yes' end
return rankVal
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 l.doListAll(l.makeTable(frame, currTaxon))
end

function l.doListAll(taxonTable, taxonRankTable)
local lst = taxonTable[1] .. '-' .. tostring(taxonRankTable[1])
for i = 2, taxonTable.n, 1 do
lst = lst .. ', ' .. taxonTable[i] .. '-' .. taxonRankTable[i]
end
return lst
end

--[[=========================== removeQualifier ================================
External utility function to remove a qualifier (any part after a "/") from a
taxon name.
Usage: {{#invoke:Autotaxobox|removeQualifier|TAXON}}
=============================================================================]]
function p.removeQualifier(frame)
local baseName, qualifier = l.stripExtra(frame.args[1])
return baseName
end

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

--[[= = = = = = = = = = = = stripExtra = = = = = = = = = = = = = = = = = = =
Internal utility function to strip off any extra parts of a taxon name, i.e.
anything after a '/'. Thus 'Felidae/?' would be split into 'Felidae' and '?'.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.stripExtra(taxonName)
local i = mw.ustring.find(taxonName, '/', 1, true)
if i then
return mw.ustring.sub(taxonName, 1, i-1), mw.ustring.sub(taxonName, i, -1)
else
return taxonName, ''
end
end

--[[= = = = = = = = = = = = splitTaxonName = = = = = = = = = = = = = = = = =
Internal utility function to split a taxon name into its parts and return
them. Possible formats include:
* taxon
* taxon (disambig)
* taxon (Subgenus)
* taxon/qualifier
* combinations, e.g. taxon (disambig)/qualifier
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.splitTaxonName(taxon)
-- get any qualifier present
local qualifier = ''
local i = mw.ustring.find(taxon, '/', 1, true)
if i then
qualifier = mw.ustring.sub(taxon, i+1, -1)
taxon = mw.ustring.sub(taxon, 1, i-1)
end
-- get any disambiguator or subgenus
local disambig = ''
local subgenus = ''
i = mw.ustring.find(taxon, ' (', 1, true)
if i then
local parenTerm = mw.ustring.sub(taxon, i+2, -2)
taxon = mw.ustring.sub(taxon, 1, i-1)
local char1 = mw.ustring.sub(parenTerm, 1, 1)
if char1 == mw.ustring.lower(char1) then
disambig = parenTerm
else
subgenus = parenTerm
end
end
return taxon, disambig, subgenus, qualifier
end

--[[= = = = = = = = = = = = matchTaxonLink = = = = = = = = = = = = = = = = =
Function to determine whether the taxon name derived from the name of the
taxonomy template (passed in the parameter taxon) matches the link text
(passed in the parameter linkText).
The taxon name may have any of the formats:
* baseTaxon/qualifier
* baseTaxon (disambig)
* baseTaxon (Subgenus) [distinguished by the capital letter]
* a qualifier may be present after the previous two formats.

Examples of matches (baseTaxon ~ linkText):
* Pinus ~ Pinus
* Pinus sect. Trifoliae ~ Pinus sect. Trifoliae
* Pinus sect. Trifoliae ~ ''Pinus'' sect. ''Trifoliae'' [italic markers ignored]
* Pinus sect. Trifoliae ~ P. sect. Trifoliae [abbreviated genus name matches]
* Bombus (Pyrobombus) ~ Bombus (Pyrobombus)
* Bombus (Pyrobombus) ~ B. (Pyrobombus)
* Bombus (Pyrobombus) ~ Pyrobombus [link text may just be the subgenus]
* Heteractinida ~ "Heteractinida" [double-quotes are ignored in link text]
* "Heteractinida" ~ Heteractinida [double-quotes are ignored in base taxon name]
* Incertae sedis ~ anything [link text is ignored for matching in this case]
* Cetotheriidae with qualifier=? ~ Cetotheriidae (?)
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.matchTaxonLink(taxon, linkText, rankBelowGenus)
local dummy
linkText, dummy = mw.ustring.gsub(linkText, "''", '') -- remove any italic wikitext in the link text
linkText, dummy = mw.ustring.gsub(linkText, '<.->', '') -- strip all tags used to format the link text
linkText, dummy = mw.ustring.gsub(linkText, '"', '') -- remove any occurrences of " in the link text
local baseTaxon, disambig, subgenus, qualifier = l.splitTaxonName(taxon) -- split up the taxon name
baseTaxon, dummy = mw.ustring.gsub(linkText, '"', '') -- remove any occurrences of " in the base taxon name
local match = linkText == baseTaxon or
linkText == subgenus or
linkText == baseTaxon .. ' (' .. subgenus .. ')' or
linkText == mw.ustring.sub(baseTaxon, 1, 1) .. '. (' .. subgenus .. ')' or
baseTaxon == 'Incertae sedis' or
rankBelowGenus and linkText == mw.ustring.gsub(baseTaxon, '([A-Z]).- (.*)', '%1. %2') or
mw.ustring.find(qualifier, '?', 1, true) and mw.ustring.find(linkText, baseTaxon, 1, true) == 1
return match
end

--[[= = = = = = = = = = = = = makeTable = = = = = = = = = = = = = = = = = = =
Internal utility function to return two tables (arrays) constructed from a
taxonomic hierarchy stored in "Template:Taxonomy/..." templates.
taxonTable.n holds the total number of taxa; taxonTable[1]..taxonTable[taxonTable.n]
the taxon names.
The last taxon in the table will either (a) have a taxonomy template but with
no parent given (e.g. 'Life') or (b) not have a taxonomy template.
taxonRankTable hold the corresponding ranks of the taxa.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.makeTable(frame, currTaxon)
local taxonTable = {}
local taxonRankTable = {}
local ok, rank, parent
local i = 1
local topReached = false -- reached the top of the taxonomic hierarchy?
repeat
taxonTable[i] = currTaxon
ok, rank = p.getTaxonInfoItem(frame, currTaxon, 'rank')
if ok then taxonRankTable[i] = string.lower(rank) else taxonRankTable[i] = '' end
ok, parent = p.getTaxonInfoItem(frame, currTaxon, 'parent')
if ok and parent ~= '' then
currTaxon = parent
i = i + 1
else
topReached = true -- reached the top of the hierarchy or tried to use a non-existent taxonomy template
end
until topReached or i > MaxSearchLevels
taxonTable.n = math.min(i, MaxSearchLevels)
return taxonTable, taxonRankTable
end

--[[= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.tableCell(arg1, arg2)
local text, style
if arg2 then
style = arg1
text = arg2
else
style = ''
text = arg1
end
local res = '|'
if style ~= '' then
res = res .. style .. '|'
end
return res .. text .. '\n'
end

return p

Module:Automated taxobox

2026-05-11T08:16:17Z

Indicwiki: 1 revision imported

require('strict')
local TaxonItalics = require('Module:TaxonItalics')
local Autotaxobox = require('Module:Autotaxobox')
local ItalicTitle = require('Module:Italic title')
local p = {} -- functions made public
local l = {} -- nonpublic internal functions and variables global to the module
l.system = '' -- '' for normal scientific classification (default)
-- 'ichnos' for trace fossil classification
-- 'veterovata' for egg fossil classification

-- =============================================================================
-- ichnobox implements Template:Ichnobox; see the documentation of that
-- template for details.
-- The only difference from Template:Automatic taxobox is in the taxobox colour
-- and classification link and the parameters for type species and genera.
-- =============================================================================

function p.ichnobox(frame)
l.system = 'ichnos'
return p.automaticTaxobox(frame)
end

-- =============================================================================
-- oobox implements Template:Oobox; see the documentation of that
-- template for details.
-- The only difference from Template:Automatic taxobox is in the taxobox colour
-- and classification link and the parameters for type species and genera.
-- =============================================================================

function p.oobox(frame)
l.system = 'veterovata'
return p.automaticTaxobox(frame)
end

-- =============================================================================
-- automaticTaxobox implements Template:Automatic taxobox; see the documentation
-- of that template for details.
-- It also implements Template:Ichnobox and Template:Oobox. The small
-- differences are signalled by the module-wide variable l.system.
-- The following parameters present in the old template code version of
-- Template:Automatic taxobox were not used and have not been implemented:
-- image_caption_align
-- image2_caption_align
-- binomial2
-- binomial2_authority
-- binomial3
-- binomial3_authority
-- binomial4
-- binomial4_authority
-- =============================================================================

function p.automaticTaxobox(frame)
local args
if frame.args['direct'] == 'yes' then args = frame.args
else args = frame:getParent().args end
local res = ''
-- ---------------------------------------------------------------------
-- pick up taxobox parameters from the caller that need to be processed;
-- most will be passed on unchanged
-- ---------------------------------------------------------------------
local pagename = args['pagename'] or '' -- for testing and debugging only
local italicTitle = args['italic_title'] or args['italic title'] or ''
local ichnos = ''
if l.system == 'ichnos' then ichnos = 'true' end
local veterovata = ''
if l.system == 'veterovata' then veterovata = 'true' end
local fossilRange = args['fossil_range'] or args['fossil range'] or args['temporal_range'] or args['temporal range'] or ''
local oldestFossil = args['oldest_fossil'] or args['oldest fossil'] or ''
local youngestFossil = args['youngest_fossil'] or args['youngest fossil'] or ''
local name = args['name'] or ''
local colourAs = args['color_as'] or args['color as'] or args['colour_as'] or args['colour as'] or ''
local taxon = args['taxon'] or ''
local authority = args['authority'] or ''
local parentAuthority = args['parent_authority'] or args['parent authority'] or ''
local manualFlag = 'text' -- marks manually specified ranks
local binomial = args['binomial'] or args['binomial_'..manualFlag] or args['binomial '..manualFlag] or ''
local binomialAuthority = args['binomial_authority'] or args['binomial authority'] or ''
local genusManual = args['genus_'..manualFlag] or args['genus '..manualFlag] or''
local speciesManual = args['species_'..manualFlag] or args['species '..manualFlag] or''
-- ------------------------------------------------------
-- set the taxobox parameters determined by this function
-- ------------------------------------------------------
fossilRange = l.setfossilRange(frame, fossilRange, oldestFossil, youngestFossil)
-- use the base page name as the taxon if the taxon parameter is missing
local currentPagename = mw.title.getCurrentTitle()
if pagename == '' then pagename = currentPagename.text end -- pagename para only used in testing and
local basePagename = pagename
if italicTitle ~= 'taxon' then basePagename = mw.ustring.gsub(basePagename, '%s+%b()$', '', 1) end
local taxonParaMissingError = false
if taxon == '' then
taxonParaMissingError = true
taxon = basePagename
end
-- decide if the page name and taxobox name need to be italicized;
-- if italic_title is not set, then if the names are the taxon, use its rank to decide
local ok, taxonRank = Autotaxobox.getTaxonInfoItem(frame, taxon, 'rank') -- taxonRank needed later if not here
if italicTitle == '' then
if not (ok and taxonRank ~= '' and
frame:expandTemplate{ title = 'Is italic taxon', args = {taxonRank} } == 'yes') then
italicTitle = 'no'
end
end
-- remove any " (DISAMBIG)" or "/MODIFIER" from the taxon's name;
-- if the base page name is the same as the base taxon name, then italicization can be applied
local baseTaxon = taxon
if italicTitle ~= 'taxon' then baseTaxon = mw.ustring.gsub(baseTaxon, '%s+%b()$', '', 1) end
baseTaxon = mw.ustring.gsub(baseTaxon, '/.*$', '', 1)
if italicTitle == '' and basePagename == baseTaxon then
italicTitle = 'yes'
end
-- italicize the page name (page title) if required
if currentPagename.namespace == 0 and (italicTitle == 'yes' or italicTitle == 'taxon') then
if italicTitle == 'taxon' or TaxonItalics.hasConnectingTerm(baseTaxon) then
res = res .. frame:expandTemplate{ title = 'Italic taxon title', args = {} }
italicTitle = 'yes'
else ItalicTitle._main({})
end
end
-- set the taxobox name if not supplied, italicizing it if appropriate.
if name == '' then
name = basePagename
if italicTitle == 'yes' then
name = TaxonItalics.italicizeTaxonName(name, false, false)
end
-- name = name .. '/' .. baseTaxon .. '/' .. nameRank
end
-- determine taxobox colour
local colour = ''
if colourAs ~= '' then
colour = frame:expandTemplate{ title = 'Taxobox colour', args = {colourAs} }
elseif l.system == 'ichnos' then
colour = frame:expandTemplate{ title = 'Taxobox colour', args = {'Ichnos'} }
elseif l.system == 'veterovata' then
colour = frame:expandTemplate{ title = 'Taxobox colour', args = {'Veterovata'} }
else
colour = Autotaxobox.getTaxoboxColour(frame, taxon)
end
-- set binomial parameters if the target taxon is (unusually) a species
local genusAuthority = ''
if binomial == '' then
if ok and taxonRank == 'species' then
binomial = TaxonItalics.italicizeTaxonName(taxon, false, false)
binomialAuthority = authority
end
end
-- handle any manually set ranks
local boldFirst = ''
local offset = 0
if speciesManual ~= '' then
offset = offset + 1
binomialAuthority = authority
if binomial == '' then binomial = '<span class="error">Error: binomial parameter value is missing</span>' end
end
if genusManual ~= '' then
boldFirst = 'link'
offset = offset + 1
if offset == 1 then
genusAuthority = authority
else
genusAuthority = parentAuthority
end
end
-- process type genus and type species if present; italicize if they seem not to have an authority attached
local typeGenus = ''
local typeGenusRef = ''
local typeGenusAuthority = ''
local typeSpecies = ''
local typeSpeciesRef = ''
local typeSpeciesAuthority = ''
local typeIchnogenus = ''
local typeIchnogenusRef = ''
local typeIchnogenusAuthority = ''
local typeIchnospecies = ''
local typeIchnospeciesRef = ''
local typeIchnospeciesAuthority = ''
local typeOogenus = ''
local typeOogenusRef = ''
local typeOogenusAuthority = ''
local typeOospecies = ''
local typeOospeciesRef = ''
local typeOospeciesAuthority = ''
if l.system == '' then
typeGenus = l.italicizeTypeName(args['type_genus'] or args['type genus'] or '')
typeGenusRef = args['type_genus_ref'] or args['type genus ref'] or ''
typeGenusAuthority = args['type_genus_authority'] or args['type genus authority'] or ''
typeSpecies = l.italicizeTypeName(args['type_species'] or args['type species'] or '')
typeSpeciesRef = args['type_species_ref'] or args['type species ref'] or ''
typeSpeciesAuthority = args['type_species_authority'] or args['type species authority'] or ''
elseif l.system == 'ichnos' then
typeIchnogenus = l.italicizeTypeName(args['type_ichnogenus'] or args['type ichnogenus'] or '')
typeIchnogenusRef = args['type_ichnogenus_ref'] or args['type ichnogenus ref'] or ''
typeIchnogenusAuthority = args['type_ichnogenus_authority'] or args['type ichnogenus authority'] or ''
typeIchnospecies = l.italicizeTypeName(args['type_ichnospecies'] or args['type ichnospecies'] or '')
typeIchnospeciesRef = args['type_ichnospecies_ref'] or args['type ichnospecies ref'] or ''
typeIchnospeciesAuthority = args['type_ichnospecies_authority'] or args['type ichnospecies authority'] or ''
elseif l.system == 'veterovata' then
typeOogenus = l.italicizeTypeName(args['type_oogenus'] or args['type oogenus'] or '')
typeOogenusRef = args['type_oogenus_ref'] or args['type oogenus ref'] or ''
typeOogenusAuthority = args['type_oogenus_authority'] or args['type oogenus authority'] or ''
typeOospecies = l.italicizeTypeName(args['type_oospecies'] or args['type oospecies'] or '')
typeOospeciesRef = args['type_oospecies_ref'] or args['type oospecies ref'] or ''
typeOospeciesAuthority = args['type_oospecies_authority'] or args['type oospecies authority'] or ''
end
-- fill in a missing subdivision_ranks parameter
local subdivision = args['subdivision'] or ''
local subdivisionRef = args['subdivision_ref'] or args['subdivision ref'] or ''
local subdivisionRanks = args['subdivision_ranks'] or args['subdivision ranks'] or ''
if subdivision ~= '' and subdivisionRanks == '' and ok and taxonRank ~= '' then
subdivisionRanks = frame:expandTemplate{ title = 'Children rank', args = {taxonRank} }
end
-- ------------------------------------------------
-- now call Taxobox/core with all of its parameters
-- ------------------------------------------------
res = res .. frame:expandTemplate{ title = 'Taxobox/core', args =
{ ichnos = ichnos,
veterovata = veterovata,
['edit link'] = 'e',
temporal_range = fossilRange,
display_taxa = args['display_parents'] or args['display parents'] or '1',
parent = taxon,
authority = authority,
parent_authority = parentAuthority,
grandparent_authority = args['grandparent_authority'] or args['grandparent authority'] or '',
greatgrandparent_authority = args['greatgrandparent_authority'] or args['greatgrandparent authority'] or '',
greatgreatgrandparent_authority = args['greatgreatgrandparent_authority'] or args['greatgreatgrandparent authority'] or '',
name = name,
colour = colour,
status = args['status'] or '',
status_system = args['status_system'] or args['status system'] or '',
status_ref = args['status_ref'] or args['status ref'] or '',
status2 = args['status2'] or '',
status2_system = args['status2_system'] or args['status2 system'] or '',
status2_ref = args['status2_ref'] or args['status2 ref'] or '',
trend = args['trend'] or '',
extinct = args['extinct'] or '',
image = args['image'] or '',
upright = args['image_upright'] or args['image upright'] or '',
image_alt = args['image_alt'] or args['image alt'] or '',
image_caption = args['image_caption'] or args['image caption'] or '',
image2 = args['image2'] or '',
upright2 = args['image2_upright'] or args['image2 upright'] or '',
image2_alt = args['image2_alt'] or args['image2 alt'] or '',
image2_caption = args['image2_caption'] or args['image2 caption'] or '',
classification_status = args['classification_status'] or args['classification status'] or '',
diversity = args['diversity'] or '',
diversity_ref = args['diversity_ref'] or args['diversity ref'] or '',
diversity_link = args['diversity_link'] or args['diversity link'] or '',
bold_first = boldFirst,
offset = offset,
genus = genusManual,
genus_authority = genusAuthority,
species = speciesManual,
binomial = binomial,
binomial_authority = binomialAuthority,
trinomial = args['trinomial'] or '',
trinomial_authority = args['trinomial_authority'] or args['trinomial authority'] or '',
type_genus = typeGenus,
type_genus_ref = typeGenusRef,
type_genus_authority = typeGenusAuthority,
type_species = typeSpecies,
type_species_ref = typeSpeciesRef,
type_species_authority = typeSpeciesAuthority,
type_ichnogenus = typeIchnogenus,
type_ichnogenus_ref = typeIchnogenusRef,
type_ichnogenus_authority = typeIchnogenusAuthority,
type_ichnospecies = typeIchnospecies,
type_ichnospecies_ref = typeIchnospeciesRef,
type_ichnospecies_authority = typeIchnospeciesAuthority,
type_oogenus = typeOogenus,
type_oogenus_ref = typeOogenusRef,
type_oogenus_authority = typeOogenusAuthority,
type_oospecies = typeOospecies,
type_oospecies_ref = typeOospeciesRef,
type_oospecies_authority = typeOospeciesAuthority,
subdivision = subdivision,
subdivision_ref = subdivisionRef,
subdivision_ranks = subdivisionRanks,
type_strain = args['type_strain'] or args['type strain'] or '',
type_strain_ref = args['type_strain_ref'] or args['type strain ref'] or '',
range_map = args['range_map'] or args['range map'] or '',
range_map_upright = args['range_map_upright'] or args['range map upright'] or '',
range_map_alt = args['range_map_alt'] or args['range map alt'] or '',
range_map_caption = args['range_map_caption'] or args['range map caption'] or '',
range_map2 = args['range_map2'] or args['range map2'] or '',
range_map2_upright = args['range_map2_upright'] or args['range map2 upright'] or '',
range_map2_alt = args['range_map2_alt'] or args['range map2 alt'] or '',
range_map2_caption = args['range_map2_caption'] or args['range map2 caption'] or '',
range_map3 = args['range_map3'] or args['range map3'] or '',
range_map3_upright = args['range_map3_upright'] or args['range map3 upright'] or '',
range_map3_alt = args['range_map3_alt'] or args['range map3 alt'] or '',
range_map3_caption = args['range_map3_caption'] or args['range map3 caption'] or '',
range_map4 = args['range_map4'] or args['range map4'] or '',
range_map4_upright = args['range_map4_upright'] or args['range map4 upright'] or '',
range_map4_alt = args['range_map4_alt'] or args['range map4 alt'] or '',
range_map4_caption = args['range_map4_caption'] or args['range map4 caption'] or '',
synonyms_ref = args['synonyms_ref'] or args['synonyms ref'] or '',
synonyms = args['synonyms'] or ''
} }
-- put page in error-tracking categories if required
local errCat1 = ''
if genusManual ~= '' or speciesManual ~= '' or binomial ~= '' then errCat1 = '[[Category:Automatic taxoboxes using manual parameters]]' end
local errCat2 = ''
if taxonParaMissingError then errCat2 = '[[Category:Automatic taxoboxes relying on page title]]' end
res = res .. frame:expandTemplate{ title = 'Main other', args = {errCat1..errCat2} }
return res
end

-- =============================================================================
-- l.setfossilRange(frame, fossilRange, oldestFossil, youngestFossil) checks
-- the parameters that determine the fossil range, returning an appropriate
-- range.
-- =============================================================================
-- temporary public function for debugging
function p.chkFossilRange(frame)
local args = frame.args
local fossilRange = args['temporal_range'] or args['temporal range'] or args['fossil_range'] or args['fossil range'] or ''
local oldestFossil = args['oldest_fossil'] or args['oldest fossil'] or ''
local youngestFossil = args['youngest_fossil'] or args['youngest fossil'] or ''
local fossilRange = l.setfossilRange(frame, fossilRange, oldestFossil, youngestFossil)
return fossilRange
end

function l.setfossilRange(frame, fossilRange, oldestFossil, youngestFossil)
local res = ''
if fossilRange ~= '' then
if mw.ustring.find(frame:expandTemplate{ title = 'Period start', args = { fossilRange } }, '[Ee]rror') then
res = fossilRange
else
res = frame:expandTemplate{ title = 'Geological range', args = { fossilRange } }
end
elseif oldestFossil ~= '' then
if youngestFossil == '' then youngestFossil = 'Recent' end
if mw.ustring.find(frame:expandTemplate{ title = 'Period start', args = { oldestFossil } }, '[Ee]rror') or
mw.ustring.find(frame:expandTemplate{ title = 'Period start', args = { youngestFossil } }, '[Ee]rror') then
res = oldestFossil..'–'..youngestFossil
else
res = frame:expandTemplate{ title = 'Geological range', args = { oldestFossil, youngestFossil } }
end
end
return res
end

-- =============================================================================
-- l.italicizeTypeName(typeName) checks whether the name of a type genus or
-- species should be italicized, because it appears to be a bare name.
-- =============================================================================

function l.italicizeTypeName(typeName)
if typeName and not (string.find(typeName, "<", 1, true) or string.find(typeName, ">", 1, true)) then
typeName = TaxonItalics.italicizeTaxonName(typeName, false, false)
end
return typeName
end

-- **************************** Speciesbox support *****************************

-- =============================================================================
-- l.genusOf(str) extracts the genus from a string. Normally this will be the
-- first word of the string (e.g. given 'Bellis perennis' it returns 'Bellis').
-- It also handles a string containing a nothogenus with a spaced × (e.g. given
-- '× Heucherella tiarelloides' it returns '× Heucherella').
-- =============================================================================

function l.genusOf(str)
local res = mw.ustring.match(str, '^[^%s]*', 1)
if res == mw.ustring.char(215) then
res = res .. ' ' .. mw.ustring.match(str, '^[^%s]*', 3)
end
return res
end

-- =============================================================================
-- l.doSpeciesboxName(name, taxon, genus, species, basePageTitle, italicTitle)
-- returns a name for a taxobox created by Template:Speciesbox. The name will be
-- italicized if appropriate. It also generates code to italicize the page title
-- if appropropriate. In both cases the test for italicization is that the base
-- taxon name (stripped of any disambiguation or qualifier) is the same as the
-- base page title.
-- =============================================================================

function p.speciesboxName(frame)
local name = frame.args[1] or ''
local taxon = frame.args[2] or ''
local genus = frame.args[3] or ''
local species = frame.args[4] or ''
local basePageTitle = frame.args[5] or ''
local italicTitle = frame.args[6] or ''
return l.doSpeciesboxName(name, taxon, genus, species, basePageTitle, italicTitle)
end

function l.doSpeciesboxName(name, taxon, genus, species, basePageTitle, italicTitle)
if taxon ~= '' then
genus = mw.ustring.gsub(l.genusOf(taxon), '/.*$', '', 1) -- strip any qualifier
else
genus = mw.ustring.gsub(mw.ustring.gsub(genus, '%s+%b()$', '', 1), '/.*$', '', 1) -- strip any disambig and qualifier
if species == '' then taxon = genus
else taxon = genus .. ' ' .. species
end
end
local italicizeP = italicTitle ~= 'no' and (basePageTitle == taxon or basePageTitle == genus) -- use basePageTitle to match taxon/genus
-- deal with taxobox name (i.e. its caption)
if name == '' then
name = basePageTitle
if italicizeP then name = TaxonItalics.italicizeTaxonName(name, false, false) end
end
-- deal with page title
if italicizeP then
local pageTitle = mw.title.getCurrentTitle().text -- formatting the page title with DISPLAYTITLE needs the full page title
if italicTitle ~= 'test' then
pageTitle = TaxonItalics.italicizeTaxonName(pageTitle, false, false, true) -- format pageTitle, not italicizing any parenthesized term
local nsText = mw.title.getCurrentTitle().nsText -- for drafts and other pages not in mainspace
if nsText ~= '' then
pageTitle = nsText:gsub('_', ' ') .. ':' .. pageTitle -- [[phab:T369784]]
end
mw.getCurrentFrame():callParserFunction('DISPLAYTITLE', pageTitle)
else
name = name .. ' \\Italic title\\ ' .. pageTitle -- for testing and debugging
end
end
return name
end

-- =============================================================================
-- =============================================================================
function p.infraspeciesboxName(frame)
local name = frame.args[1] or ''
local genus = frame.args[2] or ''
local species = frame.args[3] or ''
local ct = frame.args[4] or ''
local infraspecies = frame.args[5] or ''
local basePageTitle = frame.args[6] or ''
local italicTitle = frame.args[7] or ''
return l.doinfraspeciesboxName(name, genus, species, ct, infraspecies, basePageTitle, italicTitle)
end

function l.doinfraspeciesboxName(name, genus, species, ct, infraspecies, basePageTitle, italicTitle)
genus = mw.ustring.gsub(mw.ustring.gsub(genus, '%s+%b()$', '', 1), '/.*$', '', 1) -- strip any disambig and qualifier
local taxon = genus .. ' ' .. species
if ct == '' then taxon = taxon .. ' ' .. infraspecies
else taxon = taxon .. ' ' .. ct .. ' ' .. infraspecies
end
local italicizeP = italicTitle ~= 'no' and (basePageTitle == taxon) -- use basePageTitle to match taxon
-- deal with taxobox name (i.e. its caption)
if name == '' then
name = basePageTitle
if italicizeP then name = TaxonItalics.italicizeTaxonName(name, false, false) end
end
-- deal with page title
if italicizeP then
local pageTitle = mw.title.getCurrentTitle().text -- formatting the page title with DISPLAYTITLE needs the full page title
pageTitle = TaxonItalics.italicizeTaxonName(pageTitle, false, false, true) -- format pageTitle, not italicizing any parenthesized term
if italicTitle ~= 'test' then
mw.getCurrentFrame():callParserFunction('DISPLAYTITLE', pageTitle)
else
name = name .. ' \\Italic title\\ ' .. pageTitle -- for testing and debugging
end
end
return name
end

return p

Template:Taxonomy/Vertebrata

2026-05-11T08:16:17Z

Indicwiki: 1 revision imported

<noinclude>{{pp-template}}{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=subphylum
|link=Vertebrate|Vertebrata
|parent=Olfactores
}}

Template:Taxonomy/Tetrapodomorpha

2026-05-11T08:16:16Z

Indicwiki: 1 revision imported

<noinclude>{{pp-template}}{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=clade
|link=Tetrapodomorpha
|parent=Rhipidistia
|extinct=
|refs=
}}

Template:Taxonomy/Tetrapoda

2026-05-11T08:16:16Z

Indicwiki: 1 revision imported

<noinclude>{{pp-template}}{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=cladus
|link=Tetrapod|Tetrapoda
|parent=Stegocephali
|refs=*{{cite book |last=Laurin |first=M. |year=2020 |contribution=Stegocephali |title=Phylonyms, a Companion to the PhyloCode |edition=1st |editor-first1= P. |editor-last1=Cantino |editor-first2=J. A. |editor-last2=Gauthier and |editor-first3=K. |editor-last3=Queiroz |pages=741–745 |publisher=Taylor & Francis Group, Ltd |location=London}}
*{{cite journal |last1=Abel |first1=Pascal |last2=Werneburg |first2=Ingmar |title=Morphology of the temporal skull region in tetrapods: Research history, functional explanations, and a new comprehensive classification scheme |journal=Biological Reviews |date=2021 |volume=96 |issue=5 |pages=2229–2257 |doi=10.1111/brv.12751}}
}}

Template:Taxonomy/Sarcopterygii

2026-05-11T08:16:15Z

Indicwiki: 1 revision imported

<noinclude>{{pp-template}}{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=clade
|link=Sarcopterygii
|parent=Osteichthyes
|refs={{cite book|last1=Nelson|first1=Joseph S.|last2=Grande|first2=Terry C.|last3=Wilson|first3=Mark V. H.|year=2016|title=''Fishes of the World''|edition=5th|page=101|publisher=[[John Wiley & Sons]]|isbn=9781118342336}}
}}

Template:Taxonomy/Rhipidistia

2026-05-11T08:16:15Z

Indicwiki: 1 revision imported

<noinclude>{{pp-template}}{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=clade
|link=Rhipidistia
|parent=Sarcopterygii
|extinct=
|refs=
}}

Template:Taxonomy/ParaHoxozoa

2026-05-11T08:16:14Z

Indicwiki: 1 revision imported

<noinclude>{{pp-template}}{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=cladus
|link=ParaHoxozoa
|parent=Eumetazoa
|extinct=
|refs=
*{{Cite journal|last=Giribet|first=Gonzalo|year=2016|title=Genomics and the animal tree of life: conflicts and future prospects|journal=Zoologica Scripta|language=en|volume=45|pages=14–21|doi=10.1111/zsc.12215|s2cid=89157382 }}
*{{Cite journal|last1=Ryan|first1=Joseph F.|last2=Pang|first2=Kevin|last3=Mullikin|first3=James C.|last4=Martindale|first4=Mark Q.|last5=Baxevanis|first5=Andreas D.|year=2010|title=The homeodomain complement of the ctenophore Mnemiopsis leidyi suggests that Ctenophora and Porifera diverged prior to the ParaHoxozoa|journal=EvoDevo|volume=1|issue=1|pages=9|doi=10.1186/2041-9139-1-9|pmid=20920347|pmc=2959044 |doi-access=free }}
}}

Template:Taxonomy/Opisthokonta

2026-05-11T08:16:13Z

Indicwiki: 1 revision imported

<noinclude>{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=clade
|link=Opisthokont|Opisthokonta
|parent=Obazoa
}}

Template:Taxonomy/Obazoa

2026-05-11T08:16:13Z

Indicwiki: 1 revision imported

<noinclude>{{pp-template|small=yes}}{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=cladus
|link=Obazoa
|parent=Amorphea
|refs={{Cite journal|last1=Brown|first1=Matthew W.|last2=Sharpe|first2=Susan C.|last3=Silberman|first3=Jeffrey D.|last4=Heiss|first4=Aaron A.|last5=Lang|first5=B. Franz|last6=Simpson|first6=Alastair G. B.|last7=Roger|first7=Andrew J.|date=2013-10-22|title=Phylogenomics demonstrates that breviate flagellates are related to opisthokonts and apusomonads|journal=Proceedings of the Royal Society of London B: Biological Sciences|language=en|volume=280|issue=1769|article-number=20131755|doi=10.1098/rspb.2013.1755|pmc=3768317|pmid=23986111}}
}}

Template:Taxonomy/Holozoa

2026-05-11T08:16:13Z

Indicwiki: 1 revision imported

<noinclude>{{pp-template}}{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=clade
|parent=Opisthokonta
|link=Holozoa
}}

Template:Taxonomy/Filozoa

2026-05-11T08:16:13Z

Indicwiki: 1 revision imported

<noinclude>{{pp-template}}{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=clade
|parent=Holozoa
|link=Filozoa
}}

Template:Taxonomy/Eukaryota

2026-05-11T08:16:13Z

Indicwiki: 1 revision imported

<noinclude>{{pp-template}}{{High-use}}
</noinclude>{{Don't edit this line {{{machine code|}}}
|rank=domain
|parent=Life
|link=Eukaryote|Eukaryota
|refs={{Catalogue of Life|id=CS5HF|title=Eukaryota|access-date=29 November 2025}}
}}