Hosted by
 |
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
package Parts is
type Part is private;
function Create
(Name : in String)
return Part;
function Get_Name
(This : in Part)
return String;
procedure Set_Name
(This : in Part;
Name : in String);
private
type Part_Record is record
Name : Unbounded_String;
end record;
type Part is access Part_Record;
end Parts;
|