|
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: 931 (0x3a3)
Types: TextFile
Names: »B«
└─⟦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⟧
with Simple_Text_Io;
with String_Utilities;
procedure Phone_Solution2 (Search_String : in String) is
package Sio renames Simple_Text_Io;
Phone_File : Sio.File_Type;
Phone_List : constant String := "!users.dhe.tools.phone_list";
Found : Boolean := False;
begin
Sio.Open (Phone_File, Sio.In_File, Phone_List);
while not Sio.End_Of_File (Phone_File) loop
declare
Line : constant String := Sio.Get_Line (Phone_File);
begin
if String_Utilities.Locate (Fragment => Search_String,
Within => Line,
Ignore_Case => True) /= 0 then
Found := True;
Sio.Put_Line (Line);
end if;
end;
end loop;
if not Found then
Sio.Put_Line ("Nothing matches the search string");
end if;
Sio.Close (Phone_File);
end Phone_Solution2;