پودمان:Header/attribution

توضیحات این پودمان می‌تواند در پودمان:Header/attribution/توضیحات قرار گیرد.

require('strict')

local p = {}

local yesno = require('Module:Yesno')
local TableTools = require('Module:TableTools')
local contrib_types = require('Module:Header/attribution data')
local headerLang = require('Module:Header/lang')

p.attr_data = {}
for k, v in pairs(contrib_types) do
	p.attr_data[v['param_name']] = v
end

local function get_attribution_params(args)
	local all_contributors = {
		title = {},
		section = {}
	}
	
	for k, v in pairs(args) do
		local base_param_name = string.gsub(string.gsub(k, '%-display$', ''), '%-nolink$', '')
		local arg_param_name = string.gsub(base_param_name, '^override%-', '')
		local param_name = string.gsub(arg_param_name, '%d*$', '')
		
		local section_key
		if string.match(arg_param_name, '^section%-') then
			section_key = 'section'
			param_name = string.gsub(param_name, '^section%-', '')
		else
			section_key = 'title'
		end
		
		if p['attr_data'][param_name] then
			local param_name_pattern = '^' .. string.gsub(string.gsub(base_param_name, '%d*$', ''), '%-', '%%%-')
			local nText = string.match(k, param_name_pattern .. '%d*$')
			local nDisplay = string.match(k, param_name_pattern .. '%d*%-display$')
			local nNoLink = string.match(k, param_name_pattern .. '%d*%-nolink$')
			
			local n
			local info
			
			if nText then
				n = string.gsub(nText, param_name_pattern .. '(%d*)$', '%1')
				n = tonumber(n) or 1
				info = 'text'
			elseif nDisplay then
				n = string.gsub(nDisplay, param_name_pattern .. '(%d*)%-display$', '%1')
				n = tonumber(n) or 1
				info = 'display'
			elseif nNoLink then
				n = string.gsub(nNoLink, param_name_pattern .. '(%d*)%-nolink$', '%1')
				n = tonumber(n) or 1
				info = 'nolink'
			end
			
			local index = p['attr_data'][param_name]['index']
			all_contributors[section_key][index] = all_contributors[section_key][index] or {}
			all_contributors[section_key][index]['param_name'] = all_contributors[section_key][index]['param_name'] or param_name
			all_contributors[section_key][index]['arg_param_name'] = all_contributors[section_key][index]['arg_param_name'] or arg_param_name
			all_contributors[section_key][index]['override'] = all_contributors[section_key][index]['override'] or args['override-' .. arg_param_name]
			
			if n and not (args.is_translation and arg_param_name == 'translator' and info == 'text' and string.lower(v) == 'wikisource') then
				all_contributors[section_key][index]['values'] = all_contributors[section_key][index]['values'] or {}
				all_contributors[section_key][index]['values'][n] = all_contributors[section_key][index]['values'][n] or {}
				all_contributors[section_key][index]['values'][n][info] = all_contributors[section_key][index]['values'][n][info] or v
			end
		end
	end
	
	if args.is_translation then
		local index = p['attr_data']['translator']['index']
		all_contributors['title'][index] = all_contributors['title'][index] or {}
		all_contributors['title'][index]['param_name'] = all_contributors['title'][index]['param_name'] or 'translator'
		all_contributors['title'][index]['arg_param_name'] = all_contributors['title'][index]['arg_param_name'] or 'translator'
		all_contributors['title'][index]['override'] = all_contributors['title'][index]['override'] or nil
		all_contributors['title'][index]['values'] = all_contributors['title'][index]['values'] or {}
		-- رفعِ اشکال: جایگاهِ درج را با یافتنِ بزرگ‌ترین کلیدِ عددیِ موجود
		-- صراحتاً تعیین می‌کنیم؛ به عملگرِ طولِ # روی جدولِ احتمالاً ناپیوسته
		-- تکیه نمی‌کنیم (نکتهٔ ۲ در یادداشتِ بالای فایل).
		local max_n = 0
		for existing_n in pairs(all_contributors['title'][index]['values']) do
			if type(existing_n) == 'number' and existing_n > max_n then
				max_n = existing_n
			end
		end
		all_contributors['title'][index]['values'][max_n + 1] = {text = 'wikisource'}
	end
	
	local contributors = {
		title = {},
		section = {}
	}
	for section_key, section_values in pairs(all_contributors) do
		for i, contrib in ipairs(TableTools.compressSparseArray(section_values)) do
			local new_contrib = {}
			for k, v in pairs(TableTools.shallowClone(contrib)) do
				if k == 'values' then
					new_contrib[k] = TableTools.compressSparseArray(v)
				else
					new_contrib[k] = v
				end
			end
			table.insert(contributors[section_key], new_contrib)
		end
	end
	
	return contributors
end

function p.get_attribution_params(args)
	return get_attribution_params(args)
end

local function construct_attribution_span(args)
	-- رفعِ اشکال: افزودنِ ‎:done()‎ تا aspan به گرهٔ بیرونیِ span.vcard اشاره
	-- کند، نه به گرهٔ داخلیِ span.fn (نکتهٔ ۱ در یادداشتِ بالای فایل).
	local aspan = mw.html.create('span')
		:addClass('vcard')
		:attr('id', 'header-' .. args.span_param_name .. '-text')
		:tag('span'):addClass('fn'):wikitext(args.atext)
		:done()
	
	return tostring(mw.html.create('span')
		:addClass('contributor-text')
		:wikitext(args.prefix .. tostring(aspan))
	)
end

local function construct_attribution(args)
	local data = args.data
	local param_name = data['param_name']
	local span_param_name = param_name
	local prefix = p['attr_data'][param_name]['prefix'] .. ' '
	local is_section = args.is_section
	
	if data['arg_param_name'] == 'section-author' then
		span_param_name = 'contributor'
	end
	
	if data['arg_param_name'] == 'author' and data['override'] then
		prefix = '' -- پارامترِ قدیمی (legacy)
	elseif param_name == 'translator' and args.languages then
		prefix = p['attr_data'][param_name]['language_prefix'](args.language_name or 'زبان نامشخص') .. ' '
	end
	
	-- override (پارامترِ قدیمی/legacy)
	local atext = data['override']
	if atext then
		if args.is_translation and param_name == 'translator' then
			atext = atext .. ' و ' .. p['attr_data'][param_name]['special_cases']['wikisource']
		end
		return construct_attribution_span({span_param_name = span_param_name, prefix = prefix, atext = atext, is_section = is_section})
	end
	
	local contributors = {}
	for i, contributor in ipairs(data['values']) do
		local text = contributor['text']
		local display = contributor['display']
		local nolink = yesno(contributor['nolink']) or false
		
		if nolink then
			table.insert(contributors, display or text)
		elseif text then
			local special = false
			for k, v in pairs(p['attr_data'][param_name]['special_cases']) do
				if string.lower(text) == k then
					special = true
					if type(v) == 'function' then
						display = v(display)
					else
						display = v
					end
					break
				end
			end
			
			if not special then
				if not display then
					display = string.gsub(text, ' %(.*%)$', '')
				end
				-- بومی‌سازی: فضای‌نامِ «پدیدآورنده:» معادلِ «Author:» در
				-- ویکی‌نبشتهٔ فارسی است.
				display = '[[پدیدآورنده:' .. text .. '|' .. display .. ']]'
			end
			if display then
				table.insert(contributors, display)
			end
		else
			mw.logObject(contributor)
		end
	end
	
	if #contributors == 0 then
		return nil
	elseif #contributors == 1 then
		atext = contributors[1]
	else
		atext = table.concat(contributors, '، ', 1, #contributors - 1) .. ' و ' .. contributors[#contributors]
	end
	
	-- بررسیِ موقتِ پارامترِ تصویرگر در زیرصفحه‌ها (برگرفته از یادداشتِ TODO
	-- مشابه در نسخهٔ انگلیسی: پس از یکسان‌سازیِ کاملِ زیرصفحه‌ها با پارامترِ
	-- section-illustrator قابلِ‌حذف است).
	local cat = ''
	if param_name == 'illustrator' and mw.title.getCurrentTitle().isSubpage and not is_section then
		cat = '[[' .. 'رده:' .. 'زیرصفحه‌های استفاده‌کننده از پارامتر تصویرگر' .. ']]'
	end
	
	local s = construct_attribution_span({span_param_name = span_param_name, prefix = prefix, atext = atext, is_section = is_section})
	
	return s .. cat
end

function p.construct_attributions(args)
	local attributions = {}
	
	local a_args = TableTools.shallowClone(args)
	local attr_params = get_attribution_params(args)['title']
	for i, data in ipairs(attr_params) do
		a_args['data'] = data
		a_args['is_section'] = false
		local atext = construct_attribution(a_args)
		if atext then
			table.insert(attributions, atext)
		end
	end
	
	if #attributions == 0 then
		return ''
	end
	
	return table.concat(attributions, '، ')
end

-- بخش (section)

function p.construct_section(args)
	local section_text = args['section']
	
	if not section_text or section_text == '' then
		return ''
	end
	
	local attributions = {}
	
	local a_args = TableTools.shallowClone(args)
	a_args.languages = a_args.section_languages or a_args.languages
	a_args.language_name = a_args.section_language_name or a_args.language_name
	
	local attr_params = get_attribution_params(args)['section']
	for i, data in ipairs(attr_params) do
		a_args['data'] = data
		a_args['is_section'] = true
		local atext = construct_attribution(a_args)
		if atext then
			table.insert(attributions, atext)
		end
	end
	
	if #attributions > 0 then
		local sep = ' '
		if #attributions > 1 then
			sep = '<br/>'
		end
		section_text = section_text .. sep .. table.concat(attributions, '، ')
	end
	
	return tostring(mw.html.create('div')
		:addClass('header-section-text')
		:wikitext(section_text)
	)
end

--[=[
ساختنِ ریزقالبِ (Help:Microformat) صفحه.

به این شکل است:
<div id="ws-data" ...>
  <span id="ws-title">عنوان اینجا...</span>
  ...
<div>

هشدار: id="ws-data"، id="ws-title" و مانندِ آن‌ها را تغییر ندهید. ابزارهای
برون‌ویکی مانندِ ws-export برای استخراجِ اطلاعات و ساختنِ EPUB/PDF به همینِ
شناسه‌های ثابت (به‌همین صورتِ انگلیسی، در همهٔ نگارش‌های زبانیِ ویکی‌نبشته)
وابسته‌اند.
]=]
function p.construct_microformat(args)
	local mf_div =  mw.html.create('div')
		:addClass('ws-noexport')
		:attr('id', 'ws-data')
		:css({speak = 'none'})
	
	-- override برای نمایشِ ریزقالب
	if yesno(args['show-microformat']) then
		mf_div:addClass('ws-data-show')
	end
	
	-- مقادیرِ ریزقالب اینجا جمع می‌شوند
	local mf = {};
	
	-- شناسهٔ صفحه
	mf['ws-article-id'] = mw.title.getCurrentTitle().id 
	
	-- عنوان
	if args['title'] then
		mf['ws-title'] = args['title']
		
		-- افزودنِ بخش، اگر وجود داشته باشد
		if args['section'] then
			mf['ws-title'] = mf['ws-title'] .. " — " .. args['section']
		end
	end
	
	-- سال
	mf['ws-year'] = args['year']
	
	-- جلد
	mf['ws-cover'] = args['cover']
	
	-- استفاده از مقادیرِ بخش در صورتِ وجود، وگرنه مقادیرِ کلِ اثر
	local attr_params = get_attribution_params(args)
	local joined_attr_params = {}
	for i, section_key in ipairs({'section', 'title'}) do
		for i, data in ipairs(attr_params[section_key]) do
			local index = p['attr_data'][data['param_name']]['index']
			joined_attr_params[index] = joined_attr_params[index] or data
		end
	end
	joined_attr_params = TableTools.compressSparseArray(joined_attr_params)
	
	for i, data in ipairs(joined_attr_params) do
		local atext = data['override']
		-- رفعِ اشکال/بومی‌سازی: به‌جای سنجشِ نامِ ثابتِ انگلیسیِ الگو، از
		-- پرچمِ is_translation استفاده می‌شود (نکتهٔ ۳ در یادداشتِ بالای
		-- فایل).
		local ws_translator = args.is_translation and data['param_name'] == 'translator'
		if atext and ws_translator then
			atext = atext .. ' و ویکی‌نبشته'
		elseif not atext then
			local attr_text = {}
			for i, values in ipairs(data['values']) do
				local display = values['text']
				local special = false
				if values['text'] then
					for k, v in pairs(p['attr_data'][data['param_name']]['special_cases']) do
						if string.lower(values['text']) == k then
							special = true
							if k == 'anon' or k == 'anonymous' then
								display = 'ناشناس'
							elseif k == 'wikisource' then
								display = 'ویکی‌نبشته'
							elseif type(v) == 'function' then
								display = v(display)
							else
								display = v
							end
							break
						end
					end
				else
					mw.logObject(values)
				end
				table.insert(attr_text, display)
			end
			if #attr_text == 1 then
				atext = attr_text[1]
			elseif #attr_text > 1 then
				atext = table.concat(attr_text, '، ', 1, #attr_text - 1) .. ' و ' .. attr_text[#attr_text]
			end
		end
		if atext then
			mf['ws-' .. data['param_name']] = atext
		end
	end
	
	for k, v in pairs(mf) do
		mf_div:tag('span'):attr('id', k):wikitext(v)
	end
	
	return tostring(mf_div)
end

return p