Modul:TemplateData: Unterschied zwischen den Versionen

K
73 Versionen von wikivoyage:Modul:TemplateData importiert
w>PerfektesChaos
(2018-02-10)
K (73 Versionen von wikivoyage:Modul:TemplateData importiert)
 
(47 dazwischenliegende Versionen von 5 Benutzern werden nicht angezeigt)
Zeile 1: Zeile 1:
local TemplateData = { suite  = "TemplateData",
local TemplateData = { suite  = "TemplateData",
                       serial = "2018-02-10",
                       serial = "2021-07-05",
                       item  = 46997995 }
                       item  = 46997995 }
--[=[
--[==[
improve template:TemplateData
improve template:TemplateData
]=]
]==]
local Failsafe = TemplateData




Zeile 12: Zeile 13:
     basicCnf = { catProblem    = "strange",
     basicCnf = { catProblem    = "strange",
                 classNoNumTOC = "suppressTOCnum",
                 classNoNumTOC = "suppressTOCnum",
                classTable    = "classTable",
                 cssParWrap    = "cssTabWrap",
                 cssParWrap    = "cssTabWrap",
                 cssParams    = "cssTable",
                 cssParams    = "cssTable",
Zeile 28: Zeile 30:
                 helpURL      = "support4url",
                 helpURL      = "support4url",
                 helpUser      = "support4wiki-user-name",
                 helpUser      = "support4wiki-user-name",
                 msgDescMiss  = "solo" },
                 msgDescMiss  = "solo",
--  classParams    = "classTable",
                tStylesTOCnum = "stylesTOCnum" },
--  classTable    = false,    -- class for params table
    classTable    = { "wikitable" },    -- classes for params table
    debugmultilang = "C0C0C0",
     loudly        = false,    -- show exported element, etc.
     loudly        = false,    -- show exported element, etc.
     solo          = false,    -- complaint on missing description
     solo          = false,    -- complaint on missing description
