Aller au contenu

Module:Sports table/WDL

Une page de Wikipédia, l'encyclopédie libre.
Ceci est une version archivée de cette page, en date du 21 septembre 2018 à 00:28 et modifiée en dernier par Ideawipik (discuter | contributions) (Petites modifications/ adaptations pour ajouter des fonctionnalités mais qui ne changent pas l'aspect général du module et des quelques modèles qui l'appellent sans l'exloiter au mieux. Ce module fera l'objet d'une documentation sous peu.). Elle peut contenir des erreurs, des inexactitudes ou des contenus vandalisés non présents dans la version actuelle.

 Documentation[créer] [purger]
-- Style for football tables
local pp = {}

function pp.header(t,Args,p_sub,pos_label,group_col,VTE_text,full_table,results_header_txt)
	-- Load relevant modules
	local yesno = require('Module:Yesno')
	
	-- Create table header
	-- Pre stuff
	local team_width = Args['teamwidth'] or '190'
	local sort_text = ''
	local sort_table_val = Args['sortable_table'] 	or 'no'
	if yesno(sort_table_val) then sort_text = 'sortable' end
	table.insert(t,'{|class="wikitable '..sort_text..'" style="text-align:center;"\n')            			-- Open table
	-- Table title
	if Args['titre'] then
		table.insert(t,'|+ ' .. Args['titre'] .. '\n')
	end
	-- Custom header options
	local draw_head_text = Args['entête_nul'] or '<abbr class="abbr" title="Matchs nuls">N</abbr>'
	local loss_first = Args['défaite_avant_nul'] or false
	local show_bonus_points = yesno(Args['show_bonus_points'] or 'no')
	local show_penal_points = yesno(Args['show_pénal_points'] or 'no')
	-- Use points instead of goals for/against
	local for_against_style = Args['style_pour_contre'] 	or 'buts'
	local fa_letter, fa_word_min, fa_word_maj
	local hide_for_against = false
	-- First convert to lower case if it is a string
	for_against_style = string.lower(for_against_style)
	if for_against_style=='b' or for_against_style=='but' or for_against_style=='buts' then
		fa_letter = 'B'
		fa_word_min = 'buts'
		fa_word_maj = 'Buts'
	elseif for_against_style=='p' or for_against_style=='point' or for_against_style=='points' then
		fa_letter = 'P'
		fa_word_min = 'points'
		fa_word_maj = 'Points'
	elseif for_against_style=='aucun' then
		hide_for_against = true
	else
		fa_letter = 'B'
		fa_word_min = 'buts'
		fa_word_maj = 'Buts'
	end
	-- Whether to use goal ratio (goal average) instead
	local use_ratio_val = Args['use_goal_ratio'] 	or 'no'
	local do_ratio = false
	-- True if exist, false otherwise
	if yesno(use_ratio_val) then do_ratio = true end
	
	-- Initialize
	local tt = {}
	tt.count = 0 		-- Up by one after every call
	tt.tab_text = t		-- Actual text
	-- Actual headers
	if pos_label ~= nil then
	tt = p_sub.colhead(tt,28,pos_label)										-- Position col
	end
	-- Add group header
	if full_table and group_col then
		tt = p_sub.colhead(tt,28,'<abbr class="abbr" title="Groupe">Grp.</abbr>')			-- Group col
	end
	tt = p_sub.colhead(tt,team_width,'Équipe'..VTE_text)						-- Team col
	tt = p_sub.colhead(tt,28,'<abbr class="abbr" title="Matchs joués">J</abbr>')				-- Matches played col
	if full_table then
		tt = p_sub.colhead(tt,28,'<abbr class="abbr" title="Matchs gagnés">G</abbr>')				-- Win col
		if loss_first then
			tt = p_sub.colhead(tt,28,'<abbr class="abbr" title="Matchs perdus">P</abbr>')				-- Loss col
			tt = p_sub.colhead(tt,28,draw_head_text)							-- Draw col
		else
			tt = p_sub.colhead(tt,28,draw_head_text)							-- Draw col
			tt = p_sub.colhead(tt,28,'<abbr class="abbr" title="Matchs perdus">P</abbr>')				-- Loss col
		end
		if not hide_for_against then
			tt = p_sub.colhead(tt,28,'<abbr class="abbr" title="'..fa_word_maj..' pour">'..fa_letter..'p</abbr>')		-- For col
			tt = p_sub.colhead(tt,28,'<abbr class="abbr" title="'..fa_word_maj..' contre">'..fa_letter..'c</abbr>')	-- Against col
			if not do_ratio then
				tt = p_sub.colhead(tt,28,'<abbr class="abbr" title="Différence de '..fa_word_min..'">Diff</abbr>')	-- Difference col
			else
				tt = p_sub.colhead(tt,28,'<abbr class="abbr" title="Ratio de '..fa_word_min..'">R'..fa_letter..'</abbr>')	-- Ratio col
			end
		end
	end
	if show_bonus_points then
		tt = p_sub.colhead(tt,28,'<abbr title="Points de bonification">Bon</abbr>')			-- Bonus/Bonification points col
	end
	if show_penal_points then
		tt = p_sub.colhead(tt,28,'<abbr title="Points de pénalité">Pén</abbr>')			-- Pénalisation points col
	end
	tt = p_sub.colhead(tt,28,'<abbr class="abbr" title="Points">Pts</abbr>')				-- Points col
	if full_table then
		tt.count = tt.count+1
		table.insert(tt.tab_text,results_header_txt)
	end
	
	return tt
end

function pp.row(frame,t,Args,p_sub,notes_exist,hth_id_list,full_table,rand_val,team_list,team_code_ii,ii_start,ii_end,ii_fw,bg_col,N_teams,ii,ii_show)
	-- Build the inner parts of individual rows
	
	-- Sub-module usage
	local mm = require('Module:Math')
	local yesno = require('Module:Yesno')
	
	-- Get custom/default options for in table
	local win_points = tonumber(Args['winpoints'])				or 3
	local draw_points = tonumber(Args['drawpoints'])			or 1
	local loss_points = tonumber(Args['losspoints'])			or 0
	
	-- Order of draws and losses --
	local loss_first = Args['loss_before_draw']                 or false	
	
	-- Get some input
	local wins = tonumber(Args['win_'..team_code_ii])			or 0
	local draws = tonumber(Args['draw_'..team_code_ii]) 		or 0
	local losses = tonumber(Args['loss_'..team_code_ii])		or 0
	local gfor = tonumber(Args['gf_'..team_code_ii]) or	tonumber(Args['pf_'..team_code_ii]) or 0
	local gaig = tonumber(Args['ga_'..team_code_ii]) or	tonumber(Args['pa_'..team_code_ii]) or 0
	local s_pts = tonumber(Args['adjust_points_'..team_code_ii]) or tonumber(Args['startpoints_'..team_code_ii]) or 0
	local bonus_pts = tonumber(Args['bonuspoints_'..team_code_ii]) or 0
	local penal_pts = tonumber(Args['pénalpoints_'..team_code_ii]) or 0
	local hth_local = Args['hth_'..team_code_ii]				or nil
	-- Then calculate some values
	local matches = wins + draws + losses
	local points = win_points*wins + draw_points*draws + loss_points*losses + s_pts + bonus_pts - penal_pts

	-- Show for/against
	local for_against_style = Args['style_pour_contre'] 	or 'buts'
	local hide_for_against = false
	for_against_style = string.lower(for_against_style)
	if for_against_style=='aucun' then
		hide_for_against = true
	end

	-- Comparison of for against
	local gcomp
	-- Whether to use goal ratio (goal average) instead
	local use_ratio_val = Args['use_goal_ratio'] 	or 'no'
	local skip_sign
	if yesno(use_ratio_val) then
		-- Now it is the goal ratio/goal average
		if gaig == 0 then
			gcomp = '&mdash;'
		else
			gcomp = mm._precision_format(gfor / gaig, 3)
		end
	else
		-- It's goal difference
		gcomp = gfor - gaig
		-- Formatting with signs
		if gcomp>0 then
			gcomp='+'..gcomp
		elseif gcomp < 0 then
			gcomp='&minus;'..-gcomp
		end
	end
	-- Show Bonif /Pénalités
	local show_bonus_points = yesno(Args['show_bonus_points'] or 'no')
	local show_penal_points = yesno(Args['show_pénal_points'] or 'no')
	
	-- Some local vars	
	local hth_string
	local tt_return = p_sub.hth(frame,Args,full_table,hth_id_list,hth_local,notes_exist,team_list,team_code_ii,ii_start,ii_end,rand_val)
	hth_string = tt_return.str
	hth_id_list = tt_return.list
	notes_exist = tt_return.notes_exist
	
	-- Row building
	table.insert(t,'| style="'..ii_fw..bg_col..'" |'..matches..'\n') 		-- Played
	if full_table then
		table.insert(t,'| style="'..ii_fw..bg_col..'" |'..wins..'\n') 		-- Won
		
		if loss_first then
			table.insert(t,'| style="'..ii_fw..bg_col..'" |'..losses..'\n') 	-- Lost
			table.insert(t,'| style="'..ii_fw..bg_col..'" |'..draws..'\n') 		-- Drawn
		else
			table.insert(t,'| style="'..ii_fw..bg_col..'" |'..draws..'\n') 		-- Drawn
			table.insert(t,'| style="'..ii_fw..bg_col..'" |'..losses..'\n') 	-- Lost
		end
		if not hide_for_against then
			table.insert(t,'| style="'..ii_fw..bg_col..'" |'..gfor..'\n') 		-- GF
			table.insert(t,'| style="'..ii_fw..bg_col..'" |'..gaig..'\n')		-- GA
			table.insert(t,'| style="'..ii_fw..bg_col..'" |'..gcomp..'\n')      -- Goal comparison
		end
	end
	if show_bonus_points then
		if bonus_pts < 0 then
			table.insert(t,'| style="'..bg_col..'" | &minus;'..-bonus_pts..'\n')
		else
			table.insert(t,'| style="'..bg_col..'" | '..bonus_pts..'\n')
		end
	end
	if show_penal_points then
		if penal_pts < 0 then
			table.insert(t,'| style="'..bg_col..'" | &minus;'..-penal_pts..'\n')
		else
			table.insert(t,'| style="'..bg_col..'" | '..penal_pts..'\n')
		end
	end
	-- Add &minus; for negative point totals
	table.insert(t,'| style="font-weight: bold;'..bg_col..'" | ')
	if points<0 then
		table.insert(t,'&minus;'..-points..hth_string)
	else
		table.insert(t,points..hth_string)
	end
	table.insert(t,'\n')
	
	return {t=t, notes_exist=notes_exist, hth_id_list=hth_id_list}
end

function pp.status(Args)
	-- Declare status options
	-- ------------------------------------------------------------
	-- NOTE: If you add to status_code, also add to status_called and status_letters!!
	-- Or functionality will be compromised
	-- ------------------------------------------------------------
	local status_code, status_called = {}
	status_code = { A='Qualifié pour le tour suivant', C='Champion', D='Disqualifié',
		E='Éliminé', G='Invité', H='Hôte', O='Vainqueur des play-offs', P='Promu', Q='Qualifié pour la phase indiquée',
		R='Relégué', T='Qualifié, mais pas encore à la phase particulière indiquée',
		X='?', Y='?', Z='?'} 
	status_called = { A=false, C=false, D=false, E=false, G=false, H=false, O=false, P=false,
		Q=false, R=false, T=false, X=false, Y=false, Z=false} 
	local status_letters = 'ACDEGHOPQRTXYZ'
	
	-- Status position (before or after read and default)
	local stat_pos_val = Args['status_pos'] or ''
	local status_position = 'after' 	-- Default location
	stat_pos_val = string.lower(stat_pos_val)
	if stat_pos_val=='before' then
		status_position = 'before'
	elseif stat_pos_val=='after' then
		status_position = 'after'
	end
	
	-- Read in custom status options
	if Args['status_text_X'] then status_code.X = Args['status_text_X'] end
	if Args['status_text_Y'] then status_code.Y = Args['status_text_Y'] end
	if Args['status_text_Z'] then status_code.Z = Args['status_text_Z'] end
	
	return {code=status_code, called=status_called, letters=status_letters, position=status_position}
end

return pp