(Tcl) JSON AppendArrayCopy Example

Demonstrates the AppendArrayCopy 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 jarr [new_CkJsonArray]

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

# Copy the contents of jar to a new array member named "stuff".
CkJsonObject_AppendArrayCopy $json "stuff" $jarr

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

# 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":"Alfred"},2020]

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

delete_CkJsonObject $json
delete_CkJsonArray $jarr