Re: Another question on class constructor

["Randy Brukardt" <randy@rrsoftware.com>]

"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.