Módulo:Clade/sequential
[ máis información | ver o historial | | | ver as instrucións ]
Aínda non se redactaron as instrucións sobre como usar este módulo.
[ máis información | ver o historial | | | ver as instrucións ]
Os editores poden probar cambios no mesmo en Módulo:Clade/sequential/probas.
Por favor, engade as categorías na subpáxina de documentación e os interwikis no Wikidata. Ver as subpáxinas deste módulo.
Por favor, engade as categorías na subpáxina de documentación e os interwikis no Wikidata. Ver as subpáxinas deste módulo.
local p = {}
local pargs
function p.main(frame)
pargs = frame:getParent().args
local args = {}
local i=1
local contentString = ""
local max = getMax()
if pargs['inverse'] then
contentString = p.inverseClade(frame,max,max)
else
contentString = p.clade(frame,1,max)
end
return contentString
end
function p.clade(frame,i,max) -- |1= is basal at top
local args = {}
args[1] = pargs [i]
args['label1'] = pargs ['label'..tostring(i)]
args['sublabel1'] = pargs ['sublabel'..tostring(i)]
if i+1 == max then
args[2] = pargs [i+1]
args['label2'] = pargs ['label'..tostring(i+1)]
args['sublabel2'] = pargs ['sublabel'..tostring(i+1)]
else
args[2] = p.clade(frame,i+1,max) -- or the result of the next pair
end
local template = "Clade"
if pargs ['reverse'] then template = "CladeR" end
return frame:expandTemplate{ title = template, args = args }
end
function p.inverseClade(frame,i,max) -- |1= innermost at bottom
local args = {}
args[2] = pargs [i]
args['label2'] = pargs ['label'..tostring(i)]
args['sublabel2'] = pargs ['sublabel'..tostring(i)]
if i-1 == 1 then
args[1] = pargs [i-1]
args['label1'] = pargs ['label'..tostring(i-1)]
args['sublabel1'] = pargs ['sublabel'..tostring(i-1)]
else
args[1] = p.inverseClade(frame,i-1,max) -- or the result of the next pair
end
local template = "Clade"
if pargs ['reverse'] then template = "CladeR" end
return frame:expandTemplate{ title = template , args = args }
end
function p.inverseClade2(frame,i,max) -- |1= is innermost at bottom
local args = {}
args[1] = pargs [i]
args['label1'] = pargs ['label'..tostring(i)]
if i-1 == 1 then
args[2] = pargs [i-1]
args['label2'] = pargs ['label'..tostring(i-1)]
else
args[2] = p.inverseClade(frame,i-1,max) -- or the result of the next pair
end
return frame:expandTemplate{ title = "Clade", args = args }
end
function getMax()
local i=1
local max
while i<50 do
if pargs [i] then
max = i
i=i+1
else
break
end
end
return max
end
return p