Hosted by
 |
package body MusicXML.Read is
function Read_Score
(X : in XML_Parser)
return Scores.Score
is
Result : Scores.Score := Scores.Create("", "", "");
begin
if (Next_Element(X) /= "?xml") then
Error(X, "expecting ?xml");
end if;
return Result;
end Read_Score;
end MusicXML.Read;
|