Modulo:Discendenza/sandbox: differenze tra le versioni

Versione delle 21:52, 8 ott 2020

Versione attuale delle 11:26, 25 ott 2022

(37 versioni intermedie di un altro utente non mostrate)

Riga 1:

require('Module:No globalsstrict')

local getArgs = require('Module:Arguments').getArgs

local errorCategory = '[[Categoria:Errori di compilazione del template Discendenza]]'

local mwHtml = getmetatable( mw.html.create() ).__index

function mwHtml:attrIf( cond, name, value )

if cond then

return self:attr( name, value )

else

return self

end

end

function mwHtml:cssIf( cond, name, value )

if cond then

return self:css( name, value )

else

return self

end

end

function mwHtml:wikitextIf( cond, value1, value2 )

if cond then

return self:wikitext( value1 )

elseif not (value2 == nil) then

return self:wikitext( value2 )

else

return self

end

end

local p = {}

local pers = {}

local tabella = {}

local txt = {}

local function errhandler(msg)

local cat = mw.title.getCurrentTitle().namespace == 0 and errorCategory or ''

return string.format('<span class="error">%s</span>%s', msg, cat)

end

local function agg(t)

table.insert(txt,t)

end

Line 21 ⟶ 43:

local resto = 0

local nx,px

-- conta elementi

while (dati[n]) do n = n+1 end

n = n-1

-- crea pers dai dati

for m=4,n,4 do

nx = tonumber(dati[m-3])

Line 137 ⟶ 157:

local tt = #pers[pid].figli

if (tt == 0) then

if (pers[pid].padre == -1 or pers[pid].id == 1) then

pers[pid].x = 0

elseif (pers[pid].id == 1) then

pers[pid].x = 0

else

Line 145 ⟶ 163:

end

elseif (tt == 1) then

if (pers[pid].padre == -1 or pers[pid].id == 1) then

pers[pid].x = pers[pers[pid].figli[1]].x

elseif (pers[pid].id == 1) then

pers[pid].x = pers[pers[pid].figli[1]].x

else

Line 156 ⟶ 172:

else

local media = math.floor((pers[pers[pid].figli[1]].x + pers[pers[pid].figli[tt]].x)/2)

if (pers[pid].padre == -1 or pers[pid].id == 1) then

pers[pid].x = media

elseif (pers[pid].id == 1) then

pers[pid].x = media

else

Line 199 ⟶ 213:

local function mostraX(pid,allinea,largo,dida)

local xyposx = massimoXY(pid, {0, 0})

local p1, p2, p3

local n1

local s1, s2, s3stx

local riga = {}

local xx, xp

local stileDiv = { ['width'] = largo..'px', ['padding'] = '3px', ['background'] = '#FFF', ['border'] = '1px solid #C8CCD1' }

if (allinea == 'destra') then

local stileTabella = { ['border-collapse'] = 'separate', ['text-align'] = 'center', ['font-size'] = '95%', ['line-height'] = '105%', ['margin'] = '0px auto !important', }

agg(string.format('<div class="floatright" style="width:%dpx;padding:3px;background:#fff;border:1px solid #c8ccd1">', largo))

local xy = massimoXY(pid, {0, 0})

agg('<table cellpadding="1" cellspacing="0" border=0 style="border-collapse:separate;text-align:center;font-size:95%;line-height:110%;margin:0px auto">')

else

agg('<table cellpadding="1" cellspacing="0" border=0 style="border-collapse:separate;text-align:center;font-size:95%;line-height:110%;margin:10px auto">')

end

local lg = math.floor(100/(xy[1]+2))

if (lg == 0) then lg = 1 end

local bDiv = mw.html.create('div')

if (allinea == 'destra') then

bDiv:css(stileDiv):addClass('floatright')

stileTabella['margin'] = '10px auto'

end

local bTabella = mw.html.create('table')

:css(stileTabella)

:attr({['cellpadding']='1',['cellspacing']='0',['border']='0'})

