(Tcl) JSON: Renaming and Deleting Members

Demonstrates renaming and deleting members. This example uses the following JSON document:

{
   "apple": "red",
   "lime": "green",
   "banana": "yellow",
   "broccoli": "green",
   "strawberry": "red"
}

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set json [new_CkJsonObject]

set success [CkJsonObject_Load $json "{\"apple\": \"red\",\"lime\": \"green\",\"banana\": \"yellow\",\"broccoli\": \"green\",\"strawberry\": \"red\"}"]
if {$success != 1} then {
    puts [CkJsonObject_lastErrorText $json]
    delete_CkJsonObject $json
    exit
}

# Rename "lime" to "lemon".
set success [CkJsonObject_Rename $json "lime" "lemon"]
# Change the color to yellow:
set success [CkJsonObject_SetStringOf $json "lemon" "yellow"]

# Rename by index.  Banana is at index 2 (apple is at index 0)
set success [CkJsonObject_RenameAt $json 2 "bartlett_pear"]

# Delete broccoli by name
set success [CkJsonObject_Delete $json "broccoli"]

# Delete apple by index.  Apple is at index 0.
set success [CkJsonObject_DeleteAt $json 0]

CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

delete_CkJsonObject $json