DEFINITION Lists

DEFINITION Lists;

   IMPORT Objects;

   TYPE
      List = POINTER TO ListRec;
      ListRec = RECORD (Objects.ObjectRec) END;

   PROCEDURE Create(VAR list: List);
   PROCEDURE Append(list: List; object: Objects.Object);

   PROCEDURE First(list: List);
   PROCEDURE Next(list: List; VAR object: Objects.Object) : BOOLEAN;

END Lists.