Modulo:RisF1

Istruzioni per l'uso
Questo è un modulo scritto in Lua. Le istruzioni che seguono sono contenute nella sottopagina Modulo:RisF1/man (modifica · cronologia)
Sandbox: Modulo:RisF1/sandbox (modifica · cronologia) · Sottopagine: lista · Test: Modulo:RisF1/test (modifica · cronologia · esegui)
Questo modulo include le diverse funzioni richiamate dai template risultati di Formula 1.
Il modulo è provvisto di due sottopagine:
Stagioni: tabella contenente i dati relativi a ciascuna stagione
GP: tabella contenente i dati relativi ai Gran Premi
local p = {}
local getArgs = require('Modulo:Arguments').getArgs
local tabella = mw.loadData('Modulo:RisF1/Stagioni')
local tabgp = mw.loadData('Modulo:RisF1/GP')

local tavolozza = {
["1"] = "FFFFBF",
["2"] = "DFDFDF",
["3"] = "FFDF9F",
punti = "DFFFDF",
nopunti = "CFCFFF",
NC = "CFCFFF",
Rit = "EFCFFF",
SQ = "000000; color:white; font-size:81%",
NP = "FFFFFF",
NQ = "EFCFCF",
NPQ = "FFCFCF",
SP = "F1F8FF",
TP = "F1F8FF",
AN = "F0FFFF",
["0"] = ""
}

--La funzione determina il colore delle celle contenenti i risultati, dati il numero di piloti in zona punti come primo argomento e il risultato come secondo argomento.
function p.colori(frame)
	local args = getArgs(frame)
	local zonapunti = tonumber(args[1])
	local ris = args[2]

	if ris == nil or string.lower(ris) == "inf" then
		ris = 0
	end

	local ris2 = string.gsub(ris,"'","")

	if tonumber(ris2) ~= nil and tonumber(ris2) > 3 then
   		if tonumber(ris2) <= zonapunti then
   			ris2 = "punti"
   		else ris2 = "nopunti"
   		end
	end

	local colore = tavolozza[ris2]

	if colore == nil then
		colore = ""
	end

	return "style=\"padding-left:0px;padding-right:0px;background-color:#" .. colore .. "\""
end

--La funzione applica il grassetto e/o il corsivo ai risultati a seconda del valore dei parametri Gn, dati il risultato come primo argomento e il valore di Gn come secondo argomento.
function p.ppgv(frame)
	local args = getArgs(frame)
	local ris = args[1]
	local apici = args[2]

	local switch = {["PG"]="'''''",["PP"]="'''",["GV"]="''"}

	if ris ~= nil then
		if switch[apici] ~= nil then
			ris = switch[apici] .. ris .. switch[apici]
		end
	else ris = ""
	end

	return ris

end

--La funzione restituisce una serie di celle contenenti le bandierine dei Gran Premi effettuati nell'anno definito come unico argomento. Le singole bandierine vengono generate dalla funzione band.
function p.sequenza(frame)

	local anno = tonumber(frame.args[1])

	if anno == nil then
		anno = "default"
	end

	local stagione = tabella[anno]

	if stagione == nil then
		stagione = tabella["default"]
	end

	local seq = stagione["gp"]
	local gareanno = stagione["gare"]
	local str = 'width=3%|' .. p.band({seq[1],anno})

	for i = 2,gareanno do
		str = str .. '||width=3%|' .. p.band({seq[i],anno})
	end

	return str

end

