|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 672 (0x2a0)
Types: TextFile
Names: »V«
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─ ⟦6f12a12be⟧ »DATA«
└─⟦this⟧
generic
type Element is private;
package Bounded_Queue_Generic is
type Queue (Max_Elements : Positive) is private;
function Is_Empty (Q : Queue) return Boolean;
procedure Make_Empty (Q : in out Queue);
procedure Enqueue (Q : in out Queue; X : Element);
procedure Dequeue (Q : in out Queue);
function First (Q : Queue) return Element;
private
type Element_Array is array (Positive range <>) of Element;
type Queue (Max_Elements : Positive) is
record
Head : Positive := 1;
Tail : Positive := 1;
Values : Element_Array (1 .. Max_Elements);
end record;
end Bounded_Queue_Generic;