Generic Packages in Ada

["Ashley Manos" <atm@picknowl.com.au>]

Hi - can anyone help me with this:

I'm attempting to write a generic package for linked lists in Ada.
The data structure I'm looking to make generic is the element
ie each element in the list is composed of 2 parts: the elemtn and a pointer
to the next element.

So my package spec looks something like this:

generic
    type Node is private;            -- here's the list element
    type List is access Node;    -- here's the pointer to the next element
in the list

package Lists is
    function CreateList(N:in Node) return List;
    procedure AddToRear(N:in Node; L:in out List);
    procedure RemoveFirst(N:in Node; L:in out List);
end Lists;

However, the compiler is complaining (and rightly so!) about my package
body, the start of which looks like this:

package body Lists is

    function CreateList(N:in Node) return List is
        L:List;
    begin
        L:= new Node;
        L.Next:= Null;    ***
        return L;
    end CreateList;

    ............... etc ..................

The compiler is saying "invalid prefix in selected component L" about the
line ***.
I can see why the compiler is raising this error, but I need my function to
refer to the "Next" component of the element, as it will be of type "List"
ie the pointer to the next element.

If this makes absolutely any sense to anybody that might be able to help,
could you PLEASE reply.

Thanks
Ashley (atm@picknowl.com.au)