type Element is private;
type Queue_Type is limited private;
subtype Marker is Natural range 0 .. Queue_Size - 1;
Queue_Size : Positive := 10;
Queue_underflow : exception;
procedure Enqueue
( | Item | : Element; |
Queue | : in out Queue_Type); |
procedure Dequeue
( | Item | : out Element; |
Queue | : in out Queue_Type); |
function Is_Empty
( | Queue | : Queue_Type) return Boolean; |
function Is_Full
( | Queue | : Queue_Type) return Boolean; |