মডিউল:সিরিজ ওভারভিউ

উইকিপিডিয়া, মুক্ত বিশ্বকোষ থেকে
পরিভ্রমণে ঝাঁপ দিন অনুসন্ধানে ঝাঁপ দিন
মডিউল নথি[তৈরি করুন]
-- এই মডিউলের প্রয়োগ: {{সিরিজ ওভারভিউ}}।

require('Module:No globals')
local yesno = require('Module:Yesno')
local HTMLcolor = mw.loadData( 'Module:Color contrast/colors' )

--------------------------------------------------------------------------------
-- SeriesOverview class
-- The main class.
--------------------------------------------------------------------------------

local SeriesOverview = {}

function SeriesOverview.cellspan(SeasonEntries, SeasonEntries_ordered, key, cell, multipart)
	local spanlength = 1
	
	local firstEntry = SeasonEntries[SeasonEntries_ordered[cell]]
	if key == 'নেটওয়ার্ক' and firstEntry.networkA and not firstEntry.networkB then spanlength = 2 end
	
	for i = cell+1, #SeasonEntries_ordered do
		local entry = SeasonEntries[SeasonEntries_ordered[i]]
		-- Split season, then regular season
		if entry.startA then
			if not entry[key..'A'] then spanlength = spanlength + 1
			else break end
			if not entry[key..'B'] then spanlength = spanlength + 1
			else break end
		else
			if not entry[key] and (key == 'network' or (string.sub(key,0,3) == 'aux' and (not entry.special or entry.episodes)) or (string.sub(key,0,4) == 'info') and multipart) then
				spanlength = spanlength + 1
			else break end
		end
	end
	return spanlength
end

-- বাছাই ফাংশন
function SeriesOverview.series_sort(op1, op2)
	local n1,s1 = string.match(op1,"(%d+)(%a*)")
	local n2,s2 = string.match(op2,"(%d+)(%a*)")
	local n1N,n2N = tonumber(n1),tonumber(n2)

	if n1N == n2N then
		return s1 < s2
	else
		return n1N < n2N
	end
end

-- উভয় পাঠ্য যোগ করার ফাংশন অথবা {{N/a}}
function SeriesOverview.season_cell(text, frame)
	local cell
	
	if string.find(text or '', 'table-na', 0, true) ~= nil then
		local findpipe = string.find(text, ' | ', 0, true)
		if findpipe ~= nil then
			cell = SeriesOverview.series_attributes( frame:expandTemplate{title='N/A',args={string.sub(text,findpipe+3)}} )
		else
			cell = SeriesOverview.series_attributes( frame:expandTemplate{title='N/A'} )
		end
	else
		cell = mw.html.create('td'):wikitext(text)
	end
	
	return cell
end

-- {{N/A}} কোষের ব্যবহারের অনুমতি দিন
function SeriesOverview.series_attributes(infoParam)
	local entries = {}
	local infoCell = mw.html.create('td')
	local attrMatch = '([%a-]*)="([^"]*)"'
	
	while true do
		local a,b = string.match(infoParam,attrMatch)
		if a == nil or b == nil then break end
		infoCell:attr(a,b)
		infoParam = string.gsub(infoParam,attrMatch,'',1)
	end

	infoParam = string.gsub(infoParam,'%s*|%s*','',1)
	infoCell:wikitext(infoParam)
	
	return infoCell
end

