モジュール:Sports results

モジュールの解説表示編集履歴キャッシュを破棄

スポーツなどにおける戦績表を作成するためのモジュールです。{{Fb r}}テンプレートの代替となるもので、対戦結果をカードごとに直接入力するため、順序の入れ替えが容易という特徴があります。英語版では{{Fb r}}テンプレートが廃止され、当モジュールに一本化されています。

順位表を併記した戦績表を作成する場合は「モジュール:Sports table」を使用します。

使い方

基本的には下記のような書式で基本情報を設定後、対戦結果を入力します。チーム名には当該モジュール内でのみ通用する、アルファベット3文字程度の略称を設定する必要があります。

オプション	内容
|update=date	最終更新日（対戦開始前は代わりに「|start_date=」を用いる。）
|source=	結果の出典
|match_col_width=	対戦結果カラムの横幅の設定（数字で指定。デフォルトで28=半角文字3文字分）
|team_nowrap=yes	これを指定すると、チーム名を改行させない（表幅が足りない場合は横スクロールする）
|matches_style=FBR	これを指定すると、{{Fb r}}テンプレートのように勝/分/負で対戦結果欄を着色する。 勝/負だけの場合は「|matches_style=BSR」を使用する。
|solid_cell=grey	これを指定すると、対戦のないセルの背景をグレーで着色する。
|showteam1=	これを指定すると、特定のチームの結果が強調表示される。
|team1=、|team2=、…	戦績表における表示順
|name_TTT=	「TTT」に定義されるチームの名前（戦績表の見出し列で使用）
|short_TTT=	「TTT」に定義されるチームの短縮名（戦績表の見出し行で使用、{{flagicon}}なども使用可） ※対戦結果カラムよりも幅が広いと強制改行される。
|note_TTT=	「TTT」に定義されるチームに対する注釈の設定 ※複数の|match_TTT_SSS_note=で同じ注釈を使用したいときに設定する必要あり。
|match_TTT_SSS=	「TTT」「SSS」で定義されるチームの対戦結果（「TTT」がホーム、内部リンク可） ※値に「null」を指定すると、その対戦が行われないことを示す表示になる。
|result_TTT_SSS=	「TTT」「SSS」で定義されるチームの対戦結果に対する背景色の濃淡の変更 ※「OT」「PK」のいずれかを指定。
|match_TTT_SSS_note=	「TTT」「SSS」で定義されるチームの対戦に対する注釈の設定

例

