Commit | Line | Data |
---|---|---|
da5050b2 | 1 | source tcvJSON.tcl |
2 | package require tcvJSON | |
3 | ||
4 | set myobj [ tcvJSON::create list ] | |
5 | ||
6 | tcvJSON::add! myobj 1 | |
7 | tcvJSON::add! myobj foo | |
8 | ||
9 | set mydeep [ tcvJSON::create obj ] | |
10 | ||
11 | tcvJSON::put! mydeep key value | |
12 | ||
13 | tcvJSON::add! -type auto myobj $mydeep | |
14 | ||
15 | puts $myobj | |
16 | ||
17 | puts [ tcvJSON::unparse $myobj 0 ] |