Tcl

JSON PathPrefix Example

Demonstrates the JSON object's PathPrefix property. Tcl

load ./chilkat.dll

set success 0

set json [new_CkJsonObject]

CkJsonObject_put_PathPrefix $json "company.billing."

CkJsonObject_UpdateString $json "company_name" "TechNova Solutions Inc."
CkJsonObject_UpdateString $json "address_line_1" "123 Innovation Drive"
CkJsonObject_UpdateString $json "address_line_2" "Suite 450"
CkJsonObject_UpdateString $json "city" "Seattle"
CkJsonObject_UpdateString $json "state_province" "WA"
CkJsonObject_UpdateString $json "postal_code" "98101"
CkJsonObject_UpdateString $json "country" "USA"

CkJsonObject_put_EmitCompact $json 0

puts [CkJsonObject_emit $json]

# Result:

# {
#   "company": {
#     "billing": {
#       "company_name": "TechNova Solutions Inc.",
#       "address_line_1": "123 Innovation Drive",
#       "address_line_2": "Suite 450",
#       "city": "Seattle",
#       "state_province": "WA",
#       "postal_code": "98101",
#       "country": "USA"
#     }
#   }
# }

set city [CkJsonObject_stringOf $json "city"]
puts "city = $city"

delete_CkJsonObject $json