(Tcl) Create a JSON Array of Objects

Demonstrates how to create a JSON array of objects.

Note: This example requires Chilkat v11.1.0 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

set arr [new_CkJsonArray]

set obj [new_CkJsonObject]

# Create a new and empty JSON object in the 1st position of the JSON array 
# and return the reference in the last argument.
CkJsonArray_AddObjectAt2 $arr 0 $obj
CkJsonObject_UpdateString $obj "Name" "Otto"
CkJsonObject_UpdateInt $obj "Age" 29
CkJsonObject_UpdateBool $obj "Married" 0

# Create a new and empty JSON object in the 2nd position of the JSON array 
# and return the reference in the last argument.
CkJsonArray_AddObjectAt2 $arr 1 $obj
CkJsonObject_UpdateString $obj "Name" "Connor"
CkJsonObject_UpdateInt $obj "Age" 43
CkJsonObject_UpdateBool $obj "Married" 1

# Create a new and empty JSON object in the 3rd position of the JSON array 
# and return the reference in the last argument.
CkJsonArray_AddObjectAt2 $arr 2 $obj
CkJsonObject_UpdateString $obj "Name" "Ramona"
CkJsonObject_UpdateInt $obj "Age" 34
CkJsonObject_UpdateBool $obj "Married" 1

# Examine what we have:
CkJsonArray_put_EmitCompact $arr 0
puts [CkJsonArray_emit $arr]

# The output is:

# [
#   {
#     "Name": "Otto",
#     "Age": 29,
#     "Married": false
#   },
#   {
#     "Name": "Connor",
#     "Age": 43,
#     "Married": true
#   },
#   {
#     "Name": "Ramona",
#     "Age": 34,
#     "Married": true
#   }
# ]

delete_CkJsonArray $arr
delete_CkJsonObject $obj