(Tcl) Load JSON Data at Path

Demonstrates how to load JSON data into a path within a JSON database. For example, we begin with this JSON:

{
  "a": 1,
  "b": 2,
  "c": {
    "x": 1,
    "y": 2
  }
}

{
  "a": 1,
  "b": 2,
  "c": {
    "mm": 11,
    "nn": 22
  }
}

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# Demonstrates how to load replace the data at a location within a JSON database.

set p "{\"a\": 1, \"b\": 2, \"c\": { \"x\": 1, \"y\": 2 } }"

set json [new_CkJsonObject]

CkJsonObject_Load $json $p
CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

set q "{\"mm\": 11, \"nn\": 22}"

# c is a CkJsonObject
set c [CkJsonObject_ObjectOf $json "c"]
CkJsonObject_Load $c $q
delete_CkJsonObject $c

# See that x and y are replaced with mm and nn.
puts [CkJsonObject_emit $json]

delete_CkJsonObject $json