1. -- 
  2. --  Jan & Uwe R. Zimmer, Australia, July 2011 
  3. -- 
  4.  
  5. -- 
  6. --  Usage if the purpose is to "catch all": 
  7. -- 
  8. --  begin 
  9. --    .. 
  10. --    exception 
  11. --       when Exception_Id : others => Show_Exception (Exception_Id); 
  12. --  end; 
  13. -- 
  14.  
  15. with Ada.Exceptions; use Ada.Exceptions; 
  16.  
  17. package  Exceptions is 
  18.  
  19.    procedure Show_Exception (Exception_Identifier : Exception_Occurrence; 
  20.                              Optional_Message    : String := ""); 
  21.  
  22. end Exceptions;