|
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 - metrics - downloadIndex: B T
Length: 660 (0x294)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
-- TEST A FULL INTEGER QUEUE USING X0QUE PACKAGE
with Instrument, X0que;
use Instrument;
procedure Intqa2 is
package Iqueue is new X0que (50, Integer);
use Iqueue;
Q : Queue;
begin
Start ("INTQA2", "TEST A FULL INTEGER QUEUE.");
for J in 1 .. 1000 loop
Make_Empty (Q);
for I in 1 .. 50 loop
Put_End (Q, I);
end loop;
if Is_Full (Q) then
if not (Is_Not_Empty (Q)) then
Comment ("IS_FULL WORKS; IS_NOT_EMPTY DOESN'T");
end if;
else
Comment ("IS_FULL DOESN'T WORK.");
end if;
end loop;
Stop;
end Intqa2;