(Tcl) XML EmitCompact
Demonstrates the XML EmitCompact property to generate XML that is not pretty-printed, but is instead compact with whitespace removed.
Note: This example requires Chilkat v9.5.0.64 or later.
load ./chilkat.dll
# Note: This example requires Chilkat v9.5.0.64 or later.
set xml [new_CkXml]
CkXml_put_Tag $xml "aaa"
CkXml_NewChild2 $xml "red|green|blue" "sky"
# Show the XML in normal indented (pretty-printed) format:
puts [CkXml_getXml $xml]
# The output:
# <?xml version="1.0" encoding="utf-8" ?>
# <aaa>
# <red>
# <green>
# <blue>sky</blue>
# </green>
# </red>
# </aaa>
# Now set the EmitCompact property.
CkXml_put_EmitCompact $xml 1
# Show the XML in compact form:
puts [CkXml_getXml $xml]
# The compact output:
# <?xml version="1.0" encoding="utf-8" ?>
# <aaa><red><green><blue>sky</blue></green></red></aaa>
#
delete_CkXml $xml
|
