Hosted by
 |
with Lists;
with Parts;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
package Scores is
type Score is private;
function Create
(Title : in String;
Movement_Name : in String;
Movement_Title : in String)
return Score;
function Get_Title
(This : in Score)
return String;
function Get_Movement_Name
(This : in Score)
return String;
function Get_Movement_Title
(This : in Score)
return String;
procedure Add_Part
(This : in Score;
Part : in Parts.Part);
private
package Part_Lists is new Lists(Parts.Part);
subtype Part_List is Part_Lists.List;
type Score_Record is record
Title : Unbounded_String;
Movement_Name : Unbounded_String;
Movement_Title : Unbounded_String;
Parts : Part_List;
end record;
type Score is access Score_Record;
end Scores;
|