Tcl

JSON AppendArray2 Example

Demonstrates the AppendArray2 function. Tcl

load ./chilkat.dll

set json [new_CkJsonObject]

CkJsonObject_Load $json "{ \"name\": \"John\", \"marbles\": 100 }"

# Append an empty array named "xyz"
set jarr [new_CkJsonArray]

CkJsonObject_AppendArray2 $json "xyz" $jarr

puts [CkJsonObject_emit $json]
# Expected output is:   {"name":"John","marbles":100,"xyz":[]}

# Add elements to the array.
CkJsonArray_AddStringAt $jarr -1 "hello"
CkJsonArray_AddIntAt $jarr -1 256

puts [CkJsonObject_emit $json]
# Expected output is:  {"name":"John","marbles":100,"xyz":["hello",256]}

delete_CkJsonObject $json
delete_CkJsonArray $jarr