Modul:Vorlage:LuaModuleDoc

---

local Serial = "2017-11-06"
--[=[
Support {{LuaModuleDoc}}
* nav()
* failsafe()
]=]



-- Module globals
local CurrentTitle
local Frame



local function fetch( arg, assign )
    -- Retrieve template argument
    -- Precondition:
    --     arg     -- string or number; argument identifier
    --     assign  -- any, optional; default value
    local r = Frame.args[ arg ]
    if type( r ) ~= "string" then
        if assign == nil then
            r = "{{{<" .. arg .. ">}}}"
        else
            r = assign
        end
    end
    return r
end -- fetch()



local function catIfDefined( slot )
    -- Categorize if category defined
    --     slot  -- string; Config entry
    -- Return:
    --     string or false:  categorization, if any
    -- Uses:
    --     mw.title.makeTitle()
    local s = fetch( slot, "" )
    local r
    if #s > 0 then
        local t = mw.title.makeTitle( "Category", s )
        if t.exists then
            r = string.format( "[[%s]]", t.prefixedText )
        end
    end
    return r
end -- catIfDefined()



local function createPage( swift, sub, start, ns, script )
    -- Create button for page creation
    --     swift   -- string;
    --                "NoPageCentral", "NoTalkCentral", "NoTalkRedir"
    --     sub     -- string; page name to be created
    --     start   -- string; defined pageDocRoot argument
    --     ns      -- number; namespace
    --     script  -- string; module name (main)
    -- Return:
    --     string
    -- Uses:
    --     fetch()
    -- MediaWiki:Move-leave-redirect   Weiterleitung erstellen
    -- MediaWiki:autosumm-new          Seite wurde neu angelegt: „$1“
    local setup = "preload" .. swift:sub( 7 )
    local r
    setup = fetch( setup )
    if setup then
        local create = { action  = "edit",
                         preload = setup,
                         redlink = "1" }
        local button, path, show, story, summary
        if swift == "NoTalkRedir" then
            show    = "move-leave-redirect"
            story   = string.format( "%s/%s", start, script )
            story   = mw.title.makeTitle( ns, story ).prefixedText
            story   = string.format( "[[%s]]", story )
            summary = "#redirect " .. story
        else
            local s = fetch( "langsRequest", false )
            show    = "recreate"
            if s then
                s = mw.text.trim( s )
                if s ~= "" then
                    s = "|" .. s
                end
            end
            story = ( s or "" )
            summary = "{{LuaModuleDoc}}"
        end
    --  summary = mw.message.new( "autosumm-new" ):params( summary )
        create.summary      = summary
        create.preloadtitle = summary
        if story then
            create[ "preloadparams[]" ] = story
        end
        path   = { sub,  mw.uri.buildQueryString( create ) }
        r      = Frame:callParserFunction( "fullurl", path )
        show   = mw.message.new( show ):plain()
        button = mw.title.makeTitle( mw.site.namespaces.Template.id,
                                     "MediaWiki-Button" )
        if button.exists then
            button = { template = button.text,
                       Typ      = "progressive",
                       ["Groß"] = "1",
                       Link     = r,
                       Text     = show }
            r      = Frame:expandTemplate{ title = button.template,
                                           args  = button }
        else
            r = string.format( "<br>[%s '''%s''']", r, show )
        end
    end
    return r or ""
end -- createPage()



local function globalRepos( script )
    -- Check for global dissemination
    --     script  -- string; module name (main)
    -- Uses:
    --     fetch()
    --     >< CurrentTitle
    -- Return:
    --     string
    -- Uses:
    --     mw.wikibase.getEntity()
    --     mw.title.makeTitle()
    local entity = mw.wikibase.getEntity()
    local r
    if type( entity ) == "table" then
        local mode = 0
        local repo = entity:formatPropertyValues( "P1324" )
        local params, s, t
        if type( repo ) == "table"  and
           type( repo.value) == "string"  and
           repo.value:find( "//" ) then
            repo = mw.uri.new( repo.value )
            if type( repo.path ) == "string"  and
               repo.path:match( "^/wiki/" ) then
                local space
                space, s = repo.path:sub( 7 ):match( "^([^:]+):(.+)$" )
                if space and s then
                    t = mw.title.makeTitle( space, s )
                    s = "//" .. repo.host
                    if mw.title.equals( CurrentTitle, t )  and
                       mw.site.server:find( s, 1, true ) then
                        mode = 2
                    else
                        mode = 1
                    end
                end
            end
            s = fetch( "templateGlobal", "" )
            if #s > 0 then
                local lucky, bib = pcall( require,
                                          CurrentTitle.prefixedText )
                local vsn = entity:formatPropertyValues( "P348" )
                params = { }
                if mode < 2 then
                    params[ 1 ] = string.format( "[%s %s]",
                                                 tostring( repo ),
                                                 repo.host )
                end
                if type( vsn ) == "table"  and
                   type( vsn.value) == "string" and
                   vsn.value ~= "" then
                    params.version = vsn.value
                end
                if type( bib ) == "table"  and  bib.failsafe then
                    t = type( bib.failsafe )
                    if t == "function" then
                        bib = bib.failsafe( { args = { } } )
                        t    = type( bib )
                    else
                        bib = bib.failsafe
                    end
                    if t == "number" then
                        bib = string.format( "%d", bib )
                        t    = "string"
                    end
                    if t == "string" then
                        params.here = bib
                    end
                end
                if params.version  and  params.here  and
                   params.version ~= params.here  then
                    params.update = "1"
                end
                r = Frame:expandTemplate{ title=s,
                                          args=params }
            end
        end
        s = fetch( "categoryWikiData", "" )
        if #s > 0 then
            local slot
            if mode > 0 then
                if mode == 2 then
                    slot = catIfDefined( "categoryWikiDataParent" )
                else
                    slot = catIfDefined( "categoryWikiDataChild" )
                end
            end
            if not slot then
                slot = catIfDefined( s )
            end
            if slot then
                if r then
                    r = r .. slot
                else
                    r = slot
                end
                if params and params.update then
                    slot = catIfDefined( "categoryWikiDataReplication" )
                    if slot then
                        r = r .. slot
                    end
                end
            end
        end
    end
    return r or ""
