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 - download
Index: ┃ B T ┃

⟦1b32d70b3⟧ TextFile

    Length: 1269 (0x4f5)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦a7d6dfecb⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦a7d6dfecb⟧ 
            └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Directory_Tools;
with Text_Io;  
procedure Count_Lines (Name : String := "<IMAGE>"; Detail : Boolean := True) is
    package Dtn renames Directory_Tools.Naming;
    package Dto renames Directory_Tools.Object;  
    Iter       : Dto.Iterator;
    The_File   : Text_Io.File_Type;
    The_Length : Natural;
    The_Count  : Natural := 0;
    The_Total  : Natural := 0;
begin  
    Iter := Dtn.Resolution (Name         => Name,
                            Context      => Dtn.Default_Context,
                            Objects_Only => True);
    while not Dto.Done (Iter) loop
        Text_Io.Open (The_File, Text_Io.In_File,
                      Name => Dtn.Unique_Full_Name (Dto.Value (Iter)));
        The_Count := 0;
        while not Text_Io.End_Of_File (The_File) loop
            Text_Io.Skip_Line (The_File);
            The_Count := The_Count + 1;
        end loop;
        Text_Io.Close (The_File);
        if Detail then
            Text_Io.Put_Line (Integer'Image (The_Count) & Ascii.Ht &
                              Dtn.Unique_Full_Name (Dto.Value (Iter)));
        end if;
        The_Total := The_Total + The_Count;
        Dto.Next (Iter);
    end loop;
    Text_Io.Put_Line ("total => " & Integer'Image (The_Total) & " lines");
end Count_Lines;