Re: Common exception handling

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

On Aug 26, 1:17 pm, shaunpatter...@gmail.com wrote:
[snip]
> I'd like to not duplicate the Print_Test in each situation.  Is there
> an easy way

Just add an extra level of exception handling and re-raise the
exception when you've done the common bit:

with Ada.Text_IO; use Ada.Text_IO;

procedure Throw_Three is

   type Record_Type is
      record
         I : Integer;
      end record;

   procedure Print_Test (Rec : Record_Type) is
   begin
      Put_Line ("Print_Test:" & Integer'Image (Rec.I));
   end Print_Test;

   A, B, C : exception;

   procedure Test (Rec : Record_Type) is
   begin
      begin
         case Rec.I is
            when 1      => raise A;
            when 2      => raise B;
            when 3      => raise C;
            when others => raise Program_Error;
         end case;
      exception
         when others =>
            Print_Test (Rec);  -- Common bit
            raise;             -- Re-raise the same exception
      end;
   exception
      when A =>
         Put_Line ("A");
      when B =>
         Put_Line ("B");
      when C =>
         Put_Line ("C");
      when others =>
         Put_Line ("others");
   end Test;
begin
   for I in 1 .. 4 loop
      Test (Rec => (I => I));
   end loop;
end Throw_Three;