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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,c71d0b53277efb27
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.35.68 with SMTP id f4mr2091798pbj.5.1320726748586;
        Mon, 07 Nov 2011 20:32:28 -0800 (PST)
MIME-Version: 1.0
Path: 
 h5ni11178pba.0!nntp.google.com!news2.google.com!volia.net!news2.volia.net!feed-A.news.volia.net!news.ecp.fr!news.jacob-sparre.dk!pnx.dk!jacob-sparre.dk!ada-dk.org!.POSTED!not-for-mail
From: "Randy Brukardt" <randy@rrsoftware.com>
Newsgroups: comp.lang.ada
Subject: Re: Another question on class constructor
Date: Mon, 7 Nov 2011 22:32:25 -0600
Organization: Jacob Sparre Andersen Research & Innovation
Message-ID: <j9abcr$ld5$1@munin.nbi.dk>
References: <19338900.553.1320719246503.JavaMail.geo-discussion-forums@yqpp12>
NNTP-Posting-Host: static-69-95-181-76.mad.choiceone.net
X-Trace: munin.nbi.dk 1320726747 21925 69.95.181.76 (8 Nov 2011 04:32:27 GMT)
X-Complaints-To: news@jacob-sparre.dk
NNTP-Posting-Date: Tue, 8 Nov 2011 04:32:27 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.5931
X-RFC2646: Format=Flowed; Original
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6109
Xref: news2.google.com comp.lang.ada:14339
Date: 2011-11-07T22:32:25-06:00
List-Id: <comp.lang.ada>

"Rego, P." <pvrego@gmail.com> wrote in message 
news:19338900.553.1320719246503.JavaMail.geo-discussion-forums@yqpp12...
>I have a class defined as:
>
>   type Test_Class is tagged limited
>      record
>         Info    : Integer;
>         Value   : Float;
>         Primary : Primary_Task (Test_Class'Access);
>      end record;
>
> I need build a one-step constructor for my class in the form
>
>   function Construct (T : access Test_Class) return Test_Class_Ptr is
>   begin
>      return new Test_Class'(Info => T.Info + 1,
>                             Value => 0.0,
>                             Primary => [WHAT I WANNA KNOW]);
>   end Construct;

In Ada 2005 or later, use "<>" to default initialize a component in an 
aggregate (which is the only thing you can do with a task). In Ada 95, you 
are SOL. (Ask someone else what that means if you don't know. ;-)

function Construct (T : access Test_Class) return Test_Class_Ptr is
begin
     return new Test_Class'(Info => T.Info + 1,
                           Value => 0.0,
                           Primary => <>);
 end Construct;

                                  Randy.