{{#invoke:Sports results|main
|update=2019年5月22日
|source=[https://data.j-league.or.jp/SFMS01/search?competition_years=2019&competition_frame_ids=11&competition_ids=461&tv_relay_station_name= J. League Data Site]
|matches_style=FBR
|match_col_width=60

|team1=CON |team2=YFM |team3=BEL |team4=VVN

|name_CON=[[北海道コンサドーレ札幌]] |short_CON=[[北海道コンサドーレ札幌|札幌]]
|name_YFM=[[横浜F・マリノス]]        |short_YFM=[[横浜F・マリノス|横浜FM]]
|name_BEL=[[湘南ベルマーレ]]         |short_BEL=[[湘南ベルマーレ|湘南]]
|name_VVN=[[V・ファーレン長崎]]      |short_VVN=[[V・ファーレン長崎|長崎]]

|match_CON_YFM=0-4
|match_CON_BEL=4-1
|match_CON_VVN=0-0

|match_YFM_CON=1-1
|match_YFM_BEL=1-0 |result_YFM_BEL=OT
|match_YFM_VVN=2-2

|match_BEL_CON=2-2
|match_BEL_YFM=2-0
|match_BEL_VVN=1-0

|match_VVN_CON=3-6
|match_VVN_YFM=3-1
|match_VVN_BEL=8月3日

}}

ホーム / アウェイ	札幌	横浜FM	湘南	長崎
北海道コンサドーレ札幌	—	0–4	4–1	0–0
横浜F・マリノス	1–1	—	1–0	2–2
湘南ベルマーレ	2–2	2–0	—	1–0
V・ファーレン長崎	3–6	3–1	8月3日	—

最終更新は2019年5月22日の試合終了時。出典: J. League Data Site
摘要: 背景が青；ホームチームが勝利、背景が黄；ドロー、背景が赤；アウェイチームが勝利。

関連項目

• モジュール:Sports table

この解説は、モジュール:Sports results/docから呼び出されています。 (編集 | 履歴)
編集者は、このモジュールをサンドボックス (作成 | 複製)とテストケース (作成)で試すことができます。（解説）
このモジュールのサブページ一覧。

-- スポーツの順位表を集計するモジュール
-- 詳細はドキュメントページを参照のこと。

require('strict')

local yesno = require('モジュール:Yesno')

local p = {}

-- Main function
function p.main(frame)
	-- Get the args, stripping out blank values
	local getArgs = require('モジュール:Arguments').getArgs
	local Args = getArgs(frame, {parentFirst = true})
	return p._main(frame, Args, true)
end

-- Helpers shared with モジュール:Sports results/schedule
local util = {}

-- Main function, for callers that have already assembled the argument table
function p._main(frame, Args, standalone)
	-- Exit early if we are using section transclusion for a different section
	local tsection = frame:getParent().args['transcludesection'] or frame:getParent().args['section'] or ''
	local bsection = frame.args['section'] or ''
	if( tsection ~= '' and bsection ~= '' ) then
		if( tsection ~= bsection ) then
			return ''
		end
	end

	-- Hand over to the schedule format if asked for
	local mformat = string.lower(mw.text.trim(Args['matches_format'] or ''))
	if mformat == 'schedule' or mformat == 'series' or mformat == 'series_split' then
		return require('モジュール:Sports results/schedule')._main(frame, Args, util, standalone)
	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 'ホーム / アウェイ'
	-- Number of legs
	local legs = tonumber(Args['legs']) or 1
	local multirowlegs = (Args['multirowlegs'] or 'no') ~= 'no'

	-- Edit links if requested
	local baselink = frame:getParent():getTitle()
	if mw.title.getCurrentTitle().fullText == baselink then	baselink = '' end
	local template_name = Args['template_name']
		or (baselink ~= '' and (':' .. baselink))
		or ''
	local edit_links = template_name == '' and ''
		or require('モジュール:Navbar')._navbar({
			template_name,
			mini=1,
			style='float:right'
		})

	-- Optional baselink override for the match-report anchor links
	-- (this does not impact the v·t·e edit links)
	local baselink_override = Args['baselink']
	if baselink_override and baselink_override ~= '' then
		baselink = baselink_override
		if mw.title.getCurrentTitle().fullText == baselink then baselink = '' end
	end

	-- 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 < top_pos)
	local bottom_pos = tonumber(Args['lowest_pos']) or 0
	local N_teams = top_pos - 1 -- Default to 0 at start, but higher number needed to skip certain entries

	-- Load some other モジュールs
	local p_sub = require('モジュール:Sports table/sub')

	-- Alternative syntax for team list
	if Args['team_order'] and Args['team_order'] ~= '' then
		local tlist = mw.text.split(Args['team_order'], '%s*[;,]%s*')
		for k, tname in ipairs(tlist) do
			if tname ~= '' then
				Args['team' .. k] = tname
			end
		end
	end

	if Args['team_header_note'] then
		notes_exist=true
		local note_string = frame:expandTemplate{ title = 'efn',
			args = { group='lower-alpha', Args['team_header_note']} }
		team_header = team_header .. note_string
	end

	-- Read in number of consecutive teams (ignore entries after skipping a spot)
	ii_start = N_teams
	while Args['team'..N_teams+1] ~= nil and (bottom_pos < top_pos or N_teams < bottom_pos) do
		N_teams = N_teams+1
		-- Sneakily add it twice to the team_list parameter, once for the actual
		-- ranking, the second for position lookup in sub-tables
		-- This is possible because Lua allows both numbers and strings as indices.
		team_list[N_teams] = Args['team'..N_teams] -- i^th entry is team X
		team_list[Args['team'..N_teams]] = N_teams -- team X entry is position i
	end
	ii_end = N_teams
	-- Get team to show
	local ii_show = team_list[Args['showteam']] -- nil if non-existant

	-- Set the font size
	local font_size=Args['font_size'] or '100%'

	-- Create header
	-- Open table
	table.insert(t,'{|class="wikitable plainrowheaders" style="text-align:center;font-size:'..font_size..';'
		..(yesno(Args['table_nowrap'] or 'no') and 'white-space:nowrap;' or '')..'"\n')
	-- Table title
	if Args['title'] then
		table.insert(t,'|+ ' .. Args['title'] .. '\n')
	end
	-- First column
	t_return.count = 0 			-- 両モジュールが密接に絡み合っているため、ダミーパラメータやサブ関数の呼び出しを利用するのが、現時点では最善のようです。
	t_return.tab_text = t		-- Actual text
	t_return = p_sub.colhead(t_return,'auto', edit_links .. ' ' .. team_header)
	-- Other columns passed to subfunction
	t_return = p.header(t_return,Args,p_sub,N_teams,team_list,legs,multirowlegs)
	t = t_return.tab_text

	-- Random value used for uniqueness
	math.randomseed( os.clock() * 10^8 )
	local rand_val = math.random()

	local note_string, note_id
	local note_id_list = {}

	-- Now create individual rows
	ii_start = tonumber(Args['highest_row']) and (tonumber(Args['highest_row']) > top_pos) and tonumber(Args['highest_row']) or top_pos
	ii_end = tonumber(Args['lowest_row']) and (tonumber(Args['lowest_row']) < N_teams) and tonumber(Args['lowest_row']) or N_teams
	for ii=ii_start,ii_end do
		-- Get team info
		team_code_ii = team_list[ii]
		team_name = Args['name_'..team_code_ii] or team_code_ii
		local ii_style = 'text-align:' .. (Args['team_align'] or 'right') .. ';'
			.. (ii and ii == ii_show and 'font-weight:bold;' or '')
			.. (Args['team_nowrap'] and 'white-space:nowrap;' or '')
		local team_note = p.team_note(Args, team_code_ii, standalone)
		if team_note then
			notes_exist = true
			-- Only when it exist
			-- First check for existence of reference for note
			if not p.team_note(Args, team_note, standalone) then
				-- It's the entry
				-- Add random end for unique ID if more tables are present on article (which might otherwise share an ID)
				note_id = '"table_note_'..team_code_ii..rand_val..'"'
				note_id_list[team_code_ii] = note_id
				note_string = frame:expandTemplate{ title = 'efn',
					args = { group='lower-alpha', name=note_id,  team_note} }
			else
				-- Check for existence elsewhere
				local note_local_num = team_list[team_note] or ii_end + 1
				if note_id_list[team_note] or ((note_local_num >= ii_start) and (note_local_num <= ii_end)) then
					-- It exists
					note_id = '"table_note_'..team_note..rand_val..'"' -- Identifier
					note_string = frame:extensionTag{ name = 'ref',
						args = { group = 'lower-alpha', name = note_id} }
				else
					-- Now define the identifier for this
					-- Add random end for unique ID
					note_id = '"table_note_'..team_note..rand_val..'"'
					note_id_list[team_note] = note_id
					note_string = frame:expandTemplate{ title = 'efn',
						args = { group='lower-alpha', name=note_id, p.team_note(Args, team_note, standalone)} }
				end
			end
			-- Now append this to the team_name string
			team_name = team_name..note_string
		end
		-- Team names
		table.insert(t,'|- \n')  -- New row
		table.insert(t,'! scope="row"'.. (multirowlegs and ' rowspan=' .. legs or '') 
			.. 'style="'.. ii_style ..'"| '..team_name..'\n')  -- Position number

		-- Now include note to match results if needed
		for jj=top_pos,N_teams do
			local team_code_jj = team_list[jj]
			if ii == jj then
				-- Nothing
			else
				for l=1,legs do
					local m = (legs == 1) and 'match_' or 'match' .. l .. '_'
					local match_note = Args[m ..team_code_ii..'_'..team_code_jj..'_note']
					if match_note then
						notes_exist = true
						-- Only when it exist
						-- First check for existence of reference for note
						if not (Args['note_'..match_note] or Args[m ..match_note..'_note']) then
							-- It's the entry
							-- Add random end for unique ID if more tables are present on article (which might otherwise share an ID)
							note_id = '"table_note_'..l.."_"..team_code_ii..'_'..team_code_jj..rand_val..'"'
							note_id_list[team_code_ii..'_'..team_code_jj] = note_id
							note_string = frame:expandTemplate{ title = 'efn',
								args = { group='lower-alpha', name=note_id,  match_note} }
						else
							-- Check for existence elsewhere
							local note_local_num = team_list[match_note] or ii_end + 1
							if note_id_list[match_note] then
								-- Referencing an existing note
								note_id = note_id_list[match_note] -- Borrow the existing identifier
								note_string = frame:extensionTag{ name = 'ref',
									args = { group = 'lower-alpha', name = note_id} }
							elseif (note_local_num >= ii_start) and (note_local_num <= ii_end) then
								-- Referencing a player note from a match note. In this case, we remove the leg part
								note_id = '"table_note_'..match_note..rand_val..'"'
								note_string = frame:extensionTag{ name = 'ref',
									args = { group = 'lower-alpha', name = note_id} }
							else
								-- Referencing a different match note before its defined with its content
								note_id = '"table_note_'..l.."_"..match_note..rand_val..'"'
								note_id_list[match_note] = note_id
								note_string = frame:expandTemplate{ title = 'efn',
									args = { group='lower-alpha', name=note_id, Args['note_'..match_note]} }
							end
						end
						-- Now append this to the match result string
						Args[m..team_code_ii..'_'..team_code_jj] = (Args[m..team_code_ii..'_'..team_code_jj] or '–')..note_string
					end
				end
			end
		end
		-- Then individual results
		t = p.row(t,Args,N_teams,team_list,ii,ii_show,legs,multirowlegs)
	end

	-- Close table
	table.insert(t, '|}\n')

	-- Get info for footer
	local update = Args['update']
		or 'unknown'
	local start_date = Args['start_date']
		or 'unknown'
	local source = Args['source']
		or frame:expandTemplate{ title = 'citation needed',
			args = { reason='No source parameter defined', date=os.date('%B %Y') } }

	-- Create footer text
	-- Date updating
	if string.lower(update)=='complete' then
		-- Do nothing
	elseif update=='' then
		-- Empty parameter
		table.insert(t_footer,'更新時点の試合終了日は不明。')
	elseif string.lower(update)=='future' then
		-- Future start date
		table.insert(t_footer,'最初の試合は'..start_date..'に開始予定。')
	else
		table.insert(t_footer,'最終更新は'..update..'の試合終了時。')
	end
	table.insert(t_footer,'出典: '..source)
	table.insert(t_footer, p.footer_legend(Args))

	local templatestyles = frame:extensionTag{
		name = 'templatestyles', args = { src = 'モジュール:Sports results/styles.css' }
	}

	-- Add notes (if applicable)
	if notes_exist then
		table.insert(t_footer,'<br>Notes:')
		t_footer = templatestyles .. '<div class="sports-results-notes">'..table.concat(t_footer)..'</div>'
		t_footer = t_footer..frame:expandTemplate{ title = 'notelist', args = { group='lower-alpha'} }
	else
		t_footer = templatestyles .. '<div class="sports-results-notes">'..table.concat(t_footer)..'</div>'
	end

	-- Add footer to main text table
	table.insert(t,t_footer)

	-- Rewrite anchor links
	for k=1,#t do
		if t[k]:match('%[%[#[^%[%]]*%|') then
			t[k] = mw.ustring.gsub(t[k], '(%[%[)(#[^%[%]]*%|)', '%1' .. baselink .. '%2')
		end
	end

	return '<div style="overflow:hidden">'
		.. '<div class="noresize overflowbugx" style="overflow:auto">\n'
		.. table.concat(t) .. '</div></div>'
