(PureBasic) Get the Root of a JSON Document

Demonstrates how to get back to the JSON root object from anywhere in the JSON document. This example uses the following JSON document:

{
  "flower": "tulip",
  "abc":
    {
    "x": [
       { "a" : 1 },
       { "b1" : 100, "b2" : 200 },
       { "c" : 3 }
    ],
    "y": 200,
    "z": 200
    }
}

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkJsonArray.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

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

    jsonStr.s = "{" + Chr(34) + "flower" + Chr(34) + ": " + Chr(34) + "tulip" + Chr(34) + "," + Chr(34) + "abc" + Chr(34) + ":{" + Chr(34) + "x" + Chr(34) + ": [{ " + Chr(34) + "a" + Chr(34) + " : 1 },{ " + Chr(34) + "b1" + Chr(34) + " : 100, " + Chr(34) + "b2" + Chr(34) + " : 200 },{ " + Chr(34) + "c" + Chr(34) + " : 3 }]," + Chr(34) + "y" + Chr(34) + ": 200," + Chr(34) + "z" + Chr(34) + ": 200}}"

    success.i = CkJsonObject::ckLoad(json,jsonStr)
    If success <> 1
        Debug CkJsonObject::ckLastErrorText(json)
        CkJsonObject::ckDispose(json)
        ProcedureReturn
    EndIf

    ; Get the "abc" object.
    abcObj.i = CkJsonObject::ckObjectOf(json,"abc")
    If CkJsonObject::ckLastMethodSuccess(json) = 0
        Debug "abc object not found."
        CkJsonObject::ckDispose(json)
        ProcedureReturn
    EndIf

    ; Side note: The JSON of a sub-part of the document can be emitted from any JSON object:
    CkJsonObject::setCkEmitCompact(abcObj, 0)
    Debug CkJsonObject::ckEmit(abcObj)

    ; Navigate to the "x" array
    xArray.i = CkJsonObject::ckArrayOf(abcObj,"x")
    ; We'll skip the null check and assume it's non-null...

    ; Navigate to the 2nd object contained within the array.  This contains members b1 and b2
    bObj.i = CkJsonArray::ckObjectAt(xArray,1)
    ; We'll skip the null check and assume it's non-null...

    ; Show that we're at "b1/b2".
    ; The value of "b1" should be "200"
    Debug "b2 = " + Str(CkJsonObject::ckIntOf(bObj,"b2"))

    ; Now go back to the JSON doc root:
    docRoot.i = CkJsonObject::ckGetDocRoot(bObj)
    ; We'll skip the null check and assume it's non-null...

    ; Pretty-print the JSON doc from the root to show that this is indeed the root.
    CkJsonObject::setCkEmitCompact(docRoot, 0)
    Debug CkJsonObject::ckEmit(docRoot)

    CkJsonObject::ckDispose(docRoot)

    CkJsonObject::ckDispose(bObj)

    CkJsonArray::ckDispose(xArray)

    CkJsonObject::ckDispose(abcObj)



    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure