Shadowmaster69: Малая токмачка

2026-09-16T11:32:16Z

Малая токмачка

Shadowmaster69: Import Module:CiteWeb from neolurk

2026-09-16T11:26:22Z

Import Module:CiteWeb from neolurk

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

-- Imported from: https://ru.wikipedia.org/w/index.php?title=%D0%9C%D0%BE%D0%B4%D1%83%D0%BB%D1%8C:CiteWeb&oldid=153386077
-- Modified 09-16-2026: removed lang (not enough time to import properly)

local p = {};

require('strict');
local boxDate = require('Module:Calendar').bxDate;

local error_cats = {
['noname_param'] = 'К:Служебная:Cite web (некорректное использование: непустой неименованный параметр)',
['empty_title'] = 'К:Служебная:Cite web (некорректное использование: не указан title)',
['empty_url'] = 'К:Служебная:Cite web (некорректное использование: не указан url)',
['bad_archive'] = 'К:Служебная:Cite web (некорректное использование: параметры архивации)',
['deadlink'] = 'К:Служебная:Cite web (недоступные ссылки без архивной копии)',
-- ['bad_lang'] = 'К:Служебная:Cite web (неверный код языка)',
-- ['deadlink_old'] = 'К:Служебная:Cite web (устаревшие параметры мёртвых ссылок)',
['empty_lang'] = 'К:Служебная:Cite web (не указан язык)',
['bad_url'] = 'К:Служебная:Cite web (некорректный url)',
['webcitation_no'] = 'К:Служебная:Cite web (заменить webcitation-архив: deadlink no)',
['webcitation_yes'] = 'К:Служебная:Cite web (заменить webcitation-архив: deadlink yes)',
}
local errors = {
['noname_param'] = '{{error|Все параметры шаблона {{tl|cite web}} должны [[T:cite web#Неименованные_параметры|иметь имя]].}}',
['empty_title'] = '{{error|Необходимо задать параметр {{code|title{{=}}}} в шаблоне {{tl|cite web}}.}}',
['empty_url'] = '{{error|Необходимо задать параметр {{code|url{{=}}}} в шаблоне {{tl|cite web}}.}}',
['bad_archive'] = '{{error|Если в шаблоне {{tl|cite web}} задаётся параметр {{code|archive-url{{=}}}}, должен задаваться и параметр {{code|archive-date{{=}}}}, и наоборот.}}',
}
local replace_params = {
['accessdate'] = 'access-date',
['archivedate'] = 'archive-date',
['archiveurl'] = 'archive-url',
['authorlink'] = 'author-link1',
['author-link'] = 'author-link1',
['author'] = 'author1',
['first'] = 'first1',
['last'] = 'last1',
['deadurl'] = 'deadlink',
['dead-url'] = 'deadlink',
['language'] = 'lang',
['datepublished'] = 'date',
['work'] = 'website',
}

-- проверка существования переменной. возврат её, или nil если пустая
local function is(var)
if (var == '' or var == nil) then return nil else return var end
end

-- замена устаревших аргументов на их аналоги
local function prepareArgs(args)
local bad_args = {};
local new_args = {};
for param, value in pairs(args) do
if is(replace_params[param]) and not is(args[replace_params[param]]) then
param = replace_params[param];
end
new_args[param] = value;
end
return new_args, bad_args
end

local function insertDot(str, insert)
if insert == false then
return
end
table.insert(str, '.')
end

local function needDot(source_str)
if mw.ustring.find(source_str, '[.?!:…]»?$') ~= nil then
return false
else
return true
end
end

local function nowiki(text)
local frame = mw.getCurrentFrame();
return frame:callParserFunction('#tag', { 'nowiki', text })
end

local function replace(source_str, pattern, replace)
return mw.ustring.gsub(source_str, pattern, replace)
end

-- форматирование даты; в случае ошибки - возврат переданного значения без изменений
local function formatDate(strFormat, txtDateIn, params)
local txtDateOut, date, status = boxDate(txtDateIn, strFormat, params)
if status.brk then
return txtDateIn
else
return txtDateOut
end
end

-- отрисовка ошибки по коду
local function expandError(code)
return mw.getCurrentFrame():preprocess(errors[code]) .. ' '
end

-- отрисовка всех категорий по их кодам
local function expandCats(cats)
local str = {};
local frame = mw.getCurrentFrame();
for _, cat in pairs(cats) do
table.insert(str, '[[' .. error_cats[cat] .. ']]')
end
return frame:preprocess(table.concat(str))
end

-- разделение их
local function splitBySlash(string)
local args = {};
local iterator = mw.ustring.gmatch(string, "[^/]+");

for w in iterator do
table.insert(args, w)
end
return args
end

-- оборачиваем главную ссылку в span с указанным языком (может быть полезно для rtl)
local function wrapLang(link, langs)
local lang_code = 'und';

if is(langs) then
local args = splitBySlash(langs);
if #args ~= 0 then
lang_code = args[1];
end
end

return '' .. link .. ''
end

