Modul:Vorlage:LuaModuleDoc

---

--[=[ 2013-05-14
Support {{LuaModuleDoc}}
* nav()
require: LuaWiki
]=]



-- Module globals
local import, LuaWiki = pcall( require, "Module:LuaWiki" )
local currentTitle



local function navError( say, specific )
    -- Return error message, evaluate page .pageErr
    -- Precondition:
    --     say       -- string; message key
    --     specific  -- string, optional; additional information
    -- Uses:
    --     LuaWiki.getArg()
    --     LuaWiki.transclude()
    --     LuaWiki.error()
    local show = LuaWiki.getArg( "pageErr" )
    local r
    if type( show ) == "string" then
        local pars = { say }
        if type( specific ) == "string" then
            table.insert( pars, specific )
        end
        r = LuaWiki.transclude( show, pars )
    else
        r = LuaWiki.error( "arg 'pageErr' missing" )
    end
    return r
end -- navError()



local function navLang( suite, collect, lazy )
    -- Append languages from string to collection
    -- Precondition:
    --     suite    -- string; space separated source
    --     collect  -- table; to be extended
    --                 every element: { langCode, lazy }
    --     lazy     -- true if only existing page is to be linked
    if type( suite ) == "string" then
        local raw = mw.text.split( suite, "%s+" )
        local e, i, j, s
        for i = 1, #raw do
            s = raw[ i ]
            if #s > 1 then
                for j = 1, #collect do
                    if s then
                        e = collect[ j ]
                        if e[ 1 ] == s then
                            s = false
                            if not lazy then
                                e[ 2 ] = false
                            end
                        end
                    end
                end -- for j
                if s then
                    table.insert( collect,  { s, lazy } )
                end
            end
        end -- for i
    end
end -- navLang()



