Tcl

JSON Array AddObjectCopyAt Example

Demonstrates the AddObjectCopyAt function.

Note: This example requires Chilkat v9.5.0.82 or above.

Tcl

load ./chilkat.dll

set jarr [new_CkJsonArray]

CkJsonArray_Load $jarr "[ 1, 2, 3, 4]"

set json [new_CkJsonObject]

CkJsonObject_Load $json "{\"street\":\"1200 Elm St.\",\"city\":\"Springfield\",\"zip\":60606}"

# Copy the contents of json to the array at index 2, making it the 3rd item in the array.
CkJsonArray_AddObjectCopyAt $jarr 2 $json

puts [CkJsonArray_emit $jarr]
# Expected output is:  [1,2,{"street":"1200 Elm St.","city":"Springfield","zip":60606},3,4]

delete_CkJsonArray $jarr
delete_CkJsonObject $json