ADA FUNCTIONS TO PROCEDURES

[Tuan Anh Nguyen <tanguyen@nps.navy.mil>]

Hi,
I'm looking for a utility program that would allow me to convert all
functions into procedures.
For example:

functions equal(Left:  in int;
                Right: in int) return Boolean;

in the specification add the following:

procedure equal(Left:   in int;
                Right:  in int;
                Result: in Boolean);

and in the body add the following:


procedure equal(Left:   in int;
                Right:  in int;
                Result: in Boolean) is
begin
   Result := equal(Left,Right);
end equal;


Please email to tanguyen@nps.navy.mil
Thanks