Re: advice on package design

[Marius Amado Alves <amado.alves@netcabo.pt>]

>> with Ada.Text_IO; use Ada.Text_IO;
>> procedure Main is
>>     function Foo (I : Integer) return Integer is
>>        I2 : Integer := I + 1;
>>     begin
>>        return I2;
>>     exception
>>        when others =>
>>           return 0;
>>     end Foo;
...
>> exception
>>     when others =>
>>        Put_Line ("Rats... why not catch it in 'Foo'?");
>>

Bob told you why. I'll tell you how, just in case. Rewrite Foo thus:

  function Foo (I : Integer) return Integer is
  begin
     declare
        I2 : Integer := I + 1;
     begin
        return I2;
     end;
  exception
     when others =>
        return 0;
  end Foo;

(Of course this how follows from the why. I2 is no longer visible in 
the handler.)