Re: Q: Pointers to procedures/functions

[jerry@jvdsys.nextjk.stuyts.nl (Jerry van Dijk)]

>Is there a way to have pointers to procedures in Ada ?

Yes, see RM 3.10. Example:

   with Ada.Text_IO; use Ada.Text_IO;

   procedure Test is

      type Function_Call is access function (N : Integer) return Integer;

      function Double_It (N : Integer) return Integer is
      begin
         return 2 * N;
      end Double_It;

      function Triple_It (N : Integer) return Integer is
      begin
         return 3 * N;
      end Triple_It;

      procedure Display (N : in Integer; F : in Function_Call) is
      begin
         Put ("Calling function on value" & Integer'Image (N));
         Put (" results in" & Integer'Image (F (N)));
         New_Line;
      end Display;

   begin
      Display (4, Double_It'Access);
      Display (4, Triple_It'Access);
   end Test;

--

-- Jerry van Dijk       | Haarlem, Holland
-- Business Consultant  | Team Ada
-- Ordina Finance       | jdijk@acm.org