type Element is private;
type Buffer_Index is mod <>;
type Realtime_Buffer is private;
type No_Of_Elements is new Natural range 0 .. Natural (Buffer_Index'Last) + 1;
type Buffer_Array is array (Buffer_Index) of Element;
Calling_Get_On_Empty_Buffer : exception;
procedure Put
( | B | : in out Realtime_Buffer; |
Item | : Element); |
procedure Get
( | B | : in out Realtime_Buffer; |
Item | : out Element); |
function Element_Available
( | B | : Realtime_Buffer) return Boolean; |