Sortierte Listen auf Basis von verzeigerten Elementen

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

CalendarMan.om
TYPE
   Appointment =
      RECORD
         time: Times.Time; (* time of appointment *)
         text: ARRAY 128 OF CHAR; (* description *)
      END;
   Element = POINTER TO ElementRec;
   ElementRec =
      RECORD
         appointment: Appointment;
         next: Element; (* next in ascending order *)
      END;
   ListOfAppointments =
      RECORD
         first: Element; (* sorted by time in
                            ascending order *)
         length: INTEGER; (* number of appointments *)
         cursor: Element; (* next element to be returned *)
      END;

*Für kleinere Mengen an Elementen bieten sich aus Gründen der Einfachheit verzeigerte Listen an.
 
*first zeigt auf das erste Element, cursor dient zum Durchlaufen der Liste mit IterateSortedList und GetElement.
 

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