200# { ================ Erreur.mac ===================== Auteur : Alphonse Capriani Version : 13.11 Date de création : 02 novembre 2013 Dernière mise à jour : 11 novembre 2013 Description : Gestion des erreurs sous TeXgraph ==================================================== } Var {Version de Erreur.mac} Erreur = 13.11; {Messages d'erreur} FichierErr = Nil; {Fichier à l'origine de l'erreur} VersionFichierErr = Nil; {Version du fichier à l'origine de l'erreur} MacroErr = Nil; {Macro à l'origine de l'erreur} NiveauErr = Nil; {Niveau de l'erreur : Informatif/Warning/Sévère/Autre)} LibelleErr = Nil; {Libellé de l'erreur rencontrée} MessageErr = Nil; {Message d'erreur} RetourErr = Nil; {Valeur à retourner par la macro ayant planté} AfficherErr = 0; {Booléen permettant l'affichage ou non de l'erreur} SauvegarderErr = 0; {Booléen permettant ou non la sauvegarde des erreur rencontrée} HistoriqueErr = Nil; {Liste des erreurs rencontrées} NombreErr = 0; {Nombre d'erreurs sauvegardées} Mac TraiterErreur = {TraiterErreur([Options]) : Traitement d'une erreur détectée dans une macro} [ {Définition du message d'erreur} MessageErr:=Concat("====== Erreur.mac ======", LF), if not(nil(FichierErr)) then MessageErr:=Concat(MessageErr, "Fichier de macros : ", FichierErr, LF) fi, if not(nil(VersionFichierErr)) then MessageErr:=Concat(MessageErr, "Version fichier macros : ", VersionFichierErr, LF) fi, if not(nil(MacroErr)) then MessageErr:=Concat(MessageErr, "Macro : ", MacroErr, LF) fi, if not(nil(NiveauErr)) then MessageErr:=Concat(MessageErr, "Niveau de l'erreur : ", NiveauErr, LF) fi, if not(nil(LibelleErr)) then MessageErr:=Concat(MessageErr, "Libellé de l'erreur : ", LibelleErr, LF) fi, {Affichage du message d'erreur} if AfficherErr = 1 then AfficherMessageErreur() fi, {Sauvegarde du message} if SauvegarderErr = 1 then HistoriqueErr := Concat(HistoriqueErr, LF, MessageErr), Inc(NombreErr, 1) fi ]; ReinitErreur = {Réinitialisation du message d'erreur} [ FichierErr:=Nil, VersionFichier:=Nil, MacroErr:=Nil, NiveauErr:=Nil, LibelleErr:=Nil, RetourErr:=Nil, AfficherErr:=0, SauvegarderErr:=0, HistoriqueErr:=Nil, NombreErr:=0 ]; AfficherMessageErreur = {AfficherMessageErreur() : Affiche le message d'erreur courrant} [ Message(MessageErr) ]; AfficherHistoriqueErreur = {AffichageHistoriqueErreur() : Affiche l'historique des erreur rencontrées} [ Message(HistoriqueErr) ];