Fonction Habilitation Optimiser(PasDEffetDeBord) GenererThesaurus(NomFichierThesaurus : Caractere, SupprimerTraductionsInutiles : Booleen, EnvoyerMessage : Nul Ou Procedure(LibelleSection : Caractere, MotCle : Caractere)) Retourner Booleen
Le résultat est Vrai en cas de succès.
Si le paramètre SupprimerTraductionsInutiles a pour valeur Vrai, alors les traductions inutiles sont supprimées, sinon elles sont conservées. Chaque suppression est transmise au paramètre EnvoyerMessage. Les paramètres LibelleSection et MotCle contiennent alors respectivement la section et le mot-clé correspondant.
/****************************************************************/
Procedure EnvoyerMessage(LibelleSection : Caractere, MotCle : Caractere)
/* Objet : Envoie un message. */
/****************************************************************/
Debut
Ecran.Ecrire("La traduction '"+MotCle+"' de la section '"+LibelleSection+"' est supprimée.");
Fin Procedure
Principal
/*******/
Debut
...
Si Non ChargerThesaurus("demo") Alors
...
Fin Si
...
Si Non ChargerFichierMessage("${UPS_HOME}/demo/upsnls/${UPS_LANGUE}/demo.nls") Alors
...
Fin Si
...
Si Non GenererThesaurus("demo2", Vrai, EnvoyerMessage) Alors
...
Fin Si
...
Fin Principal
| - | - | - | - | - | - | - | - | - |