DEFINITION AgingObjects

(*
 *	Entwicklung objekt-orientierter Bibliotheken, Aufgabe 9-15
 *
 *	Abstraktion fuer Reihenfolge des letzten Zugriffs auf Objekte.
 *)
DEFINITION AgingObjects;

   IMPORT Disciplines;

   PROCEDURE Touch(object: Disciplines.Object);

   PROCEDURE Newer(object1, object2: Disciplines.Object): BOOLEAN;

END AgingObjects.