(Tcl) JSON AddObjectCopyAt Example

Demonstrates the AddObjectCopyAt function.

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set json [new_CkJsonObject]

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

set json2 [new_CkJsonObject]

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

# Copy the contents of json2 to a new member object named "addr".
# Insert it in the 2nd position.
CkJsonObject_AddObjectCopyAt $json 1 "addr" $json2

puts [CkJsonObject_emit $json]
# Expected output is:  {"name":"John","addr":{"street":"1200 Elm St.","city":"Springfield","zip":60606},"marbles":100}

# Note: Modifying the contents of json does not modify the contents of json2 (because the contents of json2 were copied).
# For example:
CkJsonObject_UpdateString $json "addr.street" "1000 Oak St."
puts [CkJsonObject_emit $json]
# Expected output is:  {"name":"John","addr":{"street":"1000 Oak St.","city":"Springfield","zip":60606},"marbles":100}

puts [CkJsonObject_emit $json2]
# Expected output is: {"street":"1200 Elm St.","city":"Springfield","zip":60606}

delete_CkJsonObject $json
delete_CkJsonObject $json2