(Tcl) Swap JSON Objects

Demonstrates how to swap two JSON objects within a JSON document.

Note: This example requires Chilkat v9.5.0.76 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set json [new_CkJsonObject]

CkJsonObject_put_EmitCompact $json 0

#  Load the following JSON:

#  {
#    "petter": {
#      "DOB": "26/02/1986",
#      "gender": "male",
#      "country": "US"
#    },
#    "Sara": {
#      "DOB": "13/05/1982",
#      "gender": "female",
#      "country": "FR"
#    },
#    "Jon": {
#      "DOB": "19/03/1984",
#      "gender": "male",
#      "country": "UK"
#    }
#  }

set success [CkJsonObject_LoadFile $json "qa_data/json/people.json"]
#  Assume success..

#  Swap the positions of Jon and Sara.
set index1 [CkJsonObject_IndexOf $json "Jon"]
set index2 [CkJsonObject_IndexOf $json "Sara"]
CkJsonObject_Swap $json $index1 $index2

#  We have this now:
puts [CkJsonObject_emit $json]

#  {
#    "petter": {
#      "DOB": "26/02/1986",
#      "gender": "male",
#      "country": "US"
#    },
#    "Jon": {
#      "DOB": "19/03/1984",
#      "gender": "male",
#      "country": "UK"
#    },
#    "Sara": {
#      "DOB": "13/05/1982",
#      "gender": "female",
#      "country": "FR"
#    }
#  }

#  To swap an inner member:
# jsonSara is a CkJsonObject
set jsonSara [CkJsonObject_ObjectOf $json "Sara"]
set index1 [CkJsonObject_IndexOf $jsonSara "DOB"]
set index2 [CkJsonObject_IndexOf $jsonSara "country"]
CkJsonObject_Swap $jsonSara $index1 $index2
delete_CkJsonObject $jsonSara

#  We now have this:
puts [CkJsonObject_emit $json]

#  {
#    "petter": {
#      "DOB": "26/02/1986",
#      "gender": "male",
#      "country": "US"
#    },
#    "Jon": {
#      "DOB": "19/03/1984",
#      "gender": "male",
#      "country": "UK"
#    },
#    "Sara": {
#      "country": "FR",
#      "gender": "female",
#      "DOB": "13/05/1982"
#    }
#  }

delete_CkJsonObject $json