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

* Output the encoding label (still fixed to "utf-8", others are not yet supported), Mantis #19827, #19172.

Browse Source 
git-svn-id: trunk@18034 -
This commit is contained in:
sergei 2011-07-29 06:08:04 +00:00
parent 70bc36da85
commit 72dcf89350
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-xml/src/xmlwrite.pp
View File

@ -673,17 +673,11 @@ begin
else else
wrtStr('1.0'); wrtStr('1.0');
wrtChr('"'); wrtChr('"');
// DISABLED - we are only able write in UTF-8 which does not require labeling // Here we ignore doc.xmlEncoding and write a fixed utf-8 label,
// writing incorrect encoding will render xml unreadable... // because it is the only output encoding currently supported.
(* wrtStr(' encoding="utf-8"');
if Length(TXMLDocument(node).Encoding) > 0 then
begin
wrtStr(' encoding="');
wrtStr(TXMLDocument(node).Encoding);
wrtChr('"');
end;
*)
if TXMLDocument(node).xmlStandalone then if TXMLDocument(node).xmlStandalone then
wrtStr(' standalone="yes"'); wrtStr(' standalone="yes"');