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

-- Гэты модуль прадастаўляе функцыі для атрыманьня мэтавай старонкі зь перанакіраваньня.local p = {}-- Атрымлівае аб’ект mw.title, выкарыстоўваючы pcall, каб пазьбегнуць зьяўленьня памылак сцэнароў,-- калі мы перавысілі ліміт выклікаў дарагіх функцыяў (сярод іншых магчымых прычынаў).local function getTitle(...)local success, titleObj = pcall(mw.title.new, ...)if success thenreturn titleObjelsereturn nilendend-- Атрымлівае назву старонку, на якую вядзе перанакіраваньне, альбо пуста,-- калі гэта не перанакіраваньне.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 titleObjif type(page) == 'string' or type(page) == 'number' thentitleObj = getTitle(page)elseif type(page) == 'table' and type(page.getContent) == 'function' thentitleObj = pageelseerror(string.format("благі аргумэнт #1 у 'getTarget'".. " (чакаю радок, нумар ці аб’ект загалоўку, атрымаў %s)",type(page)), 2)endif not titleObj thenreturn nilendlocal targetTitle = titleObj.redirectTargetif targetTitle thenif fulltext thenreturn targetTitle.fullTextelsereturn targetTitle.prefixedTextendelsereturn nilendend--[[-- Зь перададзенай назвы старонкі вызначае, на якую старонку яна перанакіроўвае,-- і вяртае назву мэтавай старонкі, а калі не перанакіраваньне — то назву перададзенай старонкі.-- Назва перададзенай старонкі можа быць у выглядзе як простага тэксту,-- так і ў выглядзе спасылкі-- Вяртае назву старонкі ў выглядзе простага тэксту, альбо, калі зададзены парамэтар-- дужак — як спасылку на старонку. Калі старонка не існуе альбо зь нейкай-- прычыны немагчыма вызначыць мэтавае перанакіраваньне, вяртае памылку.--]]function p.luaMain(rname, bracket, fulltext)if type(rname) ~= "string" or not rname:find("%S") thenreturn nilendbracket = bracket and "[[%s]]" or "%s"rname = rname:match("%[%[(.+)%]%]") or rnamelocal target = p.getTarget(rname, fulltext)local ret = target or rnameret = getTitle(ret)if ret thenif fulltext thenret = ret.fullTextelseret = ret.prefixedTextendreturn bracket:format(ret)elsereturn nilendend-- Надае доступ да функцыі 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 thenreturn falseendif titleObj.isRedirect thenreturn trueelsereturn falseendend-- Надае доступ да функцыі luaIsRedirect зь вікітэксту, вяртаючы „але“,-- калі зададзеная старонка — перанакіраваньне, інакш — пусты радок.function p.isRedirect(frame)local args = require('Модуль:Аргумэнты').getArgs(frame, {frameOnly = true})if p.luaIsRedirect(args[1]) thenreturn 'так'elsereturn ''endendreturn p