(Tcl) Create JSON Document

Sample code to create the following JSON document:

{
  "Title": "Pan's Labyrinth",
  "Director": "Guillermo del Toro",
  "Original_Title": "El laberinto del fauno",
  "Year_Released": 2006
}

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set json [new_CkJsonObject]

# The only reason for failure in the following lines of code would be an out-of-memory condition..

# An index value of -1 is used to append at the end.
set success [CkJsonObject_AddStringAt $json -1 "Title" "Pan's Labyrinth"]
set success [CkJsonObject_AddStringAt $json -1 "Director" "Guillermo del Toro"]
set success [CkJsonObject_AddStringAt $json -1 "Original_Title" "El laberinto del fauno"]
set success [CkJsonObject_AddIntAt $json -1 "Year_Released" 2006]

CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

delete_CkJsonObject $json