Re: Constructors with multiple inheritance

[Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>]

On 11/09/2011 08:47 PM, Rego, P. wrote:
>
> class Par_Class {
> public:
>    Par_Class (int aValue, const char *aName);
>
> private:
>    int theValue;
>    char *theName;
> };

private with Ada.Strings.Unbounded;

package Par is
    type Class is private;

    function Create (Value : in Integer; Name : in String);
private -- Par
    type Class is record
       Value : Integer := Integer'First;
       Name  : Ada.Strings.Unbounded.Unbounded_String;
    end record;
end Par;

package body Par is
    function Create (Value : in Integer; Name : in String) is
       -- null;
    begin -- Create
       return Class'(Value => Value,
                     Name  => Ada.Strings.Unbounded.To_Unbounded_String (Name) );
    end Create;
end Par;

No need for tagged types or access types for this example.

-- 
Jeff Carter
"Well, a gala day is enough for me. I don't think
I can handle any more."
Duck Soup
93