Hosted by
 |
package body Scores is
function Create
(Title : in String;
Movement_Name : in String;
Movement_Title : in String)
return Score
is
Result : Score := new Score_Record;
begin
Result.Title := To_Unbounded_String(Title);
Result.Movement_Name := To_Unbounded_String(Movement_Name);
Result.Movement_Title := To_Unbounded_String(Movement_Title);
return Result;
end Create;
function Get_Title
(This : in Score)
return String is
begin
return To_String(This.Title);
end Get_Title;
function Get_Movement_Name
(This : in Score)
return String is
begin
return To_String(This.Movement_Name);
end Get_Movement_Name;
function Get_Movement_Title
(This : in Score)
return String is
begin
return To_String(This.Movement_Title);
end Get_Movement_Title;
procedure Add_Part
(This : in Score;
Part : in Parts.Part) is
begin
Part_Lists.Push(This.Parts, Part);
end Add_Part;
end Scores;
|