|
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: 741 (0x2e5)
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;
function Line_Image (E : Element) return String is
function Remove_Underscores_And_Capitialize (S : String) return String is
Return_String : String (S'First .. S'Last) := S;
begin
Return_String (S'First) := String_Utilities.Upper_Case (S (S'First));
for I in S'First .. S'Last loop
if Return_String (I) = '_' then
Return_String (I + 1) :=
String_Utilities.Upper_Case (Return_String (I + 1));
end if;
end loop;
return Return_String;
end Remove_Underscores_And_Capitialize;
begin
return Remove_Underscores_And_Capitialize
(String_Utilities.Lower_Case (Element'Image (E)));
end Line_Image;