Zum Inhalt springen

Modul:Vorlage:InfoFlora

Us der alemannische Wikipedia, der freie Dialäkt-Enzyklopedy

Die Dokumentation für dieses Modul kann unter Modul:Vorlage:InfoFlora/Doku erstellt werden

--[[  
Modul für Hilfsfunktionen für Vorlage:InfoFlora
]]
local p = { }

function p.formatScientificName(frame)
--[[  
    Wissenschaftlichen Namen (einschl. Autorenangabe= formatieren
    Parameter: 
    *    wiss. Name ohne Formatierung
]]
    local sciname_pure = frame.args[1]
	sciname_pure = mw.ustring.gsub(sciname_pure, "''", "") -- Eventuelle Eigenformatierungen sicherheitshalber entfernen    
	local sciname_parts = mw.text.split(sciname_pure, "%s")

    --  besondere entkursivierende Besandteile (nicht abgekürzte Schlüsselworte
    local tab_keywords_non_abrev = { sensu = true;
    							     ["&"] = true
    	}
    	
	local first_part = true
		
	for key, part in ipairs(sciname_parts) do
		local firstchar = mw.ustring.sub(part, 1, 1)
		local lastchar = mw.ustring.sub(part, -1, -1)		
		if    (not first_part and mw.ustring.upper(firstchar) == firstchar)
		   or firstchar == '('		
		   or lastchar == '.'
		   or tab_keywords_non_abrev[part] == true
		   then 
		   		part = "''" .. part .. "''"
		   		sciname_parts[key]=part
		end
		first_part = false
	end
	
	local sciname_formatted = "''" .. table.concat(sciname_parts, " ") .. "''"
	-- Doppelte "''" entfernen
	sciname_formatted  = mw.ustring.gsub(sciname_formatted, "'' ''", " ")
	sciname_formatted  = mw.ustring.gsub(sciname_formatted, "''''", "")	
   
    return sciname_formatted 
end
 
return p