(Tcl) JSON AddArrayCopyAt Example
Demonstrates the AddArrayCopyAt function.
Note: This example requires Chilkat v9.5.0.82 or above.
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
|
