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

Dzmuh в 03:50, 4 сентября 2023

2023-09-04T03:50:55Z

← Предыдущая версия		Версия от 03:50, 4 сентября 2023
Строка 1:		Строка 1:
	local p = {};		local p = {};

	require('strict');		--require('strict');
	local listRef = require('Module:Languages').list_ref;		local listRef = require('Module:Languages').list_ref;
	local boxDate = require('Module:Calendar').bxDate;		local boxDate = require('Module:Calendar').bxDate;

Dzmuh в 03:50, 4 сентября 2023

2023-09-04T03:50:15Z

← Предыдущая версия		Версия от 03:50, 4 сентября 2023
Строка 1:		Строка 1:
	local p = {};		local p = {};

	-- require('strict');		require('strict');
	local listRef = require('Module:Languages').list_ref;		local listRef = require('Module:Languages').list_ref;
	local boxDate = require('Module:Calendar').bxDate;		local boxDate = require('Module:Calendar').bxDate;
Строка 12:		Строка 12:
	['deadlink'] = 'К:Википедия:Cite web (недоступные ссылки без архивной копии)',		['deadlink'] = 'К:Википедия:Cite web (недоступные ссылки без архивной копии)',
	-- ['bad_lang'] = 'К:Википедия:Cite web (неверный код языка)',		-- ['bad_lang'] = 'К:Википедия:Cite web (неверный код языка)',
			-- ['deadlink_old'] = 'К:Википедия:Cite web (устаревшие параметры мёртвых ссылок)',
	['empty_lang'] = 'К:DZWIKI:Cite web (не указан язык)',		['empty_lang'] = 'К:DZWIKI:Cite web (не указан язык)',
	['bad_url'] = 'К:Википедия:Cite web (некорректный url)',		['bad_url'] = 'К:Википедия:Cite web (некорректный url)',
