DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦c8e37aeb6⟧ TextFile

    Length: 1139 (0x473)
    Types: TextFile
    Names: »B«

Derivation

└─⟦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⟧

TextFile

with Searching;
with System;
use System;
with Instrument;
use Instrument;
procedure Bsrca3 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;

    T2 : constant Table (Big_Integer'First .. Big_Integer'First + 3) := "ABCD";

    Index : Big_Integer;
    Key : Character;
    subtype Alpha is Character range 'A' .. 'D';
    package Pr is new Procs (Integer);
    use Pr;

begin
    Start ("BSRCA3", " BINARY SEARCH PACKAGE TEST AT EXTREME AND" &
                        "LIMITS OF ITS INDEXTYPE : LOWER LIMIT");
    for I in 1 .. 1000 loop
        Let (Global, 0);
        begin
            for C in Alpha loop
                Key := C;
                Index := Index_Of (Key, Within => T2);
                --         PUT_MATCH(INDEX, KEY);
            end loop;
        exception
            when Not_Found =>
                --         PUT("KEY '");
                --         PUT(KEY);
                Comment (" NOT FOUND");
        end;
    end loop;
    Stop;
end Bsrca3;