|
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 - downloadIndex: ┃ B T ┃
Length: 1201 (0x4b1)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
package body Element is
Max_Length : constant := 80;
function Convert_To_Class (The_String : String) return Element.Class is
begin
if The_String'Length >= Max_Length then
return The_String (The_String'First ..
The_String'First + Max_Length - 1);
else
return The_String & (1 .. Max_Length - The_String'Length => ' ');
end if;
end Convert_To_Class;
function Convert_To_Value (The_String : String) return Element.Value is
begin
return Element.Value'Value (The_String);
end Convert_To_Value;
function Convert_To_Adress (The_String : String) return Element.Adress is
Inter : Element.Adress := (others => ' ');
begin
if The_String'Length > Element.Adress'Last then
return The_String (Element.Adress'Range);
else
return Inter (1 .. Element.Adress'Last - The_String'Length) &
The_String;
end if;
end Convert_To_Adress;
function Convert_To_Num_Acteur (The_String : String) return Natural is
begin
return Natural'Value (The_String);
end Convert_To_Num_Acteur;
end Element;