Tcl

XML Inclusive Canonicalization

See more XML Digital Signatures Examples

Demonstrates how to convert XML to the Inclusive XML Canonicalization form as specified in http://www.w3.org/TR/xml-c14n/ Tcl

load ./chilkat.dll

set success 0

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# The XML digital signature verification class provides utility methods for
# XML canonicalization.  This example demonstrates how to do inclusive XML canonicalization.

set http [new_CkHttp]

set sbXml [new_CkStringBuilder]

set canon [new_CkXmlDSig]

# Use inclusive XML canonicalization.
set canonVersion "C14N"
set withComments 0

set url "https://www.chilkatsoft.com/exampleData/c14n/test7.xml"
set success [CkHttp_QuickGetSb $http $url $sbXml]

# This is the input XML:
# The XML comment is referring to when exclusive XML canonicalization is applied.  With inclusive canonicalization, the namespace nodes
# are kept, as we'll see below..

# <doc>
# <!-- A namespace node N is ignored if the nearest ancestor element of the node's parent element that is in the node-set has a namespace node in the node-set with the same local name and value as N. -->
# 	<animal xmlns:aa="https://www.animal.com/">
# 		<reptile xmlns:bb="https://www.reptile.com/">
#   			<lizard xmlns="" type="african fat tailed" abc="xyz" xmlns:aa="https://www.animal.com/" />
#   			<snake type="poisonous rattler" xmlns:bb="https://www.reptile.com/" >
#   			</snake>
#   		</reptile>
#   	</animal>
# </doc>

set xmlInclCanon [CkXmlDSig_canonicalizeXml $canon [CkStringBuilder_getAsString $sbXml] $canonVersion $withComments]
puts "$xmlInclCanon"

# The C14N (inclusive) canonicalization is:

# <doc>
# 
# 	<animal xmlns:aa="https://www.animal.com/">
# 		<reptile xmlns:bb="https://www.reptile.com/">
#   			<lizard abc="xyz" type="african fat tailed"></lizard>
#   			<snake type="poisonous rattler">
#   			</snake>
#   		</reptile>
#   	</animal>
# </doc>

# To see the difference, let's do exclusive canonicalization..
set canonVersion "EXCL_C14N"

set xmlExclCanon [CkXmlDSig_canonicalizeXml $canon [CkStringBuilder_getAsString $sbXml] $canonVersion $withComments]
puts "$xmlExclCanon"

# // The C14N (exclusive) canonicalization is:
# 
# <doc>
# 
# 	<animal>
# 		<reptile>
#   			<lizard abc="xyz" type="african fat tailed"></lizard>
#   			<snake type="poisonous rattler">
#   			</snake>
#   		</reptile>
#   	</animal>
# </doc>

delete_CkHttp $http
delete_CkStringBuilder $sbXml
delete_CkXmlDSig $canon