-- обёртка в тег цитирования
local function wrapCite(str, args)
if is(args['ref']) then
table.insert(str, 1, '');
if is(args['date']) then
table.insert(str, 2,
'');
table.insert(str, '');
end
else
table.insert(str, 1, '');
end

table.insert(str, '');
end

function p.render(frame)
local str = {}
local cats = {}

local pFrame = frame:getParent();
local args = mw.clone(pFrame.args);
setmetatable(args, nil);

args = prepareArgs(args);

-- Проверки
-- Проверка отсутствия неименованных параметров
for i = 1, 6 do
-- Поиск истинно пустых параметров или заполненных пробелами
if is(mw.text.trim(args[i] or '')) then
table.insert(str, expandError('noname_param'));
table.insert(cats, 'noname_param');
break
end
end

-- Проверка корректности заполнения параметров archive-url и archive-date
if (is(args['archive-date']) ~= nil and is(args['archive-url']) == nil) or
(is(args['archive-date']) == nil and is(args['archive-url']) ~= nil) then
table.insert(str, expandError('bad_archive'));
table.insert(cats, 'bad_archive');
end

-- Проверка устаревших параметров мёртвых ссылок
-- if is(args['dead-url']) or is(args['deadurl']) then
-- table.insert(cats, error_cats['deadlink_old'])
-- end

local urlstatus = 'live';
if args['url-status'] == 'live' or args['url-status'] == 'dead' or args['url-status'] == 'unfit' then
urlstatus = args['url-status']
elseif args['deadlink'] == 'yes' then
urlstatus = 'dead'
elseif args['deadlink'] == 'unfit' then
urlstatus = 'unfit'
end

if is(args['archive-url']) then
if mw.ustring.find(args['archive-url'], 'webcitation.org', 1, true) then
if urlstatus == 'dead' or urlstatus == 'unfit' then
table.insert(cats, 'webcitation_yes')
else
table.insert(cats, 'webcitation_no')
end
end
elseif urlstatus == 'dead' then
table.insert(cats, 'deadlink')
end

-- Проверка заполнения параметра url
if is(args['url']) then
if mw.ustring.find(args['url'], '^https?://', 1, false) ~= 1 and
mw.ustring.find(args['url'], '^ftp://', 1, false) ~= 1 or mw.ustring.find(args['url'], ' ', 1, true) ~= nil then
table.insert(cats, 'bad_url')
end
else
table.insert(str, expandError('empty_url'));
table.insert(cats, 'empty_url')
end

-- Проверка заполнения параметра title
if not is(args['title']) then
table.insert(str, expandError('empty_title'));
table.insert(cats, 'empty_title')
elseif not is(args['lang']) and mw.ustring.find(args['title'], '^[0-9А-яЁёXVILC«»„“:;,…!?•∙→ \194\160\n\226\128\175%(%)%.%"\'—№–%/%|%&%#+-]+$') == nil then
table.insert(cats, 'empty_lang')
end

-- Формирование вывода
-- Авторы
local authors_str = {}
for k, v in pairs(args) do
if (string.find( k, '^last%d+' ) or string.find( k, '^author%d+' )) and is(v) then
local i = replace( replace( k, 'last', '' ), 'author', '' )
local author = v;
if #authors_str > 0 then
author = nowiki(';') .. ' ' .. author;
end
if is(args['first' .. i]) then
author = author .. ', ' .. args['first' .. i]
end
if is(args['author-link' .. i]) then
table.insert(authors_str, '[[' .. args['author-link' .. i] .. '|' .. author .. "]]")
else
table.insert(authors_str, author)
end
end
end

if is(args['coauthors']) then
table.insert(authors_str, nowiki(';') .. ' ' .. replace(args['coauthors'], '^(.-)%.?$', '%1.') .. ': ')
end

