xml/ada dropping data when pre-defined entities are separated by space?

["björn lundin" <b.f.lundin@gmail.com>]

Hi !
I wonder if anyone has encountered difficulties with xml/ada
when parsing documents containing the pre-defined entities like &

When having one of these, it is ok, but if two appear, separated with
space,
the rest of the text is dropped.

This is with xml/ada 3.2.1 gpl, dowloaded 27-jan-2011 from libre of
act


in the output below, I'd like to se ' & DEF' as well on the first
row...


with Input_Sources.Strings; use Input_Sources.Strings;
with Sax.Readers;           use Sax.Readers;
with DOM.Readers;           use DOM.Readers;
with DOM.Core;              use DOM.Core;
with DOM.Core.Documents;    use DOM.Core.Documents;
with DOM.Core.Nodes;        use DOM.Core.Nodes;
with Ada.Text_IO;
with Unicode.CES.Basic_8bit;

procedure Test_Xml_Dom is
    Xml_Str : String := "<?xml version='1.0' encoding='ISO-8859-1'?
><env><Row>ABC &amp; &amp; DEF</Row><Row>ABC &amp;&amp; DEF</
Row><Row>ABC _ DEF</Row></env>";
    Input   : String_Input;
    Reader  : Tree_Reader;
    Doc     : Document;
    List    : Node_List;
    N       : Node;
begin
    Open(Xml_Str, Unicode.CES.Basic_8bit.Basic_8bit_Encoding,Input);
    Reader.Set_Feature(Validation_Feature, False);
    Reader.Set_Feature(Namespace_Feature, False);
    Reader.Parse(Input);
    Input.Close;
    Doc := Reader.Get_Tree;
    List := Get_Elements_By_Tag_Name(Doc, "Row");
    for Index in 1 .. Length (List) loop
      N := Item(List, Index - 1);
      Ada.Text_IO.Put_Line("Value of Row is: " &  Node_Value
(First_Child (N)));
    end loop;
end Test_Xml_Dom;

testrun:
c:\>test_xml_dom.exe
Value of Row is: ABC &
Value of Row is: ABC && DEF
Value of Row is: ABC _ DEF


/Björn