|
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: 1316 (0x524)
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 String_Utilities;
with Simple_Text_Io;
package body Silly_String_Utilities is
function Number_Of_Characters
(C : Character; In_String : String) return Integer is
Number : Integer := 0;
begin
for I in In_String'First .. In_String'Last loop
if In_String (I) = C then
Number := Number + 1;
end if;
end loop;
return Number;
end Number_Of_Characters;
function Contains_Character
(C : Character; In_String : String) return Boolean is
begin
for I in In_String'First .. In_String'Last loop
if In_String (I) = C then
return True;
end if;
end loop;
return False;
end Contains_Character;
procedure Put_Line (S : String) is
begin
Simple_Text_Io.Put_Line (S);
end Put_Line;
function Begins_With
(Fragment : String; In_String : String) return Boolean is
begin
return String_Utilities.Locate (Fragment, In_String) = 1;
end Begins_With;
function Strip_Leading
(C : Character := ' '; From_String : String) return String is
begin
return String_Utilities.Strip (From => From_String, Filler => C);
end Strip_Leading;
end Silly_String_Utilities;