Tcl Requires Chilkat v11.1.0+

Create a JSON Array of Objects

See more JSON Examples

Demonstrates how to create a JSON array of objects. Tcl

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