Sample code for 30+ languages & platforms
Tcl

XML EmitCompact

See more XML Examples

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.

Chilkat Tcl Downloads

Tcl

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