Khác biệt giữa bản sửa đổi của “Mô đun:Infobox”

Từ Touhou Wiki - Việt Nam
Bước tới điều hướng Bước tới tìm kiếm
(https://vi.wikipedia.org/wiki/M%C3%B4_%C4%91un:Infobox)
 
Không có tóm lược sửa đổi
 
(Không hiển thị 13 phiên bản ở giữa của cùng người dùng)
Dòng 1: Dòng 1:
--
-- Lua port of [[Template:Infobox]]
-- Mô đun này thực hiện [[Bản mẫu:Infobox]].
-- by DennouNeko
--
-- modified by Lauqerm
local p = {}


local navbar = require('Module:Navbar')._navbar
local common = require("Module:Common")
local style = require("Module:Styles")


local args = {}
local colors = style.main_colors
local origArgs
local root


local function union(t1, t2)
 
    -- Returns the union of the values of two tables, as a sequence.
-- == Helper functions ==
    local vals = {}
 
    for k, v in pairs(t1) do
-- retrieve param list from arguments
        vals[v] = true
-- builds a table of objects with 'header', 'label', 'data', 'class', 'rclass' fields
local function scan_data_rows(frame, ttype)
  local idx = {}
  local header = {}
  local label = {}
  local data = {}
  local class = {}
  local lclass = {}
  local rclass = {}
 
  local ret = {}
 
  local s,e,t
 
  for k,v in frame:argumentPairs() do
    -- accept only parameters without leading zeros
    s,e,t = string.find(k, '^header([1-9]%d*)$')
    if s ~= nil then
      header[tonumber(t)] = v
      idx[#idx+1] = tonumber(t)
     end
     end
     for k, v in pairs(t2) do
 
        vals[v] = true
     s,e,t = string.find(k, '^label([1-9]%d*)$')
    if s ~= nil then
      label[tonumber(t)] = v
     end
     end
     local ret = {}
 
     for k, v in pairs(vals) do
     s,e,t = string.find(k, '^data([1-9]%d*)$')
        table.insert(ret, k)
    if s ~= nil then
      data[tonumber(t)] = v
      idx[#idx+1] = tonumber(t)
     end
 
    s,e,t = string.find(k, '^class([1-9]%d*)$')
    if s ~= nil then
      class[tonumber(t)] = v
    end
 
    s,e,t = string.find(k, '^lclass([1-9]%d*)$')
    if s ~= nil then
      lclass[tonumber(t)] = v
     end
     end
    return ret
end


local function getArgNums(prefix)
     s,e,t = string.find(k, '^rowclass([1-9]%d*)$')
    -- Returns a table containing the numbers of the arguments that exist
    if s ~= nil then
     -- for the specified prefix. For example, if the prefix was 'data', and
      rclass[tonumber(t)] = v
    -- 'data1', 'data2', and 'data5' exist, it would return {1, 2, 5}.
    local nums = {}
    for k, v in pairs(args) do
        local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')
        if num then table.insert(nums, tonumber(num)) end
     end
     end
     table.sort(nums)
  end
     return nums
 
  common.trunkTable(idx)
 
  for k,v in pairs(idx) do
    local tmp = {}
    tmp['index'] = v
    if common.isset(header[v]) then tmp['header'] = header[v] end
    if common.isset(label[v])  then tmp['label']  = label[v]  end
     if common.isset(data[v])   then tmp['data']  = data[v]  end
     if common.isset(class[v])  then tmp['class']  = class[v]  end
    if common.isset(lclass[v]) then tmp['lclass'] = lclass[v] end
    if common.isset(rclass[v]) then tmp['rclass'] = rclass[v] end
    ret[#ret+1] = tmp
  end
 
  return ret
end
end


local function addRow(rowArgs)
-- builds a single header row for table
    -- Adds a row to the infobox, with either a header cell
local function build_header_row(ttype, class, rclass, header, hstyle)
    -- or a label/data cell combination.
  local ret = {''}
    if rowArgs.header then
 
        root
  if common.isset(header) then
            :tag('tr')
     if common.isset(colors[ttype]) then
                :addClass(rowArgs.rowclass)
      hstyle = 'background-color:' .. colors[ttype]['title'] .. ';' .. common.cv(common.isset(hstyle), hstyle, '')
                :cssText(rowArgs.rowstyle)
                :attr('id', rowArgs.rowid)
                :tag('th')
                    :attr('colspan', 2)
                    :attr('id', rowArgs.headerid)
                    :addClass(rowArgs.class)
                    :addClass(args.headerclass)
                    :css('text-align', 'center')
                    :css('padding', '2px')
                    :cssText(args.headerstyle)
                    :wikitext(rowArgs.header)
     elseif rowArgs.data then
        local row = root:tag('tr')
        row:addClass(rowArgs.rowclass)
        row:cssText(rowArgs.rowstyle)
        row:attr('id', rowArgs.rowid)
        if rowArgs.label then
            row
                :tag('th')
                    :attr('scope', 'row')
                    :attr('id', rowArgs.labelid)
                    :cssText(args.labelstyle)
                    :wikitext(rowArgs.label)
                    :done()
        end
       
        local dataCell = row:tag('td')
        if not rowArgs.label then
            dataCell
                :attr('colspan', 2)
                :css('text-align', 'center')
        end
        dataCell
            :attr('id', rowArgs.dataid)
            :addClass(rowArgs.class)
            :cssText(rowArgs.datastyle)
            :newline()
            :wikitext(rowArgs.data)
     end
     end
    ret[#ret+1] = '<tr><th colspan="2"'
    if common.isset(class) then ret[#ret+1] = ' class="' .. class .. '"' end
    ret[#ret+1] = ' style="text-align:center;'
    style.add(ret, hstyle)
    ret[#ret+1] = '">'
    ret[#ret+1] = header
    ret[#ret+1] = '</th></tr>'
  end
  return table.concat(ret)
end
end


local function renderTitle()
-- builds a single regular row for table
    if not args.title then return end
local function build_row(ttype, class, rclass, lclass, label, lstyle, data, dstyle)
  local ret = {''}


     root
  if common.isset(data) then
        :tag('caption')
     ret[#ret+1] = '<tr'
            :addClass(args.titleclass)
    if common.isset(rclass) then ret[#ret+1] = ' class="' .. rclass .. '"' end
            :cssText(args.titlestyle)
    ret[#ret+1] = '><td>'
            :wikitext(args.title)
 
end
    if common.isset(label) then
 
      ret[#ret+1] = '<div'
 
      if common.isset(lclass) then ret[#ret+1] = ' class="' .. lclass .. '"'
      else ret[#ret+1] = ' class="ifb_first"' end
 
      ret[#ret+1] = ' style="text-align: left;'
      style.add(ret, lstyle)
      ret[#ret+1] = '">'


local function renderAboveRow()
      ret[#ret+1] = label
    if not args.above then return end
   
    root
        :tag('tr')
            :tag('th')
                :attr('colspan', 2)
                :addClass(args.aboveclass)
                :css('padding', '12px')
                :css('text-align', 'center')
                :css('vertical-align', 'middle')
                :css('line-height', '1.1em')
                :css('font-size', '135%')
                :css('font-weight', 'bold')
                :css('color', 'black')
                :cssText(args.abovestyle)
                :wikitext(args.above)
end


local function renderBelowRow()
      ret[#ret+1] = '</div><div'
    if not args.below then return end
    else
   
      ret[#ret+1] = '<div'
    root
        :tag('tr')
            :tag('td')
                :attr('colspan', '2')
                :addClass(args.belowclass)
                :css('text-align', 'center')
                :cssText(args.belowstyle)
                :newline()
                :wikitext(args.below)
end


local function renderSubheaders()
      dstyle = 'text-align: left; ' .. common.cv(common.isset(dstyle), dstyle, '')
    if args.subheader then
        args.subheader1 = args.subheader
    end
    if args.subheaderrowclass then
        args.subheaderrowclass1 = args.subheaderrowclass
    end
    local subheadernums = getArgNums('subheader')
    for k, num in ipairs(subheadernums) do
        addRow({
            data = args['subheader' .. tostring(num)],
            datastyle = args.subheaderstyle or args['subheaderstyle' .. tostring(num)],
            class = args.subheaderclass,
            rowclass = args['subheaderrowclass' .. tostring(num)]
        })
     end
     end
    if common.isset(class) then ret[#ret+1] = ' class="' .. class .. '"'
    else ret[#ret+1] = ' class="ifb_second"' end
    if common.isset(dstyle) then ret[#ret+1] = ' style="' .. dstyle .. '"' end
    ret[#ret+1] = '>'
    ret[#ret+1] = '\n' .. data
    ret[#ret+1] = '\n</div></td></tr>'
  end
  return table.concat(ret)
end
end


local function renderImages()
 
     if args.image then
-- == Functions generating the table body ==
        args.image1 = args.image
 
-- starts the infobox
local function build_start(frame, ttype)
  local ret = {}
 
  if frame.args['child'] ~= 'yes' then
    -- if it's not a child infobox, start a table
 
    ret[#ret+1] = '<table'
 
    ret[#ret+1] = ' class="infobox'
     if common.isset(frame.args['bodyclass']) then ret[#ret+1] = ' ' .. frame.args['bodyclass'] end
    ret[#ret+1] = '"'
 
    ret[#ret+1] = ' cellspacing="5"'
 
    if common.isset(colors[ttype]) then
      ret[#ret+1] = 'border-color:' .. colors[ttype]['border'] .. ';'
      ret[#ret+1] = 'background-color:' .. colors[ttype]['background'] .. ';'
     end
     end
     if args.caption then
    style.add(ret, frame.args['bodystyle'])
        args.caption1 = args.caption
    ret[#ret+1] = '"'
 
    ret[#ret+1] = '>'
 
    -- Caption
     if common.isset(frame.args['title']) then
      ret[#ret+1] = '<caption'
      if common.isset(frame.args['titleclass']) then ret[#ret+1] = '  class="' .. frame.args['titleclass'] .. '"' end
 
      style.add(ret, frame.args['titlestyle'])
      ret[#ret+1] = '"'
 
      ret[#ret+1] = '>'
 
      ret[#ret+1] = frame.args['title']
 
      ret[#ret+1] = '</caption>'
     end
     end
     local imagenums = getArgNums('image')
 
    for k, num in ipairs(imagenums) do
    -- Header
        local caption = args['caption' .. tostring(num)]
     if common.isset(frame.args['above']) then
        local data = mw.html.create():wikitext(args['image' .. tostring(num)])
      local class = frame.args['aboveclass']
        if caption then
      local rclass = frame.args['aboverowclass']
            data
      local text = frame.args['above']
                :tag('div')
      local style = 'text-align: center; '
                    :css('padding', '5px')
      if common.isset(frame.args['abovestyle']) then style = style .. ' ' .. frame.args['abovestyle'] end
                    :cssText(args.captionstyle)
 
                    :wikitext(caption)
      ret[#ret+1] = build_header_row(ttype, class, rclass, text, style)
        end
        addRow({
            data = tostring(data),
            datastyle = args.imagestyle,
            class = args.imageclass,
            rowclass = args['imagerowclass' .. tostring(num)]
        })
     end
     end
end


local function renderRows()
  else
     -- Gets the union of the header and data argument numbers,
     -- for child infobox add simple header
     -- and renders them all in order using addRow.
     if common.isset(frame.args['title']) then
    local rownums = union(getArgNums('header'), getArgNums('data'))
      ret[#ret+1] = "'''" .. frame.args['title'] .. "'''"
    table.sort(rownums)
    for k, num in ipairs(rownums) do
        addRow({
            header = args['header' .. tostring(num)],
            label = args['label' .. tostring(num)],
            data = args['data' .. tostring(num)],
            datastyle = args.datastyle,
            class = args['class' .. tostring(num)],
            rowclass = args['rowclass' .. tostring(num)],
            rowstyle = args['rowstyle' .. tostring(num)],
            dataid = args['dataid' .. tostring(num)],
            labelid = args['labelid' .. tostring(num)],
            headerid = args['headerid' .. tostring(num)],
            rowid = args['rowid' .. tostring(num)]
        })
     end
     end
  end
  return table.concat(ret)
end
end


local function renderNavBar()
-- build the header part (subheaders and images)
    if not args.name then return end
local function build_headers(frame, ttype)
      
  local ret = {}
     root
 
        :tag('tr')
  -- Subheader1
            :tag('td')
  if common.isset(frame.args['subheader']) or common.isset(frame.args['subheader1']) then
                :attr('colspan', '2')
     local text = common.cv(common.isset(frame.args['subheader']), frame.args['subheader'], frame.args['subheader1'])
                :css('text-align', 'right')
     local style = frame.args['subheaderstyle']
                :wikitext(navbar{
    local class = frame.args['subheaderclass']
                    args.name,
    local rclass = common.cv(common.isset(frame.args['subheaderrowclass']), frame.args['subheaderrowclass'], frame.args['subheaderrowclass1'])
                    mini = 1,
 
                })
    ret[#ret+1] = build_row(ttype, class, rclass, '', '', '', text, style)
end
  end
 
  -- Subheader2
  if common.isset(frame.args['subheader2']) then
    local text = frame.args['subheader2']
    local style = frame.args['subheaderstyle']
    local class = frame.args['subheaderclass']
    local rclass = frame.args['subheaderrowclass2']
 
    ret[#ret+1] = build_row(ttype, class, rclass, '', '', '', text, style)
  end
 
  -- Image1
  if common.isset(frame.args['image']) or common.isset(frame.args['image1']) then
    local text = {}
    text[#text+1] = '<div style="margin: 5px 15px 5px 15px; border-top: 2px solid #000"></div>'
    text[#text+1] = common.cv(common.isset(frame.args['image']), frame.args['image'], frame.args['image1'])


local function renderItalicTitle()
    if common.isset(frame.args['caption']) or common.isset(frame.args['caption1']) then
    local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
      text[#text+1] = '<br/><span'
    if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
      if common.isset(frame.args['captionstyle']) then text[#text+1] = ' style="' .. frame.args['captionstyle'] .. '"' end
        root:wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
      text[#text+1] = '>'
      text[#text+1] = common.cv(common.isset(frame.args['caption']), frame.args['caption'], frame.args['caption1'])
      text[#text+1] = '</span>'
    text[#text+1] = '<div style="margin: 5px 15px 5px 15px; border-top: 2px solid #000"></div>'
     end
     end
end


local function renderTrackingCategories()
    text = table.concat(text)
     if args.decat ~= 'yes' then
 
        if #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
     local class = frame.args['imageclass']
            root:wikitext('[[Thể loại:Bài có hộp thông tin không có hàng dữ liệu]]')
    local dstyle = frame.args['imagestyle']
        end
    local rclass = frame.args['imagerowclass1']
        if args.child == 'yes' and args.title then
 
            root:wikitext('[[Thể loại:Bài có hộp thông tin có tham số title]]')
    ret[#ret+1] = build_row(ttype, class, rclass, '', '', '', text, dstyle)
        end
  end
 
  -- Image2
  if common.isset(frame.args['image2']) then
    local text = {}
    text[#text+1] = '<div style="margin: 5px 15px 5px 15px; border-top: 2px solid #000"></div>'
    text[#text+1] = frame.args['image2']
 
    if common.isset(frame.args['caption2']) then
      text[#text+1] = '<br/><span'
      if common.isset(frame.args['captionstyle']) then text[#text+1] = ' style="' .. frame.args['captionstyle'] .. '"' end
      text[#text+1] = '>'
      text[#text+1] = frame.args['caption2']
      text[#text+1] = '</span>'
      text[#text+1] = '<div style="margin: 5px 15px 5px 15px; border-top: 2px solid #000"></div>'
     end
     end
    text = table.concat(text)
    local class = frame.args['imageclass']
    local dstyle = frame.args['imagestyle']
    local rclass = frame.args['imagerowclass2']
    ret[#ret+1] = build_row(ttype, class, rclass, '', '', '', text, dstyle)
  end
  return table.concat(ret)
end
end


local function _infobox()
-- build the main part (all the headers and data rows below images)
    -- Specify the overall layout of the infobox, with special settings
local function build_body(frame, ttype, tbl)
    -- if the infobox is used as a 'child' inside another infobox.
  local ret = {''}
    if args.child ~= 'yes' then
 
        root = mw.html.create('table')
  local hstyle = frame.args['headerstyle']
       
  local lstyle = frame.args['labelstyle']
        root
  local dstyle = frame.args['datastyle']
            :addClass('infobox')
 
            :addClass(args.bodyclass)
  for k,v in pairs(tbl) do
           
    -- not using common.cv, because both functions would be called
            if args.subbox == 'yes' then
    if common.isset(v['header']) then
                root
      ret[#ret+1] = build_header_row(ttype, v['class'], v['rclass'], v['header'], hstyle)
                    :css('padding', '0')
                    :css('border', 'none')
                    :css('margin', '-3px')
                    :css('width', 'auto')
                    :css('min-width', '100%')
                    :css('font-size', '100%')
                    :css('clear', 'none')
                    :css('float', 'none')
                    :css('background-color', 'transparent')
            else
                root
                    :css('width', '22em')
            end
        root
            :cssText(args.bodystyle)
   
        renderTitle()
        renderAboveRow()
     else
     else
        root = mw.html.create()
      ret[#ret+1] = build_row(ttype, v['class'], v['rclass'], v['lclass'], v['label'], lstyle, v['data'], dstyle)
       
        root
            :wikitext(args.title)
     end
     end
  end


    renderSubheaders()
  return table.concat(ret)
    renderImages()
    renderRows()
    renderBelowRow() 
    renderNavBar()
    renderItalicTitle()
    renderTrackingCategories()
   
    return tostring(root)
end
end


local function preprocessSingleArg(argName)
-- finalize the infobox
    -- If the argument exists and isn't blank, add it to the argument table.
local function build_end(frame, ttype)
    -- Blank arguments are treated as nil to match the behaviour of ParserFunctions.
  local ret = {''}
    if origArgs[argName] and origArgs[argName] ~= '' then
 
        args[argName] = origArgs[argName]
  if frame.args['child'] ~= 'yes' then
    end
    ret[#ret+1] = '</table>'
  end
 
  return table.concat(ret)
end
end


local function preprocessArgs(prefixTable, step)
    -- Assign the parameters with the given prefixes to the args table, in order, in batches
    -- of the step size specified. This is to prevent references etc. from appearing in the
    -- wrong order. The prefixTable should be an array containing tables, each of which has
    -- two possible fields, a "prefix" string and a "depend" table. The function always parses
    -- parameters containing the "prefix" string, but only parses parameters in the "depend"
    -- table if the prefix parameter is present and non-blank.
    if type(prefixTable) ~= 'table' then
        error("Non-table value detected for the prefix table", 2)
    end
    if type(step) ~= 'number' then
        error("Invalid step value detected", 2)
    end
   
    -- Get arguments without a number suffix, and check for bad input.
    for i,v in ipairs(prefixTable) do
        if type(v) ~= 'table' or type(v.prefix) ~= "string" or (v.depend and type(v.depend) ~= 'table') then
            error('Invalid input detected to preprocessArgs prefix table', 2)
        end
        preprocessSingleArg(v.prefix)
        -- Only parse the depend parameter if the prefix parameter is present and not blank.
        if args[v.prefix] and v.depend then
            for j, dependValue in ipairs(v.depend) do
                if type(dependValue) ~= 'string' then
                    error('Invalid "depend" parameter value detected in preprocessArgs')
                end
                preprocessSingleArg(dependValue)
            end
        end
    end


    -- Get arguments with number suffixes.
-- == Exported functions ==
    local a = 1 -- Counter variable.
 
    local moreArgumentsExist = true
-- the basic infobox
    while moreArgumentsExist == true do
local function build_infobox(frame)
        moreArgumentsExist = false
  local ret = {}
        for i = a, a + step - 1 do
 
            for j,v in ipairs(prefixTable) do
  -- prepare data
                local prefixArgName = v.prefix .. tostring(i)
  local drows = scan_data_rows(frame)
                if origArgs[prefixArgName] then
  local ttype = frame.args['type']
                    moreArgumentsExist = true -- Do another loop if any arguments are found, even blank ones.
  if ttype == nil then ttype = '' end
                    preprocessSingleArg(prefixArgName)
 
                end
  -- build infobox
                -- Process the depend table if the prefix argument is present and not blank, or
  ret[#ret+1] = build_start(frame, ttype)
                -- we are processing "prefix1" and "prefix" is present and not blank, and
  ret[#ret+1] = build_headers(frame, ttype)
                -- if the depend table is present.
  ret[#ret+1] = build_body(frame, ttype, drows)
                if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then
  ret[#ret+1] = build_end(frame, ttype)
                    for j,dependValue in ipairs(v.depend) do
 
                        local dependArgName = dependValue .. tostring(i)
  return table.concat(ret)
                        preprocessSingleArg(dependArgName)
                    end
                end
            end
        end
        a = a + step
    end
end
end
 
function p.infobox(frame)
return {
    -- If called via #invoke, use the args passed into the invoking template.
  ['BuildInfobox'] = build_infobox,
    -- Otherwise, for testing purposes, assume args are being passed directly in.
  ['BuildInfoboxTemplate'] = function(frame) return build_infobox(frame:getParent()) end,
    if frame == mw.getCurrentFrame() then
}
        origArgs = frame:getParent().args
    else
        origArgs = frame
    end
   
    -- Parse the data parameters in the same order that the old {{infobox}} did, so that
    -- references etc. will display in the expected places. Parameters that depend on
    -- another parameter are only processed if that parameter is present, to avoid
    -- phantom references appearing in article reference lists.
    preprocessSingleArg('child')
    preprocessSingleArg('bodyclass')
    preprocessSingleArg('subbox')
    preprocessSingleArg('bodystyle')
    preprocessSingleArg('title')
    preprocessSingleArg('titleclass')
    preprocessSingleArg('titlestyle')
    preprocessSingleArg('above')
    preprocessSingleArg('aboveclass')
    preprocessSingleArg('abovestyle')
    preprocessArgs({
        {prefix = 'subheader', depend = {'subheaderstyle', 'subheaderrowclass'}}
    }, 10)
    preprocessSingleArg('subheaderstyle')
    preprocessSingleArg('subheaderclass')
    preprocessArgs({
        {prefix = 'image', depend = {'caption', 'imagerowclass'}}
    }, 10)
    preprocessSingleArg('captionstyle')
    preprocessSingleArg('imagestyle')
    preprocessSingleArg('imageclass')
    preprocessArgs({
        {prefix = 'header'},
        {prefix = 'data', depend = {'label'}},
        {prefix = 'rowclass'},
        {prefix = 'rowstyle'},
        {prefix = 'class'},
        {prefix = 'dataid'},
        {prefix = 'labelid'},
        {prefix = 'headerid'},
        {prefix = 'rowid'}
    }, 50)
    preprocessSingleArg('headerclass')
    preprocessSingleArg('headerstyle')
    preprocessSingleArg('labelstyle')
    preprocessSingleArg('datastyle')
    preprocessSingleArg('below')
    preprocessSingleArg('belowclass')
    preprocessSingleArg('belowstyle')
    preprocessSingleArg('name')
    args['italic title'] = origArgs['italic title'] -- different behaviour if blank or absent
    preprocessSingleArg('decat')
    return _infobox()
end
return p

Bản mới nhất lúc 10:16, ngày 9 tháng 7 năm 2019

Có thể viết tài liệu về mô đun này tại Mô đun:Infobox/tài liệu.

-- Lua port of [[Template:Infobox]]
-- by DennouNeko
-- modified by Lauqerm

local common = require("Module:Common")
local style = require("Module:Styles")

local colors = style.main_colors


-- == Helper functions ==

-- retrieve param list from arguments
-- builds a table of objects with 'header', 'label', 'data', 'class', 'rclass' fields
local function scan_data_rows(frame, ttype)
  local idx = {}
  local header = {}
  local label = {}
  local data = {}
  local class = {}
  local lclass = {}
  local rclass = {}

  local ret = {}

  local s,e,t

  for k,v in frame:argumentPairs() do
    -- accept only parameters without leading zeros
    s,e,t = string.find(k, '^header([1-9]%d*)$')
    if s ~= nil then
      header[tonumber(t)] = v
      idx[#idx+1] = tonumber(t)
    end

    s,e,t = string.find(k, '^label([1-9]%d*)$')
    if s ~= nil then
      label[tonumber(t)] = v
    end

    s,e,t = string.find(k, '^data([1-9]%d*)$')
    if s ~= nil then
      data[tonumber(t)] = v
      idx[#idx+1] = tonumber(t)
    end

    s,e,t = string.find(k, '^class([1-9]%d*)$')
    if s ~= nil then
      class[tonumber(t)] = v
    end

    s,e,t = string.find(k, '^lclass([1-9]%d*)$')
    if s ~= nil then
      lclass[tonumber(t)] = v
    end

    s,e,t = string.find(k, '^rowclass([1-9]%d*)$')
    if s ~= nil then
      rclass[tonumber(t)] = v
    end
  end

  common.trunkTable(idx)

  for k,v in pairs(idx) do
    local tmp = {}
    tmp['index'] = v
    if common.isset(header[v]) then tmp['header'] = header[v] end
    if common.isset(label[v])  then tmp['label']  = label[v]  end
    if common.isset(data[v])   then tmp['data']   = data[v]   end
    if common.isset(class[v])  then tmp['class']  = class[v]  end
    if common.isset(lclass[v]) then tmp['lclass'] = lclass[v] end
    if common.isset(rclass[v]) then tmp['rclass'] = rclass[v] end
    ret[#ret+1] = tmp
  end

  return ret
end

-- builds a single header row for table
local function build_header_row(ttype, class, rclass, header, hstyle)
  local ret = {''}

  if common.isset(header) then
    if common.isset(colors[ttype]) then
      hstyle = 'background-color:' .. colors[ttype]['title'] .. ';' .. common.cv(common.isset(hstyle), hstyle, '')
    end

    ret[#ret+1] = '<tr><th colspan="2"'

    if common.isset(class) then ret[#ret+1] = ' class="' .. class .. '"' end

    ret[#ret+1] = ' style="text-align:center;'
    style.add(ret, hstyle)
    ret[#ret+1] = '">'

    ret[#ret+1] = header

    ret[#ret+1] = '</th></tr>'
  end

  return table.concat(ret)
end

-- builds a single regular row for table
local function build_row(ttype, class, rclass, lclass, label, lstyle, data, dstyle)
  local ret = {''}

  if common.isset(data) then
    ret[#ret+1] = '<tr'
    if common.isset(rclass) then ret[#ret+1] = ' class="' .. rclass .. '"' end
    ret[#ret+1] = '><td>'

    if common.isset(label) then

      ret[#ret+1] = '<div'

      if common.isset(lclass) then ret[#ret+1] = ' class="' .. lclass .. '"'
      else ret[#ret+1] = ' class="ifb_first"' end

      ret[#ret+1] = ' style="text-align: left;'
      style.add(ret, lstyle)
      ret[#ret+1] = '">'

      ret[#ret+1] = label

      ret[#ret+1] = '</div><div'
    else
      ret[#ret+1] = '<div'

      dstyle = 'text-align: left; ' .. common.cv(common.isset(dstyle), dstyle, '')
    end

    if common.isset(class) then ret[#ret+1] = ' class="' .. class .. '"'
    else ret[#ret+1] = ' class="ifb_second"' end
    if common.isset(dstyle) then ret[#ret+1] = ' style="' .. dstyle .. '"' end

    ret[#ret+1] = '>'

    ret[#ret+1] = '\n' .. data

    ret[#ret+1] = '\n</div></td></tr>'
  end

  return table.concat(ret)
end


-- == Functions generating the table body ==

-- starts the infobox
local function build_start(frame, ttype)
  local ret = {}

  if frame.args['child'] ~= 'yes' then
    -- if it's not a child infobox, start a table

    ret[#ret+1] = '<table'

    ret[#ret+1] = ' class="infobox'
    if common.isset(frame.args['bodyclass']) then ret[#ret+1] = ' ' .. frame.args['bodyclass'] end
    ret[#ret+1] = '"'

    ret[#ret+1] = ' cellspacing="5"'

    if common.isset(colors[ttype]) then
      ret[#ret+1] = 'border-color:' .. colors[ttype]['border'] .. ';'
      ret[#ret+1] = 'background-color:' .. colors[ttype]['background'] .. ';'
    end
    style.add(ret, frame.args['bodystyle'])
    ret[#ret+1] = '"'

    ret[#ret+1] = '>'

    -- Caption
    if common.isset(frame.args['title']) then
      ret[#ret+1] = '<caption'
      if common.isset(frame.args['titleclass']) then ret[#ret+1] = '  class="' .. frame.args['titleclass'] .. '"' end

      style.add(ret, frame.args['titlestyle'])
      ret[#ret+1] = '"'

      ret[#ret+1] = '>'

      ret[#ret+1] = frame.args['title']

      ret[#ret+1] = '</caption>'
    end

    -- Header
    if common.isset(frame.args['above']) then
      local class = frame.args['aboveclass']
      local rclass = frame.args['aboverowclass']
      local text = frame.args['above']
      local style = 'text-align: center; '
      if common.isset(frame.args['abovestyle']) then style = style .. ' ' .. frame.args['abovestyle'] end

      ret[#ret+1] = build_header_row(ttype, class, rclass, text, style)
    end

  else
    -- for child infobox add simple header
    if common.isset(frame.args['title']) then
      ret[#ret+1] = "'''" .. frame.args['title'] .. "'''"
    end
  end

  return table.concat(ret)
end

-- build the header part (subheaders and images)
local function build_headers(frame, ttype)
  local ret = {}

  -- Subheader1
  if common.isset(frame.args['subheader']) or common.isset(frame.args['subheader1']) then
    local text = common.cv(common.isset(frame.args['subheader']), frame.args['subheader'], frame.args['subheader1'])
    local style = frame.args['subheaderstyle']
    local class = frame.args['subheaderclass']
    local rclass = common.cv(common.isset(frame.args['subheaderrowclass']), frame.args['subheaderrowclass'], frame.args['subheaderrowclass1'])

    ret[#ret+1] = build_row(ttype, class, rclass, '', '', '', text, style)
  end

  -- Subheader2
  if common.isset(frame.args['subheader2']) then
    local text = frame.args['subheader2']
    local style = frame.args['subheaderstyle']
    local class = frame.args['subheaderclass']
    local rclass = frame.args['subheaderrowclass2']

    ret[#ret+1] = build_row(ttype, class, rclass, '', '', '', text, style)
  end

  -- Image1
  if common.isset(frame.args['image']) or common.isset(frame.args['image1']) then
    local text = {}
    text[#text+1] = '<div style="margin: 5px 15px 5px 15px; border-top: 2px solid #000"></div>'
    text[#text+1] = common.cv(common.isset(frame.args['image']), frame.args['image'], frame.args['image1'])

    if common.isset(frame.args['caption']) or common.isset(frame.args['caption1']) then
      text[#text+1] = '<br/><span'
      if common.isset(frame.args['captionstyle']) then text[#text+1] = ' style="' .. frame.args['captionstyle'] .. '"' end
      text[#text+1] = '>'
      text[#text+1] = common.cv(common.isset(frame.args['caption']), frame.args['caption'], frame.args['caption1'])
      text[#text+1] = '</span>'
    text[#text+1] = '<div style="margin: 5px 15px 5px 15px; border-top: 2px solid #000"></div>'
    end

    text = table.concat(text)

    local class = frame.args['imageclass']
    local dstyle = frame.args['imagestyle']
    local rclass = frame.args['imagerowclass1']

    ret[#ret+1] = build_row(ttype, class, rclass, '', '', '', text, dstyle)
  end

  -- Image2
  if common.isset(frame.args['image2']) then
    local text = {}
    text[#text+1] = '<div style="margin: 5px 15px 5px 15px; border-top: 2px solid #000"></div>'
    text[#text+1] = frame.args['image2']

    if common.isset(frame.args['caption2']) then
      text[#text+1] = '<br/><span'
      if common.isset(frame.args['captionstyle']) then text[#text+1] = ' style="' .. frame.args['captionstyle'] .. '"' end
      text[#text+1] = '>'
      text[#text+1] = frame.args['caption2']
      text[#text+1] = '</span>'
      text[#text+1] = '<div style="margin: 5px 15px 5px 15px; border-top: 2px solid #000"></div>'
    end

    text = table.concat(text)

    local class = frame.args['imageclass']
    local dstyle = frame.args['imagestyle']
    local rclass = frame.args['imagerowclass2']

    ret[#ret+1] = build_row(ttype, class, rclass, '', '', '', text, dstyle)
  end

  return table.concat(ret)
end

-- build the main part (all the headers and data rows below images)
local function build_body(frame, ttype, tbl)
  local ret = {''}

  local hstyle = frame.args['headerstyle']
  local lstyle = frame.args['labelstyle']
  local dstyle = frame.args['datastyle']

  for k,v in pairs(tbl) do
    -- not using common.cv, because both functions would be called
    if common.isset(v['header']) then
      ret[#ret+1] = build_header_row(ttype, v['class'], v['rclass'], v['header'], hstyle)
    else
      ret[#ret+1] = build_row(ttype, v['class'], v['rclass'], v['lclass'], v['label'], lstyle, v['data'], dstyle)
    end
  end

  return table.concat(ret)
end

-- finalize the infobox
local function build_end(frame, ttype)
  local ret = {''}

  if frame.args['child'] ~= 'yes' then
    ret[#ret+1] = '</table>'
  end

  return table.concat(ret)
end


-- == Exported functions ==

-- the basic infobox
local function build_infobox(frame)
  local ret = {}

  -- prepare data
  local drows = scan_data_rows(frame)
  local ttype = frame.args['type']
  if ttype == nil then ttype = '' end

  -- build infobox
  ret[#ret+1] = build_start(frame, ttype)
  ret[#ret+1] = build_headers(frame, ttype)
  ret[#ret+1] = build_body(frame, ttype, drows)
  ret[#ret+1] = build_end(frame, ttype)

  return table.concat(ret)
end

return {
  ['BuildInfobox'] = build_infobox,
  ['BuildInfoboxTemplate'] = function(frame) return build_infobox(frame:getParent()) end,
}