From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.4 required=5.0 tests=BAYES_00,FORGED_MUA_MOZILLA,
	T_FILL_THIS_FORM_SHORT autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,5f0f4bfb0467bb19
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.30.34 with SMTP id p2mr6720844pbh.4.1320949059570;
        Thu, 10 Nov 2011 10:17:39 -0800 (PST)
Path: 
 h5ni24019pba.0!nntp.google.com!news1.google.com!goblin1!goblin.stu.neva.ru!news.tornevall.net!.POSTED!not-for-mail
From: Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>
Newsgroups: comp.lang.ada
Subject: Re: Constructors with multiple inheritance
Date: Thu, 10 Nov 2011 11:16:24 -0700
Organization: TornevallNET - http://news.tornevall.net
Message-ID: <j9h4eu$ha7$1@tornado.tornevall.net>
References: 
 <11513972.2788.1317325228383.JavaMail.geo-discussion-forums@yqnv12>
 <1rj1mmkvwud1d.dzqoy4jhdfca$.dlg@40tude.net>
 <4976045.4489.1317352313370.JavaMail.geo-discussion-forums@yqjw35>
 <2pu3h5hqltxi$.ze4yrf1f2y8z.dlg@40tude.net>
 <23774546.1654.1317391464047.JavaMail.geo-discussion-forums@yqnk41>
 <1gnrks1djlaok.1k0r5f8z9ylfx.dlg@40tude.net>
 <21605158.153.1320805494018.JavaMail.geo-discussion-forums@yqiu15>
 <a67beyjayq17$.1rt88uc804jfv.dlg@40tude.net>
 <6366850.176.1320896821400.JavaMail.geo-discussion-forums@yqcm23>
NNTP-Posting-Host: 2c6dbcd72f228b988f9f5bd55c6eaef7
Mime-Version: 1.0
X-Trace: 20f5b0827b11ccb387548ecd08fe1501
X-Complaints-To: abuse@tornevall.net
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US;
 rv:1.9.2.23) Gecko/20110922 Thunderbird/3.1.15
X-Complaints-Language: Spoken language is english or swedish - NOT ITALIAN,
 FRENCH, GERMAN OR ANY OTHER LANGUAGE!
In-Reply-To: <6366850.176.1320896821400.JavaMail.geo-discussion-forums@yqcm23>
X-UserIDNumber: 1738
X-Validate-Post: 
 http://news.tornevall.net/validate.php?trace=20f5b0827b11ccb387548ecd08fe1501
X-Complaints-Italiano: Non abbiamo padronanza della lingua italiana - se
 mandate una email scrivete solo in Inglese, grazie
X-Posting-User: 0243687135df8c4b260dd4a9a93c79bd
Xref: news1.google.com comp.lang.ada:18909
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Date: 2011-11-10T11:16:24-07:00
List-Id: <comp.lang.ada>

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