Re: In Exception ?

["Corey Ashford" <yeroca7@rocketmail.com>]

Gerhard Auinger wrote in message <35214b7a.0@news.profinet.at>...
>Hello,
>
>I'm a pretty unexperienced ada programmer (Ada83), therefore I hope not to
>ask to stupid things.
>
>My problem: I want to establish a  routine that is called out of normal
>flow, or out of an exception handler. How can I get the knowledge whether I
>am 'in' an exception (means in its processing) or not.  Is there a sort of
>function than can be coded like
>
>         if  in_exception_handler  then
>           ...
>        else
>           ...
>        end if;

Ada95 doesn't provide such a feature, I'm afraid.  So you'll need a more
complicated
solution.

If you aren't using more than one task, then a simple global variable
counter
which is incremented inside the handler and decremented after the handler
should suffice.  If the counter is equal to zero, you are not on the
"thread" of an
exception handler.  You'll have to treat non-standard exits from exception
handlers
carefully (goto's, exit statements, return statements, etc.).

If you are using more than one task, you need this information on a per-task
basis.
If your compiler supports Annex C, then you could use the task attribute
feature to
implement the per-task counter.

Another possible implementation is to pass the a boolean down through the
call
chain which says whether or not you're in a handler.  This could get ugly,
of course.

Good luck

- Corey