Модул:Taxonomy/latin
Wikimedia module / From Wikipedia, the free encyclopedia
local p = {}
function p.latin(frame) local latin = frame.args[1]
if string.find(latin, "Candidatus") then latin = string.gsub(latin, "Candidatus(.+)", "Candidatus%1") return latin elseif string.find(latin, "%a+%.") then latin = string.gsub(latin, "(%a+%-?%a*%s*%a*%-?%a*%s)(%a+%.)(.+)", "%1%2%3") return latin
else return "" .. latin .. "" end end function p.author(frame) local author= frame.args[1]
if string.find(author, "%set al%.") then author = string.gsub(author, "(%[*%set al%.%]*)", "%1") end if string.find(author, "%sex%s") then author = string.gsub(author, "(%sex%s)", "%1") end if string.find(author, "%set%s") then author = string.gsub(author, "(%set%s)", "%1") end if string.find(author, "%sin%s") then author = string.gsub(author, "(%sin%s)", "%1") end if string.find(author, "%semend%.") then author = string.gsub(author, "(%semend%.)", "%1") end if string.find(author, "%sapud%s") then author = string.gsub(author, "(%sapud%s)", "%1") end if string.find(author, "%se%. a%.") then author = string.gsub(author, "(%[*%se%. a%.%]*)", "%1") end if string.find(author, "hort%.") then author = string.gsub(author, "(%[*hort%.%]*)", "%1") end if string.find(author, "auct%.") then author = string.gsub(author, "(%[*auct%.%]*%s?%a*%.?%]*)", "%1") end if string.find(author, "nom%.") then author = string.gsub(author, "(%[*nom%. %a+%.%]*)", "%1") end if string.find(author, "corrig%.") then author = string.gsub(author, "(corrig%.)", "%1") end if string.find(author, "%sand%s") then author = string.gsub(author, "(%sand%s)", "%1") end
return "" .. author .. "" end
return p