Re: Initialize with aggregate?

["Adam Beneschan" <adam@irvine.com>]

Simon Wright wrote:

> >     type node;
> >     type storage is access node;
> >     type node is
> >         record
> >             next:  storage;       -- Pekare till nästa nod.
> >             item:  string(1..50); -- En textsträng
> >             len:   integer :=-1;  -- Längden på strängen.
> >             count: integer := 0;  -- Antalet förekomster av strängen
> >         end record;
> > .
> > .
> > .
> >         tempstore:=new Node;
> >         tempstore.item(1 .. Val'length):=Val;
> >         tempstore.len:=Val'length;
> >         tempstore.count:=1;
> >         if S /= null then
> >             tempstore.next:=S;
> >         end if;
> >         S:=tempstore;
> > [/code]
>
> S := new Node'(Next => S,
>                Item => <<a function padding Val to 50 characters>>,
>                Len => Val'Length,
>                Count => 1);

You don't need a separate function.  This should work:

S := new Node' (Next => S,
                        Item => Val & ((Val'Length + 1) .. 50 => ' '),
                        Len => Val'Length,
                        Count => 1);

[Apologies for any spacing problems.  Google Groups' latest improvement
prevents me from using a fixed font when composing a post.]

                                         -- Adam