end -- globalRepos()



local function navDevelop( nsDocs, start, script )
    -- Most interesting test and development page
    -- Precondition:
    --     nsDocs  -- number; central documentation namespace number
    --     start   -- string; central documentation root
    --     script  -- string; basic module name
    -- Return:
    --     string or false:  full page name, if any
    -- Uses:
    --     mw.title.makeTitle()
    local n   = nsDocs
    local r   = false
    local sub = "/" .. fetch( "subTest", "Test" )
    local s   = string.format( "%s/%s%s", start, script, sub )
    local t   = mw.title.makeTitle( n, s )
    if not t.exists then
        local low    = false
        local subLow = mw.ustring.lower( sub )
        if subLow ~= sub then
            s   = string.format( "%s/%s%s", start, script, subLow )
            t   = mw.title.makeTitle( n, s )
            low = t.exists
        end
        if not low then
            n = mw.site.namespaces.Module.id
            s = string.format( "%s/%s", script, sub )
            t = mw.title.makeTitle( n, s )
            if not t.exists  and  subLow ~= sub then
                s = script .. subLow
                t = mw.title.makeTitle( n, s )
                t = t.exists
            end
        end
    end
    if t then
        r =  mw.site.namespaces[ n ].name .. ":" .. s
    end
    return r
end -- navDevelop()



