Modul:PageUtil: Unterschied zwischen den Versionen
te>PerfektesChaos (2015-03-11) |
te>PerfektesChaos (2017-11-11) |
||
| Zeile 1: | Zeile 1: | ||
| − | --[=[ | + | local PageUtil = { suite = "PageUtil", |
| + | serial = "2017-11-11" }; | ||
| + | --[=[ | ||
PageUtil | PageUtil | ||
| − | |||
]=] | ]=] | ||
| − | + | PageUtil.maxPages = 200 | |
| − | |||
| − | |||
| Zeile 119: | Zeile 118: | ||
return r | return r | ||
end -- full() | end -- full() | ||
| + | |||
| + | |||
| + | |||
| + | PageUtil.failsafe = function ( assert ) | ||
| + | local r | ||
| + | if not assert or assert <= PageUtil.serial then | ||
| + | r = PageUtil.serial | ||
| + | else | ||
| + | r = false | ||
| + | end | ||
| + | return r | ||
| + | end -- PageUtil.failsafe() | ||
| Zeile 160: | Zeile 171: | ||
r = r .. mw.text.trim( s ) | r = r .. mw.text.trim( s ) | ||
end | end | ||
| − | if n > | + | if n > PageUtil.maxPages then |
s = string.format( "'''Too many pages (max. %d)'''", | s = string.format( "'''Too many pages (max. %d)'''", | ||
| − | + | PageUtil.maxPages ) | |
r = string.format( "%s\n\n%s", | r = string.format( "%s\n\n%s", | ||
r, | r, | ||
| Zeile 179: | Zeile 190: | ||
-- Export | -- Export | ||
local p = { } | local p = { } | ||
| + | |||
| + | function p.isRedirect() | ||
| + | return mw.title.getCurrentTitle().isRedirect and "1" or ""; | ||
| + | end -- p.isRedirect | ||
p.merge = function ( frame ) | p.merge = function ( frame ) | ||
| Zeile 187: | Zeile 202: | ||
return r | return r | ||
end | end | ||
| + | |||
| + | p.failsafe = function ( frame ) | ||
| + | -- Versioning interface | ||
| + | local s = type( frame ) | ||
| + | local since | ||
| + | if s == "table" then | ||
| + | since = frame.args[ 1 ] | ||
| + | elseif s == "string" then | ||
| + | since = frame | ||
| + | end | ||
| + | if since then | ||
| + | since = mw.text.trim( since ) | ||
| + | if since == "" then | ||
| + | since = false | ||
| + | end | ||
| + | end | ||
| + | return PageUtil.failsafe( since ) or "" | ||
| + | end -- p.failsafe() | ||
function p.PageUtil() | function p.PageUtil() | ||
Version vom 12. November 2017, 12:51 Uhr
Die Dokumentation für dieses Modul kann unter Modul:PageUtil/Doku erstellt werden
local PageUtil = { suite = "PageUtil",
serial = "2017-11-11" };
--[=[
PageUtil
]=]
PageUtil.maxPages = 200
local function fault( alert, frame )
-- Format message with class="error"
-- alert -- string, with message
-- frame -- object
-- Returns message with markup
local r = alert
if frame then
r = string.format( "%s * %s", frame:getTitle(), r )
end
r = string.format( "<span class=\"error\">ERROR * %s</span>", r )
return r
end -- fault()
local function flat( adjust, assembly )
-- Replace links to pages by inner links
-- adjust -- string, with text
-- assembly -- table, with page infos
-- Returns adjusted string
local r = adjust
local seek, shift, source, subst
for k, v in pairs( assembly ) do
source = v[ 1 ]
shift = v[ 2 ]
source = ":?" .. source:gsub( " ", "[_ ]+" )
:gsub( "[%.%(%)%*%?%+%-]", "%1" )
.. "%s*"
seek = "%[%[%s*" .. source .. "(#[^%]]*%]%])"
subst = "[[%1"
r = r:gsub( seek, subst )
seek = "%[%[%s*" .. source .. "(%|[^%]]*%]%])"
subst = "[[#" .. shift .. "%1"
r = r:gsub( seek, subst )
seek = "%[%[%s*(" .. source .. "%]%])"
subst = "[[#" .. shift .. "|%1"
r = r:gsub( seek, subst )
end -- for k, v
return r
end -- flat()
local function fraction( access, frame )
-- Retrieve text from section
-- access -- string, with request
-- frame -- object
-- Returns content, or false
-- Uses:
-- mw.title.new() .exists
local r
local seek = "^(#lstx?):%s*%[%[([^%[|%]\n]+)%]%]%s*(%S.*)%s*$"
local scope, source, section = access:match( seek )
if source then
local page = mw.title.new( source )
source = page.prefixedText
if page.exists then
section = mw.text.trim( section )
if section ~= "" then
r = frame:callParserFunction{ name = scope,
args = { source,
section } }
end
else
r = string.format( "<div class=\"error\">%s</div>",
source )
end
end
return r
end -- fraction()
local function full( access, frame, alias, assembly )
-- Retrieve text from page
-- access -- string, with page name
-- frame -- object
-- alias -- number, unique
-- assembly -- table, with page infos
-- Returns string with content, or nil
-- Uses:
-- mw.title.new() .exists
local page = mw.title.new( access )
local r
if page then
if page.exists then
local source = page.prefixedText
local segment = string.format( "PageUtilMerge-%d", alias )
local seed
if page.namespace == 0 then
seed = ":" .. source
else
seed = source
end
r = frame:expandTemplate( { title = seed } )
r = string.format( "<span id='%s'></span>\n%s", segment, r )
table.insert( assembly, { source, segment } )
else
r = string.format( "<div class=\"error\">%s</div>",
page.prefixedText )
end
else
r = string.format( "<div class=\"error\">%s '%s'</div>",
"Unknown page", access )
end
return r
end -- full()
PageUtil.failsafe = function ( assert )
local r
if not assert or assert <= PageUtil.serial then
r = PageUtil.serial
else
r = false
end
return r
end -- PageUtil.failsafe()
PageUtil.merge = function ( args, frame )
-- Retrieve text
-- args -- table, with request
-- frame -- object, if available
-- Returns string, with content
local max = 0
local r = ""
for k, v in pairs( args ) do
if type( k ) == "number" and
k > max then
max = k
end
end -- for k, v
if max > 0 then
local n = 0
local pages = { { mw.title.getCurrentTitle().prefixedText,
"" } }
local mode, s, section, swallow
if not frame then
frame = mw.getCurrentFrame()
end
for i = 1, max do
s = args[ i ]
if s then
swallow = s:match( "^%s*(#lstx?:[^\n]*%S)%s*$" )
if swallow then
s = fraction( swallow, frame )
n = n + 1
else
swallow = s:match( "^%s*%[%[([^%[|%]\n]+)%]%]%s*$" )
if swallow then
s = full( swallow, frame, i, pages )
n = n + 1
end
end
if s then
r = r .. mw.text.trim( s )
end
if n > PageUtil.maxPages then
s = string.format( "'''Too many pages (max. %d)'''",
PageUtil.maxPages )
r = string.format( "%s\n\n%s",
r,
fault( s, frame ) )
break -- for i
end
end
end -- for i
r = flat( r, pages )
end
return r
end -- .merge()
-- Export
local p = { }
function p.isRedirect()
return mw.title.getCurrentTitle().isRedirect and "1" or "";
end -- p.isRedirect
p.merge = function ( frame )
local lucky, r = pcall( PageUtil.merge, frame.args, frame )
if not lucky then
r = fault( r, frame )
end
return r
end
p.failsafe = function ( frame )
-- Versioning interface
local s = type( frame )
local since
if s == "table" then
since = frame.args[ 1 ]
elseif s == "string" then
since = frame
end
if since then
since = mw.text.trim( since )
if since == "" then
since = false
end
end
return PageUtil.failsafe( since ) or ""
end -- p.failsafe()
function p.PageUtil()
return PageUtil
end
return p
