cmdr
Check-in [f453a7ed65]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Incomplete [d04e732ab1], extended the config, missed the help code :(. Now fixed.
Timelines: family | ancestors | descendants | both | trunk | v0.8
Files: files | file ages | folders
SHA1:f453a7ed65b66b807ad31b4490dfc1873390448b
User & Date: andreask 2013-10-29 16:31:44
Context
2013-10-31
00:43
Extended the json format with better section information, and outer structure. Version bumped to 0.9 check-in: a190c9c157 user: andreask tags: trunk
2013-10-29
16:31
Incomplete [d04e732ab1], extended the config, missed the help code :(. Now fixed. check-in: f453a7ed65 user: andreask tags: trunk, v0.8
05:45
Bumped package versions to 0.8 check-in: a0fad5ad9d user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

build.tcl became executable.

Changes to help_json.tcl.

69
70
71
72
73
74
75

76
77
78
79
80
81
82
    dict with command {}
    # -> action, desc, options, arguments, parameters, states, sections

    lappend dict description [JSON::astring    $desc]
    lappend dict action      [JSON::alist      $action]
    lappend dict arguments   [JSON::alist      $arguments]
    lappend dict options     [JSON::adict      $options]

    lappend dict states      [JSON::alist      $states]
    lappend dict parameters  [JSON::parameters $parameters]
    lappend dict sections    [JSON::alist      $sections]
    
    return [json::write object {*}$dict]
}








>







69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
    dict with command {}
    # -> action, desc, options, arguments, parameters, states, sections

    lappend dict description [JSON::astring    $desc]
    lappend dict action      [JSON::alist      $action]
    lappend dict arguments   [JSON::alist      $arguments]
    lappend dict options     [JSON::adict      $options]
    lappend dict opt2para    [JSON::adict      $opt2para]
    lappend dict states      [JSON::alist      $states]
    lappend dict parameters  [JSON::parameters $parameters]
    lappend dict sections    [JSON::alist      $sections]
    
    return [json::write object {*}$dict]
}