Utilisateur:Darkdadaah/Lua test modèle

-- Internal variables
local type_ok = {}
type_ok['nom commun']='nom'
type_ok['nom propre']='nom-pr'
type_ok['verbe']='verb'
type_ok['adjectif']='adj'
type_ok['adjectif qualificatif']='adj'

local type_nom_normal = {}
type_nom_normal['nom'] = 'Nom commun'
type_nom_normal['nom-pr'] = 'Nom propre'
type_nom_normal['verb'] = 'Verbe'
type_nom_normal['adj'] = 'Adjectif'

-- Internal functions
function cree_banniere(typemot, langue)
    -- Le nom du type de mot doit être donné, sinon il est indéfini
    if typemot then
        -- Vérifie que le nom donné est accepté
        local type_code = type_ok[typemot]
        if type_code then
            -- créé le texte du type de mot avec son ancre
            local span_in = cree_span(type_code, langue)
            local span_out= '</span>'
            local in_text = type_nom_normal[type_code]
            return span_in .. in_text .. span_out
        else return 'Type non supporté : '..typemot
        end
    else return 'Type indéfini'
    end
end

function cree_span(type_code, langue)
    -- tout est défini ? Sinon pas d'ancre
    if (langue) then
        return '<span id=' .. langue .. '-' .. type_code .. '>'
     else
        return '<span>'
    end
end

-- Interface for external invoke
local p = {}

-- Type de mot
function p.type_de_mot(frame)
    return cree_banniere(frame.args['type'], frame.args['langue'])
end
 
return p