Re: Constructor in ADA9X

[bobduff@world.std.com (Robert A Duff)]

In article <RTOAL.13.0010EBFD@lmumail.lmu.edu>,
Ray Toal <RTOAL@lmumail.lmu.edu> wrote:
>  type Rectangle is new Shape with private;
>  function Make_Rectangle (R: in out Rectangle; Width, Height: Real)
>                                        return Rectangle;

I don't understand why Make_Rectangle takes a Rectangle as a parameter,
and also returns one as a result.  Don't you mean something like this
instead:

    function Make_Rectangle (Width, Height: Real) return Rectangle;

If that's what you meant, then you could make it class-wide:

    function Make_Rectangle (Width, Height: Real) return Rectangle'Class;

This function will not be inherited.

Alternatively, you can call all your constructors the same name (say,
"Make") -- then it won't do any harm that they get inherited.

- Bob