-- 

-- Jan & Uwe R. Zimmer, Australia, July 2011 

-- 

-- 

-- 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 := ""); 

end Exceptions
To API doc
To spec
To body;