local function navLangs( nsDocs, start, script )
    -- Analyze languages
    -- Precondition:
    --     current page is supposed to transclude LuaModuleDoc
    --     nsDocs  -- number; central documentation namespace
    --     start   -- string; central documentation root
    --     script  -- string; basic module name
    -- Return:
    --     table:  args for navigation template
    --             [1] basic module name
    --             [2] number of language codes  +  1
    --             [3] first language code
    --             [4] second language code
    --             ... list of further language codes
    -- Uses:
    --     LuaWiki.getArg()
    --     navLang()
    --     mw.title.makeTitle()
    local e, i, s, t
    local r = { }
    local specified = LuaWiki.getArg( "langsRequest", false )
    local super     = start .. "/" .. script .. "/"
    if type( specified ) == "string" then
        if specified:match( "^%s*$" ) then
            specified = false
        end
    end
    navLang( LuaWiki.getArg( "langsDefault" ),  r,  specified )
    navLang( specified, r, false )
    if #r < 1 then
        r = { { "en", false } }
    end
    for i = #r, 1, -1 do
        e = r[ i ]
        s = e[ 1 ]
        if e[ 2 ] then
            t = mw.title.makeTitle( nsDocs,  super .. s )
            if not t.exists then
                s = false
            end
        end
        if s then
            r[ i ] = s
        else
            table.remove( r, i )
        end
    end -- for i -1
    table.insert( r,  1,  script )
    table.insert( r,  2,  tostring( #r ) )
    return r
end -- navLangs()



local function navMerge( start, swift, ns, nsDocs, script )
    -- Include various external content into page
    -- Precondition:
    --     start   -- string; defined pageDocRoot argument
    --     swift   -- string; defined pageNav argument
    --     nsDocs  -- number; central documentation namespace
    --     ns      -- number; current namespace
    --     script  -- string; modul name
    -- Uses:
    --     >< currentTitle
    --     navLangs()
    --     LuaWiki.transclude()
    --     navError()
    --     mw.title.makeTitle()
    --     LuaWiki.getArg()
    --     LuaWiki.isExisting()
    local r
    local s
    local super
    local t       = currentTitle.talkPageTitle
    local collect = navLangs( nsDocs, start, script )
    if ns == nsDocs and
       currentTitle.text == start .. "/" .. script then
        super = currentTitle.text .. "/"
    else
        super = false
    end
    r = LuaWiki.transclude( swift, collect )
    if t then
        s = t.exists
    else
        s = false
    end
    if not s then
        if super then
            s = "NoTalkCentral"
        elseif ns == nsDocs + 1 then
            s = false
        else
            s = "NoTalkRedir"
        end
        if s then
            r = r .. navError( s )
        end
    end
    if super then
        local i
        local d  = "{{%s*[lL]uaModuleDoc[^}]*}}%s*"
        local p1 = "^%s*" .. d .. "<onlyinclude>"
        local p2 = "%s*<noinclude>" .. d .. "</noinclude>"
        for i = 3, #collect do
            t = mw.title.makeTitle( nsDocs,  super .. collect[ i ] )
            s = t:getContent()
            if s then
                s = s:gsub( p1, "" ):gsub( p2, "" )
                if s:match( d ) then
                    r = r .. "<br />"
                          .. navError( "BadInclude", t.prefixedText )
                          .. "<br />"
                else
                    r = r .. LuaWiki.transclude( t.prefixedText )
                    break
                end
            end
        end -- for i
        s = LuaWiki.getArg( "pageTemplateInsert", "" )
        if LuaWiki.isExisting( s ) then
            local suppress = LuaWiki.getArg( "noHint", "" )
            if #suppress == 0 then
               r = r .. LuaWiki.transclude( s,  { collect[ 1 ] } )
            end
        end
        s = LuaWiki.getArg( "categoryDocs", "" )
        if #s > 0 then
            i = mw.title.makeTitle( "Category", s )
            if i.exists then
                r = r .. "[[" .. i.prefixedText
                      .. "|" .. collect[ 1 ] .. "]]"
            end
        end
        r = r .. "__NOEDITSECTION__"
    end
    return r
end -- navMerge()



local function navPage( lead, ns, nsDocs )
    -- Return navigation text; analyze page location
    -- Precondition:
    --     current namespace will support LuaModuleDoc
    --     lead    -- true: Module: namespace;   false: text namespace
    --     ns      -- number; current namespace
    --     nsDocs  -- number; namespace for doc
    -- Uses:
    --     >< currentTitle
    --     LuaWiki.getArg()
    --     navError()
    --     navMerge()
    local r
    local start = LuaWiki.getArg( "pageDocRoot" )
    if type( start ) == "string" then
        local light  = false
        local script
        if lead then
            script = currentTitle.baseText
        else
            local sub = "/([^/]+)/(.*)$"
            script, sub = mw.ustring.match( currentTitle.text .. "/",
                                            "^" .. start .. sub )
            if type( script ) == "string" then
                light = ( #sub > 0 )
            else
                r      = navError( "BadPage" ) .. currentTitle.text
                script = false
            end
        end
        if script then
            local swift = LuaWiki.getArg( "pageNav" )
            if type( swift ) == "string" then
                r = navMerge( start, swift, nsDocs, ns, script )
            else
                r = navError( "configMissing", "pageNav" )
            end
        end
    else
        r = navError( "configMissing", "pageDocRoot" )
    end
    return r
end -- navPage()



local function navigation()
    -- Start execution; return navigation text; analyze namespace
    -- Uses:
    --     >< currentTitle
    --     LuaWiki.getArg()
    --     mw.title.getCurrentTitle()
    --     navPage()
    --     navError()
    local r
    local nsDocs = LuaWiki.getArg( "nsDocs" )
    if nsDocs then
        currentTitle = mw.title.getCurrentTitle()
        local ns   = currentTitle.namespace
        local lead = ( ns == mw.site.namespaces.Module.id )
        nsDocs = tonumber( nsDocs )
        if lead or  ns == nsDocs  or  ns == nsDocs + 1 then
            r = navPage( lead, ns, nsDocs )
        else
            r = navError( "BadNamespace" )
        end
    else
        r = navError( "configMissing", "nsDocs" )
    end
    return  r
end -- navigation()



-- Provide template access

local p = {}

function p.nav( frame )
    -- Uses:
    --     >  LuaWiki
    --     navigation()
    local r
    if type( LuaWiki ) == "table" then
        r = navigation() or ""
    else
        r = "<span class='error'>" .. LuaWiki .. "</span>"
    end
    return r
end

return p