(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkXmlDSig.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    sbXml.i = CkStringBuilder::ckCreate()
    If sbXml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    canon.i = CkXmlDSig::ckCreate()
    If canon.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Use inclusive XML canonicalization.
    canonVersion.s = "C14N"
    withComments.i = 0

    url.s = "https://www.chilkatsoft.com/exampleData/c14n/test7.xml"
    success.i = CkHttp::ckQuickGetSb(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>

    xmlInclCanon.s = CkXmlDSig::ckCanonicalizeXml(canon,CkStringBuilder::ckGetAsString(sbXml),canonVersion,withComments)
    Debug 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..
    canonVersion = "EXCL_C14N"

    xmlExclCanon.s = CkXmlDSig::ckCanonicalizeXml(canon,CkStringBuilder::ckGetAsString(sbXml),canonVersion,withComments)
    Debug 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>


    CkHttp::ckDispose(http)
    CkStringBuilder::ckDispose(sbXml)
    CkXmlDSig::ckDispose(canon)


    ProcedureReturn
EndProcedure