(Visual FoxPro) XML Inclusive Canonicalization

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL loSbXml
LOCAL loCanon
LOCAL lcCanonVersion
LOCAL lnWithComments
LOCAL lcUrl
LOCAL lnSuccess
LOCAL lcXmlInclCanon
LOCAL lcXmlExclCanon

* 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.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbXml = CreateObject('Chilkat.StringBuilder')
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.XmlDSig')
loCanon = CreateObject('Chilkat.XmlDSig')

* Use inclusive XML canonicalization.
lcCanonVersion = "C14N"
lnWithComments = 0

lcUrl = "https://www.chilkatsoft.com/exampleData/c14n/test7.xml"
lnSuccess = loHttp.QuickGetSb(lcUrl,loSbXml)

* 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>

lcXmlInclCanon = loCanon.CanonicalizeXml(loSbXml.GetAsString(),lcCanonVersion,lnWithComments)
? lcXmlInclCanon

* 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..
lcCanonVersion = "EXCL_C14N"

lcXmlExclCanon = loCanon.CanonicalizeXml(loSbXml.GetAsString(),lcCanonVersion,lnWithComments)
? lcXmlExclCanon

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

RELEASE loHttp
RELEASE loSbXml
RELEASE loCanon