end

-- Other functions
local function split_icon(str)
	if not str or str == '' then return '', str or '' end
	local rest = str
	local taken = 0
	while true do
		local before = rest
		-- a span containing an image
		rest = mw.ustring.gsub(rest, '^(<span[^<>]*>%s*%[%[[Ff][Ii][Ll][Ee]:[^%[%]]*%]%]%s*</span>)', '')
		rest = mw.ustring.gsub(rest, '^(<span[^<>]*>%s*%[%[[Ii][Mm][Aa][Gg][Ee]:[^%[%]]*%]%]%s*</span>)', '')
		-- a bare image
		rest = mw.ustring.gsub(rest, '^%[%[[Ff][Ii][Ll][Ee]:[^%[%]]*%]%]', '')
		rest = mw.ustring.gsub(rest, '^%[%[[Ii][Mm][Aa][Gg][Ee]:[^%[%]]*%]%]', '')
		-- the space between an icon and the name
		rest = mw.ustring.gsub(rest, '^%s*&nbsp;%s*', '')
		rest = mw.ustring.gsub(rest, '^%s+', '')
		if rest == before then break end
		taken = #str - #rest
	end
	if taken == 0 then return '', str end
	return mw.ustring.sub(str, 1, mw.ustring.len(str) - mw.ustring.len(rest)), rest
