Traitement des exceptions

Deux genres d'exceptions sont traitées:

• Les exceptions propre au paquetage(TDA)
• Les exceptions utiles aux choix du ``MENU PRINCIPALE''

exception
   when Constraint_Error =>
      Put_Line ( "Mauvaise entree, recommencez." );

   when Data_Error =>
      Skip_Line;
      Put_Line ( "Mauvaise entree, recommencez." );

   when Erreur_Arbre_Vide  =>
      Put_Line ( "L'exception Erreur_Arbre_Vide a ete levee." );
      Skip_Line;

   when Erreur_Arbre_Plein  =>
      Put_Line ( "L'exception Erreur_Arbre_Plein a ete levee." );
      Skip_Line;

   when Erreur_Element_A_Double  =>
      Put_Line ( "L'exception Erreur_Element_A_Double a ete levee." );
      Skip_Line;

   when Erreur_Element_Absent  =>
      Put_Line ( "L'exception Erreur_Element_Absent a ete levee." );
      Skip_Line;

end;

Les quatre dernières exceptions proviennent du paquetage ``Arbre_Recherche''. Alors que les deux premières sont déclanchées par le mécanisme de menu.