Модуль:Перанакіраваньне

Дакумэнтацыю да гэтага модуля можна стварыць у Модуль:Перанакіраваньне/Дакумэнтацыя

-- Гэты модуль прадастаўляе функцыі для атрыманьня мэтавай старонкі зь перанакіраваньня.

local p = {}

-- Атрымлівае аб’ект mw.title, выкарыстоўваючы pcall, каб пазьбегнуць зьяўленьня памылак сцэнароў,
-- калі мы перавысілі ліміт выклікаў дарагіх функцыяў (сярод іншых магчымых прычынаў).
local function getTitle(...)
	local success, titleObj = pcall(mw.title.new, ...)
	if success then
		return titleObj
	else
		return nil
	end
end

-- Атрымлівае назву старонку, на якую вядзе перанакіраваньне, альбо пуста,
-- калі гэта не перанакіраваньне.
function p.getTargetFromText(text)
	local target = string.match(
		text,
		"^%s*#[Пп][Ее][Рр][Аа][Нн][Аа][Кк][Іі][Рр][Аа][Вв][Аа][Нн][Ьь][Нн][Ее]%s*:?%s*%[%[([^%[%]|]-)%]%]"
	) or string.match(
		text,
		"^%s*#[Пп][Ее][Рр][Аа][Нн][Аа][Кк][Іі][Рр][Аа][Вв][Аа][Нн][Ьь][Нн][Ее]%s*:?%s*%[%[([^%[%]|]-)|[^%[%]]-%]%]"
	) or string.match(
		text,
		"^%s*#[Rr][Ee][Dd][Ii][Rr][Ee][Cc][Tt]%s*:?%s*%[%[([^%[%]|]-)%]%]"
	) or string.match(
		text,
		"^%s*#[Rr][Ee][Dd][Ii][Rr][Ee][Cc][Tt]%s*:?%s*%[%[([^%[%]|]-)|[^%[%]]-%]%]"
	)
	return target and mw.uri.decode(target, 'PATH')
end

-- Атрымлівае цэль перанакіраваньня. Калі пазначаная старонка — не
-- перанакіраваньне, вяртае пуста.
function p.getTarget(page, fulltext)
	-- Атрымлівае аб’ект загалоўку. Як назвы старонак, так і аб’екты загалоўкаў
	-- прымальныя на ўваходзе.
	local titleObj
	if type(page) == 'string' or type(page) == 'number' then
		titleObj = getTitle(page)
	elseif type(page) == 'table' and type(page.getContent) == 'function' then
		titleObj = page
	else
		error(string.format(
			"благі аргумэнт #1 у 'getTarget'"
				.. " (чакаю радок, нумар ці аб’ект загалоўку, атрымаў %s)",
			type(page)
		), 2)
	end
	if not titleObj then
		return nil
	end
	local targetTitle = titleObj.redirectTarget
	if targetTitle then
		if fulltext then
			return targetTitle.fullText
		else
			return targetTitle.prefixedText
		end
	else
		return nil
	end
end

--[[
-- Зь перададзенай назвы старонкі вызначае, на якую старонку яна перанакіроўвае,
-- і вяртае назву мэтавай старонкі, а калі не перанакіраваньне — то назву перададзенай старонкі.
-- Назва перададзенай старонкі можа быць у выглядзе як простага тэксту,
-- так і ў выглядзе спасылкі
-- Вяртае назву старонкі ў выглядзе простага тэксту, альбо, калі зададзены парамэтар
-- дужак — як спасылку на старонку. Калі старонка не існуе альбо зь нейкай
-- прычыны немагчыма вызначыць мэтавае перанакіраваньне, вяртае памылку.
--]]
function p.luaMain(rname, bracket, fulltext)
	if type(rname) ~= "string" or not rname:find("%S") then
		return nil
	end
	bracket = bracket and "[[%s]]" or "%s"
	rname = rname:match("%[%[(.+)%]%]") or rname
	local target = p.getTarget(rname, fulltext)
	local ret = target or rname
	ret = getTitle(ret)
	if ret then
		if fulltext then
			ret = ret.fullText
		else
			ret = ret.prefixedText
		end
		return bracket:format(ret)
	else
		return nil
	end
end

-- Надае доступ да функцыі luaMain зь вікітэксту.
function p.main(frame)
	local args = require('Модуль:Аргумэнты').getArgs(frame, {frameOnly = true})
	return p.luaMain(args[1], args.bracket, args.fulltext) or ''
end

-- Вяртае ісьціну, калі пазначаная старонка — перанакіраваньне, інакш мана.
function p.luaIsRedirect(page)
	local titleObj = getTitle(page)
	if not titleObj then
		return false
	end
	if titleObj.isRedirect then
		return true
	else
		return false
	end
end

-- Надае доступ да функцыі luaIsRedirect зь вікітэксту, вяртаючы „але“,
-- калі зададзеная старонка — перанакіраваньне, інакш — пусты радок.
function p.isRedirect(frame)
	local args = require('Модуль:Аргумэнты').getArgs(frame, {frameOnly = true})
	if p.luaIsRedirect(args[1]) then
		return 'так'
	else
		return ''
	end
end

return p