|
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: 1020 (0x3fc)
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⟧
with Searching;
with System;
use System;
with Instrument;
use Instrument;
procedure Bsrca2 is
type Big_Integer is range Min_Int .. Max_Int;
type Table is array (Big_Integer range <>) of Character;
package Table_Search is new Searching (Big_Integer, Character, Table);
use Table_Search;
T1 : constant Table (Big_Integer'First .. Big_Integer'First + 2) := "XYZ";
Index : Big_Integer;
Key : Character;
subtype Alpha is Character range 'X' .. 'Z';
package Pr is new Procs (Integer);
use Pr;
begin
Start ("BSRCA2", " BINARY SEARCH PACKAGE TEST AT EXTREME AND" &
"LIMITS OF ITS INDEXTYPE : LOWER LIMIT");
for I in 1 .. 1 loop
begin
Let (Global, 0);
for C in reverse Alpha loop
Key := C;
Index := Index_Of (Key, Within => T1);
end loop;
exception
when Not_Found =>
Comment (" NOT FOUND");
end;
end loop;
Stop;
end Bsrca2;