paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 13:38:30 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fcl/xml/htmwrite.pp
View File

@ -167,6 +167,11 @@ begin
wrt(c); wrt(c);
end; end;
function IsTextNode(Node: TDOMNode): Boolean;
begin
Result := Node.NodeType in [TEXT_NODE, ENTITY_REFERENCE_NODE];
end;
// ------------------------------------------------------------------- // -------------------------------------------------------------------
// Node writers implementations // Node writers implementations
@ -199,12 +204,12 @@ begin
else else
begin begin
SavedInsideTextNode := InsideTextNode; SavedInsideTextNode := InsideTextNode;
if InsideTextNode or Child.InheritsFrom(TDOMText) then if InsideTextNode or IsTextNode(Child) then
wrt('>') wrt('>')
else else
wrtln('>'); wrtln('>');
repeat repeat
if Child.InheritsFrom(TDOMText) then if IsTextNode(Child) then
InsideTextNode := True; InsideTextNode := True;
WriteNode(Child); WriteNode(Child);
Child := Child.NextSibling; Child := Child.NextSibling;
@ -370,7 +375,12 @@ end.
{ {
$Log$ $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" * Added new Units "htmwrite" and "xhtml"
} }