words-musicxml
word-music.ads
word-music.adb
musicxml
test/
clefs-musicxml
di_typ-musicxm
encodi-musicxm
identi-musicxm
keys-musicxml
lyrics-musicxm
measur-musicxm
mi_ins-musicxm
musi-back-musi
musi-barl-musi
musi-dire-musi
musi-forw-musi
music-musicxml
musi-note-musi
musicxml
nota-arti-musi
notati-musicxm
nota-simp-musi
nota-slur-musi
parts-musicxml
pitche-musicxm
sc_ins-musicxm
scores-musicxm
times-musicxml
words-musicxml
works-musicxml
test_musicxml.
text
musicxml/
cmn/
ada
bin/
engine/
fonts/
internal/
text/
util/
Home
Showcase
Snapshots
Ada Source
PHP Source
Fonts
Sourceforge
Summary
Downloads
Browse CVS
Donate
Activity

Hosted by
SourceForge.net Logo

 -- $Date: 2004/02/14 10:10:21 $
-- $Revision: 1.7 $
-- $Author: jcrocholl $

with Integer_Strings; use Integer_Strings;
with Readers; use Readers;
with Token_Readers; use Token_Readers;
with Writers; use Writers;
with Indent_Writers; use Indent_Writers;

package body Words.MusicXML is

   -- Read words data from an XML reader.
   function Read_Words
     (XML : access XML_Reader) -- Use this XML reader.
     return Words_Access       -- The newly created words.
   is
      Result : Words_Access := Create;
   begin
      Assert_Tag_Name(XML, "words");

      while not End_Of_Tag(XML) loop
         Read_Attribute_Name(XML);
         if Found(XML, "xml:lang") then
            Read_Attribute_Value(XML);
            Set_Lang(Result, Get_Token(XML));
         elsif Found(XML, "relative-x") then
            Read_Attribute_Value(XML);
            Set_Relative_X(Result, To_Number(Get_Token(XML)));
         elsif Found(XML, "relative-y") then
            Read_Attribute_Value(XML);
            Set_Relative_Y(Result, To_Number(Get_Token(XML)));
         else
            XML_Expect_Error(XML, "",
              "xml:lang" / "relative-x" / "relative-y");
         end if;
      end loop;
      Exit_Tag(XML);

      Set_Text(Result, Read_Data(XML));
      Exit_Element(XML);
      return Result;
   end Read_Words;

   -- Write words data to an XML writer.
   procedure Write_Words
     (XML  : access XML_Writer; -- Use this XML writer.
      This : access Words)      -- Write this words.
   is
   begin
      Write_Indent(XML);
      Start_Tag(XML, "words");
      if Get_Lang(This) /= "" then
         Write_Attribute(XML, "xml:lang", Get_Lang(This));
      end if;
      if Get_Relative_Y(This) /= 0 then
         Write_Attribute(XML, "relative-y", To_String(Get_Relative_Y(This)));
      end if;
      if Get_Relative_X(This) /= 0 then
         Write_Attribute(XML, "relative-x", To_String(Get_Relative_X(This)));
      end if;
      Close_Tag(XML);

      Write_Data(XML, Get_Text(This));

      Write_Tag(XML, "/words");
      New_Line(XML);
   end Write_Words;

end Words.MusicXML;