Module:traduction2

b = require('Module:bases')
lang = require('Module:langues')

local p = {}

local cats = {}
-- Activer pour voir les catégories générées
-- Seulement pour déboguer avec l'aperçu : désactiver en sauvegardant
local isdebug = false

function _categorie_section(nom_cat, clef, ecrit)
    if isdebug then
    	if clef then
        	return b.fait_categorie(nom_cat, nil, true) .. '(' .. clef .. ')'
        else
        	return b.fait_categorie(nom_cat, nil, true)
        end
    else
        return b.fait_categorie_contenu(nom_cat, clef, ecrit)
    end
end

function _fait_span_trad(texte, code)
    if (texte ~= nil and code ~= nil) then
        return '<span class="trad-' .. code .. '">' .. texte .. '</span>'
    else
        return ''
    end
end

-- Fonction pour écrire l'équivalent du modèle T
function p.T(frame)
    -- Récupération des variables nécessaires à la création du titre
    local args = frame:getParent().args
    args = b.trim_parametres(args)
    local code  = args
    local trier = false
    if (args == 'trier') then trier = true end
    local article = mw.title.getCurrentTitle()
    
    -- Pas de code de langue, indispensable
    if code == nil or code == '' then
    	table.insert(cats, _categorie_section('Wiktionnaire:Traductions T sans langue précisée'))
        return ']' .. table.concat(cats)
    end
    
    -- A-t-on une langue correspondant au code ?
    local langue = lang.get_nom(code)
    local textet = {}
    
    -- Oui : écrit le texte
    if (langue ~= nil and langue ~= '') then
        table.insert(textet, b.ucfirst(langue))
        
        -- Catégories
        local newcattext = trier and 'Wiktionnaire:Traductions à trier en ' or 'Traductions en '
        table.insert(cats, _categorie_section(newcattext .. langue))
    
    -- Langue sans code! Catégorisée pour la retrouver
    else
        table.insert(textet, '<i><span style="color:red">' .. code .. '</span></i>]')
        
        table.insert(cats, _categorie_section('Wiktionnaire:Traductions T avec code langue non défini', code))
    end
    
    texte = _fait_span_trad(table.concat(textet), code)
    
    return texte .. table.concat(cats)
end

---------------------------------------------------------------------------------------------------------
-- Fonctions pour créer les éléments de trad_defaut
function _fait_lien_local(code_langue, mot, dif)
    local texte_lien
    if dif ~= nil and dif ~= '' then
        texte_lien = dif
    else
        texte_lien = mot
    end
    
    local texte_final =  ']'
    return texte_final
    -- Manque dif, et un <span lang="">, à faire par une fonction de base
end

function _fait_asterisque(code_langue, mot, statut)
    -- Dessine l'astérisque selon le statut de l'article dans le Wiktionnaire correspondant
    local asterisque = ''
    
    -- Destination du lien
    -- Corriger le lien pour les wikis spéciaux
    local code_langue_wikt =  lang.get_lien_Wikimedia(code_langue) or code_langue
    local destination = ':' .. code_langue_wikt .. ':' .. mot
    
    -- Pas de statut, ou statut du Wiki inconnu ? Ne rien afficher
    if (statut == '' or statut == nil) then
        asterisque = ''
        destination = nil
        
    -- Pas de Wiki ?
    elseif (statut == 'nowikt') then
        asterisque = '<span class="trad-nowikt">(*)</span>'
        destination = 'Wiktionnaire:Pas de wiktionnaire dans cette langue'
    elseif (statut == 'existe') then
        asterisque = '<span class="trad-existe">(' .. code_langue_wikt .. ')</span>'
    elseif (statut == 'inconnu') then
        asterisque = '<span class="trad-inconnu">(' .. code_langue_wikt .. ')</span>'
    elseif (statut == 'absent') then
        asterisque = '<span class="trad-absent">('  .. code_langue_wikt .. ')</span>'
    end
    
    local texte_final = destination and '<span class="trad-exposant">]</span>' or ''
    return texte_final
end

function _fait_ecrit_traditionnel(code_langue, tradi)
    if (tradi == nil or tradi == '') then return nil end
    
    local destination = tradi .. '#' .. code_langue
    local affichage = ''
    if code_langue == 'zh' then
        affichage = b.balise_langue(tradi, code_langue..'-Hant')
	else
        affichage = b.balise_langue(tradi, code_langue)
    end
    local texte_final = ']'
    return texte_final
