Re: Default value for a record component

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

On Sat, 21 Jul 2007 14:19:17 -0700, Maciej Sobczak wrote:
>
> package P is
>    type T is record
>       V : Integer := Get_Default_Value;
>    end record;
> private
>    function Get_Default_Value return Integer;
> end P;

If your function is not very complicated, you can do something like

package P is
    Default_Value : constant Integer;

    type T is record
       V : Integer := Get_Default_Value;
    end record;
private
    Default_Value : constant Integer := 5;
end P;

If this won't work, and your intention is to keep P's clients from 
seeing the function, then you'll have to use a private type:

package P is
    type T is private;

    procedure Put (Into : out T; Value : in Integer);
    function Get (From : in T) return Integer;
private
    function Get return Integer;

    type T is record
       V : Integer := Get;
    end record;
end P;

-- 
Jeff Carter
"I'm a kike, a yid, a heebie, a hook nose! I'm Kosher,
Mum! I'm a Red Sea pedestrian, and proud of it!"
Monty Python's Life of Brian
77