for n=1,xy[2] do

local riga1 = mw.html.create('tr')

p1 = 0; p2 = 0; p3 = 0

local riga2 = mw.html.create('tr')

local riga3 = mw.html.create('tr')

posx[1] = 0; posx[2] = 0; posx[3] = 0

n1 = 0

if (n==>1) then s1 = riga1:css('<tr>' else s1 = '<tr style="line-height:','8px">') end

if (n<xy[2]) then riga3:css('line-height','8px') end

s2 = '<tr>'

if (n<xy[2]) then s3 = '<tr style="line-height:8px">' else s3 = '' end

for _, v in pairs(tabella[n]) do

xx = pers[v].x

xp = pers[v].padre

if (n>==1) then

for m=1,(xy[1]+2) do

s1 = s1..'<td style="border-right:1px solid #000'

riga1:node(mw.html.create('td'):css('width',lg..'%'))

if (n1 == xp) then s1 = s1 ..';border-top:1px solid #000' end

n1 = xpend

if (xx-p1>0) then s1 = s1..'" colspan="'..(xx+1-p1) end

p1 = xx + 1

s1 = s1 .. '">&nbsp;</td>'

else

riga1:node(mw.html.create('td')

for m=1,(xy[1]+2) do s1 = s1..'<td width='..lg..'%></td>' end

:css('border-right','1px solid #000')

:cssIf(n1 == xp,'border-top','1px solid #000')

:attrIf(xx-posx[1]>0,'colspan',xx+1-posx[1])

)

n1 = xp

posx[1] = xx + 1

end

if (xx-p2posx[2]>0) then

s2 = s2riga2:node(mw.html.create('<td')

if :attrIf(xx-p2posx[2]>1) then s2 = s2..,' colspan="'..(,xx-p2posx[2])..'"' end

)

s2 = s2..'>&nbsp;</td>'

end

riga2:node(mw.html.create('td')

s2 = s2..'<td colspan=2>'..pers[v].testo..'<br/>'

:attr('colspan','2')

if (pers[v].nota == '-') then else s2 = s2..'<span style="font-size:90%"><i>'..pers[v].nota..'</i></span>' end

:wikitextIf(pers[v].nota=='-', pers[v].testo, string.format('%s<br/><span style="font-size:90%%"><i>%s</i></span>',pers[v].testo,pers[v].nota))

s2 = s2..'</td>'

p2 = xx + 2)

posx[2] = xx + 2

if (n<xy[2]) then