end

function _fait_transcrit(code_langue, transc, code_lang_R)
    if (transc == nil or transc == '' or code_langue == nil) then return nil end
    
    local lang = code_lang_R or code_langue .. '-Latn'
    local texte_final = '<span lang="' .. lang .. '">' .. transc .. '</span>'
    return texte_final
end

-- Genre : seulement les genres définis (sinon on invoque n'importe quel modèle, voire un modèle inexistant)
function _fait_genre(genre)
	if genre == nil then return nil end
	
	-- Liste des genres autorisés
	local listeg = {}
	listeg = 'masculin'
	listeg = 'féminin'
	listeg = 'neutre'
	listeg = 'commun'
	listeg = 'singulier'
	listeg = 'pluriel'
	listeg = 'duel'
	listeg = 'masculin et féminin identiques'
	listeg = 'masculin animé'
	listeg = 'masculin inanimé'
	listeg = 'féminin animé'
	listeg = 'féminin inanimé'
	
	if listeg then
		return "''" .. listeg .. "''"
	else
		table.insert(cats, _categorie_section("Wiktionnaire:Traductions avec genre inexistant", genre))
		return ''
	end
end

-- Fonction pour écrire l'équivalent de trad/défaut
function p.trad_defaut(frame)
    -- Récupération des variables
    local args = frame.args
    local argsnum = b.trim_parametres(args) -- trim les paramètres numériques
    
    local code_langue = argsnum                  -- Code langue
    local code_lang_s = args              -- Code langue plus précis (rare) PAS UTILISÉ ?
    local code_lang_R = args or args    -- Code langue du terme traditionnel (chinois et coréen)
    
    local mot = argsnum                          -- Le terme traduit
    local dif = args                         -- Affichage alternatif du terme traduit (rare)
    local tradi = args                     -- Terme traditionnel (chinois et coréen)
    local transc = args or args          -- Transcription du terme traduit
    
    local statut = args                   -- Remplace "color", voir les statuts possibles dans _fait_asterisque
    local nocat = (args and true or false) -- Pas catégorisé (vraiment utile ?)
    local genre = argsnum
    local erreur = argsnum

    -- Vérification des paramètres
    if code_langue == nil or code_langue == '' then
        table.insert(cats, _categorie_section("Wiktionnaire:Traductions sans langue précisée"))
        return '] <span style="color:red;">(paramètre 1)</span>'
    elseif lang.get_nom(code_langue) == nil then
        table.insert(cats, _categorie_section('Wiktionnaire:Traductions trad avec code langue non défini', code))
    end
    
    -- Préparation du texte à afficher
    local lien_local = ''
    local asterisque = ''
    
    -- Pas de mot par défaut : si absent, c'est une erreur
    if mot == nil or mot =='' then
        table.insert(cats, _categorie_section("Wiktionnaire:Traductions sans traduction précisée"))
        lien_local = '<span style="color:red;">pas de traduction précisée (paramètre 2)</span>'
    else
    	lien_local = _fait_lien_local(code_langue, mot, dif)
    	asterisque = _fait_asterisque(code_langue, mot, statut)
    end
    
    local ecrit_traditionnel = tradi and _fait_ecrit_traditionnel(code_langue, tradi) or nil
    local transcrit = transc and _fait_transcrit(code_langue, transc, code_lang_R) or nil
    local texte_genre = _fait_genre(genre)
    
    -- Création du texte à afficher
    local textet_final = {lien_local}
    if (asterisque) then table.insert(textet_final, ' ' .. asterisque) end
    if (ecrit_traditionnel) then table.insert(textet_final, ' (' .. ecrit_traditionnel .. ')') end
    if (transcrit) then table.insert(textet_final, ' (' .. transcrit .. ')') end
    if (texte_genre) then table.insert(textet_final, ' ' .. texte_genre) end
    if erreur ~= nil then table.insert(cats, _categorie_section("Wiktionnaire:Traductions avec paramètre en trop", erreur)) end
    return table.concat(textet_final)
end

-- Interface à utiliser dans les modèles trad, trad+, trad-, trad--
function p.trad(frame)
    -- Récupère les arguments du modèle
    local par_model = frame:getParent()
    
    -- Ajoute le statut
    par_model.args = frame.args
    return p.trad_defaut(par_model) .. table.concat(cats)
end

return p