Zeile 36: Zeile 39:
     cssTable      = false,    -- styles for params table
     cssTable      = false,    -- styles for params table
     cssTabWrap    = false,    -- styles for params table wrapper
     cssTabWrap    = false,    -- styles for params table wrapper
    debug         = false,
    debug         = false,
     subpage        = false,    -- pattern to identify subpage
     subpage        = false,    -- pattern to identify subpage
     suffix        = false,    -- subpage creation scheme
     suffix        = false,    -- subpage creation scheme
     suppressTOCnum = false     -- class for TOC number suppression
     suppressTOCnum = false,    -- class for TOC number suppression
    jsonDebug      = "json-code-lint"    -- class for jsonDebug tool
}
}
local Data = {
local Data = {
Zeile 45: Zeile 49:
     got    = false,    -- table, initial templatedata object
     got    = false,    -- table, initial templatedata object
     heirs  = false,    -- table, params that are inherited
     heirs  = false,    -- table, params that are inherited
    jump    = false,    -- source position at end of "params"
     less    = false,    -- main description missing
     less    = false,    -- main description missing
     lasting = false,    -- old syntax encountered
     lasting = false,    -- old syntax encountered
Zeile 53: Zeile 58:
     params  = false,    -- table, exported parameters
     params  = false,    -- table, exported parameters
     scream  = false,    -- error messages
     scream  = false,    -- error messages
     slang  = false,   -- project language code
    sibling = false,    -- TOC juxtaposed
     slang  = nil,     -- project/user language code
     slim    = false,    -- JSON reduced to plain
     slim    = false,    -- JSON reduced to plain
     source  = false,    -- JSON input
     source  = false,    -- JSON input
Zeile 62: Zeile 68:
}
}
local Permit = {
local Permit = {
    builder = { after          = "block",
                align          = "block",
                block          = "block",
                compressed      = "block",
                dense          = "block",
                grouped        = "inline",
                half            = "inline",
                indent          = "block",
                inline          = "inline",
                last            = "block",
                lead            = "block",
                newlines        = "*",
                spaced          = "inline" },
     colors  = { tableheadbg = "B3B7FF",
     colors  = { tableheadbg = "B3B7FF",
                 required    = "EAF3FF",
                 required    = "EAF3FF",
Zeile 67: Zeile 86:
                 optional    = "EAECF0",
                 optional    = "EAECF0",
                 deprecated  = "FFCBCB" },
                 deprecated  = "FFCBCB" },
     params  = { aliases     = "table",
     params  = { aliases         = "table",
                 autovalue   = "string",
                 autovalue       = "string",
                 default     = "string table I18N nowiki",
                 default         = "string table I18N nowiki",
                 deprecated = "boolean string",
                 deprecated     = "boolean string I18N",
                 description = "string table I18N",
                 description     = "string table I18N",
                 example     = "string table I18N nowiki",
                 example         = "string table I18N nowiki",
                 label       = "string table I18N",
                 label           = "string table I18N",
                 inherits   = "string",
                 inherits       = "string",
                 required   = "boolean",
                 required       = "boolean",
                 suggested   = "boolean",
                style          = "string table",
                 type       = "string" },
                 suggested       = "boolean",
                suggestedvalues = "string table number",
                 type           = "string" },
     root    = { description = "string table I18N",
     root    = { description = "string table I18N",
                 format      = "string",
                 format      = "string",
Zeile 118: Zeile 139:




local function Fetch( ask )
local function Fetch( ask, allow )
     -- Fetch module
     -- Fetch module
     -- Parameter:
     -- Parameter:
     --    ask -- string, with name
     --    ask   -- string, with name
     --                     "Multilingual"
     --                       "/global"
     --                     "Text"
    --                      "JSONutil"
     --                     "WLink"
    --                      "Multilingual"
     --                       "Text"
     --                       "WLink"
    --    allow  -- true: no error if unavailable
     -- Returns table of module
     -- Returns table of module
     -- error: Module not available
     -- error: Module not available
     local r
    local sign = ask
     local r, stem
    if sign:sub( 1, 1 ) == "/" then
        sign = TemplateData.frame:getTitle() .. sign
    else
        stem = sign
        sign = "Module:" .. stem
    end
     if TemplateData.extern then
     if TemplateData.extern then
         r = TemplateData.extern[ ask ]
         r = TemplateData.extern[ sign ]
     else
     else
         TemplateData.extern = { }
         TemplateData.extern = { }
     end
     end
     if not r then
     if not r then
         local lucky, g = pcall( require, "Module:" .. ask )
         local lucky, g = pcall( require, sign )
         if type( g ) == "table" then
         if type( g ) == "table" then
             r = g[ ask ]()
             if stem  and  type( g[ stem ] ) == "function" then
             TemplateData.extern[ ask ] = r
                r = g[ stem ]()
         else
            else
             error( string.format( "Fetch(%s) %s", ask, g ) )
                r = g
            end
             TemplateData.extern[ sign ] = r
         elseif not allow then
             error( string.format( "Fetch(%s) %s", sign, g ), 0 )
         end
         end
     end
     end
     return r
     return r
end -- Fetch()
end -- Fetch()
local function Foreign()
    -- Guess human language
    -- Returns slang, or not
    if type( Data.slang ) == "nil" then
        local Multilingual = Fetch( "Multilingual", true )
        if Multilingual  and
          type( Multilingual.userLangCode ) == "function" then
            Data.slang = Multilingual.userLangCode()
        else
            Data.slang = mw.language.getContentLanguage():getCode()
                                                        :lower()
        end
    end
    if Data.slang  and
      mw.ustring.codepoint( Data.slang, 1, 1 ) > 122 then
        Data.slang = false
    end
    return Data.slang
end -- Foreign()




Zeile 157: Zeile 214:
                                   :gsub( "([%-.()+*?^$%[%]])",
                                   :gsub( "([%-.()+*?^$%[%]])",
                                           "%%%1" ) )
                                           "%%%1" ) )
     local i, k = Data.source:find( seek, at )
     local i, k, r, slice, source
     local r, slice, source
    if not Data.jump then
        Data.jump = Data.source:find( "params", 2 )
        if Data.jump then
            Data.jump = Data.jump + 7
        else
            Data.jump = 1
        end
    end
     i, k = Data.source:find( seek, at + Data.jump )
     while i  and  not r do
     while i  and  not r do
         source = Data.source:sub( k + 1 )
         source = Data.source:sub( k + 1 )
Zeile 169: Zeile 234:
             r = k
             r = k
         else
         else
             i, k = Data.source:find( seek, k )
             i, k = Data.source:find( seek, k )
         end
         end
     end    -- while i
     end    -- while i
Zeile 182: Zeile 247:
     --    adapt  -- string, message ID after "templatedata-"
     --    adapt  -- string, message ID after "templatedata-"
     -- Returns string, with localized text
     -- Returns string, with localized text
     return mw.message.new( "templatedata-" .. adapt ):plain()
     local o = mw.message.new( "templatedata-" .. adapt )
    if Foreign() then
        o:inLanguage( Data.slang )
    end
    return o:plain()
end -- factory()
end -- factory()


Zeile 233: Zeile 302:
     --    adjust  -- string
     --    adjust  -- string
     -- Returns string, with adjusted text
     -- Returns string, with adjusted text
     local f = function ( a )
     local f   = function ( a )
                  return a:gsub( "%s*\n%s*", " " )
                    return a:gsub( "%s*\n%s*", " " )
                          :gsub( "%s%s+", " " )
                            :gsub( "%s%s+", " " )
              end
                end
    local tags = { { start = "<noexport>",
                    stop  = "</noexport>" },
                  { start = "<exportonly>",
                    stop  = "</exportonly>",
                    l    = false }
                }
    local r = adjust
    local i, j, k, s, tag
    for m = 1, 2 do
        tag = tags[ m ]
        if r:find( tag.start, 1, true ) then
            s    = r
            r    = ""
            i    = 1
            tag.l = true
            j, k  = s:find( tag.start, i, true )
            while j do
                if j > 1 then
                    r = r .. f( s:sub( i,  j - 1 ) )
                end
                i    = k + 1
                j, k = s:find( tag.stop, i, true )
                if j then
                    if m == 1 then
                        r = r .. s:sub( i,  j - 1 )
                    end
                    i    = k + 1
                    j, k = s:find( tag.start, i, true )
                else
                    Fault( "missing " .. tag.stop )
                end
            end    -- while j
            r = r .. s:sub( i )
        elseif m == 1 then
            r = f( r )
        end
    end -- for m
    if tags[ 2 ].l then
        r = r:gsub( "<exportonly>.*</exportonly>", "" )
    end
    return r
end -- fair()
 
 
 
local function fancy( advance, alert )
    -- Present JSON source
    -- Parameter:
    --    advance  -- true, for nice
    --    alert    -- true, for visible
    -- Returns string
     local r
     local r
     if adjust:find( "<noexport>", 1, true ) then
     if Data.source then
         local i    = 1
         local support = Config.jsonDebug
         local j, k = adjust:find( "<noexport>", i, true )
         local css
        r = ""
        if advance then
        while j do
            css = { height = "6em",
             if j > 1 then
                    resize = "vertical" }
                 r = r .. f( adjust:sub( i,  j - 1 ) )
            r  = { [ 1 ] = "syntaxhighlight",
                    [ 2 ] = Data.source,
                    lang  = "json",
                    style = table.concat( css, ";" ) }
             if alert then
                 r.class( support )
             end
             end
             i = k + 1
             r = TemplateData.frame:callParserFunction( "#tag", r )
            j, k = adjust:find( "</noexport>", i, true )
        else
             if j then
             css = { [ "font-size" ]  = "77%",
                r    = r .. adjust:sub( i, j - 1 )
                    [ "line-height" ] = "1.35" }
                i    = k + 1
            if alert then
                 j, k = adjust:find( "<noexport>", i, true )
                 css.resize = "vertical"
             else
             else
                 Fault( "missing </noexport>" )
                 css.display = "none"
             end
             end
         end   -- while j
            r = mw.html.create( "pre" )
         r = r .. adjust:sub( i )
                      :addClass( support )
                      :css( css )
                      :wikitext( mw.text.encode( Data.source ) )
            r = tostring( r )
         end
         r = "\n".. r
     else
     else
         r = f( adjust )
         r = ""
     end
     end
     return r
     return r
end -- fair()
end -- fancy()






local function faraway( alternatives )
local function faraway( alternatives )
     -- Retrieve project language version from multilingual text
     -- Retrieve best language version from multilingual text
     -- Parameter:
     -- Parameter:
     --    alternatives  -- table, to be evaluated
     --    alternatives  -- table, to be evaluated
Zeile 275: Zeile 405:
     local variants = { }
     local variants = { }
     local r1, r2
     local r1, r2
    if not Data.slang then
        Data.slang = mw.language.getContentLanguage():getCode()
    end
     for k, v in pairs( alternatives ) do
     for k, v in pairs( alternatives ) do
         if type( v ) == "string" then
         if type( v ) == "string" then
             v = mw.text.trim( v )
             v = mw.text.trim( v )
             if v ~= "" then
             if v ~= ""  and  type( k ) == "string" then
                k = k:lower()
                 variants[ k ] = v
                 variants[ k ] = v
                 n            = n + 1
                 n            = n + 1
Zeile 288: Zeile 416:
     end -- for k, v
     end -- for k, v
     if n > 0 then
     if n > 0 then
         for k, v in pairs( variants ) do
         local Multilingual = Fetch( "Multilingual", true )
             if v then
        if Multilingual  and
                 if n == 1 then
          type( Multilingual.i18n ) == "function" then
                    r1 = v
            local show, slang = Multilingual.i18n( variants )
                 elseif k:lower() == Data.slang then
             if show then
                    variants[ k ] = nil
                 r1 = show
                    r1 = v
                 variants[ slang ] = nil
                    r2 = variants
                r2 = variants
                    break -- for k, v
                end
             end
             end
         end -- for k, v
         end
         if not r1 then
         if not r1 then
             local seek = string.format( "^%s-", Data.slang )
             Foreign()
             for k, v in pairs( variants ) do
             for k, v in pairs( variants ) do
                 if v and k:lower():match( seek ) then
                 if n == 1 then
                    r1 = v
                elseif Data.slang == k then
                     variants[ k ] = nil
                     variants[ k ] = nil
                     r1 = v
                     r1 = v
                     r2 = variants
                     r2 = variants
                    break -- for k, v
                 end
                 end
             end -- for k, v
             end -- for k, v
            if not r1 then
                local others = mw.language.getFallbacksFor( slang )
                table.insert( others, "en" )
                for i = 1, #others do
                    seek = others[ i ]
                    if variants[ seek ] then
                        r1                  = variants[ seek ]
                        variants[ seek ] = nil
                        r2                  = variants
                        break    -- for i
                    end
                end -- i = 1, #others
            end
            if not r1 then
                for k, v in pairs( variants ) do
                    if v then
                        variants[ k ] = nil
                        r1 = v
                        r2 = variants
                        break -- for k, v
                    end
                end -- for k, v
            end
         end
         end
         if r2 then
         if r2 and Multilingual then
            local Multilingual = Fetch( "Multilingual" )
             for k, v in pairs( r2 ) do
             for k, v in pairs( r2 ) do
                 if v  and  not Multilingual.isLang( k ) then
                 if v  and  not Multilingual.isLang( k, true ) then
                     Fault( string.format( "Invalid <code>lang=%s</code>",
                     Fault( string.format( "%s <code>lang=%s</code>",
                                          "Invalid",
                                           k ) )
                                           k ) )
                 end
                 end
Zeile 346: Zeile 450:
     return r1, r2
     return r1, r2
end -- faraway()
end -- faraway()
local function fashioned( about, asked, assign )
    -- Create description head
    -- Parameter:
    --    about  -- table, supposed to contain description
    --    asked  -- true, if mandatory description
    --    assign  -- <block>, if to be equipped
    -- Returns <block>, with head, or nil
    local para = assign or mw.html.create( "div" )
    local plus, r
    if about and about.description then
        if type( about.description ) == "string" then
            para:wikitext( about.description )
        else
            para:wikitext( about.description[ 1 ] )
            plus = mw.html.create( "ul" )
            plus:css( "text-align", "left" )
            for k, v in pairs( about.description[ 2 ] ) do
                plus:node( mw.html.create( "li" )
                                  :node( mw.html.create( "code" )
                                                :wikitext( k ) )
                                  :node( mw.html.create( "br" ) )
                                  :wikitext( fair( v ) ) )
            end -- for k, v
            if Config.loudly then
                plus = mw.html.create( "div" )
                              :css( "background-color",
                                    "#" .. Config.debugmultilang )
                              :node( plus )
            else
                plus:addClass( "templatedata-maintain" )
                    :css( "display", "none" )
            end
        end
    elseif Config.solo and asked then
        para:addClass( "error" )
            :wikitext( Config.solo )
        Data.less = true
    else
        para = false
    end
    if para then
        if plus then
            r = mw.html.create( "div" )
                      :node( para )
                      :node( plus )
        else
            r = para
        end
    end
    return r
end -- fashioned()
local function fatten( access )
    -- Create table row for sub-headline
    -- Parameter:
    --    access  -- string, with name
    -- Returns <tr>
    local param    = Data.tree.params[ access ]
    local sub, sort = access:match( "(=+)%s*(%S.*)$" )
    local headline  = mw.html.create( string.format( "h%d", #sub ) )
    local r        = mw.html.create( "tr" )
    local td        = mw.html.create( "td" )
                            :attr( "colspan", "5" )
                            :attr( "data-sort-value",  "!" .. sort )
    local s
    if param.style then
        s = type( param.style )
        if s == "table" then
            td:css( param.style )
        elseif s == "string" then
            td:cssText( param.style )
        end
    end
    s = fashioned( param, false, headline )
    if s then
        headline = s
    else
        headline:wikitext( sort )
    end
    td:node( headline )
    r:node( td )
    return r
end -- fatten()




Zeile 359: Zeile 551:
     end -- for k, v
     end -- for k, v
     for i = 1, n do
     for i = 1, n do
         for k, v in pairs( Data.heirs ) do
         if Data.heirs then
            if v  and  not Data.heirs[ v ] then
            for k, v in pairs( Data.heirs ) do
                n              = n - 1
                if v  and  not Data.heirs[ v ] then
                t[ k ].inherits = nil
                    n              = n - 1
                Data.heirs[ k ] = nil
                    t[ k ].inherits = nil
                p2              = { }
                    Data.heirs[ k ] = nil
                t2              = { }
                    p2              = { }
                for k2, v2 in pairs( p[ v ] ) do
                    t2              = { }
                     p2[ k2 ] = v2
                     if p[ v ] then
                end -- for k2, v2
                        for k2, v2 in pairs( p[ v ] ) do
                if p[ k ] then
                    for k2, v2 in pairs( p[ k ] ) do
                        if type( v2 ) ~= "nil" then
                             p2[ k2 ] = v2
                             p2[ k2 ] = v2
                        end -- for k2, v2
                        if p[ k ] then
                            for k2, v2 in pairs( p[ k ] ) do
                                if type( v2 ) ~= "nil" then
                                    p2[ k2 ] = v2
                                end
                            end -- for k2, v2
                         end
                         end
                    end -- for k2, v2
                        p[ k ] = p2
                        for k2, v2 in pairs( t[ v ] ) do
                            t2[ k2 ] = v2
                        end -- for k2, v2
                        for k2, v2 in pairs( t[ k ] ) do
                            if type( v2 ) ~= "nil" then
                                t2[ k2 ] = v2
                            end
                        end -- for k2, v2
                        t[ k ] = t2
                    else
                        Fault( "No params[] inherits " .. v )
                    end
                 end
                 end
                p[ k ] = p2
            end -- for k, v
                for k2, v2 in pairs( t[ v ] ) do
         end
                    t2[ k2 ] = v2
                end -- for k2, v2
                for k2, v2 in pairs( t[ k ] ) do
                    if type( v2 ) ~= "nil" then
                        t2[ k2 ] = v2
                    end
                end -- for k2, v2
                t[ k ] = t2
            end
         end -- for k, v
     end -- i = 1, n
     end -- i = 1, n
     if n > 0 then
     if n > 0 then
Zeile 457: Zeile 655:
             end
             end
         end -- for k, v
         end -- for k, v
    end
    if type( Config.subpage ) ~= "string"  or
      type( Config.suffix ) ~= "string" then
        local got = mw.message.new( "templatedata-doc-subpage" )
        local suffix
        if got:isDisabled() then
            suffix = "doc"
        else
            suffix = got:plain()
        end
        if type( Config.subpage ) ~= "string" then
            Config.subpage = string.format( "/%s$", suffix )
        end
        if type( Config.suffix ) ~= "string" then
            Config.suffix = string.format( "%%s/%s", suffix )
        end
     end
     end
end -- favorize()
end -- favorize()
Zeile 462: Zeile 676:




local function feasible( about, asked )
local function feasible( about, at )
     -- Create description head
     -- Deal with suggestedvalues within parameter
     -- Parameter:
     -- Parameter:
     --    about  -- table, supposed to contain description
     --    about -- parameter details
     --    asked -- true, if mandatory description
    --              .suggestedvalues -- table|string|number,
     -- Returns <block>, with head, or nil
    --                                    value and possibly description
     local para = mw.html.create( "div" )
     --                                   .code  -- mandatory
     local plus, r
    --                                    .label  -- table|string
     if about and about.description then
    --                                    .icon  -- string
         if type( about.description ) == "string" then
    --                                    .class  -- table|string
            para:wikitext( about.description )
     --                                    .css    -- table
    --                                    .style -- string
    --                                    .less  -- true: suppress code
    --              .type
    --    at    -- string, with parameter name
     -- Returns
    --    1: mw.html object
    --    2: sequence table with values, or nil
     local p = about.suggestedvalues
    local s = type( p )
     local e, r1, r2, v
     if s == "table" then
         if #p > 0 then
            for i = 1, #p do
                e = p[ i ]
                s = type( e )
                if s == "table" then
                    if type( e.code ) == "string" then
                        s = mw.text.trim( e.code )
                        if s == "" then
                            e = nil
                        else
                            e.code = s
                        end
                    else
                        e = nil
                        s = string.format( "params.%s.%s[%d] %s",
                                          at,
                                          "suggestedvalues",
                                          i,
                                          "MISSING 'code:'" )
                    end
                elseif s == "string" then
                    s = mw.text.trim( e )
                    if s == "" then
                        e = nil
                        s = string.format( "params.%s.%s[%d] EMPTY",
                                          at, "suggestedvalues", i )
                        Fault( s )
                    else
                        e = { code = s }
                    end
                elseif s == "number" then
                    e = { code = tostring( e ) }
                else
                    s = string.format( "params.%s.%s[%d] INVALID",
                                      at, "suggestedvalues", i )
                    Fault( s )
                    e = false
                end
                if e then
                    v = v  or  { }
                    table.insert( v, e )
                end
            end -- for i
         else
         else
             para:wikitext( about.description[ 1 ] )
             Fault( string.format( "params.%s.suggestedvalues %s",
             plus = mw.html.create( "ul" )
                  at, "NOT AN ARRAY" ) )
             if not Config.loudly then
        end
                 plus:addClass( "templatedata-maintain" )
    elseif s == "string" then
                     :css( "display", "none" )
        s = mw.text.trim( p )
        if s ~= "" then
            v = { }
            table.insert( v,
                          { code = s } )
        end
    elseif s == "number" then
        v = { }
        table.insert( v,
                      { code = tostring( p ) } )
    end
    if v then
        local d, less, story, swift, t, u
        r1 = mw.html.create( "ul" )
        r2 = { }
        for i = 1, #v do
            u = mw.html.create( "li" )
            e = v[ i ]
            table.insert( r2, e.code )
            story = false
            less  = ( e.less == true )
            if not less then
                swift = e.code
                if e.support then
                    local scream, support
                    s = type( e.support )
                    if s == "string" then
                        support = e.support
                    elseif s == "table" then
                        support = faraway( e.support )
                    else
                        scream = "INVALID"
                    end
                    if support then
                        s = mw.text.trim( support )
                        if s == "" then
                            scream = "EMPTY"
                        elseif s:find( "[%[%]|%<%>]" ) then
                            scream = "BAD PAGE"
                        else
                            support = s
                        end
                    end
                    if scream then
                        s = string.format( "params.%s.%s[%d].support %s",
                                          at,
                                          "suggestedvalues",
                                          i,
                                          scream )
                        Fault( s )
                    else
                        swift = string.format( "[[:%s|%s]]",
                                              support, swift )
                    end
                end
                if about.type:sub( 1, 5 ) == "wiki-"  and
                  swift == e.code then
                    local rooms = { file = 6,
                                    temp = 10,
                                    user = 2 }
                    local ns = rooms[ about.type:sub( 6, 9 ) ]  or  0
                    t = mw.title.makeTitle( ns, swift )
                    if t and t.exists then
                        swift = string.format( "[[:%s|%s]]",
                                              t.prefixedText, swift )
                    end
                end
                u:node( mw.html.create( "code" )
                              :css( "white-space", "nowrap" )
                              :wikitext( swift ) )
            end
            if e.class then
                s = type( e.class )
                if s == "string" then
                    u:addClass( e.class )
                elseif s == "table" then
                    for k, s in pairs( e.class ) do
                        u:addClass( s )
                    end -- for k, s
                else
                    s = string.format( "params.%s.%s[%d].class INVALID",
                                      at, "suggestedvalues", i )
                    Fault( s )
                end
            end
            if e.css then
                if type( e.css ) == "table" then
                    u:css( e.css )
                else
                    s = string.format( "params.%s.%s[%d].css INVALID",
                                      at, "suggestedvalues", i )
                    Fault( s )
                end
            end
            if e.style then
                if type( e.style ) == "string" then
                    u:cssText( e.style )
                else
                    s = string.format( "params.%s.%s[%d].style INVALID",
                                      at, "suggestedvalues", i )
                    Fault( s )
                end
            end
            if about.type == "wiki-file-name"  and  not e.icon then
                e.icon = e.code
            end
            if e.label then
                s = type( e.label )
                if s == "string" then
                    s = mw.text.trim( e.label )
                    if s == "" then
                        s = string.format( "params.%s.%s[%d].label %s",
                                          at,
                                          "suggestedvalues",
                                          i,
                                          "EMPTY" )
                        Fault( s )
                    else
                        story = s
                    end
                elseif s == "table" then
                    story = faraway( e.label )
                else
                    s = string.format( "params.%s.%s[%d].label INVALID",
                                      at, "suggestedvalues", i )
                    Fault( s )
                end
            end
             s = false
            if type( e.icon ) == "string" then
                t = mw.title.makeTitle( 6, e.icon )
                if t and t.file.exists then
                    local g = mw.html.create( "span" )
                    s = string.format( "[[%s|16px]]", t.prefixedText )
                    g:attr( "role", "presentation" )
                    :wikitext( s )
                    s = tostring( g )
                end
            end
            if not s  and  not less  and  e.label then
                s = mw.ustring.char( 0x2013 )
            end
             if s then
                d = mw.html.create( "span" )
                          :wikitext( s )
                if TemplateData.ltr then
                    if not less then
                        d:css( "margin-left", "0.5em" )
                    end
                    if story then
                        d:css( "margin-right", "0.5em" )
                    end
                 else
                    if not less then
                        d:css( "margin-right", "0.5em" )
                     end
                    if story then
                        d:css( "margin-left", "0.5em" )
                    end
                end
                u:node( d )
            end
            if story then
                u:wikitext( story )
             end
             end
             for k, v in pairs( about.description[ 2 ] ) do
             r1:newline()
                plus:node( mw.html.create( "li" )
              :node( u )
                                  :node( mw.html.create( "code" )
        end -- for i
                                                :wikitext( k ) )
                                  :node( mw.html.create( "br" ) )
                                  :wikitext( fair( v ) ) )
            end -- for k, v
        end
    elseif Config.solo and asked then
        para:addClass( "error" )
            :wikitext( Config.solo )
        Data.less = true
    else
        para = false
     end
     end
     if para then
     if not r1 then
         if plus then
         Fault( string.format( "params.%s.suggestedvalues INVALID", at ) )
            r = mw.html.create( "div" )
        r1 = mw.html.create( "code" )
                      :node( para )
                    :addClass( "error" )
                      :node( plus )
                    :wikitext( "INVALID" )
        else
            r = para
        end
     end
     end
     return r
     return r1, r2
end -- feasible()
end -- feasible()


Zeile 527: Zeile 944:
             local pointers = { }
             local pointers = { }
             local points  = { }
             local points  = { }
            local given    = { }
             for k, v in pairs( Data.tree.params ) do
             for k, v in pairs( Data.tree.params ) do
                 i = facet( k, 1 )
                 i = facet( k, 1 )
                if type( v ) == "table" then
                    if type( v.label ) == "string" then
                        s = mw.text.trim( v.label )
                        if s == "" then
                            s = k
                        end
                    else
                        s = k
                    end
                    if given[ s ] then
                        if given[ s ] == 1 then
                            local scream = "Parameter label '%s' detected multiple times"
                            Fault( string.format( scream, s ) )
                            given[ s ] = 2
                        end
                    else
                        given[ s ] = 1
                    end
                end
                 if i then
                 if i then
                     table.insert( points, i )
                     table.insert( points, i )
Zeile 570: Zeile 1.007:
     local code    = mw.html.create( "code" )
     local code    = mw.html.create( "code" )
     local desc    = mw.html.create( "td" )
     local desc    = mw.html.create( "td" )
    local eager  = mw.html.create( "td" )
     local legal  = true
     local legal  = true
     local param  = Data.tree.params[ access ]
     local param  = Data.tree.params[ access ]
     local ranking = { "required", "suggested", "optional", "deprecated" }
     local ranking = { "required", "suggested", "optional", "deprecated" }
     local r      = mw.html.create( "tr" )
     local r      = mw.html.create( "tr" )
    local styles  = "mw-templatedata-doc-param-"
     local sort, typed
     local sort, typed


Zeile 602: Zeile 1.041:
     end
     end
     code = mw.html.create( "td" )
     code = mw.html.create( "td" )
                  :addClass( styles .. "name" )
                   :node( code )
                   :node( code )
     if access:match( "^%d+$" ) then
     if access:match( "^%d+$" ) then
Zeile 608: Zeile 1.048:
     end
     end
     if type( param.aliases ) == "table" then
     if type( param.aliases ) == "table" then
         local lapsus
         local lapsus, syn
         for k, v in pairs( param.aliases ) do
         for k, v in pairs( param.aliases ) do
             code:tag( "br" )
             code:tag( "br" )
Zeile 618: Zeile 1.058:
                                       :css( "font-style", "italic" )
                                       :css( "font-style", "italic" )
                                       :wikitext( "string" ) )
                                       :wikitext( "string" ) )
                        :wikitext( s )
                else
                    syn = mw.html.create( "span" )
                                :addClass( styles .. "alias" )
                                :css( "white-space", "nowrap" )
                                :wikitext( s )
                    code:node( syn )
                 end
                 end
                code:wikitext( s )
             else
             else
                 lapsus = true
                 lapsus = true
Zeile 635: Zeile 1.081:


     -- description etc.
     -- description etc.
     s = feasible( param )
     s = fashioned( param )
     if s then
     if s then
         desc:node( s )
         desc:node( s )
     end
     end
     if param.default or param.example or param.autovalue then
     if param.style then
         local details = { "default", "example", "autovalue" }
        s = type( param.style )
        if s == "table" then
            desc:css( param.style )
        elseif s == "string" then
            desc:cssText( param.style )
        end
    end
    if param.suggestedvalues or
      param.default or
      param.example or
      param.autovalue then
         local details = { "suggestedvalues",
                          "default",
                          "example",
                          "autovalue" }
         local dl      = mw.html.create( "dl" )
         local dl      = mw.html.create( "dl" )
         local dd, section, show
         local dd, section, show
Zeile 659: Zeile 1.119:
                     if type( boole.show ) == "string" then
                     if type( boole.show ) == "string" then
                         local v = mw.html.create( "span" )
                         local v = mw.html.create( "span" )
                                        :attr( "aria-hidden", "true" )
                                         :wikitext( boole.show )
                                         :wikitext( boole.show )
                         if boole.css then
                         if boole.css then
Zeile 673: Zeile 1.134:
                                         :wikitext( show ) )
                                         :wikitext( show ) )
                     end
                     end
                elseif s == "suggestedvalues" then
                    local html, values = feasible( param, access )
                    dd:newline()
                      :node( html )
                    Data.params[ access ].suggestedvalues = values
                 else
                 else
                     dd:wikitext( show )
                     dd:wikitext( show )
