32 lines
608 B
Ada
32 lines
608 B
Ada
package body GEL
|
|
is
|
|
|
|
function to_Asset (Self : in String) return asset_Name
|
|
is
|
|
the_Name : String (asset_Name'Range);
|
|
begin
|
|
the_Name (1 .. Self'Length) := Self;
|
|
the_Name (Self'Length + 1 .. the_Name'Last) := [others => ' '];
|
|
|
|
return asset_Name (the_Name);
|
|
end to_Asset;
|
|
|
|
|
|
|
|
function to_String (Self : in asset_Name) return String
|
|
is
|
|
begin
|
|
for i in reverse Self'Range
|
|
loop
|
|
if Self (i) /= ' '
|
|
then
|
|
return String (Self (1 .. i));
|
|
end if;
|
|
end loop;
|
|
|
|
return "";
|
|
end to_String;
|
|
|
|
|
|
end GEL;
|