Module:CFB schedule

local p = {}
local horizontal = require('Module:List').horizontal

local dagger = '<sup class="CFB-schedule-hcgame">[[File:Dagger-14-plain.png|alt=dagger|link=]]</sup>'

local haslocgamename = false
local hasoppgamename = false
local haslocrivalry = false
local hasopprivalry = false
local hasrank = false
local hasstrangescore = false
local hasnowrap = false

local function isnotempty(s)
	return s and s:match( '^%s*(.-)%s*$' ) ~= ''
end

local function yesno(s, d)
	s = (s or ''):lower()
	if (s == 'no' or s == 'n') then
		return false
	elseif (s == 'yes' or s == 'y') then
		return true
	else
		return d
	end
end

local function ifexist(page)
	if not page then return false end
	if mw.title.new(page).exists then return true end
	return false
end

local function getdivision(y)
	if y >= 2006 then
		return 'NCAA Division I FBS'
	elseif y >= 1978 then
		return 'NCAA Division I-A'
	elseif y >= 1973 then
		return 'NCAA Division I'
	elseif y >= 1962 then
		return 'NCAA University Division'
	elseif y >= 1958 then
		return 'major college'
	else
		return 'college'
	end

	return ''
end

local function getpolltext(y, d, p)
	-- default poll is the Coaches poll
	if (p or '') == '' then
		p = 'Coaches\''
	end

	-- if p is linked then just return p
	if (p or ''):find('[%[%]]') then
		return p
	end

	-- else if y is a number
	if isnotempty(y) and tonumber(y) then
		if (d or '') == '' then
			d = getdivision(tonumber(y))
		end

		return '[[' .. y .. ' ' .. d .. ' football rankings'
					.. '#' .. p .. ' Poll|' .. p .. ' Poll]]'
					.. ' released prior to the game'
	end

	-- else if d is not empty
	if isnotempty(d) then
		d = d .. ' '

		if ifexist(d .. p .. ' Poll') then
			return '[[' .. d .. p .. ' Poll|' .. p .. ' Poll]]'
				.. ' released prior to the game'
		end
	end

	-- else if p Poll is an article
	if ifexist(p .. ' Poll') then
		return (d or '') .. '[[' .. p .. ' Poll]]'
			.. ' released prior to the game'
	end

	return (d or '') .. p .. ' poll released prior to the game'
end

local function getopp(s, atvs, movegn)
	s = mw.ustring.gsub(s, '<[%s/]*[Nn][Cc][Gg][%s/]*>', '<span class="CFB-schedule-ncgame">*</span>')
	s = mw.ustring.gsub(s, '<[%s/]*[Hh][Cc][%s/]*>', dagger)
	atvs = mw.ustring.gsub(atvs or '', '^%s*@%s*', 'at')
	atvs = mw.ustring.gsub(atvs or '', '^%s*[Vv][Ss]?[%.%s]*', 'vs.')
	s = mw.ustring.gsub(s, '^([A-Za-z%.%s]*)[Nn][Oo][%.%s]*([0-9])', '%1 No.&nbsp;%2' )
	s = mw.ustring.gsub(s, '^([A-Za-z%.%s]*)#([0-9])', '%1 No.&nbsp;%2')
	if mw.ustring.match(s, 'No%.&nbsp;%d') then hasrank=true end
	local gn, r = '', ''
	if mw.ustring.match(s, '[Nn][Oo][Ww][Rr][Aa][Pp]') then
		hasnowrap = true
	end
	if mw.ustring.match(s, '[Nn][Bb][Ss][Pp]') then
		hasnowrap = true
	end
	if mw.ustring.match(s, '^.*%s*%(%s*%[%[[^%[%]]*%]%]%s*%)%s*.*$') then
		if mw.ustring.match(s, '%(%[%[[^%[%]]*%|%s*[Rr]ivalry') then
			hasopprivalry = true
		else
			hasoppgamename = true
		end
		if movegn == true then
			s, gn, r = mw.ustring.match(s, '^(.*)%s*%(%s*(%[%[[^%[%]]*%]%])%s*%)(%s*.*)$')
		end
	end
	if atvs ~= '' then atvs = atvs .. ' ' end
	return atvs .. s .. r, gn
end

local function getrank(s)
	s = mw.ustring.gsub(s, '^%s*([%d][%d]*)', 'No.&nbsp;%1')
	s = mw.ustring.gsub(s, '^%s*(T)[%-–%s]*([%d][%d]*)', 'No.&nbsp;%1–%2')
	return s
end

