Re: for x'address or variant

["kat-Zygfryd" <6667@wp.pl>]

"Nick Roberts" <nickroberts@blueyonder.co.uk> wrote in message
news:b7uhb9$4lb72$1@ID-25716.news.dfncis.de...
> Declare the following:
>
>     type Node;
>     type Node_Ref is access Node;
>     type Leaf_Direction is (Left, Right);
>     type Leaf_Pair is array (Leaf_Direction) of Node_Ref;
>     type Node is
>         record
>             Payload: ...;
>             Leaves: Leaf_Pair;
>         end record;
>
> Now you can reference, for example, the left leaf an object X1 of type
Node
> by:
>
>     X1.Leaves(Left).all
>
> You can cycle through all the leaves of X1 by:
>
>     for L in Leaf_Direction loop
>         ... X1.Leaves(L).all ...
>     end loop;
>
> I hope this solves the problem. Say if it doesn't.
>
> --
> Nick Roberts
> Jabber: debater@charente.de [ICQ: 159718630]

of course it does, but I wanted it to be done
a little more good-looking, thanks anyway.

Zygfryd