From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 8 Feb 93 10:21:00 GMT
From: enterpoop.mit.edu!ira.uka.de!Germany.EU.net!urmel.informatik.rwth-aachen.
de!solaris.rz.tu-clausthal.de!news!antpc.ant.uni-hannover.de!otte@ucbvax.Berkel
ey.EDU  (Herr Otte)
Subject: simple exception-handler
Message-ID: <otte.2.0@antpc.ant.uni-hannover.de>
List-Id: <comp.lang.ada>

While I am trying to test my packages and subprograms,
I want to write an exception-handler, which only puts
the name of the raised exception to the standard output.
The first solution, that I found, was :

with Text_IO ;
procedure Error_IO_Test is
...
exception
  when CONSTRAINT_ERROR => Text_IO.Put_Line ("CONSTRAINT_ERROR");
  when NUMERIC_ERROR    => Text_IO.Put_Line ("NUMERIC_ERROR");
  when PROGRAM_ERROR    => Text_IO.Put_Line ("PROGRAM_ERROR");
  when STORAGE_ERROR    => Text_IO.Put_Line ("STORAGE_ERROR");
  when TASKING_ERROR    => Text_IO.Put_Line ("TASKING_ERROR");
end Error_IO_Test;

The number of lines in the exception-handler will increase,
if I take care not only for the standard exceptions, but for
the Text_IO exceptions and my own user-defined exceptions.
For this reason, I prefer a solution like this :

with Text_IO ;
procedure Error_IO_Test is
...
exception
  when others => Text_IO.Put_Line ( <Name_of_the_Error> );
end Error_IO_Test;
Of course, the above solution with Text_IO doesn't work.
Do there really exist a solution, that is easier than
writing all the names of all known exceptions ?

Please post your response.

Thanks in advance
Dirk Otte
Institut fuer Allgemeine Nachrichtentechnik
Technische Universitaet Hannover
3000 Hannover 1
Deutschland