paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 02:30:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* The reader now sets the DocumentElement for a DOM document

Browse Source 
* The XML parser raises an exception if there is additional data after
  the end of the XML document element
This commit is contained in:
sg 1999-12-05 22:02:11 +00:00
parent 57cfd593f1
commit 267902e161
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fcl/xml/xmlread.pp
View File

@ -188,6 +188,11 @@ begin
ExpectElement(doc); ExpectElement(doc);
ParseMisc(doc); ParseMisc(doc);
doc.SetDocumentElement(LastNodeBeforeDoc.NextSibling as TDOMElement);
if buf[0] <> #0 then
RaiseExc('Data after end of document element');
{ {
if buf[0] <> #0 then begin if buf[0] <> #0 then begin
WriteLn('=== Unparsed: ==='); WriteLn('=== Unparsed: ===');
@ -977,7 +982,12 @@ end.
{ {
$Log$ $Log$
Revision 1.8 1999-08-10 15:39:59 michael Revision 1.9 1999-12-05 22:02:11 sg
* The reader now sets the DocumentElement for a DOM document
* The XML parser raises an exception if there is additional data after
the end of the XML document element
Revision 1.8 1999/08/10 15:39:59 michael
* restored previous setting * restored previous setting
Revision 1.6 1999/07/27 13:01:59 peter Revision 1.6 1999/07/27 13:01:59 peter