Модуль:Не переведено

Для документации этого модуля может быть создана страница Модуль:Не переведено/doc

local getArgs = require('Module:Arguments').getArgs
local p = {}

local function is_empty(param)
	return param == nil or param == ''
end

local function wikilink(title, text, tooltip, lang)
	if lang ~= nil and lang ~= 'ru' then
		title = string.format(':%s:%s', lang, title)
	end
	if tooltip ~= nil then
		if is_empty(text) then
			text = title
		end
		text = tostring(
			mw.html.create('span')
			:attr('title', tooltip)
			:wikitext(text)
		)
	end
	if not is_empty(text) then
		title = title .. '|' .. text
	end
	return string.format('[[%s]]', title)
end

local function italic(s)
	return tostring(
		mw.html.create('span')
		:css('font-style', 'italic')
		:wikitext(s)
	)
end

function p.main(frame)
	local yesno = require('Module:Yesno')
	local args = getArgs(frame)
	local languages = mw.loadData('Module:Languages/data')
	local error = require('Module:Error').error
	local prepositional = require('Module:Languages')._transform_lang

	local leave_always = yesno(args['l'])
	local leave_if_redirect = yesno(args['r'])
	
	local categories = ''
	local nocat = yesno(args['nocat'])
	local allow_cat = mw.title.getCurrentTitle().namespace == 0 and not nocat
	local orphan_categories = {
		['error'] = '[[Категория:Википедия:Статьи с некорректно заполненным шаблоном Не переведено]]',
		['outdated'] = '[[Категория:Википедия:Статьи с неактуальным шаблоном Не переведено]]',
		['redirect'] = '[[Категория:Википедия:Запросы на замену перенаправлений переводами]]'
	}
	
	if is_empty(args[1]) then
		if allow_cat then
			categories = categories .. orphan_categories['error']
		end
		return error{'не указано название статьи'} .. categories
	end

	if args[1]:match('^:[a-z-]+:') then
		local temp = args[1]
		args[1] = args[2] or ''
		args[2] = args[3]
		args[3] = temp:gsub('^:([a-z-]+):(.+)$', '%1')
		args[4] = temp:gsub('^:([a-z-]+):(.+)$', '%2')
		if is_empty(args[1]) then
			args[1] = args[4]
		end
	end

	local ru_page = mw.title.new(args[1])
	if ru_page == nil then
		if allow_cat then
			categories = categories .. orphan_categories['error']
		end
		return error{'некорректные символы в названии статьи'} .. categories
	end
	if leave_if_redirect and not ru_page.isRedirect then
		leave_if_redirect = false
	end
	local exists = ru_page.exists and not ( leave_always or leave_if_redirect )
	if leave_if_redirect and allow_cat then
		categories = categories .. orphan_categories['redirect']
	end
	
	local title = args[1]
	local text = args[2]
	local ru_link = wikilink(title, text)
	if exists and not mw.isSubsting() then
		ru_link = tostring(
			mw.html.create('span')
			:css('background', '#ffff00')
			:wikitext(ru_link)
		)
	end
	
	local post_text_list = {}
	local addition = args['a']
	local show_originals = yesno(args['o']) or addition ~= nil
	local wikidata_link = ''
	local i, j = 4, 1
	while args[i] or args[i - 1] or i <= 4 do

		local lang = args[i - 1]
		local iw_title = args[i]
		local iw_text = args[i + 1]
		if is_empty(lang) then
			lang = 'en'
		end
		if is_empty(iw_title) then
			iw_title = title
		end
		if is_empty(iw_text) then
			iw_text = iw_title
		end
		
		local iw_page = mw.title.new(iw_title)
		if iw_page == nil then
			if allow_cat then
				categories = categories .. orphan_categories['error']
			end
			return error{'некорректные символы в названии статьи'} .. categories
		end
		
		local show_original = show_originals and lang ~= 'd'
		
		local lang_text
		local lang_title
		local lang_link
		if lang == 'd' then
			lang_text = 'd'
		elseif languages[lang] == nil then
			if allow_cat then
				categories = categories .. orphan_categories['error']
			end
			return error{'некорректный ISO-код «' .. lang .. '»'} .. categories
		else
			lang_text = languages[lang][1]
			lang_title = languages[lang][2]
			lang_link = wikilink(lang_title, lang_text)
		end
		
		local tooltip
		local ucfirst_title = mw.getContentLanguage():ucfirst(title)
		if lang == 'd' then
			tooltip = string.format('Элемент статьи «%s» в Викиданных', ucfirst_title)
		else
			tooltip = string.format('Версия статьи «%s» на %s', ucfirst_title, prepositional(lang))
		end
		
		local iw_link
		if show_original then
			iw_link = wikilink(iw_title, iw_text, tooltip, lang)
		else
			iw_link = wikilink(iw_title, lang_text, tooltip, lang)
		end
		
		if show_original then
			local lang_template = mw.title.new('Template:Lang-' .. lang)
			if not lang_template.exists then
				if allow_cat then
					categories = categories .. '[[Категория:Википедия:Статьи с шаблоном Не переведено 2, использующие несуществующий шаблон lang-XX]]'
				end
				return error{'не найден шаблон ' .. frame:expandTemplate{ title = 'tl', args = { 'lang-' .. lang } } } .. categories
			end
			
			if mw.isSubsting() or exists then
				post_text_list[j] = frame:expandTemplate{ title = 'lang-' .. lang, args = { iw_text } }
			else
				post_text_list[j] = frame:expandTemplate{ title = 'lang-' .. lang, args = { iw_link } }
			end
		elseif not ( mw.isSubsting() or exists ) then
			if lang == 'd' then
				wikidata_link = iw_link
			else
				post_text_list[j] = iw_link
			end
		end
		
		if show_original then
			i = i + 3
		else
			i = i + 2
		end
		if lang ~= 'd' then
			j = j + 1
		end
	end
		
	local post_text = ''
	if not is_empty(addition) then
		addition = '; ' .. addition
	else 
		addition = ''
	end
	if not is_empty(wikidata_link) and next(post_text_list) ~= nil then
		wikidata_link = wikidata_link .. '; '
	end
	if next(post_text_list) ~= nil or not is_empty(wikidata_link) then
		post_text = string.format(' (%s%s%s)', wikidata_link, table.concat(post_text_list, ', '), addition)
		if not show_originals or ( next(post_text_list) == nil and is_empty(addition) ) then
			post_text = tostring(
				mw.html.create('span')
				:addClass('noprint')
				:css('white-space', 'nowrap')
				:css('font-size', '85%')
				:wikitext(post_text)
			)
		end
	end
	
	local exist_message = ''
	if exists then
		if allow_cat then
			categories = categories .. orphan_categories['outdated']
		end
		local docname = 'Шаблон:Не переведено'
		if yesno(args['o']) then
			docname = 'Шаблон:Не переведено 2'
		end
		
		exist_message = tostring(
			mw.html.create('sup')
			:addClass('noprint')
			:wikitext(
				string.format(
					'&#91;\'\'%s\'\'&#93;',
					wikilink(
						docname .. '#Действия после появления перевода', 
						'убрать шаблон',
						'Пожалуйста, удалите шаблон, заменив «{{не переведено» на  «{{подст:не переведено»'
					)
				)
			)
		)
	end
	
	local result
	result = ru_link .. post_text
	if not mw.isSubsting() then
		result = result .. exist_message .. categories
	end
	
	return result
end

return p