|
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: 1269 (0x4f5)
Types: TextFile
Names: »B«
└─⟦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⟧
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;