end

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
			local _, without = split_icon(n)
			n = without
			n = mw.ustring.gsub(n, '%[%[[Ff][Ii][Ll][Ee]:[^%[%]]*%]%]', '')
		elseif ss == 'flag' then
			n = mw.ustring.gsub(n, '(<span class="flagicon">%s*%[%[[Ff][Ii][Ll][Ee]:[^%[%]]*link=)[^%|%[%]]*(%]%][^<>]*</span>)%s*%[%[([^%[%]%|]*)%|[^%[%]]*%]%]', '%1%3%2')
			n = mw.ustring.gsub(n, '(%[%[[Ff][Ii][Ll][Ee]:[^%[%]]*link=)[^%|%[%]]*(%]%])%s*&nbsp;%s*%[%[([^%[%]%|]*)%|[^%[%]]*%]%]', '%1%3%2')
			n = mw.ustring.gsub(n, '(%[%[[Ff][Ii][Ll][Ee]:[^%[%]]*link=)[^%|%[%]]*(%]%])%s*%[%[([^%[%]%|]*)%|[^%[%]]*%]%]', '%1%3%2')
			n = mw.ustring.gsub(n, '.*(<span class="flagicon">%s*%[%[[Ff][Ii][Ll][Ee]:[^%[%]]*%]%][^<>]*</span>).*', '%1')
			n = mw.ustring.gsub(n, '.*(%[%[[Ff][Ii][Ll][Ee]:[^%[%]]*%]%]).*', '%1')
			n = mw.ustring.gsub(n, '&nbsp;(</span>)', '%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')
		n = mw.ustring.gsub(n, '(%[%[[^%|%]]*%|)([A-Z][A-Z][A-Z])(%]%])&nbsp;<span[^<>]*>%([A-Z][A-Z][A-Z]%)</span>', '%1%2%3')
		return n
	end
	-- nothing worked, so just return the unlinked team abbr
	return t or ''