--La funzione restituisce una serie di celle vuote, il cui numero dipende da due parametri passati tramite template: il parametro |Anno= e uno tra |Colonne= (il totale desiderato di caselle colorabili e vuote) e |Ritiro= (l'ultimo anno di attività).
function p.vuote(frame)

	local argstmp = mw.getCurrentFrame():getParent().args
	local anno = tonumber(argstmp["Anno"])
	local ritiro = tonumber(argstmp["Ritiro"])
	local colonne = tonumber(argstmp["Colonne"])
	local str = ""

	if anno == nil then
		anno = "default"
	end

	local stagione = tabella[anno]

	if stagione == nil then
		stagione = tabella["default"]
	end

	local gareanno = stagione["gare"]
	local max = p.max()

	if colonne ~= nil and colonne >= gareanno and colonne <= max then
		max = colonne
	elseif ritiro ~= nil and ritiro >= anno then
		max = p.max({ritiro})
	end

	for i=1,(max-gareanno) do
		str = str .. "||width=3%|&#32;"
	end

	return str

end

--La funzione restituisce una serie di celle a seconda dell'anno e dei risultati che sono stati passati come parametri all'interno dei template. Il numero di celle dipende dall'anno e la loro formattazione viene determinata elaborando i parametri tramite le funzioni colori e ppgv.
function p.celle(frame)
	local argstmp = mw.getCurrentFrame():getParent().args
	local args = getArgs(frame)
	local str = ""
	local anno = tonumber(argstmp["Anno"])

	if anno == nil then
		anno = "default"
	end

	local stagione = tabella[anno]

	if stagione == nil then
		stagione = tabella["default"]
	end

	local zonapunti = stagione["punti"]
	local lettera = args[1]
	local width1 = 'width=3% '
	local widthn = '||width=3% '
	local gare = stagione["gare"]
	local ris = ""
	for i=1,gare do
		if lettera == nil or lettera == "" then
			paramR = i .. "R"
			paramG = "G" .. i
			paramN = "N" .. i
			ris = p.ppgv({argstmp[paramR],argstmp[paramG]})
		else
			paramR = lettera .. i
			paramN = "N" .. lettera .. i
			ris = argstmp[paramR]
		end
		local col = p.colori({zonapunti,argstmp[paramR]})
		local note = argstmp[paramN]
		if ris == nil then
			ris = ""
		end
		if note == nil then
			note = ""
		end
		if i==1 then
			str = str .. width1
		else str = str .. widthn
		end
		str = str .. col .. "|&#32;" .. ris .. note
	end

	return str

end

--La funzione restituisce il numero massimo di gare disputate in una stagione fino all'anno dato come unico argomento; in assenza dell'argomento, la funzione calcola il massimo assoluto.
function p.max(frame)
	local args = getArgs(frame)
	local ritiro = tonumber(args[1])
	local max = 7
	local ultima = 1950

	while tabella[ultima] ~= nil do
		ultima = ultima + 1
	end
	ultima = ultima - 1

	if ritiro == nil or ritiro > ultima then
		ritiro = ultima
	end

	for i = 1951,ritiro do
		local stagione = tabella[i]
		local gare = stagione["gare"]
		if gare > max then
			max = gare
		end
	end

	return max

end

--La funzione genera la bandierina con link ai Gran Premi, dati il codice del GP come primo argomento e l'anno come secondo argomento facoltativo.
function p.band(frame)
	local args = getArgs(frame)
	local gp = args[1]
	local anno = tostring(args[2])
	local dati = tabgp[gp]
	local str = ""

	if dati == nil then
		dati = tabgp["NC"]
	end

	if anno == "nil" then
		anno = ""
	else anno = " " .. anno
	end

	str = str .. '[[File:' .. dati["file"] .. '|18px|border|link=' .. dati["nome"] .. anno .. ']]'

	return str

end

--La funzione, chiamata esclusivamente dal template:Rapporto gara F1, restituisce le gare effettuate durante l'anno, passato come parametro Anno_di_gara nel template.
function p.gareanno(frame)
	local argstmp = frame:getParent().args
	local anno = tonumber(argstmp["Anno_di_gara"])
	local stagione = tabella[anno]
	local gareanno = 0
	if stagione ~= nil then
		gareanno = stagione["gare"]
	else
		gareanno = p.max(stagione)
	end
	return gareanno
end

--La funzione crea parte della tabella del template:RisF1Team, in particolare le righe con i risultati dei singoli piloti (con un limite massimo di 10, espandibile se necessario), leggendo i parametri inseriti direttamente nel template.
function p.team(frame)
	local argstmp = mw.getCurrentFrame():getParent().args
	local numero = tonumber(argstmp[1])

	if numero == nil then
		numero = 1
	elseif numero > 10 then
		numero = 10
	end

	local lettera = {string.char(65)}
	local pilota = argstmp["P1"]
	local punti = argstmp["Punti"]
	local pos = argstmp["Pos"]
	local rowspan = "||rowspan=" .. numero

	if punti == nil or punti == "" then
		punti = " "
	end

	if pilota == nil then
		pilota = " "
	end

	if pos == nil then
		pos = "| "
	elseif tonumber(pos) == 1 then
		pos = ' bgcolor="#FFFFBF"|' .. pos .. "º"
	elseif tonumber(pos) ~= nil then
		pos = "|" .. pos .. "º"
	else pos = "|" .. pos
	end

	local output = pilota .. "||" ..  p.celle(lettera) .. p.vuote() .. rowspan .. "|" .. punti .. rowspan .. pos .. "\n|-\n"

	for i=2,numero do
		lettera = {string.char(i+64)}
		pilota = argstmp["P" .. i]
		if pilota == nil then
			pilota = " "
		end
		output = output .. "|" .. pilota .. "||" .. p.celle(lettera) .. p.vuote() .. "\n|-\n"
	end

	return output

end

return p