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

* Tabs are now considered as whitespace, too, when the reader determines if

Browse Source 
a text node would be empty or not
This commit is contained in:
sg 2000-07-09 14:23:42 +00:00
parent b28d595934
commit 8c29307ba9
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
fcl/xml/xmlread.pp
View File

@ -52,6 +52,7 @@ const
PubidChars: set of Char = [' ', #13, #10, 'a'..'z', 'A'..'Z', '0'..'9',
'-', '''', '(', ')', '+', ',', '.', '/', ':', '=', '?', ';', '!', '*',
'#', '@', '$', '_', '%'];
WhitespaceChars: set of Char = [#9, #10, #13, ' '];
NmToken: set of Char = Letter + Digit + ['.', '-', '_', ':'];
@ -150,7 +151,8 @@ end;
function TXMLReader.SkipWhitespace: Boolean;
begin
Result := False;
while buf[0] in [#9, #10, #13, ' '] do begin
while buf[0] in WhitespaceChars do
begin
Inc(buf);
Result := True;
end;
@ -348,7 +350,7 @@ procedure TXMLReader.ExpectProlog; // [22]
procedure ParseDoctypeDecls;
begin
repeat
SkipWhitespace;
SkipWhitespace;
until not (ParseMarkupDecl or ParsePEReference);
ExpectString(']');
end;
@ -731,7 +733,7 @@ var
begin
// Check if s has non-whitespace content
i := Length(s);
while (i > 0) and (s[i] in [#10, #13, ' ']) do
while (i > 0) and (s[i] in WhitespaceChars) do
Dec(i);
if i > 0 then
NewElem.AppendChild(doc.CreateTextNode(s));
@ -1115,7 +1117,11 @@ end.
{
$Log$
Revision 1.18 2000-07-09 13:56:09 sg
Revision 1.19 2000-07-09 14:23:42 sg
* Tabs are now considered as whitespace, too, when the reader determines if
a text node would be empty or not
Revision 1.18 2000/07/09 13:56:09 sg
* Added support for predefined entities for attribute values
Revision 1.17 2000/07/09 11:39:15 sg