Re: Initialize with aggregate?

[Simon Wright <simon@pushface.org>]

ejijott@gmail.com writes:

> Regarding the code below, what syntax do I use to initialize tempstore
> with an aggregate?
> [code]
> .
> .
> .
>     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);

If S is null then it can do no harm to assign it to the new node's
Next field.

You might consider replacing Item and Len by a bounded string of
length up to 50.