paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 03:19:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Improved whitespace handling (entity references as first child of an

Browse Source 
element is now handled as indicator to stop the insertion of automatic
  linefeeds. Until now this was only the case with text nodes.)
This commit is contained in:
sg 2000-10-15 15:31:26 +00:00
parent 25d7998a4b
commit dca128133b
1 changed files with 13 additions and 3 deletions

16
fcl/xml/htmwrite.pp
View File

@ -167,6 +167,11 @@ begin
wrt(c);
end;
function IsTextNode(Node: TDOMNode): Boolean;
begin
Result := Node.NodeType in [TEXT_NODE, ENTITY_REFERENCE_NODE];
end;
// -------------------------------------------------------------------
// Node writers implementations
@ -199,12 +204,12 @@ begin
else
begin
SavedInsideTextNode := InsideTextNode;
if InsideTextNode or Child.InheritsFrom(TDOMText) then
if InsideTextNode or IsTextNode(Child) then
wrt('>')
else
wrtln('>');
repeat
if Child.InheritsFrom(TDOMText) then
if IsTextNode(Child) then
InsideTextNode := True;
WriteNode(Child);
Child := Child.NextSibling;
@ -370,7 +375,12 @@ end.
{
$Log$
Revision 1.1 2000-10-03 20:33:22 sg
Revision 1.2 2000-10-15 15:31:26 sg
* Improved whitespace handling (entity references as first child of an
element is now handled as indicator to stop the insertion of automatic
linefeeds. Until now this was only the case with text nodes.)
Revision 1.1 2000/10/03 20:33:22 sg
* Added new Units "htmwrite" and "xhtml"
}