(Tcl) Insert XML into existing XML by calling InsertChildTreeAfter

Demonstrates how to insert an XML tree or subtree into another XML document using the InsertChildTreeAfter method.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# Build the 1st XML document:
# <x1>
#     <a1>1</a1>
#     <a2>2</a2>
#     <a3>3</a3>
# </x1>

set xml [new_CkXml]

CkXml_put_Tag $xml "x1"
CkXml_UpdateChildContent $xml "a1" "1"
CkXml_UpdateChildContent $xml "a2" "2"
CkXml_UpdateChildContent $xml "a3" "3"

# Build a 2nd XML document:

# <x2>
#   <b1>11</b1>
#   <b2>22</b2>
#   <b3>33</b3>
# </x2>

set xml2 [new_CkXml]

CkXml_put_Tag $xml2 "x2"
CkXml_UpdateChildContent $xml2 "b1" "11"
CkXml_UpdateChildContent $xml2 "b2" "22"
CkXml_UpdateChildContent $xml2 "b3" "33"

# We want to insert xml2 into xml to get this:

# <x1>
#     <a1>1</a1>
#     <x2>
#         <b1>11</b1>
#         <b2>22</b2>
#         <b3>33</b3>
#     </x2>
#     <a2>2</a2>
#     <a3>3</a3>
# </x1>

# Insert xml2 after "a1"

set index [CkXml_TagIndex $xml "a1"]
if {$index < 0} then {
    puts "a1 not found."
    delete_CkXml $xml
    delete_CkXml $xml2
    exit
}

CkXml_InsertChildTreeAfter $xml $index $xml2

puts [CkXml_getXml $xml]

# The result is:

# <x1>
#     <a1>1</a1>
#     <x2>
#         <b1>11</b1>
#         <b2>22</b2>
#         <b3>33</b3>
#     </x2>
#     <a2>2</a2>
#     <a3>3</a3>
# </x1>

# Note: xml2 now points to the subtree within xml.
# For example, update "b3" and then see how it's updated within the merged document:
CkXml_UpdateChildContent $xml2 "b3" "33333333"

puts [CkXml_getXml $xml]

# The result:

# <x1>
#     <a1>1</a1>
#     <x2>
#         <b1>11</b1>
#         <b2>22</b2>
#         <b3>33333333</b3>
#     </x2>
#     <a2>2</a2>
#     <a3>3</a3>
# </x1>

delete_CkXml $xml
delete_CkXml $xml2