Re: Function Pointers

[matthew_heaney@acm.org (Matthew Heaney)]

In article <353257CC.211B84EE@phaseiv.com>, "Barry L. Dorough"
<bdorough@phaseiv.com> wrote:

>Is there any way to implement function pointers in Ada?  Below is a
>sample C program using function pointers.  How can I do this in Ada?

[snip]

>double Combine( double p, double q, double (*fcn)(double r, double s) )
>{
>    double a = 10.0 + p;
>    return fcn( a, q );
>}

Declare a named access type, as follows:

package P is

   type Func_Access is access function (R, S : Long_Float) return Long_Float;

   function Combine (P, Q : Long_Float; Func : Func_Access) return Long_Float;

end P;