(Tcl) Sort JSON Object by Member Key Name

See more JSON Examples

IMPORTANT: This example requires a pre-release for the next version of Chilkat after the current v9.5.0.99 release. Contact info@chilkatsoft.com if you wish to get a pre-release. However, pre-releases of .NET Core (hosted on NuGet) and Node.js will not be possible.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "xyz" "1234"
CkJsonObject_UpdateString $json "abc.xyz" "1234"
CkJsonObject_UpdateString $json "abc.def" "1234"
CkJsonObject_UpdateString $json "abc.aaa" "1234"
CkJsonObject_UpdateString $json "ghi" "1234"
CkJsonObject_UpdateString $json "nmo" "1234"

CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

# This is our initial JSON:

# {
#   "xyz": "1234",
#   "abc": {
#     "xyz": "1234",
#     "def": "1234",
#     "aaa": "1234"
#   },
#   "ghi": "1234",
#   "nmo": "1234"
# }

# Sort the top-level JSON object by key.
set ascending 1
set caseSensitive 1
CkJsonObject_Sort $json $ascending $caseSensitive

# Look at the sorted JSON..
puts [CkJsonObject_emit $json]

# {
#   "abc": {
#     "xyz": "1234",
#     "def": "1234",
#     "aaa": "1234"
#   },
#   "ghi": "1234",
#   "nmo": "1234",
#   "xyz": "1234"
# }

# Now sort the members of the "abc" object..
# jsonAbc is a CkJsonObject
set jsonAbc [CkJsonObject_ObjectOf $json "abc"]
CkJsonObject_Sort $jsonAbc $ascending $caseSensitive
delete_CkJsonObject $jsonAbc

# Now look at the JSON with the members under "abc" also sorted..
puts [CkJsonObject_emit $json]

# {
#   "abc": {
#     "aaa": "1234",
#     "def": "1234",
#     "xyz": "1234"
#   },
#   "ghi": "1234",
#   "nmo": "1234",
#   "xyz": "1234"
# }

delete_CkJsonObject $json