-- 

-- Uwe R. Zimmer, Australia, 2014 

-- 

-- 

-- Usage if the purpose is to "catch all": 

-- 

-- begin 

--   .. 

--   exception 

--      when Exception_Id : others => Show_Exception (Exception_Id); 

-- end; 

-- 

with Ada.Exceptions; use Ada.Exceptions; 

package Exceptions
To API doc
To body is 

   procedure Show_Exception
To API doc
To body (Exception_Identifier
To API doc
To body : Exception_Occurrence; 

                             Optional_Message     : String := ""); 

   function Wrap_Exception
To API doc
To body (Original_Exception : Exception_Occurrence; 

                            Optional_Message   : String := "") return String; 

end Exceptions
To API doc
To spec
To body;