|
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: 861 (0x35d)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Histo, Text_Io, String_Utilities;
procedure Test is
subtype Alphabet is Character range 'a' .. 'z';
package Analysis is new Histo (Discret => Alphabet);
Filename : constant String := "!Local.An_English_Text_File";
File : Text_Io.File_Type;
Car : Character;
Histogramme : Analysis.Object := Analysis.Create_Histo;
begin
Text_Io.Open (File, Text_Io.In_File, Filename, "");
while not Text_Io.End_Of_File (File) loop
while not Text_Io.End_Of_Line (File) loop
Text_Io.Get (File, Car);
Car := String_Utilities.Lower_Case (Car);
if Car in 'a' .. 'z' then
Analysis.Inc_Item_Occ (Car, Histogramme);
end if;
end loop;
Text_Io.Skip_Line (File);
end loop;
Analysis.Put (Histogramme);
Analysis.Destroy_Histo (Histogramme);
end Test;