if (#pers[v].figli > 0) then

riga3:node(mw.html.create('td')

s3 = s3..'<td style="border-right: 1px solid #000'

:css('border-right','1px solid #000')

if (xx-p3>0) then s3 = s3..'" colspan="'..(xx+1-p3) end

:attrIf(xx-posx[3]>0,'colspan',xx+1-posx[3])

p3 = xx + 1

)

s3 = s3 .. '">&nbsp;</td>'

posx[3] = xx + 1

end

end

end

bTabella:node(riga1):node(riga2):node(riga3)

s1 = s1..'</tr>'

s2 = s2..'</tr>'

if (n<xy[2]) then s3 = s3..'</tr>' end

agg(s1);agg(s2);agg(s3)

end

bDiv:node(bTabella)

agg('</table>')

if (allinea == 'destra' and not (dida=='')) then

bDiv:node(mw.html.create('p')

if not (dida=='') then agg('<p style="font-size:87%;font-style:normal;border-top:1px solid #c8ccd1;margin:8px 2px 3px">'..dida..'</p>') end

:css({['font-size'] = '87%', ['font-style'] = 'normal', ['border-top'] = '1px solid #c8ccd1', ['margin'] = '8px 2px 3px'})

agg('</div>')

:wikitext(dida)

)

end

return tostring(bDiv)

return table.concat(txt)

end

Line 277 ⟶ 301:

return t

end

local function mostraY(pid)

local bTabella = mw.html.create('table')

:attr({['cellpadding']='0',['cellspacing']='0',['border']='0'})

:css({['border-collapse']='separate',['text-align']='left',['margin']='10px 0 10px 16px'})

local function mostraY2(pid, a)

if (pers[pid].id > 1) then agg('<tr>') end

if (pers[pid].padre > -1) then

local riga1 = mw.html.create('tr')

agg('<td style="width:6px"></td><td style="border-left:1px solid #666;border-bottom:1px solid #666;width:10px;line-height:3px;height:12px">&nbsp;</td>')

local riga2 = mw.html.create('tr')

agg(string.format('<td colspan=%d rowspan=2 style="padding: 0px 3px 2px 1px">%s',2*a-1,pers[pid].testo))

local spd = pers[pers[pid].padre].sp

if not (pers[pid].nota == '') then agg(string.format(' - %s',pers[pid].nota)) end

if (pers[pid].id == 1 and pers[pers[pid].padre].padre > -1) then

agg('</td></tr>')

riga1:node(mw.html.create('td')

agg('<tr><td></td><td style="line-height:8px;line-height:3px;height:12px')

:attr('rowspan',2*spd))

if (pers[pid].id < #pers[pers[pid].padre].figli) then

riga1:node(mw.html.create('td')

agg(';border-left:1px solid #666')

:attr('rowspan',2*spd)

end

:cssIf(pers[pers[pid].padre].id < #pers[pers[pers[pid].padre].padre].figli,'border-left','1px solid #666')

agg('">&nbsp;</td></tr>')

)

if (pers[pid].sp > 0) then

agg(string.format('<tr><td rowspan=%d></td><td rowspan=%d',2*pers[pid].sp,2*pers[pid].sp))

if (pers[pid].id < #pers[pers[pid].padre].figli) then

agg(' style="border-left:1px solid #666"')

end

agg('>&nbsp;</td>')

end

riga1

:node(mw.html.create('td')

:css('width','6px'))

:node(mw.html.create('td')

:css({['border-left']='1px solid #666',['border-bottom']='1px solid #666',['width']='10px',['line-height']='3px',['height']='12px'}))

:node(mw.html.create('td')

:attr({['colspan']=2*a-1, ['rowspan']=2})

:css('padding', '0px 3px 2px 1px')

:wikitextIf(pers[pid].nota=='', pers[pid].testo, pers[pid].testo..' - '..pers[pid].nota))

riga2

:node(mw.html.create('td'))

:node(mw.html.create('td')

:css({['line-height']='8px',['line-height']='3px',['height']='12px'})

:cssIf(pers[pid].id < #pers[pers[pid].padre].figli,'border-left','1px solid #666'))

bTabella:node(riga1):node(riga2)

else

bTabella:node(

agg(string.format('<td colspan=%d style="padding: 0px 0px 2px 2px">%s',2*a-1,pers[pid].testo))

mw.html.create('tr')

if not (pers[pid].nota == '') then agg(string.format(' - %s',pers[pid].nota)) end

:node(mw.html.create('td')

agg('</td></tr><tr>')

:attr('colspan',2*a-1)

:css('padding','0px 0px 2px 2px')

:wikitextIf(pers[pid].nota=='',pers[pid].testo,pers[pid].testo..' - '..pers[pid].nota)

)

)

end

if (pers[pid].sp > 0) then

-- agg(string.format('<td rowspan=%d style="width:6px">&nbsp;</td>',2*pers[pid].sp))

for _, v in pairs(pers[pid].figli) do

mostraY2(v,a-1)

Line 310 ⟶ 352:

end

local function mostraY(pid)

agg('<table cellpadding="0" cellspacing="0" border=0 style="text-align:left;margin:10px 0 10px 16px"><tr>')

mostraY2(pid,calcolaY(pid,0))

return tostring(bTabella)

agg('</tr></table>')

return table.concat(txt)

end