Tcl

Using CDATA in XML

See more XML Examples

Demonstrates how to force the content of a node to be encapsulated in CDATA.

The output of the following program is an XML document that looks like this:

<root>
    <year>2009</year>
    <junk1>abc .. &lt; &amp; &gt; 123</junk1>
    <junk2><![CDATA[abc .. < & > 123]]></junk2>
</root>

Tcl

load ./chilkat.dll

set xml [new_CkXml]

# child1 is a CkXml

# child2 is a CkXml

# child3 is a CkXml

CkXml_put_Tag $xml "root"

set child1 [CkXml_NewChild $xml "year" "2009"]

set child2 [CkXml_NewChild $xml "junk1" "abc .. < & > 123"]

set child3 [CkXml_NewChild $xml "junk2" "abc .. < & > 123"]
CkXml_put_Cdata $child3 1

delete_CkXml $child1

delete_CkXml $child2

delete_CkXml $child3

puts [CkXml_getXml $xml]

delete_CkXml $xml