Re: Initialize with aggregate?

[Robert A Duff <bobduff@shell01.TheWorld.com>]

ejijott@gmail.com writes:

> Hi there!
> 
> 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]

How about something like this:

    type node;
    type storage is access node;
    type node(len: natural) is
        record
            next:  storage;       -- Pekare till n�sta nod.
            item:  string(1..len); -- En textstr�ng
            count: integer := 0;  -- Antalet f�rekomster av str�ngen
        end record;

    tempstore:=new Node'(
            len => val'length,
            next => S,
            item => val,
            count => 1);
    S:=tempstore;

Hardwiring Item'Length to 50 isn't a good idea, and it makes the
programming harder, because you have to carefully avoid the junk
at the end.

- Bob