Module:Taxonbar/whitelist/sandbox

Documentation for this module may be created at Module:Taxonbar/whitelist/sandbox/doc

local p = {}
--returns any combination of strict/lax/all acceptable instance-of's,
--either as a table for use inside [[Module:Taxonbar]] or another module,
--or as an ordered list for use in documentation.
function p.whitelist( frame )
local listType = frame.args[1]
local documentation = frame.args[2]
local outList = {}
local acceptableInstanceOf_Strict = { --table order == display order
'Q16521',		--taxon
'Q310890',		--monotypic taxon
'Q47487597',	--monotypic fossil taxon
'Q2568288',		--ichnotaxon
'Q23038290',	--fossil taxon
'Q59278506',	--ootaxon
'Q98961713',	--extinct taxon
'Q58051350',	--paraphyletic group (subclass of taxon)
}
local acceptableInstanceOf_Lax = { --table order == display order
'Q42621',		--hybrid
'Q235536',		--incertae sedis
'Q713623',		--clade
'Q848328',		--serotype
'Q857968',		--candidatus
'Q17487588',	--unavailable combination
}
if listType == 'strict'  then outList = acceptableInstanceOf_Strict
elseif listType == 'lax' then outList = acceptableInstanceOf_Lax
else --elseif listType == 'all' then --concatenate strict + lax IIF requested
local acceptableInstanceOf_All = {}
local i = 0
for _, v in pairs( acceptableInstanceOf_Strict ) do
i = i + 1
acceptableInstanceOf_All[i] = v
end
for _, v in pairs( acceptableInstanceOf_Lax ) do
i = i + 1
acceptableInstanceOf_All[i] = v
end
outList = acceptableInstanceOf_All
end
if (documentation == nil) or --module only
(documentation and documentation == '')
then
local out = {}
for k, v in pairs( outList ) do
out[v] = k --output Q# as keys for easier searching within Module:Taxonbar
end
return out
elseif (documentation == 'docdoc') then --self-documentation only
local selfdocout = 'myVariable = {\n'
for k, q in pairs( outList ) do
selfdocout = selfdocout..'\t\''..q..'\' = '..k..',\n'
end
selfdocout = selfdocout..'}'
local args = { ['lang'] = 'lua',
['code'] = selfdocout }
out = frame:expandTemplate{ title = 'Syntaxhighlight', args = args }
return out
else --normal documentation only
local out = ''
for _, q in pairs( outList ) do
local Q = frame:expandTemplate{ title = 'Q', args = { q } }
out = out..'# '..Q..'\n'
end
out = mw.ustring.gsub(out, '%s+$', '')
return out
end
end
return p