Module:Biota infobox/test

Module documentationcreatepurge

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 = {}

-- parse the taxon list and get the taxon parameter and authority from the lowest rank (clear the parameters)
function p.get_taxon(frame, option)
	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 
	local rank
	for k,v in pairs(ranks) do
		if args[v] then                                     -- if rank parameter
			rank = v
			args['taxon'] = args[rank]:gsub("[%[%]%']", "")    -- strip wiki formatting and set taxon parameter 
			--args['rank'] = rank
			args['authority'] = args[rank.."_authority"] or "" -- set authority
			args[rank] = nil
		end
	end
	args[rank.."_authority"] = nil -- delete the authority of taxon (e.g. familia_authority for family) but keep parent taxon authorities if provided
end

-- remove the taxon parameters apart from genus and species
function p.clear_taxon_parameters (frame)
	local ranks = require ('Module:Biota_infobox/data').taxonRanks;  -- get the list of rank parameters used by manual taxoboxes
    for k,v in pairs(ranks) do
    	if v ~= "genus" and v ~= "species" then
    		args[v] = nil
    	end
    end
end

-- add the parameter line with appropriate stripping of wikitext 
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
			args['binomial']=nil             -- not needed
		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 ' );	
		p.clear_taxon_parameters(frame)
	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')
    p.addParam('binomial_authority')

    p.addParam('subdivision_ranks')
    p.addParam('subdivision')
    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 = true
	for k,v in pairs(args) do
		if testing == true then
		    if k ~="nosubst" then
		    	table.insert (template, table.concat ({' | '..k..'=', v }));	  -- show any unhandled parameters
		    end
		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" or args['nosubst'] == "code" then
    	--return table.concat ({'<code>', frame:callParserFunction ('#tag:nowiki', output), '</code>'})
    	return table.concat ({'<pre>', output, '</pre>'})
 	elseif  args['nosubst'] == "preview" then
		return frame:preprocess(output);
    else
        return output;
    end
end

return p