Modulo:Discendenza
Istruzioni per l'usoQuesto è un modulo scritto in Lua. Le istruzioni che seguono sono contenute nella sottopagina Modulo:Discendenza/man (modifica · cronologia)
Sandbox: Modulo:Discendenza/sandbox (modifica · cronologia) · Sottopagine: lista · Test: Modulo:Discendenza/test (modifica · cronologia · Esegui)
Questo modulo serve a {{Discendenza}} per la creazione automatica di grafici genealogici.
require('Module:No globals')
local p = {}
local pers = {}
local tabella = {}
local function dividi(dati)
local n = 0
local m = 1
local err = '-'
local v1 = {}
for x in string.gmatch(dati,'([^@]+)') do
n = n+1
v1[n] = x
end
if (4*math.floor(n/4) == n) then
while (4*m<=n) do
if ((tonumber(v1[4*m-3])) and (tonumber(v1[4*m-2]))) then
if (pers[tonumber(v1[4*m-3])]) then
err = 'id ' .. v1[4*m-3] .. ' utilizzato per elementi diversi'
else
pers[tonumber(v1[4*m-3])] = { id = tonumber(v1[4*m-3]), padre = tonumber(v1[4*m-2]), testo = v1[4*m-1], nota = v1[4*m], id2 = -1, x = -1, y = -1, sp = 0, figli = {} }
end
else
err = 'identificativo non numerico per l\'elemento ' .. m
end
m = m+1
end
else
err = 'numero di dati (' .. n .. ') non valido'
end
return err
end
local function organizza(pid, plev)
pers[pid].y = plev -- assegna y ad ogni persona
if (not tabella[plev]) then
tabella[plev] = {}
end
table.insert(tabella[plev], pid) -- inserisce la persona in tabella
for i, v in pairs(pers[pid].figli) do
pers[v].id2 = i -- assegna numero del figlio
organizza(v, plev+1) -- ricorsione per assegnare y ai figli
end
end
local function limSx(pid, delta, dt) -- calcola la posizione più a sinistra tra gli elementi del ramo per ogni y
local tt = dt
if (tt[pers[pid].y]) then
tt[pers[pid].y] = math.min(tt[pers[pid].y], pers[pid].x+delta)
else
tt[pers[pid].y] = pers[pid].x + delta
end
for i, v in pairs(pers[pid].figli) do
tt = limSx(v, delta+pers[pid].sp, tt)
end
return tt
end
local function limDx(pid, delta, dt) -- calcola la posizione più a destra tra gli elementi del ramo per ogni y
local tt = dt
if (tt[pers[pid].y]) then
tt[pers[pid].y] = math.max(tt[pers[pid].y], pers[pid].x+delta)
else
tt[pers[pid].y] = pers[pid].x + delta
end
for i, v in pairs(pers[pid].figli) do
tt = limDx(v, delta+pers[pid].sp, tt)
end
return tt
end
local function riallinea(pid2, n1, n2) -- sposta gli elementi tra i fratelli n1 e n2 per cercare di equispaziarli
local distanza = n2 - n1
local vrf = 0
if (distanza > 1) then
local dst = (pers[pers[pid2].figli[n2]].x - pers[pers[pid2].figli[n1]].x)/distanza
local cc = 1
while (n1+cc < n2) do
local sposta = pers[pers[pid2].figli[n1]].x + math.floor(cc*dst)
if (sposta - pers[pers[pid2].figli[n1+cc]].x > 0) then
pers[pers[pid2].figli[n1+cc]].x = sposta
pers[pers[pid2].figli[n1+cc]].sp = sposta
end
cc = cc + 1
end
vrf = 1
end
return vrf
end
local function verifica(pid) -- verifica che i rami non si sovrappongano e calcola eventuali spostamenti
local tSx
local tDx
local sposta = 0
local fine = pers[pid].id2
local frt = 1
local frt2, n
while (frt < fine) do -- controlla tutti i rami fratelli da 1 fino al ramo corrente
frt2 = pers[pers[pers[pid].padre].figli[frt]].id
tDx = limDx(frt2, 0, {}) -- elementi più a destra del ramo fratello per ogni y
tSx = limSx(pid, 0, {}) -- elementi più a sinistra del ramo corrente per ogni y
n = pers[pid].y
while ((tSx[n]) and (tDx[n])) do
if (tSx[n] - tDx[n] + sposta < 2) then -- verifica che ci sia almeno una distanza 2 tra i rami (2 = larghezza casella)
sposta = 2 + tDx[n] - tSx[n]
end
n = n + 1
end
if (sposta > 0) then -- se deve spostare verifica se riallineare elementi intermedi
pers[pid].x = pers[pid].x + sposta
pers[pid].sp = pers[pid].sp + sposta
if (riallinea(pers[pid].padre, frt, fine) == 1) then verifica(pid) end
sposta = 0
end
frt = frt + 1
end
end
local function calcolaX1(pid) -- prima verifica di posizionamento
local tt = 0
for i, v in pairs(pers[pid].figli) do
calcolaX1(v)
tt = i
end
if (tt == 0) then -- non ha figli
if (pers[pid].padre == -1) then -- è capostipite
pers[pid].x = 0
elseif (pers[pid].id2 == 1) then -- è primo figlio
pers[pid].x = 0
else -- è figlio successivo
pers[pid].x = pers[pers[pers[pid].padre].figli[pers[pid].id2 - 1]].x + 2
end
elseif (tt == 1) then -- ha un figlio
if (pers[pid].padre == -1) then -- è capostipite
pers[pid].x = pers[pers[pid].figli[1]].x
elseif (pers[pid].id2 == 1) then -- è primo figlio
pers[pid].x = pers[pers[pid].figli[1]].x
else -- è figlio successivo
pers[pid].x = pers[pers[pers[pid].padre].figli[pers[pid].id2 - 1]].x + 2
pers[pid].sp = pers[pid].x - pers[pers[pid].figli[1]].x
verifica(pid)
end
else -- ha più figli
local media = math.floor((pers[pers[pid].figli[1]].x + pers[pers[pid].figli[tt]].x)/2)
if (pers[pid].padre == -1) then -- è capostipite
pers[pid].x = media
elseif (pers[pid].id2 == 1) then -- è primo figlio
pers[pid].x = media
else -- è figlio successivo
pers[pid].x = pers[pers[pers[pid].padre].figli[pers[pid].id2 - 1]].x + 2
pers[pid].sp = pers[pid].x - media
verifica(pid)
end
end
end
local function calcolaX2(pid)
local tt = {}
local sposta = 0
tt = limSx(pid, 0, tt)
for i, v in pairs(tt) do
if (v+sposta<0) then
sposta = -v
end
end
if (sposta > 0) then
pers[pid].x = pers[pid].x + sposta
pers[pid].sp = pers[pid].sp + sposta
end
end
local function calcolaX3(pid, sposta)
pers[pid].x = pers[pid].x + sposta
local sposta2 = sposta + pers[pid].sp
for i, v in pairs(pers[pid].figli) do
calcolaX3(v, sposta2)
end
end
local function massimoXY(pid, x, y) -- calcola numero colonne e righe totali
local t = {}
t[1] = math.max(x,pers[pid].x)
t[2] = math.max(y,pers[pid].y)
for i, v in pairs(pers[pid].figli) do
t = massimoXY(v,t[1],t[2])
end
return t
end
local function mostra(pid,allinea,largo) -- crea HTML tabella finale
local xy = massimoXY(pid, 0, 0)
local p1, p2, p3 -- posizione all'interno della riga per 1. parte superiore; 2. parte con testo; 3. parte inferiore
local n1 -- padre dell'ultimo elemento analizzato (per connessione tra fratelli)
local s1, s2, s3 -- HTML per 1. parte superiore; 2. parte con testo; 3. parte inferiore
local px, nx -- posizione e padre dell'elemento corrente
local ss = ''
if (allinea == 'destra') then
ss = '<div class="floatright" style="width:'..largo..'px;padding:3px;background:#fff;border:1px solid #c8ccd1"><table cellpadding="1" cellspacing="0" border=0 style="text-align:center;line-height:110%;margin:0px auto">'
else
ss = '<center><table cellpadding="1" cellspacing="0" border=0 style="text-align:center;font-size:95%;line-height:110%;margin:10px auto">'
end
local lg = math.floor(100/(xy[1]+2)) -- larghezza percentuale di ogni colonna
if (lg == 0) then lg = 1 end
for n=1,xy[2] do -- analisi delle righe
p1 = 0; p2 = 0; p3 = 0
n1 = 0
if (n==1) then s1 = '<tr>' else s1 = '<tr style="line-height:6px">' end
s2 = '<tr>'
if (n<xy[2]) then s3 = '<tr style="line-height:6px">' else s3 = '' end
for i, v in pairs(tabella[n]) do
px = pers[v].x
nx = pers[v].padre
if (n>1) then -- 1. parte superiore
s1 = s1 .. '<td style="border-right:1px solid #000'
if (n1 == nx) then s1 = s1 ..';border-top:1px solid #000' end
n1 = nx
if (px - p1 > 0) then s1 = s1 .. '" colspan="' .. (px+1-p1) end
p1 = px + 1
s1 = s1 .. '"> </td>'
else
for m=1,(xy[1]+2) do s1 = s1 .. '<td width='..lg..'%></td>' end
end
if (px-p2>0) then -- 2. parte con testo
s2 = s2 .. '<td'
if (px - p2>1) then s2 = s2 .. ' colspan="'.. (px-p2) ..'"' end
s2 = s2 .. '> </td>'
end
s2 = s2 .. '<td colspan=2>' .. pers[v].testo .. '<br/>'
if (pers[v].nota == '-') then else s2 = s2 .. '<span style="font-size:90%"><i>' .. pers[v].nota .. '</i></span>' end
s2 = s2 .. '</td>'
p2 = px + 2
if (n<xy[2]) then -- 3. parte inferiore (non creata per l'ultima riga)
if (#pers[v].figli > 0) then
s3 = s3 .. '<td style="border-right: 1px solid #000'
if (px - p3 > 0) then s3 = s3 .. '" colspan="' .. (px+1-p3) end
p3 = px + 1
s3 = s3 .. '"> </td>'
end
end
end
if (n>1) then s1 = s1 .. '</tr>' end -- chiusura delle righe
s2 = s2 .. '</tr>'
if (n<xy[2]) then s3 = s3 .. '</tr>' end
ss = ss .. s1 .. s2 .. s3
n = n + 1
end
ss = ss .. '</table>' -- chiusura tabella
if (allinea == 'destra') then ss = ss .. '</div>' else ss = ss .. '</center>' end
return ss
end
function p.main(frame)
local capo = -1
local err = '-'
err = dividi(frame.args[1])
if (err == '-') then
for i, v in pairs(pers) do
if (v.padre == -1) then
if (capo == -1) then
capo = v.id
else
err = 'più elementi (id: ' .. capo .. ', ' .. v.id .. ') indicati come capostipite'
end
else
if (v.padre == v.id) then
err = 'elemento con id ' .. i .. ' indicato come figlio di se stesso'
elseif (pers[v.padre]) then
table.insert(pers[v.padre].figli,i)
else
err = 'valore per genitore (' .. v.padre .. ') non valido per l\'elemento con id ' .. i
end
end
end
if (err == '-') then
if (capo == -1) then
err = 'capostipite non definito'
else
organizza(capo, 1)
calcolaX1(capo)
calcolaX2(capo)
calcolaX3(capo, 0)
end
end
end
if (err == '-') then
return mostra(capo, frame.args[2], frame.args[3])
else
return '<p style="color:#b80000"><b>Template:Discendenza - Errore:</b> ' .. err .. '</p>[[Categoria:Errori di compilazione del template Discendenza]]'
end
end
return p