Modulo:Discendenza/sandbox: differenze tra le versioni

Versione delle 07:24, 9 ott 2020

Versione attuale delle 11:26, 25 ott 2022

(30 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 193 ⟶ 213:

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

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

local posx = {}

local n1

Line 199 ⟶ 218:

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')

riga[1] = {}; riga[2] = {}; riga[3] = {}

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

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

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

n1 = 0

table.insertif (riga[1],string.format('<tr%s>',n>1) andthen riga1:css(' style="line-height:8px"' or ,'8px')) end

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

table.insert(riga[2],'<tr>')

table.insert(riga[3],string.format('<tr%s>',n<xy[2] and ' style="line-height:8px"' or ''))

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

stx = string.format('<td width=%d%%></td>',lg)

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

end

else

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

stx = string.format('<td style="border-right:1px solid #000%s%s">&nbsp;</td>',

n1==xp and :css(';border-top:right','1px solid #000' or '',)

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

xx-posx[1]>0 and '" colspan="'..(xx+1-posx[1]) or ''

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

)

n1 = xp

posx[1] = xx + 1

end

table.insert(riga[1],stx)

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

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

table.insert(riga[2],string.format('<td%s>&nbsp;</td>',xx-posx[2]>1 and 'colspan="'..(xx-posx[2])..'"' or ''))

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

)

end

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

table.insert(riga[2],'<td colspan=2>'..pers[v].testo)

:attr('colspan','2')

if (pers[v].nota == '-') then else table.insert(riga[2],'<br/><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))

table.insert(riga[2],'</td>')

)

posx[2] = xx + 2

if (n<xy[2]) then

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

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

table.insert(riga[3],'<td style="border-right: 1px solid #000%s">&nbsp;</td>',

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

xx-posx[3]>0 and '" colspan="'..(xx+1-posx[3])

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

)

posx[3] = xx + 1

Line 247 ⟶ 280:

end

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

table.insert(riga[1],'</tr>')

table.insert(riga[2],'</tr>')

if (n<xy[2]) then table.insert(riga[3],'</tr>') end

agg(table.concat(riga[1]))

agg(table.concat(riga[2]))

agg(table.concat(riga[3]))

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 273 ⟶ 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 306 ⟶ 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