(Tcl) Create a JSON Array of Objects

Demonstrates how to create a JSON array of objects.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set arr [new_CkJsonArray]

# Add an empty object at the 1st JSON array position.
CkJsonArray_AddObjectAt $arr 0
# Get the object we just created.
# obj is a CkJsonObject
set obj [CkJsonArray_ObjectAt $arr 0]
CkJsonObject_UpdateString $obj "Name" "Otto"
CkJsonObject_UpdateInt $obj "Age" 29
CkJsonObject_UpdateBool $obj "Married" 0
delete_CkJsonObject $obj

# Add an empty object at the 2nd JSON array position.
CkJsonArray_AddObjectAt $arr 1
set obj [CkJsonArray_ObjectAt $arr 1]
CkJsonObject_UpdateString $obj "Name" "Connor"
CkJsonObject_UpdateInt $obj "Age" 43
CkJsonObject_UpdateBool $obj "Married" 1
delete_CkJsonObject $obj

# Add an empty object at the 3rd JSON array position.
CkJsonArray_AddObjectAt $arr 2
set obj [CkJsonArray_ObjectAt $arr 2]
CkJsonObject_UpdateString $obj "Name" "Ramona"
CkJsonObject_UpdateInt $obj "Age" 34
CkJsonObject_UpdateBool $obj "Married" 1
delete_CkJsonObject $obj

# 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