Modulo:Elezioni
Istruzioni per l'usoQuesto è un modulo scritto in Lua. Le istruzioni che seguono sono contenute nella sottopagina Modulo:Elezioni/man (modifica · cronologia)
Sandbox: Modulo:Elezioni/sandbox (modifica · cronologia) · Sottopagine: lista · Test: Modulo:Elezioni/test (modifica · cronologia · esegui)
Questo modulo serve a creare le tabelle di {{Elezione uninominale}}, {{Elezione plurinominale}} e {{Elezione di lista}}; inoltre recupera i colori di partito per {{Eletti in collegio}}.
require('Module:No globals')
local p = {}
local getArgs = require('Module:Arguments').getArgs
local colore = require('Module:Partiti').colore
local sfondo = require('Module:Partiti').sfondo
local tcella = '<th>Voti</th><th>%</th>'
local ff = function (key, value)
if type(key) == "number" then
if value == nil then return nil else value = mw.text.trim(value) end
else
if value == '' then return nil end
end
return value
end
local edate = '<br/><span style="font-size:85%%">%s</span>'
-- html per affiancamento di tabelle tramite parametro "allinea"
local flex = {}
flex['primo'] = {'<div style="display:flex;flex-direction:row;flex-wrap:wrap"><div style="flex-grow:0;flex-shrink:0;flex-basis:auto;padding: 0 2em 0 0">','</div>','0'}
flex['medio'] = {'<div style="flex-grow:0;flex-shrink:0;flex-basis:auto;padding: 0 2em 0 0">','</div>','0'}
flex['ultimo'] = {'<div style="flex-grow:0;flex-shrink:0;flex-basis:auto;padding: 0 2em 0 0">','</div></div>','0'}
flex['centro'] = { [3] = 'auto' }
-- crea unico array per stringa
local function agg(a,...)
local args = {...}
for _, s in ipairs(args) do
table.insert(a, s)
end
end
-- estrae voce del partito da eventuale wikilink
local function estrai(partito)
local a = partito
local x1 = mw.ustring.find(a,'%[%[')
if (x1) then
local b = mw.ustring.sub(a,x1+2)
local x2 = mw.ustring.find(b,'%|')
local x3 = mw.ustring.find(b,'%]%]')
if (x3) then
if (x2) then
a = mw.ustring.sub(a,x1+2,x2+x1)
else
a = mw.ustring.sub(a,x1+2,x3+x1)
end
end
end
return a
end
-- formato numero
local function formato(a)
local s = ''..a
local k
while true do
s, k = s:gsub("^(-?%d+)(%d%d%d)", '%1 %2')
if (k==0) then break end
end
return s
end
-- calcola percentuale
local function percento(a,b)
local s1 = string.format('<small>%4.2f</small>',100*tonumber(a)/b)
return s1:gsub('%.',',')
end
-- recupera colore del partito da Modulo:Partiti
-- a = partito; b = colore opzionale
local function colora(a,b)
return colore({a,(b or '#EEE')})
end
-- controlla possibili errori nei dati numerici inseriti per primo e secondo turno
-- el,el2 = elettori; vt,vt2 = votanti; tt,tt2 = totale; bi,bi2 = schede bianche
local function verifica(e,el,vt,tt,bi,b,el2,vt2,tt2,bi2)
local err = e
if (vt == -1) then
agg(err,' Non indicati votanti della votazione.')
elseif (el == -1) then
agg(err,'Non indicati elettori della votazione.')
elseif (vt < tt) then
agg(err,' Il totale è superiore al numero di votanti.')
elseif ((bi>-1) and (vt < tt+bi)) then
agg(err,' Il numero di schede bianche è superiore al numero di voti nulli.')
end
if (b>0) then
if (vt2 == -1) then
agg(err,' Non indicati votanti del ballottaggio.')
elseif (el2 == 0) then
agg(err,' Non indicati elettori del ballottaggio.')
elseif (vt2 < tt2) then
agg(err,' Il totale è superiore al numero di votanti nel ballottaggio.')
elseif ((bi2>-1) and (vt2 < tt2+bi2)) then
agg(err,' Il numero di schede bianche è superiore al numero di voti nulli.')
end
end
return err
end
-- restituisce il colore del partito
function p.colorato(frame)
local args = getArgs(frame, { valueFunc = ff })
return colore({args[1],'#EEE'})
end
-- crea linea vuota su nn colonne
local function l_vuota(nn)
return string.format('<tr class="sortbottom"><td colspan=%d></td></tr>',nn)
end
-- Crea linea con dati voti e percentuali
-- a: scritta; b: voti; c: percentuale
-- d: ballottaggio; e:voti; f: percentuale;
local function l_semplice(a,b,c,d,e,f)
if (d>0) then
return string.format('<tr class="sortbottom"><td align=left colspan=3>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td>',a,formato(b),percento(b,c),formato(e),percento(e,f))
else
return string.format('<tr class="sortbottom"><td align=left colspan=3>%s</td><td>%s</td><td>%s</td>',a,formato(b),percento(b,c))
end
end
-- crea tabella per elezione uninominale
function p.unico(frame)
local args = getArgs(frame, { valueFunc = ff })
local elettori = tonumber(args['elettori'] or -1)
local elettori2 = tonumber(args['elettori2'] or elettori)
local votanti = tonumber(args['votanti'] or -1)
local votanti2 = tonumber(args['votanti2'] or -1)
local bianche = tonumber(args['bianche'] or -1)
local bianche2 = tonumber(args['bianche2'] or 0)
local edata = ''
if (args['data']) then edata = string.format(edate,args['data']) end
local edata2 = ''
if (args['data2']) then edata2 = string.format(edate,args['data2']) end
local ball = tonumber(args['ball1'] or 0)
local titolo = args['titolo'] or ''
local allinea = args['allinea'] or ''
local solovotanti = args['solovotanti'] and 0 or 1
local err = {}
agg(err, '<p style="color:#800"><b>Errore nel template:</b>')
local ss = {}
local num = 1
local tot,tot2 = 0,0
local dati = {}
while (args['cand'..num]) do
if (args['voti'..num]) then
dati[num] = {
n = args['cand'..num], v = tonumber(args['voti'..num]), b = tonumber(args['ball'..num] or -1),
p = args['part'..num] or '—', c = colora(args['part'..num] or '',args['col'..num])
}
tot = tot+dati[num].v
if (dati[num].b > -1) then tot2 = tot2 + dati[num].b end
else
agg(err, ' Non indicato il numero di voti per il candidato '..num..'.')
end
num = num+1
end
num = num-1
err = verifica(err,elettori,votanti,tot,bianche,ball,elettori2,votanti2,tot2,bianche2)
if (#err == 1) then
if (flex[allinea]) then agg(ss,flex[allinea][1]) end
agg(ss,'<table class="wikitable sortable" style="text-align:right;margin:10px ',flex[allinea] and flex[allinea][3] or '0','"><caption>',titolo,'</caption>')
agg(ss,'<tr><th rowspan=2 colspan=2>Partito</th><th rowspan=2>Candidato</th><th colspan=2>')
if (ball>0) then agg(ss,'Primo turno',edata,'</th><th colspan=2>Ballottaggio',edata2) else agg(ss,'Risultati',edata) end
agg(ss,'</th></tr><tr>',tcella,((ball>0) and tcella or ''),'</tr>')
for i=1,num do
if (i==1) then
agg(ss,string.format('<tr style="font-weight:bold;background:%s">',sfondo({dati[i].p,'#ff0',0.13})))
else
agg(ss,'<tr>')
end
agg(ss,string.format('<td style="width:0;background:%s"></td><td align=left>%s</td><td align=left>%s</td>', dati[i].c, dati[i].p, dati[i].n))
agg(ss,string.format('<td>%s</td><td>%s</td>',formato(dati[i].v),percento(dati[i].v,tot)))
if (dati[i].b>-1) then agg(ss,string.format('<td>%s</td><td>%s</td>',formato(dati[i].b),percento(dati[i].b,tot2))) end
agg(ss,'</tr>')
end
agg(ss,l_vuota((ball>0) and 7 or 5))
agg(ss,l_semplice('Iscritti',elettori,elettori,ball,elettori2,elettori2))
agg(ss,l_semplice('↳ Votanti <small>(% su iscritti)</small>',votanti,elettori,ball,votanti2,elettori2))
if (solovotanti == 1) then
agg(ss,l_semplice(' ↳ Voti validi <small>(% su votanti)</small>',tot,votanti,ball,tot2,votanti2))
agg(ss,l_semplice(' ↳ Voti non validi <small>(% su votanti)</small>',votanti-tot,votanti,ball,votanti2-tot2,votanti2))
if (bianche > -1) then
agg(ss,l_semplice('  ↳ Schede bianche <small>(% su votanti)</small>',bianche,votanti,ball,bianche2,votanti2))
end
end
agg(ss,l_semplice('↳ Astenuti <small>(% su iscritti)</small>',elettori-votanti,elettori,ball,elettori2-votanti2,elettori2))
if (args['nota']) then
agg(ss,l_vuota((ball>0) and 7 or 5))
agg(ss,string.format('<tr class="sortbottom"><td style="width:0;background:%s"></td><td align=left colspan=%d style="font-size:90%%">%s</td></tr>', dati[1].c,(ball>0 and 6 or 4),args['nota']))
elseif (args['part0'] and not (dati[1].p == '—')) then
agg(ss,l_vuota((ball>0) and 7 or 5))
agg(ss,string.format('<tr class="sortbottom"><td style="width:0;background:%s"></td><td align=left colspan=%d style="font-size:90%%"><b>Esito:</b> ', dati[1].c,(ball>0 and 6 or 4)))
if (estrai(dati[1].p) == estrai(args['part0'])) then
agg(ss,string.format('collegio confermato a %s', dati[1].p))
elseif (args['part0'] == 'n') then
agg(ss,string.format('collegio a %s (nuovo collegio)',dati[1].p))
else
agg(ss,string.format('collegio passa da %s a %s',args['part0'],dati[1].p))
end
agg(ss,'</td></tr>')
end
agg(ss,'</table>')
if (flex[allinea]) then agg(ss,flex[allinea][2]) end
return table.concat(ss)
else
agg(err,'</p>')
return table.concat(err)
end
end
-- crea tabella per elezione plurinominale
function p.poli(frame)
local args = getArgs(frame, { valueFunc = ff })
local elettori = tonumber(args['elettori'] or -1)
local elettori2 = tonumber(args['elettori2'] or elettori)
local votanti = tonumber(args['votanti'] or -1)
local votanti2 = tonumber(args['votanti2'] or -1)
local edata = ''
if (args['data']) then edata = string.format(edate,args['data']) end
local edata2 = ''
if (args['data2']) then edata2 = string.format(edate,args['data2']) end
local eletti = tonumber(args['eletti'] or 0)
local ball = tonumber(args['ball1'] or 0)
local titolo = args['titolo'] or ''
local allinea = args['allinea'] or ''
local err = {}
agg(err, '<p style="color:#800"><b>Errore nel template:</b>')
local ss = {}
local num = 1
local dati = {}
while (args['cand'..num]) do
if (args['voti'..num]) then
dati[num] = {
n = args['cand'..num], v = tonumber(args['voti'..num]), b = tonumber(args['ball'..num] or -1),
p = args['part'..num] or '—', c = colora(args['part'..num] or '',args['col'..num])
}
else
agg(err,' Non indicato il numero di voti per il candidato '..num..'.')
end
num = num+1
end
num = num-1
err = verifica(err,elettori,votanti,votanti,-1,ball,elettori2,votanti2,votanti2,0)
if (eletti == 0) then agg(err,' Non indicato numero eletti.') end
if (#err == 1) then
if (flex[allinea]) then agg(ss,flex[allinea][1]) end
agg(ss,'<table class="wikitable sortable" style="text-align:right;margin:10px ',flex[allinea] and flex[allinea][3] or '0','"><caption>',titolo,'</caption>')
agg(ss,'<tr><th rowspan=2 colspan=2>Partito</th><th rowspan=2>Candidato</th><th colspan=2>')
if (ball>0) then agg(ss,'Primo turno',edata,'</th><th colspan=2>Ballottaggio',edata2) else agg(ss,'Risultati',edata) end
agg(ss,'</th></tr><tr>',tcella,((ball>0) and tcella or ''),'</tr>')
for i=1,num do
if (i<=eletti) then
agg(ss,string.format('<tr style="font-weight:bold;background:%s">',sfondo({dati[i].p,'#ff0',0.13})))
else
agg(ss,'<tr>')
end
agg(ss,string.format('<td style="width:0;background:%s"></td><td align=left>%s</td><td align=left>%s</td>', dati[i].c, dati[i].p, dati[i].n))
agg(ss,string.format('<td>%s</td><td>%s</td>',formato(dati[i].v),percento(dati[i].v,votanti)))
if (dati[i].b>-1) then agg(ss,string.format('<td>%s</td><td>%s</td>',formato(dati[i].b),percento(dati[i].b,votanti2))) end
agg(ss,'</tr>')
end
agg(ss,l_vuota((ball>0) and 7 or 5))
agg(ss,l_semplice('Iscritti',elettori,elettori,ball,elettori2,elettori2))
agg(ss,l_semplice('↳ Votanti <small>(% su iscritti)</small>',votanti,elettori,ball,votanti2,elettori2))
agg(ss,l_semplice('↳ Astenuti <small>(% su iscritti)</small>',elettori-votanti,elettori,ball,elettori2-votanti2,elettori2))
if (args['nota']) then
agg(ss,l_vuota((ball>0) and 7 or 5))
agg(ss,string.format('<tr class="sortbottom"><td align=left colspan=%d style="font-size:90%%">%s</td></tr>',(ball>0 and 7 or 5),args['nota']))
end
agg(ss,'</table>')
if (flex[allinea]) then agg(ss,flex[allinea][2]) end
return table.concat(ss)
else
agg(err,'</p>')
return table.concat(err)
end
end
-- crea linea con variazioni percentuali
-- a: scritta; b: voti; c: percentuale; d: variazione
-- e: ballottaggio; f:voti; g: percentuale; h: variazione
local function l_variaz(a,b,c,d,e,f,g,h)
if (e>0) then
return string.format('<tr class="sortbottom"><td align=left colspan=2>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td>',a,formato(b),percento(b,c),d,formato(f),percento(f,g),h)
else
return string.format('<tr class="sortbottom"><td align=left colspan=2>%s</td><td>%s</td><td>%s</td><td>%s</td>',a,formato(b),percento(b,c),d)
end
end
-- crea tabella per elezione di lista
function p.lista(frame)
local args = getArgs(frame, { valueFunc = ff })
local elettori = tonumber(args['elettori'] or -1)
local elettori2 = tonumber(args['elettori2'] or elettori)
local votanti = tonumber(args['votanti'] or -1)
local votantiv = args['votantiv'] or '<small>n.d.</small>'
local votanti2 = tonumber(args['votanti2'] or -1)
local votanti2v = args['votanti2v'] or '<small>n.d.</small>'
local bianche = tonumber(args['bianche'] or -1)
local bianche2 = tonumber(args['bianche2'] or 0)
local edata = ''
if (args['data']) then edata = string.format(edate,args['data']) end
local edata2 = ''
if (args['data2']) then edata2 = string.format(edate,args['data2']) end
local ball = tonumber(args['ball1'] or 0)
local titolo = args['titolo'] or ''
local allinea = args['allinea'] or ''
local solovotanti = args['solovotanti'] and 0 or 1
local err = {}
agg(err, '<p style="color:#800"><b>Errore nel template:</b>')
local ss = {}
local num = 1
local tot,tot2 = 0,0
local dati = {}
while (args['part'..num]) do
if (args['voti'..num]) then
dati[num] = {
p = args['part'..num], v = tonumber(args['voti'..num]), b = tonumber(args['ball'..num] or -1),
c = colora(args['part'..num] or '',args['col'..num]), s = args['seggi'..num] or '',
sv = args['seggiv'..num] or '<small>n.d.</small>', pv = args['percv'..num] or '<small>n.d.</small>', pv2 = args['percvb'..num] or '<small>n.d.</small>'
}
tot = tot+dati[num].v
if (dati[num].b > -1) then tot2 = tot2 + dati[num].b end
else
agg(err,' Non indicato il numero di voti per il partito '..num..'.')
end
num = num+1
end
num = num-1
err = verifica(err,elettori,votanti,tot,bianche,ball,elettori2,votanti2,tot2,bianche)
if (#err == 1) then
if (flex[allinea]) then agg(ss,flex[allinea][1]) end
agg(ss,'<table cellpadding=0 cellspacing=0 style="margin:10px ',flex[allinea] and flex[allinea][3] or '0','"><caption><b>',titolo,'</b></caption><tr style="vertical-align:top"><td>')
agg(ss,'<table class="wikitable sortable" style="text-align:right"><tr><th rowspan=2 colspan=2>Partito</th><th colspan=3>')
if (ball>0) then agg(ss,'Primo turno',edata,'</th><th colspan=3>Ballottaggio',edata2) else agg(ss,'Risultati',edata) end
agg(ss,'</th><th colspan=2>Seggi</th></tr><tr>',tcella,'<th>±</th>',((ball>0) and tcella..'<th>±</th>' or ''),'<th>Num</th><th>±</th></tr>')
for i=1,num do
agg(ss,string.format('<tr><td style="width:0;background:%s"></td><td align=left>%s</td>', dati[i].c, dati[i].p))
agg(ss,string.format('<td>%s</td><td>%s</td><td>%s</td>',formato(dati[i].v),percento(dati[i].v,tot),dati[i].pv))
if (ball>0) then
if (dati[i].b>-1) then
agg(ss,string.format('<td>%s</td><td>%s</td><td>%s</td>',formato(dati[i].b),percento(dati[i].b,tot2),dati[i].pv2))
else
agg(ss,'<td></td><td></td><td></td>')
end
end
agg(ss,string.format('<td>%s</td><td>%s</td></tr>',dati[i].s,dati[i].sv))
end
agg(ss,l_vuota((ball>0) and 10 or 7))
agg(ss,l_variaz('Iscritti',elettori,elettori,'',ball,elettori2,elettori2,''))
agg(ss,l_variaz('↳ Votanti <small>(% su iscritti)</small>',votanti,elettori,votantiv,ball,votanti2,elettori2,votanti2v))
if (solovotanti == 1) then
agg(ss,l_variaz(' ↳ Voti validi <small>(% su votanti)</small>',tot,votanti,'',ball,tot2,votanti2,''))
agg(ss,l_variaz(' ↳ Voti non validi <small>(% su votanti)</small>',votanti-tot,votanti,'',ball,votanti2-tot2,votanti2,''))
if (bianche > -1) then
agg(ss,l_variaz('  ↳ Schede bianche <small>(% su votanti)</small>',bianche,votanti,'',ball,bianche2,votanti2,''))
end
end
agg(ss,l_variaz('↳ Astenuti <small>(% su iscritti)</small>',elettori-votanti,elettori,'',ball,elettori2-votanti2,elettori2,''))
if (args['nota']) then
agg(ss,l_vuota((ball>0) and 10 or 7))
agg(ss,string.format('<tr class="sortbottom"><td align=left colspan=%d style="font-size:90%%">%s</td></tr>', (ball>0 and 10 or 7),args['nota']))
end
agg(ss,'</table></td>')
if (args['el1']) then
num = 1
while (args['el'..num]) do num = num +1 end
num = num-1
if (num>40) then
local c2 = math.floor(0.7 + num/3)
agg(ss,'<td width="12px"></td><td><table class="wikitable"><tr><th colspan=2>Eletti</th><th rowspan=',c2+1,'></th><th colspan=2>Eletti</th><th rowspan=',c2+1,'></th><th colspan=2>Eletti</th></tr>')
for j=1,c2 do
agg(ss,string.format('<tr><td style="background:%s"> </td><td>%s</td>',dati[tonumber(args['part el'..j])].c, args['el'..j]))
agg(ss,string.format('<td style="background:%s"> </td><td>%s</td>',dati[tonumber(args['part el'..(j+c2)])].c, args['el'..(j+c2)]))
if (2*c2+j<=num) then agg(ss,string.format('<td style="background:%s"> </td><td>%s</td>',dati[tonumber(args['part el'..(j+2*c2)])].c, args['el'..(j+2*c2)])) end
agg(ss,'</tr>')
end
elseif (num>20) then
local c2 = math.floor(0.5 + num/2)
agg(ss,'<td width="12px"></td><td><table class="wikitable"><tr><th colspan=2>Eletti</th><th rowspan=',c2+1,'></th><th colspan=2>Eletti</th></tr>')
for j=1,c2 do
agg(ss,string.format('<tr><td style="background:%s"> </td><td>%s</td>',dati[tonumber(args['part el'..j])].c, args['el'..j]))
if (c2+j<=num) then agg(ss,string.format('<td style="background:%s"> </td><td>%s</td>',dati[tonumber(args['part el'..(j+c2)])].c, args['el'..(j+c2)])) end
agg(ss,'</tr>')
end
else
agg(ss,'<td width="12px"></td><td><table class="wikitable"><tr><th colspan=2>Eletti</th></tr>')
for j=1,num do
agg(ss,string.format('<tr><td style="background:%s"> </td><td>%s</td></tr>',dati[tonumber(args['part el'..j])].c, args['el'..j]))
end
end
agg(ss,'</table></td>')
end
agg(ss,'</tr></table>')
if (flex[allinea]) then agg(ss,flex[allinea][2]) end
return table.concat(ss)
else
agg(err,'</p>')
return table.concat(err)
end
end
return p