Tcl

Example: JsonObject.NewObjectOf method

Demonstrates the NewObjectOf method. Tcl

load ./chilkat.dll

set success 0

set car "{\"make\":\"Toyota\",\"model\":\"Camry\",\"year\":2022,\"color\":\"silver\",\"engine\":{\"type\":\"inline-4\",\"fuel\":\"gasoline\",\"horsepower\":203},\"features\":[\"bluetooth\",\"backup camera\",\"adaptive cruise control\",\"lane assist\"],\"isElectric\":false}"

set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "test" "abc"

set success [CkJsonObject_NewObjectOf $json "car" $car]
if {$success == 0} then {
    puts [CkJsonObject_lastErrorText $json]
    delete_CkJsonObject $json
    exit
}

CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

# Result:

# {
#   "test": "abc",
#   "car": {
#     "make": "Toyota",
#     "model": "Camry",
#     "year": 2022,
#     "color": "silver",
#     "engine": {
#       "type": "inline-4",
#       "fuel": "gasoline",
#       "horsepower": 203
#     },
#     "features": [
#       "bluetooth",
#       "backup camera",
#       "adaptive cruise control",
#       "lane assist"
#     ],
#     "isElectric": false
#   }
# }

delete_CkJsonObject $json