(Tcl) Handling Namespaces in XML Tags

See more XML Examples

Demonstrates new features added in Chilkat v9.5.0.77 for helping with namespace prefixed tags.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# First create some XML using namespace prefixed tags.

# Create this XML. 
# Use this online tool to generate the code from sample XML: 
# Generate Code to Create XML

# <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
#    xmlns:scm="http://www.springcm.com/atlas/webservices/v201308/scm/">
#    <soapenv:Header/>
#    <soapenv:Body>
#       <scm:AccountGetCurrent>
#          <scm:token>123</scm:token>
#       </scm:AccountGetCurrent>
#    </soapenv:Body>
# </soapenv:Envelope>

set xml [new_CkXml]

CkXml_put_Tag $xml "soapenv:Envelope"
CkXml_AddAttribute $xml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/"
CkXml_AddAttribute $xml "xmlns:scm" "http://www.springcm.com/atlas/webservices/v201308/scm/"
CkXml_UpdateChildContent $xml "soapenv:Header" ""
CkXml_UpdateChildContent $xml "soapenv:Body|scm:AccountGetCurrent|scm:token" "123"

# Go to the "Body" tag, regardless of namespace prefix.
# xmlBody is a CkXml
set xmlBody [CkXml_FindChild $xml "*:Body"]
if {[CkXml_get_LastMethodSuccess $xml] != 1} then {
    puts "Body child not found."
    delete_CkXml $xml
    exit
}

# Get the full tag w/ namespace prefix:
# Output is "soapenv:Body"
puts [CkXml_tag $xmlBody]

# Get the namespace prefix:
# Output is "soapenv"
puts [CkXml_tagNsPrefix $xmlBody]

# Get the unprefixed tag:
# Output is "Body"
puts [CkXml_tagUnprefixed $xmlBody]

# Check to see if the unprefixed tag equals "Body"
set isBodyTag [CkXml_TagUnpEquals $xmlBody "Body"]
puts "isBodyTag = $isBodyTag"

# Check to see if the namespace prefix equals "soapenv";
set isSoapenv [CkXml_TagNsEquals $xmlBody "soapenv"]
puts "isSoapenv = $isSoapenv"

# Change just the namespace prefix of the tag
CkXml_put_TagNsPrefix $xmlBody "se"
# The tag has changed from "soapenv:Body" to "se:Body"
puts [CkXml_tag $xmlBody]

# Change the unprefixed part of the tag.
CkXml_put_TagUnprefixed $xmlBody "Bodie"
# The tag has changed from "se:Body" to "se:Bodie"
puts [CkXml_tag $xmlBody]

delete_CkXml $xmlBody


delete_CkXml $xml