(Tcl) XML SearchForAttribute Method

Demonstrates the SearchForAttribute method.

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

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"]
if {[CkXml_get_LastMethodSuccess $xml] == 0} then {
    puts "searchRoot not found, searching from root."
    set xSearchRoot [CkXml_GetRoot $xml]
}

# Search for all "fruit" nodes having a color attribute
# where the name of the color ends in "e"
set xBeginAfter [CkXml_GetSelf $xSearchRoot]
set xFound [CkXml_SearchForAttribute $xSearchRoot $xBeginAfter "fruit" "color" "*e"]
while {[CkXml_get_LastMethodSuccess $xSearchRoot] == 1} {

    puts [CkXml_content $xFound]: [CkXml_getAttrValue $xFound color]

    delete_CkXml $xBeginAfter

    set xBeginAfter $xFound
    set xFound [CkXml_SearchForAttribute $xSearchRoot $xBeginAfter "fruit" "color" "*e"]
}

# The correct output is:
# grape: purple
# blueberry: blue

delete_CkXml $xBeginAfter

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

# ---------------------------------------------------------------------------------
# Now do the same, but instead use SearchForAttribute2
# 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_SearchForAttribute2 $xSearch $xBeginAfter "fruit" "color" "*e"]
while {$success == 1} {

    puts [CkXml_content $xSearch]: [CkXml_getAttrValue $xSearch color]

    # 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_SearchForAttribute2 $xSearch $xBeginAfter "fruit" "color" "*e"]
}

delete_CkXml $xSearch

delete_CkXml $xBeginAfter

delete_CkXml $xSearchRoot


delete_CkXml $xml