if #authors_str > 0 then
table.insert(str, '')
for k, v in pairs(authors_str) do
table.insert(str, v)
end
insertDot(str, needDot(str[#str]))
table.insert(str, ' ')
end

-- Редактор
if is(args['editor']) then
table.insert(str, ' ' .. args['editor'] .. ': ')
end

-- URL, заголовок
local link;
local title = replace(replace(args['title'] or '', '%[', '['), '%]', ']');
local dot = needDot(title);

if (urlstatus == 'dead' or urlstatus == 'unfit') and is(args['archive-url']) then
link = '[' .. (args['archive-url'] or '') .. ' ' .. title .. ']'
elseif urlstatus == 'unfit' then
link = title
else
link = '[' .. (args['url'] or '') .. ' ' .. title .. ']'
end
table.insert(str, wrapLang(link, args['lang']))

-- Подзаголовок
if is(args['subtitle']) then
insertDot(str, dot)
table.insert(str, ' ' .. args['subtitle'])
dot = needDot(args['subtitle']);
end

-- Формат источника
if is(args['format']) then
dot = true;
table.insert(str, ' (' .. args['format'] .. ')')
end

-- Пометка о недоступности
if (urlstatus == 'dead' or urlstatus == 'unfit') and not is(args['archive-url']) then
dot = true;
table.insert(str,
frame:expandTemplate { title = 'refinfo',
args = { 'недоступная ссылка — [//web.archive.org/web/*/' ..
args['url'] .. ' история]' } })
end

-- Название сайта или проекта
if is(args['website']) then
insertDot(str, dot)
dot = true;
table.insert(str, ' ' .. args['website'] .. '')
end

-- Страницы
if is(args['pages']) then
dot = true;
table.insert(str, ' ' .. args['pages'])
end

-- Страница
if is(args['page']) then
dot = true;
table.insert(str, ' ' .. args['page'])
end

-- Место, издательство
if is(args['publisher']) then
insertDot(str, dot)
dot = true;
table.insert(str, ' ');
if is(args['location']) then
table.insert(str, args['location'] .. ': ')
end
table.insert(str, args['publisher'])
end

-- Дата
if is(args['date']) then
dot = true;
table.insert(str, ' (' .. formatDate('j xg Y', args['date']) .. ')')
elseif is(args['year']) then
dot = true;
if is(args['month']) then
table.insert(str, ' (' .. args['month'] .. ' ' .. args['year'] .. ')')
else
table.insert(str, ' (' .. args['year'] .. ')')
end
end

-- Точка
insertDot(str, dot)

-- DOI
if is(args['doi']) then
table.insert(str,
' [[Идентификатор цифрового объекта|doi]]:[http://dx.doi.org/' ..
args['doi'] .. ' ' .. args['doi'] .. '].')
end

-- Описание
if is(args['description']) then
table.insert(str, ' — ' .. args['description'])
insertDot(str, needDot(args['description']))
end

-- Цитата
if is(args['quote']) then
table.insert(str, ' — «' .. args['quote'] .. '»')
insertDot(str, needDot(args['quote']))
end

-- Дата обращения
if is(args['access-date']) then
table.insert(str, ' Дата обращения: ' ..
formatDate('j xg Y', args['access-date']) .. '.')
end

-- Дата архивирования
if is(args['archive-date']) and is(args['archive-url']) then
if urlstatus == 'live' then
table.insert(str,
' [' ..
args['archive-url'] ..
' Архивировано] ' ..
formatDate('j xg Y', args['archive-date']) .. ' года.')
elseif urlstatus == 'unfit' then
table.insert(str,
' Архивировано ' ..
formatDate('j xg Y', args['archive-date']) .. ' года.')
else
table.insert(str,
' Архивировано из [' ..
args['url'] ..
' оригинала] ' ..
formatDate('j xg Y', args['archive-date']) .. ' года.')
end
end

wrapCite(str, args);

if #cats ~= 0 and mw.title.getCurrentTitle():inNamespace(0) then
table.insert(str, expandCats(cats));
end

return table.concat(str)
end

return p;

← Предыдущая версия		Версия от 14:32, 16 сентября 2026
Строка 8:		Строка 8:

	local error_cats = {		local error_cats = {
	['noname_param'] = 'К:Служебная:Cite web (некорректное использование: непустой неименованный параметр)',		['noname_param'] = 'Категория:Служебная:Cite web (некорректное использование: непустой неименованный параметр)',
	['empty_title'] = 'К:Служебная:Cite web (некорректное использование: не указан title)',		['empty_title'] = 'Категория:Служебная:Cite web (некорректное использование: не указан title)',
	['empty_url'] = 'К:Служебная:Cite web (некорректное использование: не указан url)',		['empty_url'] = 'Категория:Служебная:Cite web (некорректное использование: не указан url)',
	['bad_archive'] = 'К:Служебная:Cite web (некорректное использование: параметры архивации)',		['bad_archive'] = 'Категория:Служебная:Cite web (некорректное использование: параметры архивации)',
	['deadlink'] = 'К:Служебная:Cite web (недоступные ссылки без архивной копии)',		['deadlink'] = 'Категория:Служебная:Cite web (недоступные ссылки без архивной копии)',
	-- ['bad_lang'] = 'К:Служебная:Cite web (неверный код языка)',		-- ['bad_lang'] = 'К:Служебная:Cite web (неверный код языка)',
	-- ['deadlink_old'] = 'К:Служебная:Cite web (устаревшие параметры мёртвых ссылок)',		-- ['deadlink_old'] = 'К:Служебная:Cite web (устаревшие параметры мёртвых ссылок)',
	['empty_lang'] = 'К:Служебная:Cite web (не указан язык)',		['empty_lang'] = 'Категория:Служебная:Cite web (не указан язык)',
	['bad_url'] = 'К:Служебная:Cite web (некорректный url)',		['bad_url'] = 'Категория:Служебная:Cite web (некорректный url)',
	['webcitation_no'] = 'К:Служебная:Cite web (заменить webcitation-архив: deadlink no)',		['webcitation_no'] = 'Категория:Служебная:Cite web (заменить webcitation-архив: deadlink no)',
	['webcitation_yes'] = 'К:Служебная:Cite web (заменить webcitation-архив: deadlink yes)',		['webcitation_yes'] = 'Категория:Служебная:Cite web (заменить webcitation-архив: deadlink yes)',
	}		}
	local errors = {		local errors = {

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

Shadowmaster69: Малая токмачка

Shadowmaster69: Import Module:CiteWeb from neolurk