Re: Common exception handling

[Martin <martin.dowie@btopenworld.com>]

On 26 Aug, 15:43, Adam Beneschan <a...@irvine.com> wrote:
> On Aug 26, 6:47 am, shaunpatter...@gmail.com wrote:
>
> > Yeah, it looks like the extra layer of exception handling is the only
> > way. I was hoping I could avoid that if possible.
>
> No, I don't think it's the only way.  I'm surprised no one has
> suggested this:
>
>    exception
>       when E : others =>
>          Print_Test (Rec);
>          declare
>              use Ada.Exceptions;
>          begin
>              if Exception_Identity(E) = A'Identity then
>                 ... handling for A
>              elsif Exception_Identity(E) = B'Identity then
>                 ... handling for B
>              etc.
>              else
>                 ... handling for other exceptions you didn't expect,
>                 ... but you certainly need to aware that it could
>                 ... happen
>                 raise;  --maybe
>              end if;
>          end;
>
>                             -- Adam

Surely you missed a smiley off this suggestion!!! :-)

== Martin