Universität Ulm,
Fakultät für Mathematik und Wirtschaftswissenschaften,
SAI
WS 97/98 || Entwicklung objekt-orientierter Bibliotheken || Beispiele || Collections-1
DEFINITION Collections
DEFINITION Collections;
IMPORT Objects;
TYPE
Collection = POINTER TO CollectionRec;
CollectionRec = RECORD (Objects.ObjectRec) END;
(* Schnittstelle fuer Implementierungen *)
TYPE
Message = RECORD END;
Handler = PROCEDURE (collection: Collection; VAR message: Message);
AddMessage =
RECORD
(Message)
object: Objects.Object;
END;
FirstMessage = RECORD (Message) END;
NextMessage =
RECORD
(Message)
(* Rueckgabewerte *)
object: Objects.Object;
endOfCollection: BOOLEAN;
END;
PROCEDURE Init(collection: Collection; handler: Handler);
(* Schnittstelle fuer Klienten *)
PROCEDURE Add(collection: Collection; object: Objects.Object);
PROCEDURE First(collection: Collection);
PROCEDURE Next(collection: Collection;
VAR object: Objects.Object) : BOOLEAN;
END Collections.
WS 97/98 || Entwicklung objekt-orientierter Bibliotheken || Beispiele || Collections-1
Andreas Borchert, 29. Oktober 1997