Tcl

JSON AppendObject2 Example

Demonstrates the AppendObject2 function. Tcl

load ./chilkat.dll

set json [new_CkJsonObject]

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

# Append an empty object named "addr"
set jObj [new_CkJsonObject]

CkJsonObject_AppendObject2 $json "addr" $jObj

puts [CkJsonObject_emit $json]
# Expected output is:   {"name":"John","marbles":100,"addr":{}}

# Add members to the object.
CkJsonObject_AppendString $jObj "street" "1200 Elm St."
CkJsonObject_AppendString $jObj "city" "Springfield"
CkJsonObject_AppendInt $jObj "zip" 60606

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

delete_CkJsonObject $json
delete_CkJsonObject $jObj