Modul:PageUtil

Die Dokumentation für dieses Modul kann unter Modul:PageUtil/Doku erstellt werden

--[=[ 2014-12-25
PageUtil
* merge()
]=]



-- table for export
local PageUtil = {}



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 )
        r = r:gsub( seek, subst )
        seek  = "%[%[%s*" .. source .. "(|[^%[%]]*%]%])"
        subst = "[[#" .. shift .. "%1"
        r = r:gsub( seek, subst )
        r = r:gsub( seek, subst )
        seek  = "%[%[%s*(" .. source .. "%]%])"
        subst = "[[#" .. shift .. "|%1"
        r = r:gsub( seek, subst )
        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
    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 )
        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>",
                               page.prefixedText )
        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
    local page = mw.title.new( access )
    local r
    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
    return r
end -- full()



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 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 )
                else
                    swallow = s:match( "^%s*%[%[([^%[|%]\n]+)%]%]%s*$" )
                    if swallow then
                        s = full( swallow, frame, i, pages )
                    end
                end
                if s then
                    r = r .. s
                end
            end
        end -- for i
        r = flat( r, pages )
    end
    return r
end -- .merge()



-- Export
local p = { }

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

function p.PageUtil()
    return PageUtil
end

return p