Tcl Requires Chilkat v11.4.0+

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