end

local function get_score_background(s, c, palette)
	local s1, s2
	-- Define the colouring
	local wc, lc, tc
	if palette == 'green' then
		if c == 'level2' then
		wc, lc, tc = '#CCF9CC', '#FCC', '#FFC' -- green2, red2, yellow2
		elseif c == 'level3' then
		wc, lc, tc = '#DDFCDD', '#FDD', '#FFD' -- green3, red3, yellow3
		elseif c == 'level4' then
		wc, lc, tc = '#EEFFEE', '#FEE', '#FFE' -- green4, red4, yellow4
		else
		wc, lc, tc = '#BBF3BB', '#FBB', '#FFB' -- green1, red1, yellow1
		end
	elseif 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

	-- check for override
	if s:match('^%s*<span%s+style%s*=["\'%s]*background[%-colr]*%s*:([^\'";<>]*).-$') then
		local c = mw.ustring.gsub(s,'^%s*<span%s+style%s*=["\'%s]*background[%-colr]*%s*:([^\'";<>]*).-$', '%1')
		return 'background: ' .. c ..';'
	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
	if s:match('<span[^<>]*>(.-)</span>') then
		s = s:match('<span[^<>]*>(.-)</span>')
	end

	-- get the scores
	s1 = tonumber(mw.ustring.gsub( s or '',
		'^%s*([%d%.]+)%s*–%s*([%d%.]+).*', '%1' ) or '') or ''
	s2 = tonumber(mw.ustring.gsub( s or '',
		'^%s*([%d%.]+)%s*–%s*([%d%.]+).*', '%2' ) or '') or ''

	-- return colouring if possible
	if s1 ~= '' and s2 ~= '' then
		return (s1 > s2) and ('background: ' .. wc .. ';') 
			or ((s2 > s1) and ('background: ' .. lc .. ';')
				or ('background: ' .. tc .. ';'))
	else
		return ''
	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*&[MmNn][Dd][Aa][Ss][Hh];%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*&[MmNn][Dd][Aa][Ss][Hh];%s*([%d%.]+)', '%1–%2')
	s = mw.ustring.gsub(s, '^%s*(%[[^%[%]%s]*%s+[%d%.]+)%s*&[MmNn][Dd][Aa][Ss][Hh];%s*([%d%.]+)', '%1–%2')
	return s
