(Tcl) XML SearchForTag Method

Demonstrates the SearchForTag and SearchForTag2 methods.

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

<root>
    <searchRoot>
        <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>
    </searchRoot>
    <fruit color="red">strawberry</fruit>
    <fruit color="orange">peach</fruit>
</root>

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set xml [new_CkXml]

# xSearchRoot is a CkXml

# xBeginAfter is a CkXml

# xFound is a CkXml

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

# Search the sub-tree rooted at "searchRoot"
set xSearchRoot [CkXml_FindChild $xml "searchRoot"]

# Search for all nodes having the tag "fruit"
set xBeginAfter [CkXml_GetSelf $xSearchRoot]
set xFound [CkXml_SearchForTag $xSearchRoot $xSearchRoot "fruit"]
while {[CkXml_get_LastMethodSuccess $xSearchRoot] == 1} {

    puts [CkXml_content $xFound]

    delete_CkXml $xBeginAfter

    set xBeginAfter $xFound
    set xFound [CkXml_SearchForTag $xSearchRoot $xBeginAfter "fruit"]
}

delete_CkXml $xBeginAfter

puts "--------------------------"

# ---------------------------------------------------------------------------------
# Now do the same, but instead use SearchForTag2
# which updates the internal reference of the caller instead
# of returning the found node.
# xSearch is a CkXml

set xBeginAfter [CkXml_GetSelf $xSearchRoot]
set xSearch [CkXml_GetSelf $xSearchRoot]

set success [CkXml_SearchForTag2 $xSearch $xBeginAfter "fruit"]
while {$success == 1} {

    puts [CkXml_content $xSearch]

    # Copy the internal references so that the next search
    # begins after the found node.
    CkXml_CopyRef $xBeginAfter $xSearch
    CkXml_CopyRef $xSearch $xSearchRoot

    set success [CkXml_SearchForTag2 $xSearch $xBeginAfter "fruit"]
}

delete_CkXml $xSearch

delete_CkXml $xBeginAfter

delete_CkXml $xSearchRoot


delete_CkXml $xml