Re: Ada 0x, exception idea ?

[sk <noname@myob.com>]

 > Bletch.
 >
 > As you observe, your proposed constructs are precisely equivalent to
 >
 >    call_procedure(..., success);
 >    if not success then
 >      raise call_failed;
 >    end if;
 >
 >Ada in general does not bother with unnecessary syntactic sugar,
 > which is what this is.

... and as a "generalization", that is a dubious position.

For as long as I can remember, Ada IS ABOUT MAINTAINENCE, which is
about using "syntatic sugar" to make things absolutely clear.

READABILITY

raise Call_Error1 when Condition1;
raise Call_Error2 when Condition2;
raise Call_Error3 when Condition3;
raise Call_Error4 when Condition4;
raise Call_Error5 when Condition5;

... is lot more readable than and equivalent ...

if Condition1 then
     raise Error1;
elsif Condition2  then
     raise Error2;
elsif Condition3  then
     raise Error3;
elsif Condition4  then
     raise Error4;
elsif Condition5 then
     raise Error5;
...

 > ... procedure itself should raise the exception, not set a status
 > flag ...

How nice for you to live in a purely Ada world :-)

The mostly "C" world I live in, where I have to interface Ada to the
underlying operating environment, almost always uses a return code
of some kind.

-- 
-------------------------------------------------
-- Merge vertically for real address
--
--     s n p @ t . o
--      k i e k c c m
-------------------------------------------------