end

-- Replace a wikilink with its display text
local function replace_link(m)
	local pipe_pos = m:find('|')
	if pipe_pos then
		return m:sub(pipe_pos + 1, -3) -- text after the '|'
	else
		return m:sub(3, -3) -- text between the brackets
	end
end

-- Clean team names to plain text for the match-report links
local function clean_team_name(str, default)
	if str and str ~= '' then
		str = str:gsub('<sup.->.-</sup>', '')
		str = str:gsub('</?%w+[^>]*>', '')
		str = str:gsub('\127%\'"`UNIQ.-QINU`"%\'\127', '')
		str = str:gsub('%[%[[Ff]ile:[^%]]+%]%]', '')
		str = str:gsub('%[%[[Ii]mage:[^%]]+%]%]', '')
		str = str:gsub('%[%[.-%]%]', replace_link)
		str = str:gsub('%s*&nbsp;%s*', '')
		str = str:gsub("'''+", '')
		str = str:gsub("''", '')
		str = str:match('^%s*(.-)%s*$') -- trim
		return (str ~= '' and str) or default
	end
	return default
end

-- Find the first '(' that is not inside a wikilink
local function find_paren_outside_wikilinks(s)
	local pos = 1
	while true do
		pos = s:find('%(', pos)
		if not pos then return nil end
		local before = s:sub(1, pos - 1)
		local open = select(2, before:gsub('%[%[', '')) - select(2, before:gsub('%]%]', ''))
		if open == 0 then return pos end
		pos = pos + 1
	end
end

