Modul:Sandkasse/Infoboks svævefly

Moduldokumentation[opret]

local p = {}

local function debug( obj, name, pattern, visited )
    local pattern = pattern or '\n<br/>%s = %s ';
    local name = name or 'obj';
    visited = visited or {};
    if type(obj) == 'table' then
        if ( visited[obj] ) then
            -- avoid displaying the same table again, eg metatables
            return string.format( pattern, name, '(table, see ' .. visited[obj] .. ')' );
        else
            visited[obj] = name;
        end;
        local content = '';
        for k, v in pairs(obj) do
            content = content .. debug( v, name .. '[' .. tostring( k ) .. ']', pattern, visited );
        end;
        local meta = getmetatable(obj);
        if meta == nil then
            meta = '';
        else
            meta = debug(meta, name .. ' metatable', pattern, visited);
        end;
        if content == '' then
            return string.format( pattern, name, '(table, empty)' ) .. meta;
        else
            return content .. meta;
        end;
    else
        return string.format( pattern, name, '(' .. type(obj) .. ') ' .. tostring(obj) );
    end
end


-- from http://lua-users.org/wiki/SimpleLuaClasses, reformatted
-- class.lua
-- Compatible with Lua 5.1 (not 5.0).
function class(base, init)
    local c = {}    -- a new class instance
    if not init and type(base) == 'function' then
        init = base
        base = nil
    elseif type(base) == 'table' then
        -- our new class is a shallow copy of the base class!
        for i,v in pairs(base) do
            c[i] = v
        end
        c._base = base
    end
    -- the class will be the metatable for all its objects,
    -- and they will look up their methods in it.
    c.__index = c

    -- expose a constructor which can be called by <classname>(<args>)
    local mt = {}
    mt.__call = function(class_tbl, ...)
        local obj = {}
        setmetatable(obj,c)
        if init then
            init(obj,...)
        else 
            -- make sure that any stuff from the base class is initialized!
            if base and base.init then
                base.init(obj, ...)
            end
        end
        return obj
    end
    c.init = init
    c.is_a = function(self, klass)
        local m = getmetatable(self)
        while m do 
            if m == klass then return true end
            m = m._base
        end
        return false
    end
    setmetatable(c, mt)
    return c
end

-- java-like baseclass
Object = class(function(me)
    local mt = getmetatable(me);
    me._hashcode = mt._hashcodeNext or 1;
    mt._hashcodeNext = me._hashcode + 1;
end);
function Object:extend(init)
    return class(self, init);
end
function Object.hashcode(me)
    return me._hashcode;
end
function Object.toString(me)
    return 'Object@' .. tostring( me:hashcode() );
end

-- inspireret af http://da.wikipedia.org/wiki/Skabelon:Infoboks-en
Infoboks = Object:extend(function(me, config)
    me._config = {};
    if config then
        for k,v in pairs(config) do
            me._config[k] = v;
        end;
    end;
    me._content = {};
end);
function Infoboks.add(me, line, config)
    if not line then return me; end;
    if type(line) ~= 'table' then return me; end;
    if line.heading then
        table.insert(me._content, "<TR><TH COLSPAN='2'>'''" .. line.heading .. "'''</TH></TR>");
    end;
    if line.data or line.param or line.parameter or line.prop or line.property then
        local data, param, prop, extra = line.data, line.param or line.parameter, line.prop or line.property
        local row = '<tr>';
        if line.label then
            row = row .. '<th>' .. line.label .. '</th><td>' .. line.data .. '</td>'
        else
            row = row .. '<td colspan="2" align="center">' .. line.data .. '</td>';
        end;
        row = row .. '</tr>';
        table.insert(me._content, row);
    end;
    -- table.insert(me._content, debug(line, 'line' ) )
    return me;
end
function Infoboks.toString(me)
    -- check for content
    local content = table.concat( me._content, '\n' );
    if content == '' then
        return me._config.categoryEmpty or '';
    end;
    -- start table
    local ret = '<table class="infobox';
    if me._config.bodyclass then ret = ret .. ' ' .. me._config.bodyclass; end;
    ret = ret .. '" cellspacing="5" style="width: 22em; text-align: left; font-size: 88%; line-height: 1.5em;';
    if me._config.float then
        ret = ret .. ' float: ' .. me._config.float .. '; clear: ';
        if me._config.float == 'none' then
            ret = ret .. 'both';
        else
            ret = ret .. me._config.float;
        end;
        ret = ret .. "; margin: 0 0 1em 1em;"
    end;
    ret = ret .. '>\n';
    -- title(s)
    if me._config.title then
        ret = ret .. '<caption';
        if me._config.titleclass then ret = ret .. ' class="' .. me._config.titleclass .. '"'; end;
        ret = ret .. '" style="font-size: 125%; font-weight: bold;';
        if me._config.titlestyle then ret = ret .. ' ' .. me._config.titlestyle; end;
        ret = ret .. '">' .. me._config.title .. '</caption>\n';
    end;
    if me._config.above then
        ret = ret .. '<tr><th colspan="2"';
        if me._config.aboveclass then ret = ret .. ' class="' .. me._config.aboveclass .. '"'; end;
        ret = ret .. ' style="text-align:center; font-size:125%; font-weight:bold;';
        if me._config.abovestyle then ret = ret .. ' ' .. me._config.abovestyle; end;
        ret = ret .. '">' .. me._config.above .. ' </th></tr>\n';
    end;
    ret = ret .. content;
    ret = ret .. '\n</table>';
    return ret;
end


function p.hello(frame)
    local entity = mw.wikibase.getEntityObject()
    local entityStatus
    local box = Infoboks( { categoryEmpty='[[Kategori:Sider med tom infoboks]]', above='Svævefly<br/>ASK 21', abovestyle='background: #87CEEB; font-color: #ffffff;' } );
    box:add{heading='Konstruktion', label='Designer', data='Otto Lilienthal'};
    return box:toString();
--    local o = { Object(), Object(), box };
--    return '<table class="infobox" style="font-size: 90%; float:right; width: 260px;>"'
--        .. '\n<tr><td colspan="2" align="center" style="background: #87CEEB; font-size: larger;"><font color="#ffffff">Svævefly<br/>'
--        .. 'Sandkasse/Infoboks svævefly' .. '</td></tr>'
--        .. debug( o, 'object', '\n<tr valing="top"><td> %s </td><td> %s </td></tr>' )
--        .. '\n<tr><td colspan="2">object[1]:toString() = "' .. o[1]:toString() .. '"</td></tr>'
--        .. '\n<tr><td colspan="2">object[2]:toString() = "' .. o[2]:toString() .. '"</td></tr>'
--        .. debug( entity, 'entity', '\n<tr valing="top"><td> %s </td><td> %s </td></tr>' )
--        .. debug( frame, 'frame', '\n<tr valing="top"><td> %s </td><td> %s </td></tr>' )
--        .. debug( { test = 'test' }, 'testtable', '\n<tr valing="top"><td> %s </td><td> %s </td></tr>' )
--        .. '\n</table>'
end

return p