Tcl

JSON AddArrayCopyAt Example

Demonstrates the AddArrayCopyAt function.

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

Tcl

load ./chilkat.dll

set json [new_CkJsonObject]

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

set jarr [new_CkJsonArray]

CkJsonArray_Load $jarr "[ 1, 2, 3, \"apple\", \"orange\", [ 10, 20, 30 ], { \"name\": \"Luther\"} ]"

# Copy the contents of jar to a new array member named "stuff".
# Insert the array at the 2nd position
CkJsonObject_AddArrayCopyAt $json 1 "stuff" $jarr

puts [CkJsonObject_emit $json]
# Expected output is:  {"name":"John","stuff":[1,2,3,"apple","orange",[10,20,30],{"name":"Luther"}],"marbles":100}

# Note: The contents of the array were copied.
# If we modify the contents of jarr, it does not modify the array contained within "json" because it is a separate copy.
# For example:
CkJsonArray_AddIntAt $jarr -1 2020
puts [CkJsonArray_emit $jarr]
# Expected output: [1,2,3,"apple","orange",[10,20,30],{"name":"Luther"},2020]

puts [CkJsonObject_emit $json]
# Remains unchanged: {"name":"John","stuff":[1,2,3,"apple","orange",[10,20,30],{"name":"Luther"}],"marbles":100}

delete_CkJsonObject $json
delete_CkJsonArray $jarr