Fonction Optimiser(Invariant) EnumererExceptions(Numero : Entier, Aide : Nul Ou Caractere=? Sortie) Retourner Nul Ou Exception;
En sortie, la variable Aide recueille un libellé donnant la sémantique de l'exception et le résultat est l'exception.
Exception
/*******/
E1("E1", 1);
E2("E2", 2);
E3("E3", 3);
Variable
/******/
M : Nul Ou Module;
Numero : Entier;
E : Nul Ou Exception;
Principal
/*******/
M=Module("M1");
E=M.EnumererExceptions(++Numero, ?);
/* Enumère les exceptions de 'M1'. */
TantQue E!=Nul Faire
Ecran.Ecrire(E.NomException);
E=M.EnumererExceptions(++Numero, ?);
Fin TantQue
Fin Principal
- | - | - | - | - | - | - | - | - |