Modulo:Videogioco

--[[
Questo modulo è in appoggio al template Videogioco, per gestirne le funzioni di
categorizzazione automatica
]]
local p = {}
local errors_msg = {}
local cfg = mw.loadData("Modulo:Videogioco/Configurazione")
local getArgs = require('Module:Arguments').getArgs
local function build_reverse_alias(table_name)
    local reverse_alias = {}
    for alias, name in pairs(cfg['alias_' .. table_name]) do
        if not reverse_alias[name] then reverse_alias[name] = {} end
        table.insert(reverse_alias[name], alias)
    end
    return reverse_alias
end

-- ========================================================================
-- Sostituisce name con il suo alias se presente nella tabella alias
-- quindi ritorna il valore corrispondente dalla tabella values
-- ========================================================================
local function get_category(name, table_name)
    name = cfg['alias_' .. table_name][name] or name
    return cfg[table_name][name]
end

-- ========================================================================
-- Rimpiazza le parentesi quadre nella stringa con i corrispondenti codici
-- ascii
-- ========================================================================
local function replace_braces(s)
    local new_s = mw.ustring.gsub(s, "%[", "[")
    new_s = mw.ustring.gsub(new_s,  "%]", "]")
    new_s = mw.ustring.gsub(new_s, " ", " ")
    return new_s
end

-- ========================================================================
-- Ritorna una lista di categorie per la sequenza di parametri con
-- nome base 'base_name' consultando la tabella 'table'.
-- 'alias_table' è una tabella di nomi alternativi per i valori dei
-- parametri, 'max_index' il numero massimo dell'indice del parametro
-- da controllare
-- ========================================================================
local function categorizza(args, base_name, table_name, lowercase, must_exist)
    local categories = {}
    local name_value = args[base_name]  or args[base_name .. '1']
    if name_value then
        if lowercase then name_value = mw.ustring.lower(name_value) end
        local category = get_category(name_value, table_name)
        if category then
            categories[category] = true
        elseif must_exist then
            errors_msg[#errors_msg+1] = 'Valore non valido per ' .. base_name
        end
        local index = 2
        while true do
            name_value = args[base_name .. tostring(index)]
            if name_value then
                if lowercase then name_value = mw.ustring.lower(name_value) end
                local category = get_category(name_value, table_name)
                if category then
                    categories[category] = true
                elseif must_exist then
                    errors_msg[#errors_msg+1] = 'Valore non valido per ' .. base_name .. tostring(index)
                end
            else
                break
            end
            index = index + 1
        end
    end
    return categories
end
----------------------------------------------------------------------------------
-- categorizza
----------------------------------------------------------------------------------
function p.categorie(frame)
    local args = getArgs(frame, {parentOnly = not frame.args.debug})
    local current_page = mw.title.getCurrentTitle()
    local current_namespace = current_page.namespace
    if current_namespace ~= 0 and not frame.args.debug then return '' end
    local categories = {}
    local anomaly = {}
    categories.sviluppo = categorizza(args, 'sviluppo', 'aziende')
    categories.pubblicazione = categorizza(args, 'pubblicazione', 'aziende')
    categories.serie = categorizza(args, 'serie', 'serie')
    if args.anno then
        categories.anno = {}
        local anno = tonumber(args.anno)
        if anno == nil then
            errors_msg[#errors_msg+1] = 'anno di pubblicazione non valido'
        elseif anno <= 1970 then
            categories.anno['Videogiochi fino al 1970'] = true
        else
            categories.anno['Videogiochi del ' .. anno] = true
        end
    end
    categories.tema = categorizza(args, 'tema', 'tema', true)
    categories.genere = categorizza(args, 'genere', 'genere', true, true)
    categories.piattaforme = categorizza(args, 'piattaforma', 'piattaforma', false, true)
    categories.distribuzione = categorizza(args, 'distribuzionedigitale', 'distribuzione', false, true)
    local cat_dict = {}
    for cat_name,cat_list in pairs(categories) do
        for cat,_ in pairs(cat_list) do
            cat_dict[cat] = true
        end
    end
    local cat_list = {}
    for cat,_ in pairs(cat_dict) do
        cat_list[#cat_list+1] = '[[Categoria:' .. cat .. ']]'
    end
    if #errors_msg>0 then
        cat_list[#cat_list+1] = '[[Categoria:Errori di compilazione del template Videogioco]]'
    end
    if #cat_list == 0 then return '' end
    return frame.args.debug and mw.text.nowiki(table.concat(cat_list)) or table.concat(cat_list)
end
----------------------------------------------------------------------------------
-- Ritorna la configurazione della tabella per le aziende di videogiochi
----------------------------------------------------------------------------------
function p.tabella_configurazione(frame)
    local args = getArgs(frame)
    local table_name = args[1]
    if not(table_name) then return '' end
    local reverse_alias = build_reverse_alias(table_name)
    local root = mw.html.create('table')
    root
        :addClass('wikitable sortable')
        :tag('tr')
            :tag('th'):wikitext(table_name):done()
            :tag('th'):wikitext('Alias'):done()
            :tag('th'):wikitext('Categoria'):done()
    for name, cat_name in pairs(cfg[table_name]) do
        local name_code = replace_braces(name)
        local cat_code = '[[:Categoria:' .. cat_name .. ']]'
        local alias_code = '&nbsp;'
        if reverse_alias[name] then
            for i,alias in ipairs(reverse_alias[name]) do
                reverse_alias[name][i] = replace_braces(alias)
            end
            alias_code = table.concat(reverse_alias[name], '<br />')
        end
        root:tag('tr')
            :tag('td'):wikitext(name_code):done()
            :tag('td'):wikitext(alias_code):done()
            :tag('td'):wikitext(cat_code):done()
    end
    return tostring(root)
end
return p