-- Internal variableslocaltype_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'localtype_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 functionsfunctioncree_banniere(typemot,langue)-- Le nom du type de mot doit être donné, sinon il est indéfiniiftypemotthen-- Vérifie que le nom donné est acceptélocaltype_code=type_ok[typemot]iftype_codethen-- créé le texte du type de mot avec son ancrelocalspan_in=cree_span(type_code,langue)localspan_out='</span>'localin_text=type_nom_normal[type_code]returnspan_in..in_text..span_outelsereturn'Type non supporté : '..typemotendelsereturn'Type indéfini'endendfunctioncree_span(type_code,langue)-- tout est défini ? Sinon pas d'ancreif(langue)thenreturn'<span id='..langue..'-'..type_code..'>'elsereturn'<span>'endend-- Interface for external invokelocalp={}-- Type de motfunctionp.type_de_mot(frame)returncree_banniere(frame.args['type'],frame.args['langue'])endreturnp