Re: OO Style with Ada Containers

[Matthew Heaney <mheaney@on2.com>]

On Nov 19, 5:16 pm, Matthew Heaney <mhea...@on2.com> wrote:
>
> Now let's instantiate using our integer vector container:

Oops!  That should be:

procedure Add_To_Each_Element
  (V : in out Integer_Vectors.Vector;
   I : Integer)
is
   procedure Add (C : Cursor; J : Integer) is
      procedure Process (E : in out Integer) is
      begin
         E := E + J;
      end Process;
   begin
      V.Update_Element (C, Process'Access);
   end Add;

   procedure Algorithm is
     new Generic_Algorithm (Cursor, Integer);
begin
   Algorithm (V.First, I);
end Add_To_Each_Element;


Alternatively you could say:

procedure Add_To_Each_Element
  (V : in out Integer_Vectors.Vector;
   I : Integer)
is
   procedure Add (C : Cursor; J : Integer) is
   begin
      V.Replace_Element (C, Element (C) + J);
   end Add;

   procedure Algorithm is
     new Generic_Algorithm (Cursor, Integer);
begin
   Algorithm (V.First, I);
end Add_To_Each_Element;