Mô đun:Sports results/sandbox

-- Mô đun để xây dựng kết quả qua bảng trên bảng xếp hạng trong môn thể thao
-- Xem tài liệu để biết thêm chi tiết
require('strict')
local p = {}
-- Main function
function p.main(frame)
	-- Get the args, stripping out blank values
	local getArgs = require('Mô đun:Arguments').getArgs
	local Args = getArgs(frame, {parentFirst = true})
	-- Exit early if we are using section transclusion for a different section
	if (Args'transcludesection' and Args'section')
		and Args'transcludesection' ~= Args'section' then
		return 
	end
	-- Declare locals
	local t = {}
	local t_footer = {}
	local t_return = {}
	local team_list = {}
	local notes_exist = false
	local ii, ii_fw, bg_col, team_name, team_code_ii, ii_start, ii_end
	-- Optional custom team header
	local team_header = Args'team_header' or 'Nhà \\ Khách'
	-- Number of legs
	local legs = tonumber(Args'legs') or 1
	-- Edit links if requested
	local baselink = frame:getParent():getTitle()
	if mw.title.getCurrentTitle().text == baselink then	baselink =  end
	local template_name = Args'template_name'
		or (baselink ~=  and (':' .. baselink))
		or 
	local edit_links = template_name ==  and 
		or frame:expandTemplate{ title = 'thanh điều hướng',
			args = { mini=1, style='float:right', template_name} }
		
	-- Get the custom start point for the table (most will start by default at 1)
	local top_pos = tonumber(Args'highest_pos') or 1
	-- Get the custom end point for the table (unrestricted if bottom_pos is Màu sắc: Xanh = cột bên trái đội thắng; Vàng = hòa; Đỏ = hàng bên trên đội thắng.'
			or 'Màu sắc: Xanh = đội nhà thắng; Vàng = hòa; Đỏ = đội khách thắng.')
	elseif (Args'matches_style' or ) == 'BSR' then
		table.insert(t_footer, Args'team_header'
			and 'Màu sắc: Xanh = cột bên trái đội thắng; Đỏ = hàng bên trên đội thắng.'
			or 'Màu sắc: Xanh = đội nhà thắng; Đỏ = đội khách thắng.')
	end
	if Args'a_note' then
		table.insert(t_footer, 'Đối với các trận đấu sắp diễn ra, chữ "a" cho biết có một bài viết về sự kình địch giữa hai đội tham dự.')
	end
	if Args'ot_note' then
		table.insert(t_footer, 'Trận đấu có nền màu trong một màu sắc nhẹ hơn đã được quyết định sau hiệp phụ.')
	end
	-- Add notes (if applicable)
	if notes_exist then
		table.insert(t_footer,'Ghi chú:')
		-- As reflist size text
		t_footer = ..table.concat(t_footer)..
		t_footer = t_footer..frame:expandTemplate{ title = 'notelist', args = { group='lower-alpha'} }
	else
		-- As reflist size text
		t_footer = ..table.concat(t_footer)..
	end
	-- Add footer to main text table
	table.insert(t,t_footer)
	
	-- Rewrite anchor links
	for k=1,#t do
		if tk:match('%%#^%%*%|') then
			tk = mw.ustring.gsub(tk, '(%%)(#^%%*%|)', '%1' .. baselink .. '%2')
		end
	end
	
	return 
		.. '\n'
		.. table.concat(t) .. 
end
-- Other functions
local function get_short_name(s, t, n, ss)
	-- return short name if defined
	if s and s ~=  then
		return s
	end
	-- deflag if necessary
	if ss and n then
		if ss == 'noflag' then
			n = mw.ustring.gsub(n, '%%FfIiLlEe:^%%*%%', )
		elseif ss == 'flag' then
			n = mw.ustring.gsub(n, '(%s*%%FfIiLlEe:^%%*link=)^%|%%*(%%^*)%s*%%(^%%%|*)%|^%%*%%', '%1%3%2')
			n = mw.ustring.gsub(n, '(%s*%%FfIiLlEe:^%%*%%^*).*', '%1')
			n = mw.ustring.gsub(n, ' ()', '%1')
		end
	end
	
	-- replace link text in name with team abbr if possible
	if n and t and n:match('(%%^%%*%%)') then
		n = mw.ustring.gsub(n, '(%%%*%|)%*(%%)', '%1' .. t .. '%2')
		n = mw.ustring.gsub(n, '(%%%*)(%%)', '%1|' .. t .. '%2')
		return n
	end
	-- nothing worked, so just return the unlinked team abbr
	return t or 
