الفرق بين المراجعتين لصفحة: «وحدة:Infobox»

أُزيل ٢٬١٤٥ بايت ،  ١٢ ديسمبر ٢٠٢٠
ط
غير مستوى الحماية ل"وحدة:Infobox": صفحه مهمه ([تعديل=سيسوب بس] (مش محدد) [انقل=سيسوب بس] (مش محدد))
(تحديث الوحدة من المقابل في ويكيبيديا انجليزي)
 
ط (غير مستوى الحماية ل"وحدة:Infobox": صفحه مهمه ([تعديل=سيسوب بس] (مش محدد) [انقل=سيسوب بس] (مش محدد)))
سطر ١: سطر ١:
--
--
-- This module implements {{بطاقة}}
-- This module implements {{Infobox}}
--
--
 
local p = {}
local p = {}


سطر ٨: سطر ٨:


local args = {}
local args = {}
local origArgs
local origArgs = {}
local root
local root


سطر ٢٧: سطر ٢٧:
s = mw.ustring.gsub(s, '^(%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '^(%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '([\r\n]%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '([\r\n]%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, marker .. '(%s*</[Tt][Aa][Bb][Ll][Ee]%s*>)', '%1')
s = mw.ustring.gsub(s, marker .. '(%s*</[Tt][Aa][Bb][Ll][Ee]%s*>)', '%1')
s = mw.ustring.gsub(s, marker .. '(%s*\n|%})', '%1')
s = mw.ustring.gsub(s, marker .. '(%s*\n|%})', '%1')
end
end
if s:match(marker) then
if s:match(marker) then
سطر ٦٣: سطر ٦٣:


local function union(t1, t2)
local function union(t1, t2)
    -- Returns the union of the values of two tables, as a sequence.
-- Returns the union of the values of two tables, as a sequence.
    local vals = {}
local vals = {}
    for k, v in pairs(t1) do
for k, v in pairs(t1) do
        vals[v] = true
vals[v] = true
    end
end
    for k, v in pairs(t2) do
for k, v in pairs(t2) do
        vals[v] = true
vals[v] = true
    end
end
    local ret = {}
local ret = {}
    for k, v in pairs(vals) do
for k, v in pairs(vals) do
        table.insert(ret, k)
table.insert(ret, k)
    end
end
    return ret
return ret
end
end


local function getArgNums(prefix)
local function getArgNums(prefix)
    -- Returns a table containing the numbers of the arguments that exist
-- Returns a table containing the numbers of the arguments that exist
    -- for the specified prefix. For example, if the prefix was 'data', and
-- for the specified prefix. For example, if the prefix was 'data', and
    -- 'data1', 'data2', and 'data5' exist, it would return {1, 2, 5}.
-- 'data1', 'data2', and 'data5' exist, it would return {1, 2, 5}.
    local nums = {}
local nums = {}
    for k, v in pairs(args) do
for k, v in pairs(args) do
        local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')
local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')
        if num then table.insert(nums, tonumber(num)) end
if num then table.insert(nums, tonumber(num)) end
    end
end
    table.sort(nums)
table.sort(nums)
    return nums
return nums
end
end


local function addRow(rowArgs)
local function addRow(rowArgs)
    -- Adds a row to the infobox, with either a header cell
-- Adds a row to the infobox, with either a header cell
    -- or a label/data cell combination.
-- or a label/data cell combination.
    if rowArgs.header and rowArgs.header ~= '_BLANK_' then
if rowArgs.header and rowArgs.header ~= '_BLANK_' then
        root
root
            :tag('tr')
:tag('tr')
                :addClass(rowArgs.rowclass)
:addClass(rowArgs.rowclass)
                :cssText(rowArgs.rowstyle)
:cssText(rowArgs.rowstyle)
                :attr('id', rowArgs.rowid)
:attr('id', rowArgs.rowid)
                :tag('th')
:tag('th')
                    :attr('colspan', 2)
:attr('colspan', 2)
                    :attr('id', rowArgs.headerid)
:attr('id', rowArgs.headerid)
                    :addClass(rowArgs.class)
:addClass(rowArgs.class)
                    :addClass(args.headerclass)
:addClass(args.headerclass)
                    :css('text-align', 'center')
:css('text-align', 'center')
                    :cssText(args.headerstyle)
:cssText(args.headerstyle)
                    :cssText(rowArgs.rowcellstyle)
:cssText(rowArgs.rowcellstyle)
                    :wikitext(fixChildBoxes(rowArgs.header, 'th'))
:wikitext(fixChildBoxes(rowArgs.header, 'th'))
        if rowArgs.data then
if rowArgs.data then
root:wikitext('[[Category:Pages which use infobox templates with ignored data cells]]')
root:wikitext('[[Category:Pages which use infobox templates with ignored data cells]]')
end
end
    elseif rowArgs.data then
elseif rowArgs.data then
    if not rowArgs.data:gsub('%[%[%s*[Cc][Aa][Tt][Ee][Gg][Oo][Rr][Yy]%s*:[^]]*]]', ''):match('^%S') then
if not rowArgs.data:gsub('%[%[%s*[Cc][Aa][Tt][Ee][Gg][Oo][Rr][Yy]%s*:[^]]*]]', ''):match('^%S') then
rowArgs.rowstyle = 'display:none'
rowArgs.rowstyle = 'display:none'
end
end
        local row = root:tag('tr')
local row = root:tag('tr')
        row:addClass(rowArgs.rowclass)
row:addClass(rowArgs.rowclass)
        row:cssText(rowArgs.rowstyle)
row:cssText(rowArgs.rowstyle)
        row:attr('id', rowArgs.rowid)
row:attr('id', rowArgs.rowid)
        if rowArgs.label then
if rowArgs.label then
            row
row
                :tag('th')
:tag('th')
                    :attr('scope', 'row')
:attr('scope', 'row')
                    :attr('id', rowArgs.labelid)
:attr('id', rowArgs.labelid)
                    :cssText(args.labelstyle)
:cssText(args.labelstyle)
                    :cssText(rowArgs.rowcellstyle)
:cssText(rowArgs.rowcellstyle)
                    :wikitext(rowArgs.label)
:wikitext(rowArgs.label)
                    :done()
:done()
        end
end
       
 
        local dataCell = row:tag('td')
local dataCell = row:tag('td')
        if not rowArgs.label then  
if not rowArgs.label then
            dataCell
dataCell
                :attr('colspan', 2)
:attr('colspan', 2)
                :css('text-align', 'center')  
:css('text-align', 'center')
        end
end
        dataCell
dataCell
            :attr('id', rowArgs.dataid)
:attr('id', rowArgs.dataid)
            :addClass(rowArgs.class)
:addClass(rowArgs.class)
            :cssText(rowArgs.datastyle)
:cssText(rowArgs.datastyle)
            :cssText(rowArgs.rowcellstyle)
:cssText(rowArgs.rowcellstyle)
            :wikitext(fixChildBoxes(rowArgs.data, 'td'))
:wikitext(fixChildBoxes(rowArgs.data, 'td'))
    end
end
end
end


local function renderTitle()
local function renderTitle()
    if not args.title then return end
if not args.title then return end


    root
root
        :tag('caption')
:tag('caption')
            :addClass(args.titleclass)
:addClass(args.titleclass)
            :cssText(args.titlestyle)
:cssText(args.titlestyle)
            :wikitext(args.title)
:wikitext(args.title)
end
end


local function renderAboveRow()
local function renderAboveRow()
    if not args.above then return end
if not args.above then return end
   
 
    root
root
        :tag('tr')
:tag('tr')
            :tag('th')
:tag('th')
                :attr('colspan', 2)
:attr('colspan', 2)
                :addClass(args.aboveclass)
:addClass(args.aboveclass)
                :css('text-align', 'center')
:css('text-align', 'center')
                :css('font-size', '125%')
:css('font-size', '100%')
                :css('font-weight', 'bold')
:css('font-weight', 'normal')
                :cssText(args.abovestyle)
:cssText(args.abovestyle)
                :wikitext(fixChildBoxes(args.above,'th'))
:wikitext(fixChildBoxes(args.above,'th'))
end
end


local function renderBelowRow()
local function renderBelowRow()
    if not args.below then return end
if not args.below then return end
   
 
    root
root
        :tag('tr')
:tag('tr')
            :tag('td')
:tag('td')
                :attr('colspan', '2')
:attr('colspan', '2')
                :addClass(args.belowclass)
:addClass(args.belowclass)
                :css('text-align', 'center')
:css('text-align', 'center')
                :cssText(args.belowstyle)
:cssText(args.belowstyle)
                :wikitext(fixChildBoxes(args.below,'td'))
:wikitext(fixChildBoxes(args.below,'td'))
end
end


local function renderSubheaders()
local function renderSubheaders()
    if args.subheader then
if args.subheader then
        args.subheader1 = args.subheader
args.subheader1 = args.subheader
    end
end
    if args.subheaderrowclass then
if args.subheaderrowclass then
        args.subheaderrowclass1 = args.subheaderrowclass
args.subheaderrowclass1 = args.subheaderrowclass
    end
end
    local subheadernums = getArgNums('subheader')
local subheadernums = getArgNums('subheader')
    for k, num in ipairs(subheadernums) do
for k, num in ipairs(subheadernums) do
        addRow({
addRow({
            data = args['subheader' .. tostring(num)],
data = args['subheader' .. tostring(num)],
            datastyle = args.subheaderstyle,
datastyle = args.subheaderstyle,
            rowcellstyle = args['subheaderstyle' .. tostring(num)],
rowcellstyle = args['subheaderstyle' .. tostring(num)],
            class = args.subheaderclass,
class = args.subheaderclass,
            rowclass = args['subheaderrowclass' .. tostring(num)]
rowclass = args['subheaderrowclass' .. tostring(num)]
        })
})
    end
end
end
end


local function renderImages()
local function renderImages()
    if args.image then
if args.image then
        args.image1 = args.image
args.image1 = args.image
    end
end
    if args.caption then
if args.caption then
        args.caption1 = args.caption
args.caption1 = args.caption
    end
end
    local imagenums = getArgNums('image')
local imagenums = getArgNums('image')
    for k, num in ipairs(imagenums) do
for k, num in ipairs(imagenums) do
        local caption = args['caption' .. tostring(num)]
local caption = args['caption' .. tostring(num)]
        local data = mw.html.create():wikitext(args['image' .. tostring(num)])
local data = mw.html.create():wikitext(args['image' .. tostring(num)])
        if caption then
if caption then
            data
data
                :tag('div')
:tag('div')
                    :cssText(args.captionstyle)
:cssText(args.captionstyle)
                    :wikitext(caption)
:wikitext(caption)
        end
end
        addRow({
addRow({
            data = tostring(data),
data = tostring(data),
            datastyle = args.imagestyle,
datastyle = args.imagestyle,
            class = args.imageclass,
class = args.imageclass,
            rowclass = args['imagerowclass' .. tostring(num)]
rowclass = args['imagerowclass' .. tostring(num)]
        })
})
    end
end
end
end


local function preprocessRows()
local function preprocessRows()
    -- Gets the union of the header and data argument numbers,
-- Gets the union of the header and data argument numbers,
    -- and renders them all in order using addRow.
-- and renders them all in order using addRow.
    local rownums = union(getArgNums('header'), getArgNums('data'))
local rownums = union(getArgNums('header'), getArgNums('data'))
    table.sort(rownums)
table.sort(rownums)
local lastheader
local lastheader
for k, num in ipairs(rownums) do
for k, num in ipairs(rownums) do
سطر ٢٥٨: سطر ٢٥٨:
local rownums = union(getArgNums('header'), getArgNums('data'))
local rownums = union(getArgNums('header'), getArgNums('data'))
table.sort(rownums)
table.sort(rownums)
    for k, num in ipairs(rownums) do
for k, num in ipairs(rownums) do
        addRow({
addRow({
            header = args['header' .. tostring(num)],
header = args['header' .. tostring(num)],
            label = args['label' .. tostring(num)],
label = args['label' .. tostring(num)],
            data = args['data' .. tostring(num)],
data = args['data' .. tostring(num)],
            datastyle = args.datastyle,
datastyle = args.datastyle,
            class = args['class' .. tostring(num)],
class = args['class' .. tostring(num)],
            rowclass = args['rowclass' .. tostring(num)],
rowclass = args['rowclass' .. tostring(num)],
            rowstyle = args['rowstyle' .. tostring(num)],
rowstyle = args['rowstyle' .. tostring(num)],
            rowcellstyle = args['rowcellstyle' .. tostring(num)],
rowcellstyle = args['rowcellstyle' .. tostring(num)],
            dataid = args['dataid' .. tostring(num)],
dataid = args['dataid' .. tostring(num)],
            labelid = args['labelid' .. tostring(num)],
labelid = args['labelid' .. tostring(num)],
            headerid = args['headerid' .. tostring(num)],
headerid = args['headerid' .. tostring(num)],
            rowid = args['rowid' .. tostring(num)]
rowid = args['rowid' .. tostring(num)]
        })
})
    end
end
end
end


local function renderNavBar()
local function renderNavBar()
    if not args.name then return end
if not args.name then return end
   
 
    root
root
        :tag('tr')
:tag('tr')
            :tag('td')
:tag('td')
                :attr('colspan', '2')
:attr('colspan', '2')
                :css('text-align', 'right')
:css('text-align', 'right')
                :wikitext(navbar{
:wikitext(navbar{
                    args.name,
args.name,
                    mini = 1,
mini = 1,
                })
})
end
end


local function renderItalicTitle()
local function renderItalicTitle()
    local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
    if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
        root:wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
root:wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
    end
end
end
end


local function renderTrackingCategories()
local function renderTrackingCategories()
    if args.decat ~= 'yes' then
if args.decat ~= 'yes' then
        if args.child == 'yes' then
if args.child == 'yes' then
if args.title then
if args.title then
root:wikitext('[[Category:Pages which use embedded infobox templates with the title parameter]]')
root:wikitext('[[Category:Pages which use embedded infobox templates with the title parameter]]')
end
end
        elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
            root:wikitext('[[تصنيف:مقالات تستخدم صناديق معلومات بدون صفوف بيانات]]')
root:wikitext('[[Category:Articles which use infobox templates with no data rows]]')
        end
end
    end
end
end
end


local function _infobox()
local function _infobox()
    -- Specify the overall layout of the infobox, with special settings
-- Specify the overall layout of the infobox, with special settings
    -- if the infobox is used as a 'child' inside another infobox.
-- if the infobox is used as a 'child' inside another infobox.
    if args.child ~= 'yes' then
if args.child ~= 'yes' then
        root = mw.html.create('table')
root = mw.html.create('table')
       
 
        root
root
            :addClass((args.subbox ~= 'yes') and 'infobox' or nil)
:addClass((args.subbox ~= 'yes') and 'infobox' or nil)
            :addClass(args.bodyclass)
:addClass(args.bodyclass)
           
 
            if args.subbox == 'yes' then
if args.subbox == 'yes' then
                root
root
                    :css('padding', '0')
:css('padding', '0')
                    :css('border', 'none')
:css('border', 'none')
                    :css('margin', '-3px')
:css('margin', '-3px')
                    :css('width', 'auto')
:css('width', 'auto')
                    :css('min-width', '100%')
:css('min-width', '100%')
                    :css('font-size', '100%')
:css('font-size', '90%')
                    :css('clear', 'none')
:css('font-weight', 'normal')
                    :css('float', 'none')
:css('clear', 'none')
                    :css('background-color', 'transparent')
:css('float', 'none')
            else
:css('background-color', 'transparent')
                root
else
                    :css('width', '22em')
root
            end
:css('width', '335px')
        root
end
            :cssText(args.bodystyle)
root
   
:cssText(args.bodystyle)
        renderTitle()
 
        renderAboveRow()
renderTitle()
    else
renderAboveRow()
        root = mw.html.create()
else
       
root = mw.html.create()
        root
 
            :wikitext(args.title)
root
    end
:wikitext(args.title)
end


    renderSubheaders()
renderSubheaders()
    renderImages()
renderImages()
    if args.autoheaders then
if args.autoheaders then
preprocessRows()
preprocessRows()
end
end
    renderRows()  
renderRows()
    renderBelowRow()
renderBelowRow()
    renderNavBar()
renderNavBar()
    renderItalicTitle()
renderItalicTitle()
    renderTrackingCategories()
renderTrackingCategories()
   
 
    return tostring(root)
return tostring(root)
end
end


local function preprocessSingleArg(argName)
local function preprocessSingleArg(argName)
    -- If the argument exists and isn't blank, add it to the argument table.
-- If the argument exists and isn't blank, add it to the argument table.
    -- Blank arguments are treated as nil to match the behaviour of ParserFunctions.
-- Blank arguments are treated as nil to match the behaviour of ParserFunctions.
    if origArgs[argName] and origArgs[argName] ~= '' then
if origArgs[argName] and origArgs[argName] ~= '' then
        args[argName] = origArgs[argName]
args[argName] = origArgs[argName]
    end
end
end
end


local function preprocessArgs(prefixTable, step)
local function preprocessArgs(prefixTable, step)
    -- Assign the parameters with the given prefixes to the args table, in order, in batches
-- 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
-- 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
-- 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
-- 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"
-- parameters containing the "prefix" string, but only parses parameters in the "depend"
    -- table if the prefix parameter is present and non-blank.
-- table if the prefix parameter is present and non-blank.
    if type(prefixTable) ~= 'table' then
if type(prefixTable) ~= 'table' then
        error("Non-table value detected for the prefix table", 2)
error("Non-table value detected for the prefix table", 2)
    end
end
    if type(step) ~= 'number' then
if type(step) ~= 'number' then
        error("Invalid step value detected", 2)
error("Invalid step value detected", 2)
    end
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.
-- Get arguments without a number suffix, and check for bad input.
    local a = 1 -- Counter variable.
for i,v in ipairs(prefixTable) do
    local moreArgumentsExist = true
if type(v) ~= 'table' or type(v.prefix) ~= "string" or (v.depend and type(v.depend) ~= 'table') then
    while moreArgumentsExist == true do
error('Invalid input detected to preprocessArgs prefix table', 2)
        moreArgumentsExist = false
end
        for i = a, a + step - 1 do
preprocessSingleArg(v.prefix)
            for j,v in ipairs(prefixTable) do
-- Only parse the depend parameter if the prefix parameter is present and not blank.
                local prefixArgName = v.prefix .. tostring(i)
if args[v.prefix] and v.depend then
                if origArgs[prefixArgName] then
for j, dependValue in ipairs(v.depend) do
                    moreArgumentsExist = true -- Do another loop if any arguments are found, even blank ones.
if type(dependValue) ~= 'string' then
                    preprocessSingleArg(prefixArgName)
error('Invalid "depend" parameter value detected in preprocessArgs')
                end
end
                -- Process the depend table if the prefix argument is present and not blank, or
preprocessSingleArg(dependValue)
                -- we are processing "prefix1" and "prefix" is present and not blank, and
end
                -- if the depend table is present.
end
                if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then
end
                    for j,dependValue in ipairs(v.depend) do
 
                        local dependArgName = dependValue .. tostring(i)
-- Get arguments with number suffixes.
                        preprocessSingleArg(dependArgName)
local a = 1 -- Counter variable.
                    end
local moreArgumentsExist = true
                end
while moreArgumentsExist == true do
            end
moreArgumentsExist = false
        end
for i = a, a + step - 1 do
        a = a + step
for j,v in ipairs(prefixTable) do
    end
local prefixArgName = v.prefix .. tostring(i)
if origArgs[prefixArgName] then
moreArgumentsExist = true -- Do another loop if any arguments are found, even blank ones.
preprocessSingleArg(prefixArgName)
end
-- Process the depend table if the prefix argument is present and not blank, or
-- we are processing "prefix1" and "prefix" is present and not blank, and
-- if the depend table is present.
if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then
for j,dependValue in ipairs(v.depend) do
local dependArgName = dependValue .. tostring(i)
preprocessSingleArg(dependArgName)
end
end
end
end
a = a + step
end
end
end
 
local function parseDataParameters()
local function parseDataParameters()
-- Parse the data parameters in the same order that the old {{infobox}} did, so that
-- 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
-- references etc. will display in the expected places. Parameters that depend on
سطر ٤٧٨: سطر ٤٧٩:


function p.infobox(frame)
function p.infobox(frame)
    -- If called via #invoke, use the args passed into the invoking template.
-- If called via #invoke, use the args passed into the invoking template.
    -- Otherwise, for testing purposes, assume args are being passed directly in.
-- Otherwise, for testing purposes, assume args are being passed directly in.
    if frame == mw.getCurrentFrame() then
if frame == mw.getCurrentFrame() then
        origArgs = frame:getParent().args
origArgs = frame:getParent().args
    else
else
        origArgs = frame
origArgs = frame
    end
end
   
    parseDataParameters()
parseDataParameters()
return _infobox()
return _infobox()
مستخدم مجهول