Module:Biota infobox/test

Module documentation[create] [purge]

You might want to create a documentation page for this Scribunto module.
Editors can experiment in this module's sandbox (create | mirror) and testcases (create) pages.
Add categories to the /doc subpage. Subpages of this module.

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

local p = {}  -- exposed variables

--local pargs = {}  
local template = {} 
local args = {}
function p.get_taxon(frame)
	args['taxon'] = "taxon name"
	local ranks = require ('Module:Biota_infobox/data').taxonRanks;  -- get the list of rank parameters used by manual taxoboxes
	
	-- interate throught the rank parameters, setting taxon to each in turn. 
	-- The lowest rank parameter should hold the taxon name for the taxoox 
	for k,v in pairs(ranks) do
		if args[v] then                                     -- if rank parameter
			args['taxon'] = args[v]:gsub("[%[%]%']", "")    -- strip wiki formatting and set taxon parameter 
			--args['rank'] = v
			args['authority'] = args[v.."_authority"] or "" -- set authority
	    end
    end
	
end

function p.addParam(param)

    if args[param] then
        local value =  args[param]
 		
 		if param == 'genus' then 
			value = value:gsub("%'",""):gsub("%[",""):gsub("%]","")
			--value='Hypsiboas'
		elseif param == 'species' then
			--value = value:gsub("[%'%[%]]","")
			value = value:gsub("[%'%[]*[A-Za-z%.]* ([A-Za-z]*)[%]%']*","%1")
			--value='albopunctatus'
		elseif param == 'binomial_authority' then
			param = 'authority'
			args['binomial_authority']=nil
		end
		
		if param == 'name' and args['name'] == args['taxon'] then
			-- name parameter not need if same as taxon
			-- TODO not needed if page title either
		else
	    	table.insert (template, '| ' .. param .. ' = ' .. value );
		end	   	
        args[param]=nil -- remove handled parameters
    end
end 

function p.convert(frame)
	--args = frame:getParent().args
	args = getArgs (frame);
    local mode = "speciesbox"
	if args['genus'] and args['species'] then
		table.insert (template, '{{Speciesbox ' );	
	else
		table.insert (template, '{{Automatic taxobox ' );	
		mode = "auto"
		args['taxon'] = "test taxon"
		p.get_taxon(frame)
	end
	
    p.addParam('name')
    p.addParam('fossil range')
    p.addParam('status')
    p.addParam('status_system')
    p.addParam('status_ref')
    p.addParam('status2')
    p.addParam('status2_system')
    p.addParam('status2_ref')
    p.addParam('trend')
    p.addParam('image')
    p.addParam('image_upright')
    p.addParam('image_alt')
    p.addParam('image_caption')
    p.addParam('image2')
    p.addParam('image2_upright')
    p.addParam('image2_alt')
    p.addParam('image2_caption')
    p.addParam('classification_status')
    p.addParam('diversity')
    p.addParam('diversity_ref')
    p.addParam('diversity_link')
    p.addParam('extinct')
    p.addParam('taxon')
    p.addParam('authority')
    p.addParam('genus')
    p.addParam('species')
    args['binomial']=nil    --TODO check 
    p.addParam('binomial_authority')

    p.addParam('subdivision')
    p.addParam('subdivision_ranks')
    p.addParam('subdivision_ref')
    p.addParam('type_strain')
    p.addParam('type_strain_ref')
    p.addParam('range_map')
    p.addParam('range_map_upright')
    p.addParam('range_map_alt')
    p.addParam('range_map_caption')
    p.addParam('range_map2')
    p.addParam('range_map2_upright')
    p.addParam('range_map2_alt')
    p.addParam('range_map2_caption')
    p.addParam('range_map3')
    p.addParam('range_map3_upright')
    p.addParam('range_map3_alt')
    p.addParam('range_map3_caption')
    p.addParam('range_map4')
    p.addParam('range_map4_upright')
    p.addParam('range_map4_alt')
    p.addParam('range_map4_caption')
    p.addParam('synonyms_ref')
    p.addParam('synonyms')
    --p.addParam('')

	-- required parameters should have been set
	-- all others can be discarded
    local testing = false
	for k,v in pairs(args) do
		if testing == true then
		    table.insert (template, table.concat ({' | '..k..'=', v }));	  -- keep the parameter if testing
		else
		    if k ~="nosubst" then
		    	args[k] = nil                                                 -- discard unwanted parameters
		    end
		end
	end

	table.insert (template, '}}');												-- close the template
	
	--return '<pre>' .. table.concat (template, '\n') .. '</pre>';
	 --return '\n<code><nowiki>{{Speciesbox'  ..  table.concat (template, '\n') .. '}}</nowiki></code>'
 	
 	local output =  table.concat (template, '\n')
 	if args['nosubst'] == "yes" then
    	--return table.concat ({'<code>', frame:callParserFunction ('#tag:nowiki', output), '</code>'})
    	return table.concat ({'<pre>', output, '></pre>'})
    else
        return output;
    end
end

return p