function SeriesOverview.new(frame, args)
	args = args or {}
	local categories = ''
	local title = mw.title.getCurrentTitle()
	local allReleased = yesno(args.allreleased)

	-- সিরিজ ওভারভিউ সারণী তৈরি করুন
	local root = mw.html.create((args.multiseries or not args.series) and 'table' or '')
	local cellPadding = '0 8px'
	local basePadding = '0.2em 0.4em'

	root
		:addClass('wikitable')
		:addClass('plainrowheaders')
		:css('text-align', 'center')
	
	-- বাছাইযোগ্য
	if args.sortable then
		root:addClass('বাছাইযোগ্য');
	end
	
	-- প্রস্থ
	if args.width then
		root:css('প্রস্থ', args.width)
	end

	-- ক্যাপশন
	if args.caption then
		root:tag('ক্যাপশন'):wikitext(args.caption)
	end
	
	-- মৌসুমের তথ্যগুলি বের করুন এবং একটি 3D অ্যারেতে স্থান দিন
	local SeasonEntries = {}
	for k,v in pairs(args) do
		local str, num, str2 = string.match(k, '([^%d]*)(%d*)(%a*)')
		if num ~= '' then 
			-- Special
			local special = false
			if string.sub(str2,1,1) == 'S' then
				special = true
				num = num .. str2
				str2 = ''
			end
			-- এন্ট্রি যোগ করুন, প্রয়োজন হলে তৈরি করুন
			if not SeasonEntries[num] then
				SeasonEntries[num] = {}
			end
			SeasonEntries[num][str .. str2] = v
			if special then
				SeasonEntries[num]['special'] = 'y'
			end
		end
	end

	-- মৌসুমের সংখ্যা অনুসারে টেবিল ক্রম করুন
	local SeasonEntries_ordered = {}
	for k in pairs(SeasonEntries) do
		table.insert(SeasonEntries_ordered, k)
	end
	table.sort(SeasonEntries_ordered,SeriesOverview.series_sort)
	
	local firstRow = args.multiseries and {} or SeasonEntries[SeasonEntries_ordered[1]]
	
	-- তথ্য কোষগুলির জন্য কলস্পান গণনা (0 = no info set)
	local numAuxCells = 0
	local numInfoCells = 0
	for i = string.byte('A'), string.byte('Z') do
		local param = 'info' .. string.char(i)
		if args[param] then numInfoCells = numInfoCells + 1 end
	end
	
	-- শীর্ষ তথ্য সেল
	-- @ = string.char(64), A = string.char(65)
	local topInfoCell = numInfoCells > 0 and string.char(numInfoCells + (string.byte('A') - 1)) or '@'

	-- শিরোলেখ
	do
		if args.multiseries or not args.series then
			local headerRow = root:tag('tr')
			headerRow
				:css('text-align', 'center')

			-- নেটওয়ার্কগুলি অন্তর্ভুক্ত করা হয় যদি খুব প্রথম এন্ট্রি প্রথম নেটওয়ার্ক সেট করে
			local setNetwork = (args.multiseries and args.network) or firstRow.network or firstRow.networkA
			local releasedBlurb = args.released and 'released' or 'aired'
			
			-- প্রথম তারিখের বিন্যাসে বেস সিরিজ/মৌসুমের সামগ্রী; ক্রম = D M Y, Season = M D, Y
			local matchDMY = false
			local thisStart = firstRow.start or firstRow.startA
			if thisStart then
				if string.match(thisStart:gsub("&nbsp;"," "), '(%d+)%s(%a+)%s(%d+)') then
					matchDMY = true
				end
			end
			
			-- একাধিক সিরিজের শিরোনাম
			if args.multiseries then
				headerRow:tag('th')
					:attr('scope', 'col')
					:css('padding', cellPadding)
					:attr('rowspan', allReleased and 1 or 2)
					:wikitext('ক্রম')
			end
			
			-- মৌসুমের শিরোনাম
			headerRow:tag('th')
				:attr('scope', 'col')
				:attr('rowspan', allReleased and 1 or 2)
				:attr('colspan', 2)
				:css('padding', cellPadding)
				:wikitext(args.seriesT or args.seasonT or (matchDMY and 'ক্রম') or 'মৌসুম')
			
			-- অক্স শিরোনাম
			for i = string.byte('A'), string.byte('Z') do
				local param = 'aux' .. string.char(i)
				if args[param] then
					numAuxCells = numAuxCells + 1
					headerRow:tag('th')
						:attr('scope', 'col')
						:css('padding', cellPadding)
						:attr('rowspan', allReleased and 1 or 2)
						:wikitext(args[param])
				end
			end

			-- পর্ব শিরোনাম
			headerRow:tag('th')
				:attr('scope', 'col')
				:attr('rowspan', allReleased and 1 or 2)
				:attr('colspan', 2)
				:css('padding', cellPadding)
				:wikitext('পর্ব')

			-- মূলত প্রচারিত শিরোনাম
			local OriginallyColspan = setNetwork and 3 or 2
			headerRow:tag('th')
				:attr('scope', 'col')
				:attr('colspan', OriginallyColspan)
				:wikitext('মূলত প্রচারিত')
			
			-- প্রকাশিত সিরিজের জন্য নেটওয়ার্ক উপশিরোনাম
			if setNetwork and allReleased then
				headerRow:tag('th')
					:attr('scope', 'col')
					:attr('rowspan', allReleased and 1 or 2)
					:css('padding', cellPadding)
					:wikitext('নেটওয়ার্ক')
			end
			
			-- তথ্য শিরোনাম
			if topInfoCell ~= '@' then
				for i = string.byte('A'), string.byte(topInfoCell) do
					local param = 'info' .. string.char(i)
					headerRow:tag('th')
						:attr('scope', 'col')
						:attr('rowspan', allReleased and 1 or 2)
						:css('padding', cellPadding)
						:wikitext(args[param])
				end
			end
			
			-- উপশিরোনাম সারি
			local subheaderRow = mw.html.create('tr')

			if not allReleased then
				-- প্রথম প্রচারিত উপশিরোনাম
				subheaderRow:tag('th')
					:attr('scope', 'col')
					:wikitext('প্রথম প্রচারিত')

				-- সর্বশেষ প্রচারিত উপশিরোনাম
				subheaderRow:tag('th')
					:attr('scope', 'col')
					:wikitext('সর্বশেষ প্রচারিত')
				
				-- প্রকাশিত সিরিজের জন্য নেটওয়ার্ক উপশিরোনাম
				if setNetwork then
					subheaderRow:tag('th')
						:attr('scope', 'col')
						:css('padding', cellPadding)
						:wikitext('নেটওয়ার্ক')
				end
			end
		
			-- পরিস্থিতিগুলির একটি খালির সঙ্গে পরীক্ষা করুন
			if not allReleased or numInfoCells > 0 then
				root:node(subheaderRow)
			end
		end
	end

	-- মৌসুম সারি
	do
		if args.multiseries then
			-- একাধিক মৌসুমের স্বতন্ত্র এন্ট্রি
			if args.multiseries ~= "y" then
				root:node(args.multiseries)
			end
		else
			-- একটি সারির এন্ট্রি, কেবল নামস্থান শ্রেণিবদ্ধ করা হয়
			if title.namespace == 0 and #SeasonEntries == 1 then
				categories = categories .. '[[বিষয়শ্রেণী:কেবলমাত্র একটি সারি দিয়ে টেমপ্লেট সিরিজ ওভারভিউ ব্যবহার করা নিবন্ধগুলি]]'
			end
		
			-- পুরো ওভারভিউতে সারিগুলির সংখ্যা নির্ধারণ করুন
			local SeasonEntriesRows = 0
			for X = 1, #SeasonEntries_ordered do
				local season, entry = SeasonEntries_ordered[X], SeasonEntries[SeasonEntries_ordered[X]]
				local splits = 0
				for i = string.byte('A'), string.byte('Z') do
					local param = 'start' .. string.char(i)
					if entry[param] then splits = splits + 1 end
				end
				if splits == 0 then splits = 1 end
				SeasonEntriesRows = SeasonEntriesRows + splits
			end
			
			for X = 1, #SeasonEntries_ordered do
				local season, entry = SeasonEntries_ordered[X], SeasonEntries[SeasonEntries_ordered[X]]
				
				-- একটি মৌসুমের বিভাজনের সংখ্যা নির্ধারণ করুন
				local splits = 0
				for i = string.byte('A'), string.byte('Z') do
					local param = 'start' .. string.char(i)
					if entry[param] then splits = splits + 1 end
				end
				local splitSeason = (splits > 1)
				
				-- প্রতিটি মৌসুমের জন্য মৌসুম সারি
				for k0 = string.byte('A')-1, string.byte('Z') do
					local k = string.char(k0)
					if k0 == string.byte('A')-1 then k = '' end
					
					-- নতুন মৌসুম সারি
					-- local seasonRow = (entry['color' .. k] or entry['episodes' .. k] or entry['start' .. k] or entry['end' .. k]) and root:tag('tr') or mw.html.create('tr')
					local seasonRow = entry['start' .. k] and root:tag('tr') or mw.html.create('tr')
					
					-- গ্রুপ ওভারভিউ জন্য সিরিজের নাম
					if X == 1 and (k == '' or k == 'A') and args.series then
						seasonRow:tag('th')
							:attr('scope', 'row')
							:attr('rowspan', SeasonEntriesRows)
							:wikitext(args.series)
					end
					
					-- রঙিন ঘর
					if entry['color' .. k] ~= nil and HTMLcolor[entry['color' .. k]] == nil then 
						entry['color' .. k] = '#'..(mw.ustring.match(entry['color' .. k], '^[%s#]*([a-fA-F0-9]*)[%s]*$') or '')
					end
					if splitSeason and entry.color then
						if k == 'A' then
							seasonRow:tag('td')
								:attr('rowspan', entry.color and splits or 1)
								:css('background', entry.color)
								:css('width','10px')
						end
					else
						seasonRow:tag('td')
							:css('background',entry['color' .. k])
							:css('width','10px')
					end
					
					-- মৌসুমের নম্বর লিঙ্কটি কেবল প্রথম সারিতে অন্তর্ভুক্ত
					if k == '' or k == 'A' then
						seasonRow:tag('th')
							:attr('scope', 'row')
							:attr('rowspan', splitSeason and splits or nil)
							:attr('colspan', entry.special and not entry.episodes and 3+numAuxCells or 1)
							:css('text-align', 'center')
							:wikitext((entry.link and '[[' .. entry.link .. '|' .. (entry.linkT or season) .. ']]' or (entry.linkT or season)) .. (entry.linkR or ''))
					end
					
					-- অক্স সেল
					for i = string.byte('A'), string.byte('Z') do
						local param = 'aux' .. string.char(i)
						if entry[param .. k] then
							local thisCell = SeriesOverview.season_cell(entry[param .. k], frame)
								:attr('scope', 'col')
								:attr('rowspan', SeriesOverview.cellspan(SeasonEntries, SeasonEntries_ordered, param, X, (args.series and true or false)))
								:css('padding', cellPadding)
							seasonRow:node(thisCell)
						end
					end
					
					-- পর্ব গণনা করুন
					if (splitSeason and k == 'A') or not splitSeason then
						if entry.episodes then
							local thisCell = SeriesOverview.season_cell(entry.episodes, frame)
								:attr('colspan', splitSeason and 1 or 2)
								:attr('rowspan', splitSeason and splits or nil)
							seasonRow:node(thisCell)
						elseif not entry.special then
							local infoCell = SeriesOverview.series_attributes( frame:expandTemplate{title='N/A',args={'TBA'}} )
							infoCell
								:attr('colspan', splitSeason and 1 or 2)
								:attr('rowspan', splitSeason and splits or nil)
							seasonRow:node(infoCell)
						end
					end
					if splitSeason then
						if entry['episodes' .. k] then
							local thisCell = SeriesOverview.season_cell(entry['episodes' .. k], frame)
							seasonRow:node(thisCell)
						else
							local infoCell = SeriesOverview.series_attributes( frame:expandTemplate{title='N/A',args={'TBA'}} )
							seasonRow:node(infoCell)
						end
					end
				
					-- শুরুর তারিখ
					if entry['start' .. k] then
						local thisCell = SeriesOverview.season_cell(entry['start' .. k], frame)
							:attr('colspan',((not entry.special and entry['end' .. k] == 'start') or (entry.special and not entry['end' .. k]) or allReleased) and 2 or 1)
							:css('padding',basePadding)
						seasonRow:node(thisCell)
					else
						local infoCell = SeriesOverview.series_attributes( frame:expandTemplate{title='N/A',args={'TBA'}} )
						infoCell:css('padding',basePadding)
						seasonRow:node(infoCell)
					end
					
					-- শেষ তারিখ
					if not allReleased and entry['end' .. k] ~= 'start' and ((entry.special and entry['end' .. k]) or not entry.special) then
						if entry['end' .. k] then
							local thisCell = SeriesOverview.season_cell(entry['end' .. k], frame)
								:css('padding',cellPadding)
							seasonRow:node(thisCell)
						else
							local infoCell = SeriesOverview.series_attributes( frame:expandTemplate{title='N/A',args={'TBA'}} )
							infoCell:css('padding',cellPadding)
							seasonRow:node(infoCell)
						end
					end
					
					-- নেটওয়ার্ক
					if entry['নেটওয়ার্ক'] then
						local thisCell = SeriesOverview.season_cell(entry['নেটওয়ার্ক'], frame)
							:attr('rowspan', SeriesOverview.cellspan(SeasonEntries, SeasonEntries_ordered, 'নেটওয়ার্ক', X, (args.series and true or false)))
						seasonRow:node(thisCell)
					end
					
					-- তথ্য
					for i = string.byte('A'), string.byte(topInfoCell) do
						local param0 = 'info' .. string.char(i)
						local param = 'info' .. string.char(i) .. k
						
						local infoParam = entry[param]
						
						if infoParam and splitSeason and k == '' and not entry[param .. 'A'] then
							entry[param .. 'A'] = entry[param]
							entry[param .. 'span'] = 'y'
						end
						
						local rowspan = (entry[param0 .. 'span'] and splits) or
										(args.series and SeriesOverview.cellspan(SeasonEntries, SeasonEntries_ordered, param0, X, (args.series and true or false)))
										or nil
						
						if k == 'A' or (k ~= 'A' and not entry[param0 .. 'span']) then
							-- {{N/A|...}} ইতিমধ্যে প্রসারিত
							if infoParam then
								if string.sub(infoParam,1,5) == 'style' then
									local infoCell = SeriesOverview.series_attributes(infoParam)
									infoCell:attr('rowspan', rowspan)
									seasonRow:node(infoCell)
								else
									-- স্টাইল যুক্ত তথ্য সামগ্রী না হলে
									local thisCell = SeriesOverview.season_cell(infoParam, frame)
										:attr('rowspan', rowspan)
									seasonRow:node(thisCell)
								end
							else
								if not args.series then
									local infoCell = SeriesOverview.series_attributes( frame:expandTemplate{title='N/A',args={'TBA'}} )
									infoCell:attr('rowspan', rowspan)
									seasonRow:node(infoCell)
								end
							end
						elseif not entry[param0 .. 'span'] then
							if not args.series then
								local infoCell = SeriesOverview.series_attributes( frame:expandTemplate{title='N/A',args={'TBA'}} )
								infoCell:attr('rowspan', rowspan)
								seasonRow:node(infoCell)
							end
						end
					end
				
				end --End k0 string.byte
			end -- End 'for' SeasonEntries_ordered
		end -- End 'if' multiseries
	end -- End 'do' season rows

	return (args.dontclose and mw.ustring.gsub(tostring(root), "</table>", "") or tostring(root)) .. categories
end

--------------------------------------------------------------------------------
-- Exports
--------------------------------------------------------------------------------

local p = {}

function p.main(frame)
	local args = require('Module:Arguments').getArgs(frame, {
		wrappers = 'টেমপ্লেট:সিরিজ ওভারভিউ'
	})
	return SeriesOverview.new(frame, args)
end

return p