Sortierte Listen auf Basis von verzeigerten Elementen IV

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

CalendarMan.om
PROCEDURE RemoveFirstAppointment
            (VAR list: ListOfAppointments);
BEGIN
   ASSERT(list.length > 0);
   list.first := list.first.next;
   DEC(list.length);
END RemoveFirstAppointment;

PROCEDURE GetFirstAppointment(list: ListOfAppointments;
                     VAR appointment: Appointment);
BEGIN
   ASSERT(list.length > 0);
   appointment := list.first.appointment;
END GetFirstAppointment;

PROCEDURE IterateListOfAppointments
            (VAR list: ListOfAppointments);
BEGIN
   list.cursor := list.first;
END IterateListOfAppointments;

PROCEDURE GetAppointment(VAR list: ListOfAppointments;
                VAR appointment: Appointment) : BOOLEAN;
BEGIN
   IF list.cursor = NIL THEN
      RETURN FALSE
   ELSE
      appointment := list.cursor.appointment;
      list.cursor := list.cursor.next;
      RETURN TRUE
   END;
END GetAppointment;

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 29.06.1999