Re: Function pointer in Ada?

["Kai Schuelke" <kai.schuelke@gmx.net>]

Hi,

I solved the problem like you suggested but I think that there must be a
better way to do it, too.

I want a program that can solve every mathematical function (e.g.: z = 2*x +
sin(x)) for any value (e.g. x=4). It is enough to work with one mathematical
function at a time. My spec looks like:

-- Spec
package math is
    procedure Set_Function(Func : in STRING);
    function Calculate(Value : in FLOAT) return FLOAT;
end math;

-- Sample program
with math; use math;
procedure sample is
    result : FLOAT;
begin
    Set_Function("2*x+sin(x)");
    result := Calculate(4.0);
end;

What would be the Ada way to do this?