end
local function get_score_background(s, c)
	local s1, s2
	-- Define the colouring
	local wc, lc, tc
	if c == 'level2' then
	wc, lc, tc = '#CCF9FF', '#FCC', '#FFC' -- blue2, red2, yellow2
	elseif c == 'level3' then
	wc, lc, tc = '#DDFCFF', '#FDD', '#FFD' -- blue3, red3, yellow3
	elseif c == 'level4' then
	wc, lc, tc = '#EEFFFF', '#FEE', '#FFE' -- blue4, red4, yellow4
	else
	wc, lc, tc = '#BBF3FF', '#FBB', '#FFB' -- blue1, red1, yellow1
	end
	-- delink if necessary
	if s:match('^%s*%%^%%*%|(^%%*)%%') then
		s = s:match('^%s*%%^%%*%|(^%%*)%%')
	end
	if s:match('^%s*%^%%%s*%s(^%%*)%') then
		s = s:match('^%s*%^%%%s*%s(^%%*)%')
	end
	-- get the scores
	s1 = tonumber(mw.ustring.gsub( s or ,
		'^%s*(%d%d*)%s*–%s*(%d%d*).*', '%1' ) or ) or 
	s2 = tonumber(mw.ustring.gsub( s or ,
		'^%s*(%d%d*)%s*–%s*(%d%d*).*', '%2' ) or ) or 
	-- return colouring if possible
	if s1 ~=  and s2 ~=  then
		return (s1 > s2) and wc or ((s2 > s1) and lc or tc)
	else
		return 'transparent'
	end
end
local function format_score(s)
	s = mw.ustring.gsub(s or , '^%s*(%d+)%s*–−—%-%s*(%d+)', '%1–%2')
	s = mw.ustring.gsub(s, '^%s*(%d+)%s*&MmNnDdAaSsHh;%s*(%d+)', '%1–%2')
	s = mw.ustring.gsub(s, '^%s*(%%^%%*%|%d+)%s*%-%s*(%d+)', '%1–%2')
	s = mw.ustring.gsub(s, '^%s*(%^%%%s*%s+%d+)%s*%-%s*(%d+)', '%1–%2')
	s = mw.ustring.gsub(s, '^%s*(%%^%%*%|%d+)%s*&MmNnDdAaSsHh;%s*(%d+)', '%1–%2')
	s = mw.ustring.gsub(s, '^%s*(%^%%%s*%s+%d+)%s*&MmNnDdAaSsHh;%s*(%d+)', '%1–%2')
	return s
end
function p.header(tt,Args,p_sub,N_teams,team_list,legs)
	local ii, team_code_ii, short_name
	legs = legs or 1
	-- Set match column width
	local col_width = Args'match_col_width' or '28'
	-- Get some default values in case it doesn't start at 1
	local top_pos = tonumber(Args'highest_pos') or 1
	for l=1,legs do
		for ii=top_pos,N_teams do
			team_code_ii = team_listii
			short_name = get_short_name(Args'short_'..team_code_ii,
				team_code_ii, Args'name_'..team_code_ii, Args'short_style' or )
			local bl = legs > 1 and ii == top_pos and ' style="border-left:2px solid #aaa;"' or 
			tt = p_sub.colhead(tt,col_width .. bl,short_name)
		end
	end
	return tt
end
function p.row(tt,Args,N_teams,team_list,ii,ii_show,legs)
	-- Note ii is the row number being shown
	local jj, fw, bg, result, result_extra, team_code_ii, team_code_jj
	legs = legs or 1
	-- Set score cell style
	local matches_style = Args'matches_style' or 
	team_code_ii = team_listii
	-- Get some default values in case it doesn't start at 1
	local top_pos = tonumber(Args'highest_pos') or 1
	for l=1,legs do
		for jj=top_pos,N_teams do
			team_code_jj = team_listjj
			local m = (legs == 1) and 'match_' or 'match' .. l .. '_'
			result = Argsm..team_code_ii..'_'..team_code_jj or 
			result_extra = Args'result_'..team_code_ii..'_'..team_code_jj or 
			local bl = legs > 1 and jj == top_pos and 'border-left:2px solid #aaa;' or 
			if ii == jj or result == 'null' then
				-- Solid cell
				fw = 'font-weight:' .. (ii==ii_show and 'bold' or 'normal') .. ';'
				bg = 'background:transparent;'
				-- Grey background color for solid cell
				if Args'solid_cell' == 'grey' then
					table.insert(tt,'| style="'..fw..bl..'background:#bbb;" |\n')
				else
					table.insert(tt,'| style="'..fw..bl..bg..'" | —\n')
				end
			else
				-- Content cell
				-- Set bolding and background
				fw = 'font-weight:' .. ((ii==ii_show or jj == ii_show) and 'bold' or 'normal') .. ';'
				bg = 'background:transparent;'
				-- Reformat dashes
				if result ~=  then
					result = format_score(result)
				end
				-- Background coloring if enabled
				if matches_style == 'FBR' and result ~=  then
					if result_extra == 'OT' then
						bg = 'background:' .. get_score_background(result,'level2') .. ';'
					elseif result_extra == 'PK' then
						bg = 'background:' .. get_score_background(result,'level3') .. ';'
					else
						bg = 'background:' .. get_score_background(result,) .. ';'
					end
				elseif matches_style == 'BSR' and result ~=  then
					if result_extra == 'OT' then
						bg = 'background:' .. get_score_background(result,'level3') .. ';'
					else
						bg = 'background:' .. get_score_background(result,) .. ';'
					end
				end
				table.insert(tt,'| style="white-space:nowrap;'..fw..bl..bg..'" |'..result..'\n')
			end
		end
	end
	
	return tt
end
return p