local function getseed(s)
	s = mw.ustring.gsub(s, '^%s*([%d][%d]*)', '(%1)')
	s = mw.ustring.gsub(s, '^%s*(T)[%-–%s]*([%d][%d]*)', '(%1–%2)')
	return s
end

local function getsite(stadium, location, game_name)
	if isnotempty(stadium) and isnotempty(location) then
		game_name = mw.ustring.gsub(game_name, '^%s*', '')
		if isnotempty(game_name) then
			game_name = mw.ustring.gsub(game_name, '^([Rr][Ii][Vv][Aa][Ll][Rr][Yy])$', '%1[[Category:Pages using CFB schedule with an unlinked rivalry]]')
			game_name = mw.ustring.gsub(game_name, '^([^%[%]]*)$', '%1[[Category:Pages using CFB schedule with an unlinked gamename]]')
			game_name = ' (' .. game_name .. ')'
		end
		
		if mw.ustring.match(location, '%s%(%[%[') then
			if mw.ustring.match(location, '%s%(%[%[[^%]]*%|%s*[Rr]ivalry') then
				haslocrivalry = true
			else
				haslocgamename = true
			end
		end
		return horizontal({stadium, location .. game_name})
	else
		game_name = mw.ustring.gsub(game_name, '^%s*', '')
		if isnotempty(game_name) then
			game_name = ' (' .. game_name .. ')'
		end
		return stadium .. location .. game_name
	end
end

local function setbg(WL,N)
	local BG = '#F8F9FA'
	WL = mw.ustring.gsub(WL, '^%s*(.-)%s*$', '%1')
	WL = WL:upper()
	if WL == 'W' then
		BG = '#DDFFDD'
	elseif WL == 'L' then
		BG = '#FFDDDD'
	elseif WL == 'T' then
		BG = '#FFFFE6'
	elseif WL == 'V' then
		BG = '#F0E8E8'
		WL = 'W'
		N = N .. ' (vacated)'
	end
	return BG, WL, N
end

local function parse4(p, s)
	local t = {'', '', '', ''}
	for k = 1,4 do
		t[k] = mw.ustring.gsub(s, p, '%' .. k)
	end
	local wl, sc, n, bg = t[1], t[2] .. '–' .. t[3], t[4], 'inherit'
	bg, wl, n = setbg(wl, n)
	return '<span style="display:inline-block; font-weight:bold; width:1em">' .. wl .. '</span> ' .. sc .. n, bg
end
	
local function getresult(wl, s, n)
	local bg = '#F8F9FA'

	local loopnum = 0
	while (mw.ustring.match(s, '&[Nn][Bb][Ss][Pp];') and loopnum < 5) do
		hasstrangescore = true
		s = mw.ustring.gsub(s, '&[Nn][Bb][Ss][Pp];', ' ')
		s = mw.ustring.gsub(s, '<%s*[Ss][Pp][Aa][Nn][^<>]*>%s*</[Ss][Pp][Aa][Nn]%s*>', ' ')
		loopnum = loopnum + 1
	end
	s = mw.ustring.gsub(s, '&[Nn][Bb][Ss][Pp];%s*(<[%s/]*[0-9]*OT[%s/]*>)', ' %1')
	s = mw.ustring.gsub(s, '%s*<([0-9]*)[Oo][Tt]>', ' <sup>%1OT</sup>')
	s = mw.ustring.gsub(s, '&[MmNn][Dd][Aa][Ss][Hh];', '–')
	s = mw.ustring.gsub(s, '<span class="url">(.-)</span>', '%1')
	s = mw.ustring.gsub(s, '^%s*(.-)%s*$', '%1')

	if wl ~= '' then
		s = mw.ustring.gsub(s, '^%s*([%d][%d]*)%s*[%‐‒–—―]%s*', '%1–')
		s = mw.ustring.gsub(s, '^%s*(%[%[%s*[^|]*|%s*[%d][%d]*)%s*[%‐‒–—―]%s*', '%1–')
		s = mw.ustring.gsub(s, '^%s*(%[[^|%[%]%s]*%s+[%d][%d]*)%s*[%‐‒–—―]%s*', '%1–')
		local r
		if mw.ustring.match(wl, '^%s*[%a]?%s*$') then
			bg, wl, n = setbg(wl, n)
			r = '<span style="display:inline-block; font-weight:bold; width:1em">' 
				.. wl .. '</span> ' .. s .. n
		else
			hasstrangescore = true
			r = wl .. s .. n
		end
		return r,bg
	end
	
	if s == 'Cancelled' or s == '' or s == '?' then
		return wl .. s .. n, 'inherit'
	end
	
	if mw.ustring.match(s, '^[%a]%s+[^%d].*$') then
		wl = mw.ustring.gsub(s, '^([%a])%s+(.-)$', '%1')
		s = mw.ustring.gsub(s, '^([%a])%s+(.-)$', '%2')
		bg, wl, n = setbg(wl, n)
		local r = '<span style="display:inline-block; font-weight:bold; width:1em">'
			.. wl .. '</span> ' .. s .. n
		return r,bg
	end
	
	if mw.ustring.match(s, '^[%a]$') then
		bg, wl, n = setbg(s, n)
		local r = '<span style="display:inline-block; font-weight:bold; width:1em">'
			.. wl .. '</span> ' .. n
		return r, bg
	end

	local pat
	pat = '^([%a])%s*([%d][%d]*)[%D]%s*([%d][%d]*)(.-)$'
	if mw.ustring.match(s, pat) then
		return parse4(pat, s)
	end

	pat = '^([%a])%s*(%[%[%s*[^|]*|%s*[%d][%d]*)[%D]%s*([%d][%d]*%]%])(.-)$'
	if mw.ustring.match(s, pat) then
		return parse4(pat, s)
	end
	
	pat = '^([%a])%s*(%[[^|%[%]%s]*%s+[%d][%d]*)[%D]%s*([%d][%d]*%s*%])(.-)$'
	if mw.ustring.match(s, pat) then
		return parse4(pat, s)
	end
	
	hasstrangescore = true

	return wl .. s .. n, 'inherit'
