Modul:Vorlage:Infoboxen Physik

Vorlagenprogrammierung	Diskussionen	Lua		Unterseiten
		Modul	Deutsch	Modul:	Dokumentation

---

--[=[ 2016-11-13
{{Infobox Physikalische Einheit}}
{{Infobox Physikalische Größe}}
{{Infobox Physikalische Konstante}}
{{Infobox Kennzahl}}
]=]



local Config = {
   E = {
      Selbst = "Infobox Physikalische Einheit",
      SI = {
         [1] = { Art = "Gebräuchliche Nicht-SI-Einheiten" ..
                       "|Zum Gebrauch mit dem SI zugelassen",
                 Kat = "Zum Gebrauch mit dem SI zugelassene Einheit" },
         [2] = { Art = "Internationales Einheitensystem",
                 Kat = "SI-Einheit" },
         [3] = { Art = "Internationales Einheitensystem",
                 Kat = "SI-Basiseinheit" }
      },
      Systeme = {
         Anglo = { Art = "Angloamerikanisches Maßsystem",
                   Kat = "Angloamerikanische Einheit" },
         CGS   = { Art = "CGS-Einheitensystem",
                   Kat = "CGS-Einheit",
                   CGS = false },
         EME   = { Art = "Elektromagnetisches CGS-Einheitensystem",
                   CGS = true },
         ESE   = { Art = "Elektrostatisches CGS-Einheitensystem",
                   CGS = true },
         Gauss = { Art = "Gaußsches CGS-Einheitensystem",
                   CGS = true },
         HLE   = { Art = "Heaviside-Lorentz CGS-Einheitensystem",
                   CGS = true },
         mitSI = { SI  = 1 },
         SI    = { SI  = 2 },
         SIB   = { SI  = 3 }
      }
   },
   G = {
      Selbst = "Infobox Physikalische Größe"
   },
   K = {
      Selbst = "Infobox Physikalische Konstante"
   },
   Selbst    = "Infoboxen Physik",
   errCatTop = "Wikipedia:Vorlagenfehler"
}
local Fun = { }



local function fehler( alert )
    local err = mw.html.create( "span" )
                       :addClass( "error" )
                       :wikitext( mw.text.nowiki( alert ) )
    local r   = tostring( err )
    if mw.title.getCurrentTitle().namespace == 0 then
        local s = Config.errCatTop
        if Config.self then
            s = string.format( "%s/%s", s, Config.self )
        end
        r = string.format( "%s[[Kategorie:%s]]", r, s )
    end
    return r
end -- fehler()



Fun.eSystem = function ( args )
    -- Einheit|System=
    --     args  -- table, with parameters
    -- Returns appropriate string
    local system = args.System or ""
    local r
    if system:match( "^%[%[" ) then
        r = system
    else
        local cnf   = Config.E
        local einh  = { }
        local kats  = { }
        local types = cnf.Systeme
        local si    = 0
        local cgs, params, typ, unknown
        system = system:gsub( "%+", " " )    -- temp / Migration
        system = system:gsub( "GB-US", "Anglo" )    -- temp / Migration
        params = mw.text.split( system, "%s+" )
        for k, v in pairs( params ) do
            typ = types[ v ]
            if typ then
                if typ.SI then
                    if typ.SI > si then
                        si = typ.SI
                    end
                else
                    if type( typ.CGS ) == "boolean" then
                        if typ.CGS then
                            if type( cgs ) ~= "table" then
                                cgs = { }
                            end
                            table.insert( cgs, v )
                        elseif not cgs then
                            cgs = true
                        end
                    else
                        if typ.Art then
                            table.insert( einh, typ.Art )
                        end
                        if typ.Kat then
                            table.insert( kats, typ.Kat )
                        end
                    end
                end
            else
                if not unknown then
                    unknown = { }
                end
                table.insert( unknown, v )
            end
        end -- for k, v
        if unknown then
            r = fehler( "System= unbekannt: " ..
                         table.concat( unknown, " " ) )
        else
            if cgs then
                if cgs == true then
                    typ = types.CGS
                    table.insert( einh, 1, typ.Art )
                    table.insert( kats, 1, typ.Kat )
                else
                    for k, v in pairs( cgs ) do
                        typ = types[ v ]
                        table.insert( einh, 1, typ.Art )
                        if typ.Kat then
                            table.insert( kats, 1, typ.Kat )
                        end
                    end -- for k, v
                end
            end
            if si > 0 then
                typ = cnf.SI[ si ]
                table.insert( einh, 1, typ.Art )
                table.insert( kats, 1, typ.Kat )
            end
            for k, v in pairs( einh ) do
                if r then
                    r = r .. ", "
                else
                    r = ""
                end
                r = string.format( "%s[[%s]]", r, v )
            end
            if not r then    -- total mess outside
                r = fehler( "System=???????" )
            end
            for k, v in pairs( kats ) do
                r = string.format( "%s[[Kategorie:%s]]", r, v )
            end
        end
    end
    return r
end -- Fun.eSystem()



-- Export
local p = { }

p.main = function ( about, at, args )
    -- Invocation
    --     about  -- string, "E", "G", "K"
    --     at     -- string, parameter name
    --     args   -- table, with template parameters
    -- Returns appropriate string
    local r = Config[ about ]
    if r then
        local s = at or "?"
        if r.Selbst then
            Config.self = string.format( "Vorlage:%s", r.Selbst )
        end
        s = about:lower() .. s
        if type( Fun[ s ] ) == "function" then
            r = Fun[ s ]( args or { } )
        else
            r = fehler( "Unbekannte Funktion: " .. s )
        end
    else
        r = about or "?"
        r = fehler( "Unbekannter Vorlagentyp: " .. r )
    end
    return r
end -- p.main()



p.f = function ( frame )
    local lucky, r
    Config.frame = frame
    lucky, r = pcall( p.main, frame.args[ 1 ], frame.args[ 2 ],
                              frame:getParent().args )
    if not lucky then
        r = fehler( r )
    end
    return r
end -- p.f()

return p