Hosted by
 |
package body Parts is
function Create
(Name : in String)
return Part
is
Result : Part := new Part_Record;
begin
Result.Name := To_Unbounded_String(Name);
return Result;
end Create;
function Get_Name
(This : in Part)
return String is
begin
return To_String(This.Name);
end Get_Name;
procedure Set_Name
(This : in Part;
Name : in String) is
begin
This.Name := To_Unbounded_String(Name);
end Set_Name;
end Parts;
|