Re: simple exception-handler

[wdl39!mab@ford-wdl1.arpa (Mark A Biggar)]

In article <otte.2.0@antpc.ant.uni-hannover.de> otte@antpc.ant.uni-hannover.de 
(Herr Otte) writes:
>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 ?

No help in Ada83 but in Ada9x you will be able to say:

with Text_IO;
procedure Error_IO_Test is
...
exception
    when E: others => Text_IO.Put_Line(Exception_Name(E));
end Error_IO_Test;

There will also be a function Exception_Occurence that will return
an implementation defined value describing the context of the actual
exception.

--
Mark Biggar
mab@wdl1.wdl.loral.com