Re: Function pointer in Ada?

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

"David C. Hoos" <david.c.hoos.sr@ada95.com> schrieb im Newsbeitrag
news:mailman.1021400702.30533.comp.lang.ada@ada.eu.org...

[..]

> Why you would want to do this, I can't imageine, but here's how it can be
> done:

[..]

That's how I did it. It was for a function-plotter. You put in a String and
you get back a pointer to a mathmatical function.

It looked like this. I hope you get a idea from this ut down version. If
anybody's interessted in it I can send the sources.

type Single_Operation is
    Op : Operator_Pointer;
    L    : Single_Operation_Pointer;
    R    : Single_Operation_Pointer;
    Parameter : FLOAT;
end record;

The mathematical function is represented with a tree of Single_Operation. To
solve the equation you just have to do a recursive call:

function solve(temp : Single_Operation_Pointer) return FLOAT is
begin
    if L /= null then
        return temp.Op.all(solve(L), solve(R));
    else
        return Parameter;
    end if;
end;

The program works, but it would be more elegant if I could get a pointer to
the Standard"+" without wrapping a extra function around it.

I thought it would be better to use pointers to functions because it is more
memory efficient and more flexible, too.

Have a good night!

Kai Schuelke