Строка 18:		Строка 19:
	}		}
	local errors = {		local errors = {
	['noname_param'] = '{{error\|Все параметры шаблона {{tl\|cite web}} должны иметь имя.}}',		['noname_param'] = '{{error\|Все параметры шаблона {{tl\|cite web}} должны [[T:cite web#Неименованные_параметры\|иметь имя]].}}',
	['empty_title'] = '{{error\|Необходимо задать параметр {{code\|title{{=}}}} в шаблоне {{tl\|cite web}}.}}',		['empty_title'] = '{{error\|Необходимо задать параметр {{code\|title{{=}}}} в шаблоне {{tl\|cite web}}.}}',
	['empty_url'] = '{{error\|Необходимо задать параметр {{code\|url{{=}}}} в шаблоне {{tl\|cite web}}.}}',		['empty_url'] = '{{error\|Необходимо задать параметр {{code\|url{{=}}}} в шаблоне {{tl\|cite web}}.}}',
Строка 184:		Строка 185:
	-- Проверки		-- Проверки
	-- Проверка отсутствия неименованных параметров		-- Проверка отсутствия неименованных параметров
	if is(args[1]) then		if is(args[1]) or is(args[2]) or is(args[3]) or is(args[4]) or is(args[5]) or is(args[6]) then
	table.insert(str, expandError('noname_param'));		table.insert(str, expandError('noname_param'));
	table.insert(cats, 'noname_param');		table.insert(cats, 'noname_param');
Строка 196:		Строка 197:
	end		end

	local urlstatus = '~~dead~~';		-- Проверка устаревших параметров мёртвых ссылок
	if args['~~deadlink~~'] == ~~nil~~ or args['deadlink'] == '' or args['deadlink'] == 'no' then		-- if is(args['dead-url']) or is(args['deadurl']) then
	urlstatus = '~~live~~';		-- 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		end

			local is_webcitation_archive = false;
	if is(args['archive-url']) then		if is(args['archive-url']) then
	if mw.ustring.find(args['archive-url'], 'webcitation.org', 1, true) then		if mw.ustring.find(args['archive-url'], 'webcitation.org', 1, true) then
	if urlstatus == 'dead' ~~then~~		is_webcitation_archive = true
	urlstatus = '~~webcite_dead~~'		if urlstatus == 'dead' or urlstatus == 'unfit' then
	table.insert(cats, 'webcitation_yes')		table.insert(cats, 'webcitation_yes')
	else		else
Строка 210:		Строка 221:
	end		end
	end		end
	~~else~~		elseif urlstatus == 'dead' then
	if urlstatus == 'dead' then		table.insert(cats, 'deadlink')
	table.insert(cats, 'deadlink')
	~~end~~
	end		end

Строка 231:		Строка 240:
	table.insert(str, expandError('empty_title'));		table.insert(str, expandError('empty_title'));
	table.insert(cats, 'empty_title')		table.insert(cats, 'empty_title')
	~~else~~		elseif not is(args['lang']) and mw.ustring.find(args['title'], '^[0-9А-яЁё«»:;,…!? %(%)%.—№%/%&%#+-]+$') == nil then
	if not is(args['lang']) and mw.ustring.find(args['title'], '^[0-9А-яЁё«»:;,…!? %(%)%.—№%/%&%#+-]+$') == nil then		table.insert(cats, 'empty_lang')
	table.insert(cats, 'empty_lang')
	~~end~~
	end		end

Строка 286:		Строка 293:
	local dot = needDot(title);		local dot = needDot(title);

	if urlstatus == 'dead' and is(args['archive-url']) then		if (urlstatus == 'dead' or urlstatus == 'unfit') and is(args['archive-url']) and not is_webcitation_archive then
	link = '[' .. (args['archive-url'] or '') .. ' ' .. title .. ']'		link = '[' .. (args['archive-url'] or '') .. ' ' .. title .. ']'
			elseif urlstatus == 'unfit' then
			link = title
	else		else
	link = '[' .. (args['url'] or '') .. ' ' .. title .. ']'		link = '[' .. (args['url'] or '') .. ' ' .. title .. ']'
Строка 323:		Строка 332:

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

Строка 404:		Строка 413:
	-- Дата архивирования		-- Дата архивирования
	if is(args['archive-date']) and is(args['archive-url']) then		if is(args['archive-date']) and is(args['archive-url']) then
	if urlstatus == 'live' or ~~urlstatus == 'webcite_dead'~~ then		if urlstatus == 'live' or is_webcitation_archive then
	table.insert(str,		table.insert(str,
	' <small>[' ..		' <small>[' ..
	args['archive-url'] ..		args['archive-url'] ..
	' Архивировано] ' ..		' Архивировано] ' ..
			formatDate('j xg Y', args['archive-date']) .. ' года.</small>')
			elseif urlstatus == 'unfit' then
			table.insert(str,
			' <small>Архивировано ' ..
	formatDate('j xg Y', args['archive-date']) .. ' года.</small>')		formatDate('j xg Y', args['archive-date']) .. ' года.</small>')
	else		else

Dzmuh в 03:31, 4 сентября 2023

2023-09-04T03:31:32Z

← Предыдущая версия		Версия от 03:31, 4 сентября 2023
Строка 12:		Строка 12:
	['deadlink'] = 'К:Википедия:Cite web (недоступные ссылки без архивной копии)',		['deadlink'] = 'К:Википедия:Cite web (недоступные ссылки без архивной копии)',
	-- ['bad_lang'] = 'К:Википедия:Cite web (неверный код языка)',		-- ['bad_lang'] = 'К:Википедия:Cite web (неверный код языка)',
	['empty_lang'] = 'К:~~Википедия~~:Cite web (не указан язык)',		['empty_lang'] = 'К:DZWIKI: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)',

Dzmuh: require('strict') вызывает ошибку

2023-05-04T00:43:30Z

require('strict') вызывает ошибку

← Предыдущая версия		Версия от 00:43, 4 мая 2023
Строка 1:		Строка 1:
	local p = {};		local p = {};

	require('strict');		-- require('strict');
	local listRef = require('Module:Languages').list_ref;		local listRef = require('Module:Languages').list_ref;
	local boxDate = require('Module:Calendar').bxDate;		local boxDate = require('Module:Calendar').bxDate;

Dzmuh: Новая страница: «local p = {}; require('strict'); local listRef = require('Module:Languages').list_ref; local boxDate = require('Module:Calendar').bxDate; local error_cats = { ['noname_param'] = 'К:Википедия:Cite web (некорректное использование: непустой неименованный параметр)', ['empty_title'] = 'К:Википедия:Cite web (некорректное использование: не указан ti...»

2023-05-03T20:27:46Z

Новая страница: «local p = {}; require('strict'); local listRef = require('Module:Languages').list_ref; local boxDate = require('Module:Calendar').bxDate; local error_cats = { ['noname_param'] = 'К:Википедия:Cite web (некорректное использование: непустой неименованный параметр)', ['empty_title'] = 'К:Википедия:Cite web (некорректное использование: не указан ti...»

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

local p = {};

require('strict');
local listRef = require('Module:Languages').list_ref;
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 (неверный код языка)',
['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}} должны иметь имя.}}',
['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-link',
['first1'] = 'first',
['last1'] = 'last',
['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 hiddenRef(code)
return ' ' .. code .. ''
end

local function insertDot(str, small, insert)
if insert == false then
return
end
if small then
table.insert(str, '.')
else
table.insert(str, '.')
end
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

-- генерирум список языков (аргумент - список языков через слеш)
local function refLang(lang)
local args = splitBySlash(lang);

local frame = mw.getCurrentFrame();
frame.args = args

local lang_result = listRef(frame)
local hidden = false;

if #args == 1 and args[1] == 'ru' then
hidden = true;
end

return lang_result, hidden
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);

-- Проверки
-- Проверка отсутствия неименованных параметров
if is(args[1]) then
table.insert(str, expandError('noname_param'));
table.insert(cats, 'noname_param');
end

-- Проверка корректности заполнения параметров archiveurl и archivedate
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

local urlstatus = 'dead';
if args['deadlink'] == nil or args['deadlink'] == '' or args['deadlink'] == 'no' then
urlstatus = 'live';
end

if is(args['archive-url']) then
if mw.ustring.find(args['archive-url'], 'webcitation.org', 1, true) then
if urlstatus == 'dead' then
urlstatus = 'webcite_dead'
table.insert(cats, 'webcitation_yes')
else
table.insert(cats, 'webcitation_no')
end
end
else
if urlstatus == 'dead' then
table.insert(cats, 'deadlink')
end
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')
else
if not is(args['lang']) and mw.ustring.find(args['title'], '^[0-9А-яЁё«»:;,…!? %(%)%.—№%/%&%#+-]+$') == nil then
table.insert(cats, 'empty_lang')
end
end

-- Формирование вывода
-- Автор
if is(args['author']) or is(args['last']) then
table.insert(str, '')

local author = args['author'];
if is(args['last']) then
author = args['last']
if is(args['first']) then
author = author .. ', ' .. args['first']
end
elseif not is(args['last2']) and not is(args['coauthors']) then
author = replace(author, '^(%[*)(.-[^%.%]])(%]*)$', '%1%2%3.')
end

if is(args['author-link']) then
table.insert(str, '[[' .. args['author-link'] .. '|' .. author .. "]]")
else
table.insert(str, author)
end

-- Дополнительные сведения об авторах
for i = 2, 5 do
if is(args['last' .. i]) then
local author = nowiki(';') .. ' ' .. args['last' .. i];
if is(args['first' .. i]) then
author = author .. ', ' .. args['first' .. i]
end
table.insert(str, author)
end
end

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

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' and is(args['archive-url']) then
link = '[' .. (args['archive-url'] or '') .. ' ' .. title .. ']'
else
link = '[' .. (args['url'] or '') .. ' ' .. title .. ']'
end
table.insert(str, wrapLang(link, args['lang']))

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

-- Отображение названия языка источника
local langs;
local hidden = false;
if is(args['lang']) then
langs, hidden = refLang(args['lang']);
else
langs = frame:expandTemplate { title = 'ref-und' };
hidden = true;
end
if hidden == true then
langs = hiddenRef(langs);
else
dot = true;
end
table.insert(str, langs)

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

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

-- Название сайта или проекта
if is(args['website']) then
insertDot(str, is(args['subtitle']), 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, is(args['subtitle']), 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, is(args['subtitle']), 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, true, needDot(args['description']))
end

-- Цитата
if is(args['quote']) then
table.insert(str, ' — «' .. args['quote'] .. '»')
insertDot(str, true, 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' or urlstatus == 'webcite_dead' then
table.insert(str,
' [' ..
args['archive-url'] ..
' Архивировано] ' ..
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;