local function navError( say, specific )
    -- Return error message, evaluate page .pageErr
    -- Precondition:
    --     say       -- string; message key
    --     specific  -- string, optional; additional information
    -- Uses:
    --     fetch()
    local show = fetch( "pageErr" )
    local r
    if type( show ) == "string" then
        local pars = { say }
        if type( specific ) == "string" then
            table.insert( pars, specific )
        end
        r = Frame:expandTemplate{ title = show, args = pars }
    else
        local e = mw.html.create( "span" )
                         :attr( "class", "error" )
                         :wikitext( error( "arg 'pageErr' missing", 3 ) )
        r = tostring( e )
    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 number
    --     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:
    --     fetch()
    --     navLang()
    --     mw.title.makeTitle()
    local e, i, s, t
    local r = { }
    local specified = fetch( "langsRequest", false )
    local super     = start .. "/" .. script .. "/"
    if type( specified ) == "string" then
        if specified:match( "^%s*$" ) then
            specified = false
        end
    end
    navLang( fetch( "langsDefault" ),  r,  specified )
    navLang( fetch( "langsMore" ),  r,  true  )
    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, sub, lead )
    -- Include various external content into page
    -- Precondition:
    --     start   -- string; defined pageDocRoot argument
    --     swift   -- string; defined pageNav argument
    --     ns      -- number; current namespace number
    --     nsDocs  -- number; central documentation namespace number
    --     script  -- string; module name (main)
    --     sub     -- string or false; possible sub-module name
    --     lead    -- true: Module: namespace;   false: text namespace
    -- Uses:
    --     >< CurrentTitle
    --     navLangs()
    --     navError()
    --     mw.title.makeTitle()
    --     createPage()
    --     fetch()
    local server  = mw.site.server
    local super   = false
    local collect = navLangs( nsDocs, start, script )
    local t       = navDevelop( nsDocs, start, script )
    local low, r, s
    if t then
        collect.Test = t
    end
    if ns == nsDocs then
        s = string.format( "%s/%s", start, script )
        if CurrentTitle.text == s then
            super = CurrentTitle.text .. "/"
        elseif sub then
            collect.subDoc = sub
            collect.subModule = sub
            s = string.format( "%s/%s/%s", start, script, sub )
            if CurrentTitle.text == s then
                s = string.format( "%s/%s", s, collect[ 3 ] )
                t = mw.title.makeTitle( nsDocs, s )
                if t.exists then
                    super = CurrentTitle.text .. "/"
                end
            end
        end
    elseif lead and sub then
        s = string.format( "%s/%s/%s", start, script, sub )
        t = mw.title.makeTitle( nsDocs, s )
        if t.exists then
            collect.subDoc = sub
        end
    end
    if server:match( "%.beta%.wmflabs%.org$" ) then
        local slang, series = server:match( "//(%l+)%.(%l+)%." )
        low = true
        if series == "wikipedia" then
            if slang == "de" then
                collect.BETA = "w:de:"   --Talk
            end
        end
    end
    r = Frame:expandTemplate{ title = swift, args = collect }
    if not low then
        t = CurrentTitle.talkPageTitle
        if ns == mw.site.namespaces.Module.id then
            local doc
            s   = string.format( "%s/%s", start, script )
            doc = mw.title.makeTitle( nsDocs, s )
            if not doc.exists then
                r = r .. createPage( "NoPageCentral",
                                     doc.prefixedText,
                                     start,
                                     nsDocs,
                                     script )
                t = false
            end
        end
        if t  and  not t.exists then
            if super then
                s = "NoTalkCentral"
            elseif ns == nsDocs + 1 then
                s = false
            else
                s = "NoTalkRedir"
            end
            if s then
                r = string.format( "%s%s%s",
                                   r,
                                   navError( s ),
                                   createPage( s,
                                               t.prefixedText,
                                               start,
                                               nsDocs + 1,
                                               script ) )
            end
        end
    end
    if super then
        local d  = "{{%s*[lL]uaModuleDoc[^}]*}}%s*"
        local p1 = "^%s*" .. d .. "<onlyinclude>"
        local p2 = "%s*<noinclude>" .. d .. "</noinclude>"
        local space, sub, support
        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 = string.format( "%s<br />%s<br />",
                                       r,
                                       navError( "BadInclude",
                                                 t.prefixedText ) )
                else
                    r = r ..
                        Frame:expandTemplate{ title = t.prefixedText }
                    break    -- for i
                end
            end
        end -- for i
        s = fetch( "pageTemplateInsert", "" )
        space, support = s:match( "^([^:]+):(.+)$" )
        if space  and  mw.title.makeTitle( space, support ).exists then
            local suppress = fetch( "noHint", "" )
            if #suppress == 0 then
                local swift = collect[ 1 ]
                if sub then
                    swift = string.format( "%s/%s", swift, sub )
                end
                r = r .. Frame:expandTemplate{ title = s,
                                               args = { swift } }
            end
        end
        s = fetch( "categoryDocs", "" )
        if #s > 0 then
            i = mw.title.makeTitle( "Category", s )
            if i.exists then
                r = string.format( "%s[[%s|%s]]",
                                   r, i.prefixedText, collect[ 1 ] )
            end
        end
        r = r .. "__NOEDITSECTION__"
    end
    if lead then
        r = r .. globalRepos( script )
    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
    --     fetch()
    --     navError()
    --     navMerge()
    local r
    local start = fetch( "pageDocRoot" )
    if type( start ) == "string" then
        local s      = "^"
        local script
        if not lead then
            s = "^" .. start .. "/"
        end
        s = s .. "([^/]+)/(.*/?)$"
        script, s = string.match( CurrentTitle.text .. "/",  s )
        if type( script ) == "string" then
            local sub   = false
            local swift = fetch( "pageNav" )
            if type( s ) == "string" then
                if #s > 1 then
                    local q
                    s = s:match( "^([^/]+)/.*/?$" )
                    q = mw.title.makeTitle( "Module",
                                            script .. "/" .. s )
                    if q.exists and q.contentModel == "Scribunto" then
                        sub = s
                    end
                end
            end
            if type( swift ) == "string" then
                r = navMerge( start, swift, ns, nsDocs, script, sub, lead )
            else
                r = navError( "configMissing", "pageNav" )
            end
        else
            r = navError( "BadPage" ) .. CurrentTitle.text
        end
    else
        r = navError( "configMissing", "pageDocRoot" )
    end
    return r
end -- navPage()



local function navigation()
    -- Start execution; return navigation text; analyze namespace
    -- Uses:
    --     >< CurrentTitle
    --     fetch()
    --     mw.title.getCurrentTitle()
    --     navPage()
    --     navError()
    local r
    local nsDocs = fetch( "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:
    --     navigation()
    local lucky, r
    Frame = frame
    lucky, r = pcall( navigation )
    if not lucky then
        local e = mw.html.create( "span" )
                         :attr( "class", "error" )
                         :wikitext( r )
        r = tostring( e )
    end
    return r or ""
end

function p.failsafe()
    return Serial
end -- p.failsafe()

return p