Universität Ulm,
Fakultät für Mathematik und Wirtschaftswissenschaften,
SAI
WS 97/98 || Entwicklung objekt-orientierter Bibliotheken || Beispiele || Rendezvous
DEFINITION RingBuffers
DEFINITION RingBuffers;
IMPORT Disciplines, Objects;
TYPE
Item = Objects.Object;
RingBuffer = POINTER TO RingBufferRec;
RingBufferRec = RECORD (Disciplines.ObjectRec) END;
PROCEDURE Create(VAR ring: RingBuffer);
PROCEDURE Read(ring: RingBuffer; VAR v: Item);
PROCEDURE Write(ring: RingBuffer; e: Item);
END RingBuffers.
WS 97/98 || Entwicklung objekt-orientierter Bibliotheken || Beispiele || Rendezvous
Andreas Borchert, 21. Januar 1998