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.