Discussion :

[Invité]

Bonjour,

Par défaut, lorsqe je propage une erreur, j'obtien un message d'erreur.
je voudrais propager les erreurs et empêcher l'affichage de ces messages.

Merci.

[Invité]

Veuillez accepter mes excuses ...

Si je propage jusqu'au main ... un null en l'alternative d'exception mène à la fin du programme de toute façon ..


La fatigue peut-être.

(je prends même le pointeur de la sourie pour un moucheron tout de suite..

[Invité]

Non, finalement ... la question est bien bonne.

Je m'explique ...

J'ai le main, en dessous j'ai un premier paquetage, qui est au dessu un second paquetage. Dans ce dernier, j'effectu l'initialisation du programme (avec un begin et un exception dans le corp du paquetage)... si l'initialisation échoue, je lève une erreur.

je ne sais pas si c'est clair.


Merci pour votre aide.

[Lowelace]

Bonjour,

Tu peux nous la refaire stp .
Comment propages-tu ton erreur ? Montre-nous du code (même s'il est édulcoré).

[Invité]

Bonjour Lowelace

je donne le lien sur l'index des source au format html.

http://denimes.net/src-html2/index.html

Donc, il sagit de propager l'erreur Usage_Error dans emmanuel.adb j'usqu'au main, sans our autant afficher le message d'erreur final.

[Invité]

Euh, ca marche pas, le temps de tout mettre à jour et ça roule !

Désolé.

[Lowelace]

Si j'ai bien lu ton code, tu traites l'erreur au niveau de emmanuel.adb (petit message puis raise).
En faisant, cela tu propage à l'appelant, qui est à ce niveau l'élaboration Ada, qui est appelé implicitement avant le code du main.
Comme dans ton main tu n'as pas de traitement d'erreur, elle remonte au niveau supérieur qui est le handler par défaut Ada, d'où le message d'erreur.
Si tu mets,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

exception when others => null;

à la fin de ton main ca devrait aller mieux.

[Invité]

J'y ai cru mais non.

Ca plante, le programme ne termine pas.

[Invité]

C'est intéressant d'ailleur.


Merci au fait

[Invité]

Ah, mais il plante de toute manière ...

Donc, il y à autre chose qui va pas...

Je tiens au courant...

[Invité]

Yep !

j'ai trouvé pourquoi ça planté.

Et donc, ça m'affiche quant même

raised EMMANUEL.USAGE_ERROR : emmanuel.adb:384

rhh

[Lowelace]

Et si tu supprimes le raise ?

[Invité]

Et bien le programme ne termine pas par erreur.

Je vais faire les choses autrement ...

[Invité]

Yep !

J'ai cherché dans les bibliothèque standard et non standard à ma disposition un moyen de faire ce que je voulais, mais sans succès.

J'ai donc réorganisé l'ensemble de mon code.


je marque résolut mais en fait, il n'y a pas de solution.

(le code cible du lien ci-dessus est mis à jour)

Merci Lowelace

[Lowelace]

J'ai peut-être trouvé qq chose.
J'ai relu des programmes Ada qui levaient des exceptions et qui quand ils plantaient n'affichaient pas de message d'insultes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
exception
   when others =>
      Ada.Command_Line.Set_Exit_Status (Failure);

ajouté dans le "main".