Modulo:Videogioco

--[[  
Questo modulo è in appoggio al template Videogioco, per gestirne le funzioni di 
categorizzazione automatica
]]
 
local p = {}

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, values_table, alias_table)
    if alias_table then name = alias_table[name] or name end
    return values_table[name]
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, values_table, alias_table, max_index, lowercase)
    local categories = {}
    if args[base_name] then   
        local name_value = args[base_name]
        if lower_case then name_value = mw.mw.ustring.lower(name_value) end
        local category = get_category(name_value, values_table, alias_table)
        if category then categories[category] = true end
    end
    local index = 1
    local flag_stop = false
    local previous_present = true
    local anomaly = false
    while not flag_stop do
        local name = base_name .. tostring(index)
        if args[name] then
            local name_value = args[base_name]
            if lower_case then name_value = mw.mw.ustring.lower(name_value) end
            local category = get_category(name_value, values_table, alias_table)
            if category then categories[category] = true end
            if index > 2 and not previous_present then anomaly = true end
            previous_present = true 
        else 
            previous_present = false
        end
        index = index + 1
        if index > max_index then flag_stop = true end
    end
    if args[base_name] and args[base_name .. '1'] then anomaly = true end
    if args[base_name .. '2'] and not (args[base_name] or args[base_name .. '1']) then anomaly = true end
    return categories, anomaly
end

----------------------------------------------------------------------------------
-- categorizza
----------------------------------------------------------------------------------
function p.categorie(frame)
    local args = getArgs(frame, {parentOnly=true})
    local current_page = mw.title.getCurrentTitle()
    local current_namespace = current_page.namespace
    if current_namespace ~= 0 then return '' end
    local errors_msg = {}
    local categories = {}
    local anomaly = {}
    categories.sviluppo, anomaly.sviluppo = categorizza(args, 'sviluppo', cfg.aziende, cfg.aliaz_aziende, 6)
    categories.pubblicazione, anomaly.pubblicazione = categorizza(args, 'pubblicazione', cfg.aziende, cfg.aliaz_aziende, 3)
    categories.serie, anomaly.serie = categorizza(args, 'serie', cfg.serie, cfg.alias_serie, 3, true)
    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, anomaly.tema = categorizza(args, 'tema', cfg.tema, cfg.alias_tema, 3, true)
    categories.piattaforme, anomaly.piattaforme = categorizza(args, 'piattaforma', cfg.tema, cfg.alias_tema, 3)
    categories.distribuzione, anomaly.distribuzione = categorizza(args, 'distribuzione', cfg.tema, cfg.distribuzione_tema, 3)
    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 anomaly.sviluppo or anomaly.pubblicazione or anomaly.serie or anomaly.tema or anomaly.piattaforme or anomaly.distribuzione then
        cat_list[#cat_list+1] = '[[Categoria:Errori di compilazione del template Videogioco - ordine parametri]]'
    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 table.join(cat_list)
end

----------------------------------------------------------------------------------
-- Ritorna la configurazione della tabella per le aziende di videogiochi
----------------------------------------------------------------------------------
function p.aziende(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 = '<nowiki>' .. name .. '</nowiki>'
        local cat_code = '[[:Categoria:' .. cat_name .. ']]'
        local alias_code = '&nbsp;'
        if reverse_alias[name] then
            local alias_code = '<nowiki>' .. table.join(reverse_alias[name], '</nowiki>, <nowiki>') .. '</nowiki>'
        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