Zeile 685: Zeile 1.151:


     -- type
     -- type
    if type( param.type ) == "string" then
        param.type = mw.text.trim( param.type )
        if param.type == "" then
            param.type = false
        end
    end
     if param.type then
     if param.type then
         s    = Permit.types[ param.type ]
         s    = Permit.types[ param.type ]
         typed = mw.html.create( "td" )
         typed = mw.html.create( "td" )
                  :addClass( styles .. "type" )
         if s then
         if s then
             if s == "string" then
             if s == "string" then
Zeile 716: Zeile 1.189:
         typed = mw.html.create( "td" )
         typed = mw.html.create( "td" )
                   :wikitext( factory( "doc-param-type-unknown" ) )
                   :wikitext( factory( "doc-param-type-unknown" ) )
        Data.params[ access ].type = "unknown"
        if param.default then
            Data.params[ access ].default = nil
            Fault( "Default value requires <code>type</code>" )
            legal = false
        end
     end
     end
     -- status
     -- status
     if param.required then
     if param.required then
         mode = 1
         mode = 1
        if param.autovalue then
            Fault( string.format( "autovalued <code>%s</code> required",
                                  access ) )
            legal = false
        end
        if param.default then
            Fault( string.format( "Defaulted <code>%s</code> required",
                                  access ) )
            legal = false
        end
         if param.deprecated then
         if param.deprecated then
             Fault( string.format( "Required deprecated <code>%s</code>",
             Fault( string.format( "Required deprecated <code>%s</code>",
Zeile 742: Zeile 1.230:
             ranking:tag( "br" )
             ranking:tag( "br" )
             ranking:wikitext( param.deprecated )
             ranking:wikitext( param.deprecated )
        end
        if param.suggested  and  mode == 4 then
            s = string.format( "Suggesting deprecated <code>%s</code>",
                              access )
            Fault( s )
            legal = false
         end
         end
     end
     end
    eager:attr( "data-sort-value", tostring( mode ) )
                :node( ranking )
                :addClass( string.format( "%sstatus-%s",
                                          styles, status ) )


     -- <tr>
     -- <tr>
     r:attr( "id",  "templatedata:" .. mw.uri.anchorEncode( access ) )
     r:attr( "id",  "templatedata:" .. mw.uri.anchorEncode( access ) )
     :css( Permit.css[ status ] )
     :css( Permit.css[ status ] )
    :addClass( styles .. status )
     :node( begin )
     :node( begin )
     :node( code )
     :node( code )
     :node( desc )
     :node( desc )
     :node( typed )
     :node( typed )
     :node( mw.html.create( "td" )
     :node( eager )
                  :attr( "data-sort-value", tostring( mode ) )
                  :node( ranking ) )
     :newline()
     :newline()
     if not legal then
     if not legal then
Zeile 769: Zeile 1.266:
     local r
     local r
     if Data.tree and Data.tree.params then
     if Data.tree and Data.tree.params then
         local tbl   = mw.html.create( "table" )
         local tbl = mw.html.create( "table" )
                            :addClass( "wikitable" )
         local tr = mw.html.create( "tr" )
         local tr   = mw.html.create( "tr" )
         feat()
         feat()
         if Data.order  and  #Data.order > 1 then
         if Data.order  and  #Data.order > 1 then
             tbl:addClass( "sortable" )
             tbl:addClass( "sortable" )
         end
         end
--      if Config.classTable then
        if type( Config.classTable ) == "table" then
--          tbl:addClass( Config.classTable )
             for k, v in pairs( Config.classTable ) do
--      end
                 tbl:addClass( v )
        if Config.cssTable then
             end -- for k, v
             if type( Config.cssTable ) == "table" then
        end
                 tbl:css( Config.cssTable )
        if type( Config.cssTable ) == "table" then
             elseif type( Config.cssTable ) == "string" then
            tbl:css( Config.cssTable )
                -- deprecated
                tbl:cssText( Config.cssTable )
            end
         end
         end
         tr:node( mw.html.create( "th" )
         tr:node( mw.html.create( "th" )
Zeile 806: Zeile 1.299:
           :newline()
           :newline()
         if Data.order then
         if Data.order then
            local leave, s
             for i = 1, #Data.order do
             for i = 1, #Data.order do
                 tbl:node( feature( Data.order[ i ] ) )
                 s = Data.order[ i ]
                if s:sub( 1, 1 ) == "=" then
                    leave = true
                    tbl:node( fatten( s ) )
                    Data.order[ i ] = false
                elseif s:match( "[=|]" ) then
                    Fault( string.format( "Bad param <code>%s</code>",
                                          s ) )
                else
                    tbl:node( feature( s ) )
                end
             end -- for i = 1, #Data.order
             end -- for i = 1, #Data.order
            if leave then
                for i = #Data.order, 1, -1 do
                    if not Data.order[ i ] then
                        table.remove( Data.order, i )
                    end
                end -- for i = #Data.order, 1, -1
            end
            Data.tag.paramOrder = Data.order
         end
         end
         if Config.cssTabWrap then
         if Config.cssTabWrap or Data.scroll then
             r = mw.html.create( "div" )
             r = mw.html.create( "div" )
             if type( Config.cssTabWrap ) == "table" then
             if type( Config.cssTabWrap ) == "table" then
Zeile 817: Zeile 1.329:
                 -- deprecated
                 -- deprecated
                 r:cssText( Config.cssTabWrap )
                 r:cssText( Config.cssTabWrap )
            end
            if Data.scroll then
                r:css( "height",  Data.scroll )
                :css( "overflow", "auto" )
             end
             end
             r:node( tbl )
             r:node( tbl )
Zeile 828: Zeile 1.344:




local function finalize()
local function fellow( any, assigned, at )
    -- Check sets[] parameter and issue error message, if necessary
    -- Parameter:
    --    any      -- should be number
    --    assigned  -- parameter name
    --    at        -- number, of set
    local s
    if type( any ) ~= "number" then
        s = "<code>sets[%d].params[%s]</code>??"
        Fault( string.format( s,
                              at,
                              mw.text.nowiki( tostring( any ) ) ) )
    elseif type( assigned ) == "string" then
        if not Data.got.params[ assigned ] then
            s = "<code>sets[%d].params %s</code> is undefined"
            Fault( string.format( s, at, assigned ) )
        end
    else
        s = "<code>sets[%d].params[%d] = %s</code>??"
        Fault( string.format( s,  k,  type( assigned ) ) )
    end
end -- fellow()
 
 
 
local function fellows()
    -- Check sets[] and issue error message, if necessary
    local s
    if type( Data.got.sets ) == "table" then
        if type( Data.got.params ) == "table" then
            for k, v in pairs( Data.got.sets ) do
                if type( k ) == "number" then
                    if type( v ) == "table" then
                        for ek, ev in pairs( v ) do
                            if ek == "label" then
                                s = type( ev )
                                if s ~= "string"  and
                                  s ~= "table" then
                                    s = "<code>sets[%d].label</code>??"
                                    Fault( string.format( s, k ) )
                                end
                            elseif ek == "params"  and
                                type( ev ) == "table" then
                                for pk, pv in pairs( ev ) do
                                    fellow( pk, pv, k )
                                end -- for pk, pv
                            else
                                ek = mw.text.nowiki( tostring( ek ) )
                                s  = "<code>sets[%d][%s]</code>??"
                                Fault( string.format( s, k, ek ) )
                            end
                        end -- for ek, ev
                    else
                        k = mw.text.nowiki( tostring( k ) )
                        v = mw.text.nowiki( tostring( v ) )
                        s = string.format( "<code>sets[%s][%s]</code>??",
                                          k, v )
                        Fault( s )
                    end
                else
                    k = mw.text.nowiki( tostring( k ) )
                    s = string.format( "<code>sets[%s]</code> ?????", k )
                    Fault( s )
                end
            end -- for k, v
        else
            s = "<code>params</code> required for <code>sets</code>"
            Fault( s )
        end
    else
        s = "<code>sets</code> needs to be of <code>object</code> type"
        Fault( s )
    end
end -- fellows()
 
 
 
local function finalize( advance )
     -- Wrap presentation into frame
     -- Wrap presentation into frame
    -- Parameter:
    --    advance  -- true, for nice
     -- Returns string
     -- Returns string
     local r
     local r, lapsus
     if Data.div then
     if Data.div then
         r = tostring( Data.div )
         r = tostring( Data.div )
Zeile 837: Zeile 1.432:
         r = Data.strip
         r = Data.strip
     else
     else
         r = ""
         lapsus = true
        r      = ""
    end
    r = r .. failures()
    if Data.source then
        local live = ( advance or lapsus )
        if not live then
            live = TemplateData.frame:preprocess( "{{REVISIONID}}" )
            live = ( live == "" )
        end
        if live then
            r = r .. fancy( advance, lapsus )
        end
     end
     end
     return r .. failures()
     return r
end -- finalize()
end -- finalize()


Zeile 862: Zeile 1.469:


local function flat( adjust )
local function flat( adjust )
     -- Remove formatting from text string
     -- Remove formatting from text string for VE
     -- Parameter:
     -- Parameter:
     --    arglist  -- string, to be stripped, or nil
     --    arglist  -- string, to be stripped, or nil
Zeile 870: Zeile 1.477:
         r = adjust:gsub( "\n", " " )
         r = adjust:gsub( "\n", " " )
         if r:find( "<noexport>", 1, true ) then
         if r:find( "<noexport>", 1, true ) then
             r = r:gsub( "<noexport>(.*)</noexport>", "" )
             r = r:gsub( "<noexport>.*</noexport>", "" )
        end
        if r:find( "<exportonly>", 1, true ) then
            r = r:gsub( "</?exportonly>", "" )
         end
         end
         if r:find( "''", 1, true ) then
         if r:find( "''", 1, true ) then
Zeile 877: Zeile 1.487:
         if r:find( "<", 1, true ) then
         if r:find( "<", 1, true ) then
             local Text = Fetch( "Text" )
             local Text = Fetch( "Text" )
             r = Text.getPlain( r )
             r = Text.getPlain( r:gsub( "<br */?>", "\r\n" ) )
         end
         end
         if r:find( "[", 1, true ) then
         if r:find( "[", 1, true ) then
Zeile 888: Zeile 1.498:
         if r:find( "&", 1, true ) then
         if r:find( "&", 1, true ) then
             r = mw.text.decode( r )
             r = mw.text.decode( r )
            if r:find( "&shy;", 1, true ) then
                r = r:gsub( "&shy;", "" )
            end
         end
         end
     end
     end
Zeile 962: Zeile 1.575:
             if scope then
             if scope then
                 s = type( v )
                 s = type( v )
                 if s == "string" then
                 if s == "string"  and  k ~= "format" then
                     v = mw.text.trim( v )
                     v = mw.text.trim( v )
                 end
                 end
Zeile 969: Zeile 1.582:
                         if s == "string" then
                         if s == "string" then
                             elem = fair( v )
                             elem = fair( v )
                         else
                         elseif s == "table" then
                             local translated
                             local translated
                             v, translated = faraway( v )
                             v, translated = faraway( v )
Zeile 984: Zeile 1.597:
                             end
                             end
                         end
                         end
                         if v then
                         if type( v ) == "string" then
                             if scope:find( "nowiki", 1, true ) then
                             if k == "deprecated" then
                                if v == "1" then
                                    v = true
                                elseif v == "0" then
                                    v = false
                                end
                                elem = v
                            elseif scope:find( "nowiki", 1, true ) then
                                 elem = mw.text.nowiki( v )
                                 elem = mw.text.nowiki( v )
                                elem = elem:gsub( "&#13;\n", "<br>" )
                                v    = v:gsub( string.char( 13 ),  "" )
                             else
                             else
                                 v = flat( v )
                                 v = flat( v )
                            end
                        elseif s == "boolean" then
                            if scope:find( "boolean", 1, true ) then
                                elem = v
                            else
                                s = "Type <code>boolean</code> bad for "
                                    .. f( k, slot )
                                Fault( s )
                             end
                             end
                         end
                         end
Zeile 996: Zeile 1.626:
                             elem = nil
                             elem = nil
                         elseif k == "format"  and  not access then
                         elseif k == "format"  and  not access then
                             v    = mw.text.decode( v )
                             elem = mw.text.decode( v )
                             elem = v
                             v    = nil
                         elseif k == "inherits" then
                         elseif k == "inherits" then
                             elem = v
                             elem = v
Zeile 1.005: Zeile 1.635:
                             Data.heirs[ slot ] = v
                             Data.heirs[ slot ] = v
                             v                  = nil
                             v                  = nil
                        elseif k == "style" then
                            elem = v
                            v    = nil
                         elseif s == "string" then
                         elseif s == "string" then
                             v    = mw.text.nowiki( v )
                             v    = mw.text.nowiki( v )
Zeile 1.014: Zeile 1.647:
                     if type( elem ) ~= "nil" then
                     if type( elem ) ~= "nil" then
                         if not target then
                         if not target then
                            if access then
                            if access then
                                if not Data.tree.params then
                                if not Data.tree.params then
                                    Data.tree.params = { }
                                    Data.tree.params = { }
                                end
                                end
                                Data.tree.params[ slot ] = { }
                                Data.tree.params[ slot ] = { }
                                target = Data.tree.params[ slot ]
                                target = Data.tree.params[ slot ]
                            else
                            else
                                Data.tree = { }
                                Data.tree = { }
                                target    = Data.tree
                                target    = Data.tree
                            end
                            end
                         end
                         end
                         target[ k ] = elem
                         target[ k ] = elem
Zeile 1.031: Zeile 1.664:
                         if not tag then
                         if not tag then
                             if access then
                             if access then
                                 if not Data.params then
                                 if type( v ) == "string"  and
                                     Data.params = { }
                                  v.sub( 1, 1 ) == "=" then
                                    v = nil
                                else
                                    if not Data.params then
                                        Data.params = { }
                                    end
                                     Data.params[ slot ] = { }
                                    tag = Data.params[ slot ]
                                 end
                                 end
                                Data.params[ slot ] = { }
                                tag = Data.params[ slot ]
                             else
                             else
                                 Data.tag = { }
                                 Data.tag = { }
Zeile 1.041: Zeile 1.679:
                             end
                             end
                         end
                         end
                         tag[ k ] = v
                         if type( v ) ~= "nil"  and
                          k ~= "suggestedvalues" then
                            tag[ k ] = v
                        end
                     end
                     end
                 else
                 else
Zeile 1.052: Zeile 1.693:
             end
             end
         end -- for k, v
         end -- for k, v
        if not access  and Data.got.sets then
            fellows()
        end
     else
     else
         Fault( f() .. " needs to be of <code>object</code> type" )
         Fault( f() .. " needs to be of <code>object</code> type" )
Zeile 1.060: Zeile 1.704:


local function format()
local function format()
    -- Build formatted element
    -- Returns <inline>
    local source = Data.tree.format:lower()
    local r, s
    if source == "inline"  or  source == "block" then
        r = mw.html.create( "i" )
                  :wikitext( source )
    else
        local code
        if source:find( "|", 1, true ) then
            local scan = "^[\n ]*%{%{[\n _]*|[\n _]*=[\n _]*%}%}[\n ]*$"
            if source:match( scan ) then
                code = source:gsub( "\n", "N" )
            else
                s = mw.text.nowiki( source ):gsub( "\n", "&#92;n" )
                s = tostring( mw.html.create( "code" )
                                    :wikitext( s ) )
                Fault( "Invalid format " .. s )
                source = false
            end
        else
            local words = mw.text.split( source, "%s+" )
            local show, start, support, unknown
            for i = 1, #words do
                s = words[ i ]
                if i == 1 then
                    start = s
                end
                support = Permit.builder[ s ]
                if support == start  or
                  support == "*" then
                    Permit.builder[ s ] = true
                elseif s:match( "^[1-9]%d?" ) and
                      Permit.builder.align then
                    Permit.builder.align = tonumber( s )
                else
                    if unknown then
                        unknown = string.format( "%s %s", unknown, s )
                    else
                        unknown = s
                    end
                end
            end -- i = 1, #words
            if unknown then
                s = tostring( mw.html.create( "code" )
                                    :css( "white-space", "nowrap" )
                                    :wikitext( s ) )
                Fault( "Unknown/misplaced format keyword " .. s )
                source = false
                start  = false
            end
            if start == "inline" then
                if Permit.builder.half == true then
                    show = "inline half"
                    code = "{{_ |_=_}}"
                elseif Permit.builder.grouped == true then
                    show = "inline grouped"
                    code = "{{_ | _=_}}"
                elseif Permit.builder.spaced == true then
                    show = "inline spaced"
                    code = "{{_ | _ = _ }}"
                end
                if Permit.builder.newlines == true then
                    show = show or "inline"
                    code = code or "{{_|_=_}}"
                    show = show .. " newlines"
                    code = string.format( "N%sN", code )
                end
            elseif start == "block" then
                local space  = ""    -- amid "|" and name
                local spaced = " "    -- preceding "="
                local spacer = " "    -- following "="
                local suffix = "N"    -- closing "}}" on new line
                show = "block"
                if Permit.builder.indent == true then
                    start = " "
                    show = "block indent"
                else
                    start = ""
                end
                if Permit.builder.compressed == true then
                    spaced = ""
                    spacer = ""
                    show  = show .. " compressed"
                    if Permit.builder.last == true then
                        show = show .. " last"
                    else
                        suffix = ""
                    end
                else
                    if Permit.builder.lead == true then
                        show  = show .. " lead"
                        space = " "
                    end
                    if type( Permit.builder.align ) ~= "string" then
                        local n
                        s = " align"
                        if Permit.builder.align == true then
                            n = 0
                            if type( Data.got ) == "table"  and
                              type( Data.got.params ) == "table" then
                                for k, v in pairs( Data.got.params ) do
                                    if type( v ) == "table"  and
                                      not v.deprecated  and
                                      type( k ) == "string" then
                                        k = mw.ustring.len( k )
                                        if k > n then
                                            n = k
                                        end
                                    end
                                end -- for k, v
                            end
                        else
                            n = Permit.builder.align
                            if type( n ) == "number"  and  n > 1 then
                                s = string.format( "%s %d", s, n )
                            else
                                n = 0    -- How comes?
                            end
                        end
                        if n > 1 then
                            spaced = string.rep( "_",  n - 1 )  ..  " "
                        end
                        show = show .. s
                    elseif Permit.builder.after == true then
                        spaced = ""
                        show  = show .. " after"
                    elseif Permit.builder.dense == true then
                        spaced = ""
                        spacer = ""
                        show  = show .. " dense"
                    end
                    if Permit.builder.last == true then
                        suffix = spacer
                        show  = show .. " last"
                    end
                end
                code = string.format( "N{{_N%s|%s_%s=%s_%s}}N",
                                      start,
                                      space,
                                      spaced,
                                      spacer,
                                      suffix )
                if show == "block" then
                    show = "block newlines"
                end
            end
            if show then
                r = mw.html.create( "span" )
                          :wikitext( show )
            end
        end
        if code then
            source = code:gsub( "N", "\n" )
            code  = mw.text.nowiki( code ):gsub( "N", "&#92;n" )
            code  = mw.html.create( "code" )
                            :css( "margin-left",  "1em" )
                            :css( "margin-right", "1em" )
                            :wikitext( code )
            if r then
                r = mw.html.create( "span" )
                          :node( r )
                          :node( code )
            else
                r = code
            end
        end
    end
    if source and Data.tag then
        Data.tag.format = source
    end
    return r
end -- format()
local function formatter()
     -- Build presented documentation
     -- Build presented documentation
     -- Returns <div>
     -- Returns <div>
     local r = mw.html.create( "div" )
     local r = mw.html.create( "div" )
     local s = feasible( Data.tree, true )
     local x = fashioned( Data.tree, true, r )
     if s then
    local s
         r:node( s )
     if x then
         r = x
     end
     end
     if Data.leading then
     if Data.leading then
         local toc = mw.html.create( "div" )
         local toc = mw.html.create( "div" )
        local shift
         if Config.suppressTOCnum then
         if Config.suppressTOCnum then
             toc:addClass( Config.suppressTOCnum )
             toc:addClass( Config.suppressTOCnum )
            if type( Config.stylesTOCnum ) == "string" then
                local src = Config.stylesTOCnum .. "/styles.css"
                s = TemplateData.frame:extensionTag( "templatestyles",
                                                    nil,
                                                    { src = src } )
                r:newline()
                :node( s )
            end
         end
         end
         toc:css( "margin-top", "0.5em" )
         toc:css( "margin-top", "0.5em" )
           :wikitext( "__TOC__" )
           :wikitext( "__TOC__" )
        if Data.sibling then
            local block = mw.html.create( "div" )
            if TemplateData.ltr then
                shift = "right"
            else
                shift = "left"
            end
            block:css( "float", shift )
                :wikitext( Data.sibling )
            r:newline()
            :node( block )
            :newline()
        end
         r:newline()
         r:newline()
         :node( toc )
         :node( toc )
         :newline()
         :newline()
        if shift then
            r:node( mw.html.create( "div" )
                          :css( "clear", shift ) )
            :newline()
        end
     end
     end
     s = features()
     s = features()
     if s then
     if s then
         if Data.leading then
         if Data.leading then
             r:node( mw.html.create( "h2" )
             r:node( mw.html.create( "h" .. Config.nested )
                           :wikitext( factory( "doc-params" ) ) )
                           :wikitext( factory( "doc-params" ) ) )
             :newline()
             :newline()
Zeile 1.087: Zeile 1.936:
         r:node( s )
         r:node( s )
     end
     end
     if Data.tree and Data.tree.format then
     if Data.shared then
         local e, show, style
         local global = mw.html.create( "div" )
        s = Data.tree.format:lower( Data.tree.format )
                              :attr( "id", "templatedata-global" )
        if s == "inline" or  s == "block" then
        local shift
             style = "i"
        if TemplateData.ltr then
             shift = "right"
         else
         else
             s    = mw.text.encode( s ):gsub( "\n", "&#92;n" )
             shift = "left"
            style = "code"
            --  TODO  Validate
         end
         end
mw.log(s)
        global:css( "float", shift )
         show = "Format"
              :wikitext( string.format( "[[%s|%s]]",
        if Config.supportFormat then
                                        Data.shared, "Global" ) )
            show = string.format( "[[%s|%s]]",
        r:newline()
                                  Config.supportFormat, show )
        :node( global )
    end
    if Data.tree and Data.tree.format then
        local e = format()
         if e then
            local show = "Format"
            if Config.supportFormat then
                show = string.format( "[[%s|%s]]",
                                      Config.supportFormat, show )
            end
            r:node( mw.html.create( "p" )
                          :wikitext( show .. ": " )
                          :node( e ) )
         end
         end
        r:node( mw.html.create( "p" )
                      :wikitext( show .. ": " )
                      :node( mw.html.create( style )
                                    :wikitext( s ) ) )
     end
     end
     return r
     return r
end -- format()
end -- formatter()




Zeile 1.115: Zeile 1.971:
local function free()
local function free()
     -- Remove JSON comment lines
     -- Remove JSON comment lines
     Data.source:gsub( "([{,\"'])(%s*\n%s*//.*\n%s*)([},\"'])",
     if Data.source:find( "//", 1, true ) then
                      "%1%3" )
        Data.source:gsub( "([{,\"'])(%s*\n%s*//.*\n%s*)([{},\"'])",
                          "%1%3" )
    end
end -- free()
end -- free()


Zeile 1.136: Zeile 1.994:
         end
         end
     end
     end
     Data.div:node( format() )
     Data.div:node( formatter() )
     if not Data.lazy then
     if not Data.lazy then
         Data.slim = flush()
         Data.slim = flush()
Zeile 1.147: Zeile 2.005:
             div:wikitext( Data.strip )
             div:wikitext( Data.strip )
             if Config.loudly then
             if Config.loudly then
                 Data.div:node( mw.html.create( "hr" ) )
                 Data.div:node( mw.html.create( "hr" )
                                      :css( { height = "7ex" } ) )
             else
             else
                 div:css( "display", "none" )
                 div:css( "display", "none" )
Zeile 1.153: Zeile 2.012:
             Data.div:node( div )
             Data.div:node( div )
         end
         end
    end
    if Data.lasting then
        Fault( "deprecated type syntax" )
    end
    if Data.less then
        Fault( Config.solo )
     end
     end
end -- full()
end -- full()
Zeile 1.164: Zeile 2.029:
     --    arglist  -- table, template parameters
     --    arglist  -- table, template parameters
     -- Returns string
     -- Returns string
--local spy=""
     local source
     local source
     favorize()
     favorize()
Zeile 1.173: Zeile 2.037:
         end
         end
     end -- for k, v
     end -- for k, v
    if arglist.heading  and  arglist.heading:match( "^[3-6]$" ) then
        Config.nested = arglist.heading
    else
        Config.nested = "2"
    end
     Config.loudly = faculty( arglist.debug or adapt.debug )
     Config.loudly = faculty( arglist.debug or adapt.debug )
--if mw.site.server:find( "//de.wikipedia.beta.wmflabs.org", 1, true ) then
--    Config.loudly  = true
--end
     Data.lazy    = faculty( arglist.lazy )  and  not Config.loudly
     Data.lazy    = faculty( arglist.lazy )  and  not Config.loudly
     Data.leading  = faculty( arglist.TOC )
     Data.leading  = faculty( arglist.TOC )
    if Data.leading and arglist.TOCsibling then
        Data.sibling = mw.text.trim( arglist.TOCsibling )
    end
    if arglist.lang then
        Data.slang = arglist.lang:lower()
    elseif adapt.lang then
        Data.slang = adapt.lang:lower()
    end
     if arglist.JSON then
     if arglist.JSON then
         source = arglist.JSON
         source = arglist.JSON
    elseif arglist.Global then
        source = TemplateData.getGlobalJSON( arglist.Global,
                                            arglist.Local )
     elseif arglist[ 1 ] then
     elseif arglist[ 1 ] then
         local s    = mw.text.trim( arglist[ 1 ] )
         local s    = mw.text.trim( arglist[ 1 ] )
Zeile 1.192: Zeile 2.069:
             Data.strip = s
             Data.strip = s
         end
         end
    end
    if type( arglist.vertical ) == "string"  and
      arglist.vertical:match( "^%d*%.?%d+[emprx]+$" ) then
        Data.scroll = arglist.vertical
     end
     end
     if not source then
     if not source then
Zeile 1.197: Zeile 2.078:
         source = find()
         source = find()
         if not source  and
         if not source  and
          Config.subpage  and  Config.suffix  and
           not Data.title.text:match( Config.subpage ) then
           not Data.title.text:match( Config.subpage ) then
             local s = string.format( Config.suffix,
             local s = string.format( Config.suffix,
Zeile 1.206: Zeile 2.086:
             end
             end
         end
         end
--if source  and
--          ( source:find( "|", 1, true ) or
--            source:find( "}}", 1, true ) ) then
--                      --  <ref
--spy=string.format( "[[category:%s]]", Config.strange )
--end
     end
     end
     if not Data.lazy and  Config.subpage then
     if not Data.lazy then
         if not Data.title then
         if not Data.title then
             Data.title = mw.title.getCurrentTitle()
             Data.title = mw.title.getCurrentTitle()
Zeile 1.219: Zeile 2.093:
         Data.lazy = Data.title.text:match( Config.subpage )
         Data.lazy = Data.title.text:match( Config.subpage )
     end
     end
     TemplateData.getPlainJSON( source )
     if type( source ) == "string" then
     return finalize()
        TemplateData.getPlainJSON( source )
--return spy .. finalize()
    end
     return finalize( faculty( arglist.source ) )
end -- furnish()
end -- furnish()






TemplateData.failsafe = function ( assert )
Failsafe.failsafe = function ( atleast )
     -- Retrieve versioning and check for compliance
     -- Retrieve versioning and check for compliance
     -- Precondition:
     -- Precondition:
     --    assert -- string, with required version or "wikidata",
     --    atleast -- string, with required version
     --               or false
     --                         or wikidata|item|~|@ or false
     -- Postcondition:
     -- Postcondition:
     --    Returns  string with appropriate version, or false
     --    Returns  string -- with queried version/item, also if problem
     local since = assert
    --              false   -- if appropriate
    -- 2020-08-17
    local since  = atleast
     local last  = ( since == "~" )
    local linked = ( since == "@" )
    local link  = ( since == "item" )
     local r
     local r
     if since == "wikidata" then
     if last  or  link  or  linked  or  since == "wikidata" then
         local item = TemplateData.item
         local item = Failsafe.item
         since = false
         since = false
         if type( item ) == "number"  and  item > 0 then
         if type( item ) == "number"  and  item > 0 then
             local entity = mw.wikibase.getEntity( string.format( "Q%d",
             local suited = string.format( "Q%d", item )
                                                                item ) )
            if link then
            if type( entity ) == "table" then
                r = suited
                local vsn = entity:formatPropertyValues( "P348" )
            else
                if type( vsn ) == "table"  and
                local entity = mw.wikibase.getEntity( suited )
                  type( vsn.value) == "string" and
                if type( entity ) == "table" then
                  vsn.value ~= "" then
                    local seek = Failsafe.serialProperty or "P348"
                    r = vsn.value
                    local vsn = entity:formatPropertyValues( seek )
                    if type( vsn ) == "table"  and
                      type( vsn.value ) == "string" and
                      vsn.value ~= "" then
                        if last  and  vsn.value == Failsafe.serial then
                            r = false
                        elseif linked then
                            if mw.title.getCurrentTitle().prefixedText
                              ==  mw.wikibase.getSitelink( suited ) then
                                r = false
                            else
                                r = suited
                            end
                        else
                            r = vsn.value
                        end
                    end
                 end
                 end
             end
             end
         end
         end
     end
     end
     if not r then
     if type( r ) == "nil" then
         if not since  or  since <= TemplateData.serial then
         if not since  or  since <= Failsafe.serial then
             r = TemplateData.serial
             r = Failsafe.serial
         else
         else
             r = false
             r = false
Zeile 1.259: Zeile 2.155:
     end
     end
     return r
     return r
end -- TemplateData.failsafe()
end -- Failsafe.failsafe()
 
 
 
TemplateData.getGlobalJSON = function ( access, adapt )
    -- Retrieve TemplateData from a global repository (JSON)
    -- Parameter:
    --    access  -- string, with page specifier (on WikiMedia Commons)
    --    adapt  -- JSON string or table with local overrides
    -- Returns true, if succeeded
    local plugin = Fetch( "/global" )
    local r
    if type( plugin ) == "table"  and
      type( plugin.fetch ) == "function" then
        local s, got = plugin.fetch( access, adapt )
        if got then
            Data.got    = got
            Data.order  = got.paramOrder
            Data.shared = s
            r          = true
            full()
        else
            Fault( s )
        end
    end
    return r
end -- TemplateData.getGlobalJSON()




Zeile 1.269: Zeile 2.191:
     -- Returns string, or not
     -- Returns string, or not
     if type( adapt ) == "string" then
     if type( adapt ) == "string" then
        local JSONutil = Fetch( "JSONutil", true )
         Data.source = adapt
         Data.source = adapt
         free()
         free()
         Data.got = mw.text.jsonDecode( Data.source )
         if JSONutil then
         if Data.got then
            local Multilingual = Fetch( "Multilingual", true )
            local f
            if Multilingual then
                f = Multilingual.i18n
            end
            Data.got = JSONutil.fetch( Data.source, true, f )
        else
            local lucky
            lucky, Data.got = pcall( mw.text.jsonDecode, Data.source )
        end
         if type( Data.got ) == "table" then
             full()
             full()
             if Data.lasting then
        elseif not Data.strip then
                 Fault( "deprecated type syntax" )
            local scream = type( Data.got )
             if scream == "string" then
                scream = Data.got
            else
                 scream = "Data.got: " .. scream
             end
             end
            if Data.less then
             Fault( "fatal JSON error: " .. scream )
                Fault( Config.solo )
            end
        elseif not Data.strip then
             Fault( "fatal JSON error" )
         end
         end
     end
     end
Zeile 1.309: Zeile 2.242:
     end
     end
     return r
     return r
end -- p.f()
end -- p.f


p.failsafe = function ( frame )
p.failsafe = function ( frame )
Zeile 1.326: Zeile 2.259:
         end
         end
     end
     end
     return TemplateData.failsafe( since )  or  ""
     return Failsafe.failsafe( since )  or  ""
end -- p.failsafe()
end -- p.failsafe


p.TemplateData = function ()
p.TemplateData = function ()