Hosted by
 |
with MusicXML.Read;
with XML_Parsers;
package body MusicXML is
function Parse_Current_Input
return Scores.Score
is
XML_Parser : XML_Parsers.XML_Parser;
Result : Scores.Score;
begin
XML_Parser := XML_Parsers.Current_Input;
Result := MusicXML.Read.Read_Score(XML_Parser);
XML_Parsers.Close(XML_Parser);
return Result;
end Parse_Current_Input;
end MusicXML;
|