DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦35da7ec63⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Exo2, seg_02d302

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

with Text_Io;
with Histogrammes;

procedure Exo2 is  
    subtype Alphabet is Character range 'a' .. 'z';
    package Chaine is new Histogrammes (Alphabet);
    O : Chaine.Objet;
    F : Text_Io.File_Type;
    Car : Character;
    Table : array ('A' .. 'Z') of Character :=
       ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm',
        'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z');

begin
    Chaine.Initialiser_Objet (O);
    Text_Io.Open (F, Text_Io.In_File, "!USERS.PETROVIC.COLLE_ADA_GL.LETTRES");
    while not Text_Io.End_Of_File (F) loop  
        while not Text_Io.End_Of_Line (F) loop
            Text_Io.Get (F, Car);
            if Car in 'A' .. 'Z' or Car in 'a' .. 'z' then
                if Car in 'A' .. 'Z' then
                    Car := Table (Car);
                end if;

                Chaine.Ajouter_Une_Quantite (O, Car);
            end if;
        end loop;
        Text_Io.Skip_Line (F);
    end loop;
    Text_Io.Close (F);  
    Chaine.Put_Histo (O);
end Exo2;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1e rec1=00 rec2=01 rec3=004
        [0x01] rec0=04 rec1=00 rec2=02 rec3=001
    tail 0x215264386843f5822bb2a 0x42a00088462060003