end

local function getfootnotes(ncg, hc, oe, rank, opprank, poll, tz, src)
	-- footnotes
	local fn = {}
	if ncg then
		table.insert(fn,'*Non-conference game')
	end
	if hc then
		table.insert(fn, dagger .. 'Homecoming')
	end
	if isnotempty(oe) then
		table.insert(fn, oe)
	end
	if (rank == true) or (opprank == true) then
		table.insert(fn, 'Rankings from ' .. poll)
	end
	if isnotempty(tz) then
		table.insert(fn,'All times are in [[' .. tz .. ' Time Zone|' .. tz .. ' time]]')
	end
	if isnotempty(src) then
		table.insert(fn, 'Source: ' .. src)
	end

	if (#fn > 0) then
		return horizontal(fn)
	else
		return nil
	end
end

local function make_outer_table(args)
	local showdate   = yesno(args['date'], false)
	local showtime   = yesno(args['time'], false)
	local showrank   = yesno(args['rank'], false)
	local showtv     = yesno(args['tv'], false)
	local showattend = yesno(args['attend'], false)
	local showsource = yesno(args['source'], false)
	local ncg, hc = false, false
	local row

	-- Step 1: Inspect the rows to determine which headers are active
	local k = 1
	while args[k] ~= nil do
		if showdate == false then
			if args[k]:find('<td[^>]*CFB%-schedule%-date[^>]*>%s*[^%s<]') then
				showdate = true
			end
		end
		if showtime == false then
			if args[k]:find('<td[^>]*CFB%-schedule%-time[^>]*>%s*[^%s<]') then
				showtime = true
			end
		end
		if showrank == false then
			if args[k]:find('<td[^>]*CFB%-schedule%-rank[^>]*>%s*[^%s<]') then
				showrank = true
			end
		end
		if showtv == false then
			if args[k]:find('<td[^>]*CFB%-schedule%-tv[^>]*>%s*[^%s<]') then
				showtv = true
			end
		end
		if showattend == false then
			if args[k]:find('<td[^>]*CFB%-schedule%-attend[^>]*>%s*[^%s<]') then
				showattend = true
			end
		end
		if showsource == false then
			if args[k]:find('<td[^>]*CFB%-schedule%-source[^>]*>%s*[^%s<]') then
				showsource = true
			end
		end
		if ncg == false then
			if args[k]:find('<s[pu][ap][^>]*CFB%-schedule%-ncgame') then
				ncg = true
			end
		end
		if hc == false then
			if args[k]:find('<s[pu][ap][^>]*CFB%-schedule%-hcgame') then
				hc = true
			end
		end
		if hasrank == false then
			if showrank == true or args[k]:find('No%.&nbsp;%d') or args[k]:find('No%.&nbsp;T[%-–%s]*%d') then
				hasrank = true
			end
		end
		k = k + 1
	end
	if k == 1 then
		return '[[Category:Pages using CFB schedule with no content]]'
	end
	
	-- Step 2: Build the table
	local root = mw.html.create('table')
	root:addClass('wikitable notheme')
		:css('font-size', '95%')

	-- optional caption
	if args['caption'] then
		root:tag('caption'):addClass('skin-invert'):wikitext(args['caption'])
	end
	
	-- add the headers
	local cols = 3
	row = root:tag('tr')
	if showdate then
		row:tag('th'):wikitext('Date')
		cols = cols + 1
	end
	if showtime then
		row:tag('th'):wikitext('Time')
		cols = cols + 1
	end
	row:tag('th'):wikitext('Opponent')
	if showrank then
		row:tag('th'):wikitext('Rank')
		cols = cols + 1
	end
	row:tag('th'):wikitext('Site')
	if showtv then
		row:tag('th'):wikitext('TV')
		cols = cols + 1
	end
	row:tag('th'):wikitext('Result')
	if showattend then
		row:tag('th'):wikitext('Attendance')
		cols = cols + 1
	end
	if showsource then
		row:tag('th'):wikitext('Source')
		cols = cols + 1
	end

	k = 1
	while args[k] ~= nil do
		row = args[k] or ''
		if showdate then
			row = mw.ustring.gsub(row, '<td[^>]*CFB%-schedule%-date[^>]*>', '<td style="white-space:nowrap">')
		else
			row = mw.ustring.gsub(row, '<td[^>]*CFB%-schedule%-date[^>]*>%s*</td>%s*', '')
		end
		if showtime then
			row = mw.ustring.gsub(row, '<td[^>]*CFB%-schedule%-time[^>]*>', '<td style="white-space:nowrap">')
		else
			row = mw.ustring.gsub(row, '<td[^>]*CFB%-schedule%-time[^>]*>%s*</td>%s*', '')
		end
		if showrank then
			row = mw.ustring.gsub(row, '<td[^>]*CFB%-schedule%-rank[^>]*>', '<td style="white-space:nowrap">')
		else
			row = mw.ustring.gsub(row, '<td[^>]*CFB%-schedule%-rank[^>]*>%s*</td>%s*', '')
		end
		if showtv then
			row = mw.ustring.gsub(row, '<td[^>]*CFB%-schedule%-tv[^>]*>', '<td>')
		else
			row = mw.ustring.gsub(row, '<td[^>]*CFB%-schedule%-tv[^>]*>%s*</td>%s*', '')
		end
		if showattend then
			row = mw.ustring.gsub(row, '<td[^>]*CFB%-schedule%-attend[^>]*>', '<td style="text-align:center">')
		else
			row = mw.ustring.gsub(row, '<td[^>]*CFB%-schedule%-attend[^>]*>%s*</td>%s*', '')
		end
		if showsource then
			row = mw.ustring.gsub(row, '<td[^>]*CFB%-schedule%-source[^>]*>', '<td style="text-align:center">')
		else
			row = mw.ustring.gsub(row, '<td[^>]*CFB%-schedule%-source[^>]*>%s*</td>%s*', '')
		end
		root:wikitext(row)
		k = k + 1
	end

	-- footnotes
	local fnotes = getfootnotes(
		ncg,
		hc,
		args['other-event'] or args['other_event'] or args['otherevent'],
		showrank,
		yesno(args['opprank'], hasrank),
		getpolltext(
			args['rank_year'] or args['rankyear'],
			args['rank_division'] or args['rankdivision'],
			args['poll']
		),
		showtime and args['timezone'] or '',
		args['seasonsource']
	)

	if fnotes ~= nil then
		root:tag('tr')
				:tag('td')
				:attr('colspan',cols)
				:css('font-size', '85%')
				:wikitext(fnotes)
	end
	return tostring(root)
end

local function convert_table(args)
	local function splitresult(s)
		local wl = ''
		s = mw.ustring.gsub(s or '', '&[MmNn][Dd][Aa][Ss][Hh];', '–')
		s = mw.ustring.gsub(s, '^%s*(.-)%s*$', '%1')
		local r = ''
		if mw.ustring.match(s, '^[%a]%s*[%d][%d]*[%D]%s*[%d][%d]*%s*.*$') then
			local t = {'', '', '', ''}
			for k = 1,4 do
				t[k] = mw.ustring.gsub(s,'^([%a])%s*([%d][%d]*)[%D]%s*([%d][%d]*)%s*(.*)$', '%' .. k)
			end
			local wl, s1, s2, n = t[1], t[2], t[3], t[4]
			wl = wl:lower()
			return wl, s1 .. '–' .. s2 .. n
		end
		return '', s
	end
	local res = '{{CFB schedule\n'
	res = res .. (yesno(args['opprank'], false) == false and '' or '| opprank = y\n')
	res = res .. (isnotempty(args['other-event'])
			and '| other-event = ' .. args['other-event'] .. '\n' or '')
	res = res .. (isnotempty(args['rankyear'])
			and '| rankyear = ' .. args['rankyear'] .. '\n' or '')
	res = res .. (isnotempty(args['rankdivision'])
			and '| rankdivision = ' .. args['rankdivision'] .. '\n' or '')
	res = res .. (isnotempty(args['poll'])
		and '| poll = ' .. args['poll'] .. '\n' or '')
	res = res .. (isnotempty(args['timezone'])
		and '| timezone = ' .. args['timezone'] .. '\n' or '')

	-- switch headers on and off
	local headers = {'Date', 'Time', 'At/Vs', 'Opponent', 'Rank', 'Site', 'Location', 'TV', 'Result', 'Attendance', 'Source'}
	local resultoffset = 8

	for k = #headers,1,-1 do
		if headers[k] == 'Time' and (yesno(args['time'], false) == false) then
			table.remove(headers,k)
			resultoffset = resultoffset - 1
		elseif headers[k] == 'At/Vs' and (yesno(args['atvs'], true) == false) then
			table.remove(headers,k)
			resultoffset = resultoffset - 1
		elseif headers[k] == 'Rank' and (yesno(args['rank'], false) == false) then
			table.remove(headers,k)
			resultoffset = resultoffset - 1
		elseif headers[k] == 'TV' and (yesno(args['tv'], false) == false) then
			table.remove(headers,k)
			resultoffset = resultoffset - 1
		elseif headers[k] == 'Attendance' and (yesno(args['attend'], false) == false) then
			table.remove(headers,k)
		elseif headers[k] == 'Source' and (yesno(args['source'], false) == false) then
			table.remove(headers,k)
		end
	end

	-- parse the table
	local k = 1
	local stopflag = (args[k] == nil) and true or false
	while stopflag == false do
		res = res .. '|{{CFB schedule entry\n'
		for j = 1,#headers do
			if headers[j] == 'Date' then
				res = res .. '| date = ' .. mw.ustring.gsub(args[k] or '', '^%s*(.-)%s*$', '%1') .. '\n'
			elseif headers[j] == 'Time' then
				res = res .. '| time = ' .. mw.ustring.gsub(args[k] or '', '^%s*(.-)%s*$', '%1') .. '\n'
			elseif headers[j] == 'At/Vs' then
				local atvs = mw.ustring.gsub(args[k] or '', '^%s*(.-)%s*$', '%1')
				atvs = mw.ustring.gsub(atvs, '^@', 'at')
				atvs = mw.ustring.gsub(atvs, '^[Vv][Ss]?[%.%s]*', 'vs.')
				if mw.ustring.find(atvs, '^at') then
					res = res .. '| away = y\n'
				elseif mw.ustring.find(atvs, '^vs') then
					res = res .. '| neutral = y\n'
				elseif atvs ~= '' then
					res = res .. '| atvs = ~' .. atvs .. '~\n'
				end
			elseif headers[j] == 'Opponent' then
				local opp = mw.ustring.gsub(args[k] or '', '^%s*(.-)%s*$', '%1')
				if mw.ustring.find(opp, '%s*<[%s/]*[Nn][Cc][Gg][%s/]*>%s*') then
					opp = mw.ustring.gsub(opp, '%s*<[%s/]*[Nn][Cc][Gg][%s/]*>%s*', ' ')
					res = res .. '| nonconf = y\n'
				end
				if mw.ustring.find(opp, '%s*<[%s/]*[Hh][Cc][%s/]*>%s*') then
					opp = mw.ustring.gsub(opp, '%s*<[%s/]*[Hh][Cc][%s/]*>%s*', ' ')
					res = res .. '| homecoming = y\n'
				end
				opp = mw.ustring.gsub(opp, '^%s*(.-)%s*$', '%1')
				opp = mw.ustring.gsub(opp, '^[Nn][Oo][%.%s]*([0-9])', '#%1' )
				if mw.ustring.find(opp, '^#([0-9]+)%s*') then
					local orank = mw.ustring.gsub(opp, '^#([0-9]+)%s*(.-)$', '%1' )
					opp = mw.ustring.gsub(opp, '^#([0-9]+)%s*(.-)$', '%2' )
					res = res .. '| opprank = ' .. orank .. '\n'
				end
				if mw.ustring.find(opp, '^(.-)%s*%((%[%[[^%[%]]*%]%])%)%s*$') then
					local rgame = mw.ustring.gsub(opp, '^(.-)%s*%((%[%[[^%[%]]*%]%])%)%s*$', '%2')
					opp = mw.ustring.gsub(opp, '^(.-)%s*%((%[%[[^%[%]]*%]%])%)%s*$', '%1')
					res = res .. '| gamename = ' .. rgame .. '\n'
				end
				res = res .. '| opponent = ' .. opp .. '\n'
			elseif headers[j] == 'Rank' then
				local mrank = mw.ustring.gsub(args[k] or '', '^%s*(.-)%s*$', '%1')
				mrank = mw.ustring.gsub(mrank, '^[Nn][Oo][%.%s]*([0-9])', '%1' )
				mrank = mw.ustring.gsub(mrank, '^#[%.%s]*([0-9])', '%1' )
				res = res .. '| rank = ' .. mrank .. '\n'
			elseif headers[j] == 'Site' then
				res = res .. '| stadium = ' .. mw.ustring.gsub(args[k] or '', '^%s*(.-)%s*$', '%1') .. '\n'
			elseif headers[j] == 'Location' then
				local loc = mw.ustring.gsub(args[k] or '', '^%s*(.-)%s*$', '%1')
				local rname = ''
				if mw.ustring.find(loc, '^(.-)%s*%((%[%[[^%[%]]*%]%])%)%s*$') then
					rgame = mw.ustring.gsub(loc, '^(.-)%s*%((%[%[[^%[%]]*%]%])%)%s*$', '%2')
					rname = rname .. '| gamename = ' .. rgame .. '\n'
					loc = mw.ustring.gsub(loc, '^(.-)%s*%((%[%[[^%[%]]*%]%])%)%s*$', '%1')
				end
				res = res .. '| cityst = ' .. loc .. '\n'
				res = res .. rname
			elseif headers[j] == 'TV' then
				res = res .. '| tv = ' .. mw.ustring.gsub(args[k] or '', '^%s*(.-)%s*$', '%1') .. '\n'
			elseif headers[j] == 'Result' then
				local wl, score = splitresult(args[k] or '')
				res = res .. '| w/l = ' .. wl .. '\n'
				res = res .. '| score = ' .. score .. '\n'
			elseif headers[j] == 'Attendance' then
				res = res .. '| attend = ' .. mw.ustring.gsub(args[k] or '', '^%s*(.-)%s*$', '%1') .. '\n'
			elseif headers[j] == 'Source' then
				res = res .. '| source = ' .. mw.ustring.gsub(args[k] or '', '^%s*(.-)%s*$', '%1') .. '\n'
			else
				res = res .. '| ?? = ' .. mw.ustring.gsub(args[k] or '', '^%s*(.-)%s*$', '%1') .. '\n'
			end
			k = k + 1
			stopflag = (args[k] == nil) and true or false
		end
		res = res .. '}}\n'
	end
	res = res .. '}}'

	return res
end

local function make_table(args)
	local hasgamename = true

	-- switch headers on and off
	local headers = {'Date', 'Time', 'At/Vs', 'Opponent', 'Rank', 'Site', 'Location', 'Game name', 'TV', 'Result', 'Attendance', 'Source'}
	local resultoffset = 9

	local ncg, hc = false, false

	for k = #headers,1,-1 do
		if headers[k] == 'Time' and (yesno(args['time'], false) == false) then
			table.remove(headers,k)
			resultoffset = resultoffset - 1
		elseif headers[k] == 'At/Vs' and (yesno(args['atvs'], true) == false) then
			table.remove(headers,k)
			resultoffset = resultoffset - 1
		elseif headers[k] == 'Rank' and (yesno(args['rank'], false) == false) then
			table.remove(headers,k)
			resultoffset = resultoffset - 1
		elseif headers[k] == 'Game name' and (yesno(args['gamename'], false) == false) then
			table.remove(headers,k)
			resultoffset = resultoffset - 1
			hasgamename = false
		elseif headers[k] == 'TV' and (yesno(args['tv'], false) == false) then
			table.remove(headers,k)
			resultoffset = resultoffset - 1
		elseif headers[k] == 'Attendance' and (yesno(args['attend'], false) == false) then
			table.remove(headers,k)
		elseif headers[k] == 'Source' and (yesno(args['source'], false) == false) then
			table.remove(headers,k)
		end
	end

	-- create the root table
	local root = mw.html.create('table')
	root:addClass('wikitable notheme')
		:css('font-size', '95%')
	
	-- optional caption
	if args['caption'] then
		root:tag('caption'):addClass('skin-invert'):wikitext(args['caption'])
	end

	-- add the headers
	local row = root:tag('tr')
	for k=1,#headers do
		if headers[k] == 'Rank' then
			local cell = row:tag('th')
			cell:wikitext('Rank')
		elseif headers[k] == 'Location' then
		elseif headers[k] == 'At/Vs' then
		elseif headers[k] == 'Opponent' then
			local cell = row:tag('th')
			cell:wikitext('Opponent')
		else
			local cell = row:tag('th')
			cell:wikitext(headers[k])
		end
	end

	-- build the table
	local k = 1
	local stopflag = (args[k] == nil) and true or false
	if stopflag then return '[[Category:Pages using CFB schedule with no content]]' end
	while stopflag == false do
		local res, bg = getresult('', args[k+resultoffset] or '', '')
		row = root:tag('tr'):css('background-color', bg):css('color','inherit')
		local op, gn = '', ''
		for j = 1,#headers do
			if headers[j] == 'Result' then
				row:tag('td'):css('white-space', 'nowrap'):wikitext(res)
			elseif headers[j] == 'At/Vs' then
			elseif headers[j] == 'Opponent' then
				if mw.ustring.find(args[k] or '', '<[%s/]*[Nn][Cc][Gg][%s/]*>') then
					ncg = true
				end
				if mw.ustring.find(args[k] or '', '<[%s/]*[Hh][Cc][%s/]*>') then
					hc = true
				end
				op, gn = getopp(args[k], (yesno(args['atvs'], true) == true) and (args[k-1] or '') or '', true)
				row:tag('td'):wikitext(op)
			elseif headers[j] == 'Rank' then
				row:tag('td'):wikitext(getrank(args[k]))
			elseif headers[j] == 'Site' then
				row:tag('td'):wikitext(getsite(args[k] or '', args[k+1] or '',
					(hasgamename and (args[k+2] or '') or '') .. (' ' .. gn)))
			elseif headers[j] == 'Location' then
			elseif headers[j] == 'Game name' then
			elseif headers[j] == 'Attendance' then
				row:tag('td'):css('text-align', 'center'):wikitext(args[k])
			else
				row:tag('td'):wikitext(args[k])
			end
			k = k + 1
			stopflag = (args[k] == nil) and true or false
		end
	end

	-- footnotes
	local fnotes = getfootnotes(
		ncg,
		hc,
		args['other-event'] or args['other_event'] or args['otherevent'],
		yesno(args['rank'], false),
		yesno(args['opprank'], hasrank),
		getpolltext(
			args['rank_year'] or args['rankyear'],
			args['rank_division'] or args['rankdivision'],
			args['poll']
		),
		(yesno(args['time'], false) == false) and '' or args['timezone'],
		args['seasonsource']
	)

	if fnotes ~= nil then
		row = root:tag('tr')
		row:tag('td')
			:attr('colspan',#headers)
			:css('font-size', '85%')
			:wikitext(fnotes)
	end

	-- return the root table
	return tostring(root) ..
		(haslocgamename and '[[Category:Pages using CFB schedule with gamename after location]]' or '') ..
		(hasoppgamename and '[[Category:Pages using CFB schedule with gamename after opponent]]' or '') ..
		(haslocrivalry and '[[Category:Pages using CFB schedule with rivalry after location]]' or '') ..
		(hasopprivalry and '[[Category:Pages using CFB schedule with rivalry after opponent]]' or '') ..
		(hasstrangescore and '[[Category:Pages using CFB schedule with an unusual score]]' or '') ..
		(hasnowrap and '[[Category:Pages using CFB schedule with nowrap or nbsp opponent]]' or '')
end

function p.entry(frame)
	local args = (frame.args.opponent ~= nil) and frame.args or frame:getParent().args
	local cell

	if args['overtime'] then
		args['overtime'] = ' <sup>' .. args['overtime'] .. '</sup>'
	end

	local res, bg = getresult(
		(args['w/l'] or '') .. ' ', 
		args['score'] or '', 
		args['overtime'] or ''
		)

	local root = mw.html.create('tr')
		:addClass('CFB-schedule-row')
		:css('background-color', bg)
		:css('color', 'inherit')

	-- Date
	cell = root:tag('td'):addClass('CFB-schedule-date')
	if args.date and (args.date):lower() ~= 'no' then
		cell
			:css('white-space','nowrap')
			:wikitext(args.date or '')
	else
		cell:css('display','none')
	end

	-- Time
	cell = root:tag('td'):addClass('CFB-schedule-time')
	if args.time and (args.time):lower() ~= 'no' then
		cell
			:css('white-space','nowrap')
			:wikitext(args.time or '')
	else
		cell:css('display','none')
	end

	-- Opponent
	local op, gn = getopp(
		(isnotempty(args.oppseed) and getseed(args.oppseed) .. ' ' or '') ..
		(isnotempty(args.opprank) and getrank(args.opprank) .. ' ' or '') ..
		(args.opponent or '') ..
		((yesno(args.nonconf,false) == true) and '<ncg>' or '') ..
		((yesno(args.homecoming,false) == true) and '<hc>' or '') ..
		(args.ref or ''),
		(isnotempty(args.away) and 'at' or '') ..
		(isnotempty(args.neutral) and 'vs.' or ''),
		false
		)
	root:tag('td')
		:css('white-space', 'nowrap')
		:wikitext(op)

	-- Rank
	cell = root:tag('td'):addClass('CFB-schedule-rank')
	if args.rank and (args.rank):lower() ~= 'no' then
		local seed = args.seed or ''
		if args.seed and (args.seed):lower() ~= 'no' then
			
			if seed ~= '' then
				seed = '(' .. seed .. ') '
			end
		end
		local rank = args.rank or ''
		if rank ~= '' then
			rank = 'No. ' .. rank
		end
		cell
			:css('text-align','center')
			:css('white-space','nowrap')
			:wikitext(seed .. rank)
	else
		cell:css('display','none')
	end

	-- Gamename
	local gamename = args.gamename or ''

	-- Site
	root:tag('td')
		:wikitext(getsite(args.stadium or args.site_stadium or '', (args.cityst or args.site_cityst or ''), gamename))

	-- TV
	cell = root:tag('td'):addClass('CFB-schedule-tv')
	if args.tv and (args.tv):lower() ~= 'no' then
		cell
			:wikitext(args.tv or '')
	else
		cell:css('display','none')
	end

	-- Result
	root:tag('td')
		:css('white-space','nowrap')
		:wikitext(res)

	-- Attendance
	cell = root:tag('td'):addClass('CFB-schedule-attend')
	if args.attend and (args.attend):lower() ~= 'no' then
		cell
			:css('text-align','center')
			:wikitext(args.attend or '')
	else
		cell:css('display','none')
	end

	-- Source
	cell = root:tag('td'):addClass('CFB-schedule-source')
	if args.source and (args.source):lower() ~= 'no' then
		cell
			:css('text-align','center')
			:wikitext(args.source or '')
	else
		cell:css('display','none')
	end

	return tostring(root)
end

function p.subst(frame)
	local args = frame.args[1] and frame.args or frame:getParent().args
	if (args[1] or ''):find('<tr[^>]*CFB%-schedule%-row') then
		return make_outer_table(args)
	else
		return convert_table(args)
	end
end

function p.table(frame)
	local args = frame.args[1] and frame.args or frame:getParent().args
	if (args[1] or ''):find('<tr[^>]*CFB%-schedule%-row') then
		return make_outer_table(args) .. '[[Category:Pages using CFB schedule with named parameters]]'
	else
		return make_table(args) .. '[[Category:Pages using CFB schedule with unnamed parameters]]'
	end
end

return p

Content Disclaimer

Informasi ini disarikan dari Wikipedia dan disajikan kembali untuk tujuan edukasi. Konten tersedia di bawah lisensi CC BY-SA 3.0. Kami tidak bertanggung jawab atas ketidakakuratan data yang bersumber dari kontribusi publik tersebut.

  1. The information displayed on this website is sourced in part or in whole from Wikipedia and has been adapted for the purpose of restating it. We strive to provide accurate and relevant information, however:
  2. There is no guarantee of absolute accuracy. Wikipedia is an open, collaborative project that can be edited by anyone, so information is subject to change.
  3. It is not intended to constitute professional advice. The content displayed is for informational and educational purposes only. For important decisions (e.g., medical, legal, or financial), please consult a professional.
  4. Content copyright. Wikipedia is licensed under the Creative Commons Attribution-ShareAlike License (CC BY-SA). This means that content may be reused with appropriate attribution and shared under a similar license.
  5. Responsible use. Any risk arising from the use of information from this website is entirely the responsibility of the user.