-- Link the score of a result to the match-report section anchor "#Home v Away"
local function generate_match_link(home_name, away_name, score)
	if not score or not score:match('%S') then
		return score
	end

	-- Split the linkable score/date from the trailing text (notes, tags, parentheses)
	local positions = {}
	local sup = score:find('<sup')
	local marker = score:find('\127')                  -- start of a strip marker
	local paren = find_paren_outside_wikilinks(score)
	if sup then positions[#positions + 1] = sup end
	if marker then positions[#positions + 1] = marker end
	if paren then positions[#positions + 1] = paren end

	local body, tail = score, ''
	if #positions > 0 then
		local cut = math.min(unpack(positions))
		local trimmed = score:sub(1, cut - 1):match('^(.-)%s*$')  -- trim before tail
		body = trimmed
		tail = score:sub(#trimmed + 1)
	end

	if not body:match('%S') then
		return score
	end

	-- Never link byes
	if body:match('^%s*[Bb][Yy][Ee]%s*$') or body:match('|[Bb][Yy][Ee]%]%]') then
		return score
	end

	if body:find('%[') then
		-- Body already contains a wikilink: only wrap a plain leading scoreline,
		-- otherwise leave it untouched to avoid double-linking.
		local link_score = body:match('^([%d%.]+–[%d%.]+)')
		if not link_score then
			return score
		end
		local rest = body:sub(#link_score + 1)
		return '[[#' .. home_name .. ' v ' .. away_name .. '|' .. link_score .. ']]' .. rest .. tail
	end

	-- No wikilink: link the whole value
	return '[[#' .. home_name .. ' v ' .. away_name .. '|' .. body .. ']]' .. tail
end

-- The legend in the footer, shared with モジュール:Sports table when |show_matches=yes
function p.footer_legend(Args)
	local out = {}
	local style = Args['matches_style'] or ''
	local tie = yesno(Args['use_tie'] or 'no')
	local loss_first = Args['loss_before_draw'] or Args['loss_before_tie'] or false
	local word = tie and '試合' or 'マッチ'
	local drawn = tie and '引き分け' or 'ドロー'
	local side1 = Args['team_header'] and '左カラムのチームが勝利' or 'ホームチームが勝利'
	local side2 = Args['team_header'] and '上カラムのチームが勝利' or 'アウェイチームが勝利'

	if style == 'FBR' then
		if loss_first then
			out[#out + 1] = '<br />摘要: 背景が青；' .. side1 .. '、背景が赤；' .. side2
				.. '、背景が黄；' .. drawn .. '。'
		else
			out[#out + 1] = '<br />摘要: 背景が青；' .. side1 .. '、背景が黄；' .. drawn
				.. '、背景が赤；' .. side2 .. '。'
		end
	elseif style == 'BSR' then
		out[#out + 1] = '<br />摘要: 背景が青；' .. side1 .. '、背景が赤；' .. side2 .. '。'
	end
	if Args['a_note'] then
		out[#out + 1] = '<br />今後の' .. word .. 'の予定において、「a」と示された試合は、'
			.. '2者間のライバル関係に関する記事があることを示す。'
	end
	if Args['ot_note'] then
		out[#out + 1] = '<br />' .. (tie and 'ゲーム' or '試合')
			.. 'の背景が薄いものは、延長戦の末に決着したもの。'
	end
	if Args['pk_note'] then
		out[#out + 1] = '<br />' .. (tie and 'ゲーム' or '試合')
			.. 'の背景が薄いものは、 PK戦により決着したもの。'
	end
	return table.concat(out)
end

-- Fill in the shared helper table
util.get_short_name = get_short_name
util.split_icon = split_icon
util.get_score_background = get_score_background
util.format_score = format_score
util.replace_link = replace_link
util.clean_team_name = clean_team_name
util.generate_match_link = generate_match_link

-- standalone: read |results_note_TTT= instead of |note_TTT=, so a note meant
-- for the standings does not also appear in a results table.
-- |results_note_AAA=note_AAA asks for the standings note.
function p.team_note(Args, code, standalone)
	if not standalone then return Args['note_' .. code] end
	local v = Args['results_note_' .. code]
	if v == nil then return nil end
	if v == ('note_' .. code) then return Args['note_' .. code] end
	return v
end

util.team_note = p.team_note

function p.header(tt,Args,p_sub,N_teams,team_list,legs,multirowlegs,standalone)
	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
		if multirowlegs and l > 1 then
			break
		end
		for ii=top_pos,N_teams do
			team_code_ii = team_list[ii]
			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,multirowlegs)
	-- 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 ''

	-- Whether to link the scores to the match reports
	local generate_links = require('モジュール:Yesno')(Args['generate_links'])

	team_code_ii = team_list[ii]

	-- 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
		if multirowlegs and l > 1 then
			table.insert(tt,'|- \n')  -- New row
		end
		for jj=top_pos,N_teams do
			team_code_jj = team_list[jj]
			local m = (legs == 1) and 'match_' or 'match' .. l .. '_'
			result = Args[m..team_code_ii..'_'..team_code_jj] or ''
			local r = (legs == 1) and 'result_' or 'result' .. l .. '_'
			result_extra = Args[r..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 = ''

				-- 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..'" | &mdash;\n')
				end
			else
				-- Content cell
				-- Set bolding and background
				fw = 'font-weight:' .. ((ii==ii_show or jj == ii_show) and 'bold' or 'normal') .. ';'
				bg = ''

				-- 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 = get_score_background(result,'level2')
					elseif result_extra == 'PK' then
						bg = get_score_background(result,'level3')
					else
						bg = get_score_background(result,'')
					end
				elseif matches_style == 'BSR' and result ~= '' then
					if result_extra == 'OT' then
						bg = get_score_background(result,'level3')
					elseif result_extra == 'OTL' then
						bg = get_score_background('0–1','level3')
					elseif result_extra == 'OTW' then
						bg = get_score_background('1–0','level3')
					elseif result_extra == 'L' then
						bg = get_score_background('0–1','')
					elseif result_extra == 'W' then
						bg = get_score_background('1–0','')
					else
						bg = get_score_background(result,'')
					end
				end
				-- Link the score to its match-report anchor "#Home v Away"
				if generate_links and result ~= '' and l == 1 then
					local home_name = clean_team_name(Args['name_'..team_code_ii], team_code_ii)
					local away_name = clean_team_name(Args['name_'..team_code_jj], team_code_jj)
					result = generate_match_link(home_name, away_name, result)
				end
				table.insert(tt,'| style="white-space:nowrap;'..fw..bl..bg..'" |'..result..'\n')
			end
		end
	end

	return tt
end

return p