(Tcl) GetChild* methods

Demonstrates several of the GetChild* methods.

The input XML, available at http://www.chilkatsoft.com/data/get_child.xml, is this:

<root>
    <fruit color="red">apple</fruit>
    <fruit color="green">pear</fruit>
    <veg color="orange">carrot</veg>
    <meat animal="cow">beef</meat>
    <xyz>
        <fruit color="blue">blueberry</fruit>
        <veg color="green">broccoli</veg>
    </xyz>
    <fruit color="purple">grape</fruit>
    <cheese color="yellow">cheddar</cheese>
</root>

The output XML is this:

<abc b="pear" c="orange" a="130">Test</abc>

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set xml [new_CkXml]

# child is a CkXml

# The sample input XML is available at http://www.chilkatsoft.com/data/get_child.xml
set success [CkXml_LoadXmlFile $xml "get_child.xml"]
if {$success != 1} then {
    puts [CkXml_lastErrorText $xml]
    delete_CkXml $xml
    exit
}

# The NumChildren property contains the number of direct
# child nodes.  Note: The child nodes under "xyz" are NOT
# direct children of "root".  Therefore, the "root" node has
# 7 direct children
puts "NumChildren = [CkXml_get_NumChildren $xml]"

# Iterate over the direct children by index. The first child
# is at index 0.

for {set i 0} {$i <= [expr [CkXml_get_NumChildren $xml] - 1]} {incr i} {
    #  access the tag and content directly by index:
    puts "$i: [CkXml_getChildTagByIndex $xml $i] : [CkXml_getChildContentByIndex $xml $i]"

}
puts "-----"

# Do the same as the above loop, but get the child node
# and access the Tag and Content properties:
for {set i 0} {$i <= [expr [CkXml_get_NumChildren $xml] - 1]} {incr i} {
    set child [CkXml_GetChild $xml $i]
    puts "$i: [CkXml_tag $child] : [CkXml_content $child]"
    delete_CkXml $child

}
puts "-----"

# Do the same as the above loop, but instead of creating
# a new object instance for each child, call GetChild2 to
# update the object's reference instead.
for {set i 0} {$i <= [expr [CkXml_get_NumChildren $xml] - 1]} {incr i} {
    # Navigate to the Nth child.  
    set success [CkXml_GetChild2 $xml $i]
    puts "$i: [CkXml_tag $xml] : [CkXml_content $xml]"
    # Navigate back up to the parent:
    set success [CkXml_GetParent2 $xml]
}
puts "-----"

# Examine the result:
puts [CkXml_getXml $xml]

delete_CkXml $xml