Dzmuh: Новая страница: «local p = {} local function is_empty(param) return param == nil or param == '' end local function getTitle(page) local success, result = pcall(function() lo...»

2021-04-25T19:40:17Z

Новая страница: «local p = {} local function is_empty(param) return param == nil or param == '' end local function getTitle(page) local success, result = pcall(function() lo...»

Новая страница

local p = {}

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

local function getTitle(page)
local success, result = pcall(function()
local title = mw.title.new(page)
return { exists = title.exists, isRedirect = title.isRedirect }
end)
if success then
return result
else
return nil
end
end

local function wikilink(title, text, tooltip, lang, style, is_redirect)
if is_empty(text) then
text = title
end
if not is_empty(lang) and lang ~= 'ru' then
title = string.format(':%s:%s', lang, title)
end
if lang == 'd' then
title = title .. '#sitelinks-wikipedia'
end
if not is_empty(tooltip) then
text = string.format('%s', tooltip, text)
end
if not is_empty(style) then
text = string.format('%s', style, text)
end
if is_redirect then
return string.format(
'[%s %s]',
tostring(mw.uri.fullUrl(title,'redirect=no')),
text
)
elseif text ~= title then
return string.format('[[%s|%s]]', title, text)
else
return string.format('[[%s]]', title)
end
end

local categories = {
['error'] = 'Википедия:Статьи с некорректно заполненным шаблоном Не переведено',
['outdated'] = 'Википедия:Статьи с неактуальным шаблоном Не переведено',
['redirect'] = 'Википедия:Запросы на замену перенаправлений переводами',
['unknown'] = 'Википедия:Статьи с неизвестными параметрами шаблонов серии Не переведено',
['semiold'] = 'Википедия:Статьи с полустарым синтаксисом в шаблонах серии Не переведено',
['probably_wrong'] = 'Википедия:Статьи с предположительно неверными параметрами в шаблонах серии Не переведено',
['lang-not-exists'] = 'Википедия:Статьи с шаблоном Не переведено 2, использующие несуществующий шаблон lang-XX',
}

local function throwError(text, category_code, allow_cat)
local error = require('Module:Error').error
if category_code and allow_cat then
return error{text} .. '[[Category:' .. categories[category_code] .. ']]'
else
return error{text}
end
end

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

local args = getArgs(frame)

local categories_list = {}
local nocat = yesno(args['nocat'])
local allow_cat = mw.title.getCurrentTitle().namespace == 0 and not nocat

-- определение какой из шаблонов "не переведено N"
local mode = tonumber(args['mode'])
local template_name = 'Не переведено'
if mode ~= 1 then
template_name = template_name .. ' ' .. tostring(mode)
end

-- проверка не неизвестные параметры
local redundant_params = {}
local good_params = {'mode', 1, 2, 3, 4, 'l', 'leave', 'r', 'q', 'nocat'}
if mode == 2 then
table.insert(good_params, 5)
table.insert(good_params, 'text')
table.insert(good_params, 'текст')
end
for k, _ in pairs(args) do
local is_good_param = false
for _, v in pairs(good_params) do
if k == v then
is_good_param = true
end
end
if not is_good_param then
table.insert(redundant_params, k)
end
end
if #redundant_params > 0 then
table.insert(categories_list, 'unknown')
end

-- получение параметров (кроме nocat)
local title = args[1]
local text = args[2]
local lang = args[3]
local iw_title = args[4]
local iw_text = args[5]
local quotes = yesno(args['q'])
local addition = args['text'] or args['текст']
local leave_always = yesno(args['l']) or yesno(args['leave'])
local leave_if_redirect = yesno(args['r'])

-- проверка правильности сырых параметров
if not mw.isSubsting() then
if is_empty(title) then
return throwError('не указано название статьи', 'error', allow_cat)
end
if title:match('^:[a-z-]+:') then
return throwError('шаблон не поддерживает такой синтаксис', 'semiold', allow_cat)
end
if is_empty(lang) and not is_empty(iw_title) and iw_title:match('^[a-z][a-z]$') then
table.insert(categories_list, 'probably_wrong')
end
end

-- приведение параметров к нужному виду
if is_empty(text) then
text = title
end
if is_empty(lang) then
lang = 'en'
else
lang = mw.ustring.lower(lang)
end
if is_empty(iw_title) then
iw_title = title
end
if is_empty(iw_text) then
iw_text = iw_title
end

-- если используется с подстановкой, выбросить почти без обработки
if mw.isSubsting() then
local ru_link = wikilink(title, text)
if mode == 2 then
local iw_link = '{{lang-' .. lang .. '|' .. iw_text .. '}}'
if is_empty(addition) then
return string.format('%s (%s)', ru_link, iw_link)
else
return string.format('%s (%s; %s)', ru_link, iw_link, addition)
end
else
return ru_link
end
end

-- получение страницы, чтобы знать, существует ли она и является ли она перенаправлением
local considerAsExists
local isRedirect
local considerAsRedirect
if leave_always then -- если задано |l=1, то ничего не проверять, потому что дорого
considerAsExists = false
isRedirect = false
considerAsRedirect = false
else
local titleObject = getTitle(title) -- дорогая функция, после 500 вызова крашится
if titleObject then
considerAsExists = titleObject.exists
isRedirect = titleObject.isRedirect
considerAsRedirect = isRedirect and not leave_if_redirect
else -- после 500 вызова или если в названии есть некорректные символы
considerAsExists = false
isRedirect = false
considerAsRedirect = false
end
end

-- проверка правильности обработанных параметров
if lang ~= 'd' and languages[lang] == nil then
return throwError('некорректный ISO-код «' .. lang .. '»', 'error', allow_cat)
end
if mode == 2 and lang == 'd' then
return throwError('шаблон Не переведено 2 не поддерживает Викиданные вместо языка')
end
if mode == 2 and not mw.title.new('Template:Lang-' .. lang).exists then -- дорогая функция
return throwError('не найден шаблон ' .. frame:expandTemplate{ title = 'tl', args = { 'lang-' .. lang } },
'lang-not-exists', allow_cat)
end

if mode == 5 and considerAsRedirect then
table.insert(categories_list, 'redirect')
elseif considerAsExists then
table.insert(categories_list, 'outdated')
end

-- всплывающая подсказка к ссылке на иноязычную статью
local iw_tooltip
local ucfirst_title = mw.getContentLanguage():ucfirst(title)
if lang == 'd' then
iw_tooltip = string.format('Элемент статьи «%s» в Викиданных', ucfirst_title)
else
iw_tooltip = string.format('%s — версия статьи «%s» на %s', iw_title, ucfirst_title, prepositional(lang))
end

-- формирование первой части - основной ссылки
local main_text
if considerAsExists or mode == 1 or mode == 2 or mode == 5 then
if lang == 'd' and not considerAsExists then
local moduleRedLink = require( 'Module:Wikidata/redLink' )
main_text = moduleRedLink.formatRedLink(title, text, iw_title)
else
main_text = wikilink(title, text, nil, nil, nil, isRedirect)
end
else
main_text = wikilink(iw_title, text, iw_tooltip, lang)
end
if mode == 4 and quotes then -- TODO: все шаблоны или отключить
main_text = '«' .. main_text .. '»'
end

-- формирование второй части - языковой метки
local post_text = ''
if not (considerAsExists and not (isRedirect and leave_if_redirect)) or mode == 2 or (mode == 5 and considerAsRedirect) then
-- для шаблона "не переведено"
if mode == 1 then
local lang_text
if lang == 'd' then
lang_text = 'd'
else
lang_text = languages[lang][1]
end

local iw_link = wikilink(iw_title, lang_text, iw_tooltip, lang)
post_text = string.format(
' (%s)',
iw_link
)

-- для шаблона "не переведено 2"
elseif mode == 2 then
local iw_link = ''
if considerAsExists then
iw_link = frame:expandTemplate{ title = 'lang-' .. lang, args = { iw_text } }
else
iw_link = frame:expandTemplate{ title = 'lang-' .. lang, args = { wikilink(iw_title, iw_text, iw_tooltip, lang) } }
end

if is_empty(addition) then
post_text = string.format(' (%s)', iw_link)
else
post_text = string.format(' (%s; %s)', iw_link, addition)
end

-- для шаблона "не переведено 3"
elseif mode == 3 then
local ref = string.format(
'%s',
frame:expandTemplate{ title = 'ref-' .. lang, args = {} }
)
local ru_link = string.format(
'%s',
wikilink(title, 'русск.')
)
post_text = string.format(
'%s%s',
ref, ru_link
)

-- для шаблона "не переведено 4"
elseif mode == 4 then
local styles = ''
if lang == 'fr' then
styles = 'margin-right:0.3em;'
elseif lang == 'fi' then
styles = 'margin-right:0.35em;'
elseif lang == 'it' then
styles = 'margin-right:0.5em;'
end

local ru_link = string.format(
'%s',
wikilink(title, 'ru', 'Статья «' .. title .. '» в русском разделе отсутствует')
)
local ref = string.format(
'%s',
styles, prepositional(lang), lang
)
post_text = string.format('%s%s', ru_link, ref)

-- для шаблона "не переведено 5"
else
post_text = string.format(
'%s',
wikilink(iw_title, '[' .. lang .. ']', iw_tooltip, lang)
)
end
end

if mode == 3 or mode == 4 or mode == 5 then -- TODO: или для всех?
post_text = string.format('%s', post_text)
end

-- формирование третьей части - уведомления о существовании страницы
local exist_message = ''
if considerAsExists and not (isRedirect and leave_if_redirect) then
local exist_message_link
if mode == 5 then
if considerAsRedirect then
exist_message_link = 'Шаблон:' .. template_name .. '#Если существует перенаправление'
else
exist_message_link = 'Шаблон:' .. template_name .. '#Если существует статья'
end
else
exist_message_link = 'Шаблон:' .. template_name .. '#Действия после появления страницы'
end

if mode == 5 and considerAsRedirect then
exist_message = string.format(
'%s',
wikilink(exist_message_link, '*', 'Замените название перенаправления на название статьи либо уберите шаблон «' .. template_name .. '»', nil, 'color:red;')
)
else
exist_message = string.format(
'%s',
wikilink(exist_message_link, '?!', 'Уберите шаблон «' .. template_name .. '» из статьи и замените его простой вики-ссылкой', nil, 'color:red;')
)
end

exist_message = string.format('%s', exist_message)
end

local categories_text = ''
if allow_cat then
for _, code in pairs(categories_list) do
categories_text = categories_text .. '[[Category:' .. categories[code] .. ']]'
end
end

local result
if mode == 2 then
result = main_text .. exist_message .. post_text .. categories_text
else
result = main_text .. post_text .. exist_message .. categories_text
end

return result
end

return p

Модуль:Не переведено - История изменений

Dzmuh: Новая страница: «local p = {} local function is_empty(param) return param == nil or param == '' end local function getTitle(page) local success, result = pcall(function() lo...»