cmdr
Check-in [d04e732ab1]
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:Extended the json help format with a map "opt2para" from options to controlling parameter (name to name).
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:d04e732ab1dd5e651e72406e31826a4a02017e2b
User & Date: aku 2013-10-29 05:44:20
References
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
Context
2013-10-29
05:45
Bumped package versions to 0.8 check-in: a0fad5ad9d user: aku tags: trunk
05:44
Extended the json help format with a map "opt2para" from options to controlling parameter (name to name). check-in: d04e732ab1 user: aku tags: trunk
05:40
Put section information into the json format. check-in: c0c62eb8c0 user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to config.tcl.

173
174
175
176
177
178
179

180
181
182
183
184
185
186
...
196
197
198
199
200
201
202

203
204
205
206
207
208
209
		(($mode ne "interact") ||
		 ![$para set?])} continue

	    # in interactive mode we skip all the aliases.
	    if {($mode eq "interact") &&
		![$para primary $o]} continue
	    dict set options $o [$para description $o]

	}

	set arguments $myargs
	set sections  $mysections

	# Full dump of the parameter definitions. Unusual formats
	# (SQL, json) may wish to have acess to all of a parameter,
................................................................................
	    if {![$para is state]} continue
	    lappend states $p
	}

	return [dict create \
		    desc       [context description] \
		    options    $options \

		    arguments  $arguments \
		    states     $states \
		    parameters $parameters \
		    sections   $sections]
    }

    method interactive {} { return $myinteractive }







>







 







>







173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
...
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
		(($mode ne "interact") ||
		 ![$para set?])} continue

	    # in interactive mode we skip all the aliases.
	    if {($mode eq "interact") &&
		![$para primary $o]} continue
	    dict set options $o [$para description $o]
	    dict set optpara $o [$para name]
	}

	set arguments $myargs
	set sections  $mysections

	# Full dump of the parameter definitions. Unusual formats
	# (SQL, json) may wish to have acess to all of a parameter,
................................................................................
	    if {![$para is state]} continue
	    lappend states $p
	}

	return [dict create \
		    desc       [context description] \
		    options    $options \
		    opt2para   $optpara \
		    arguments  $arguments \
		    states     $states \
		    parameters $parameters \
		    sections   $sections]
    }

    method interactive {} { return $myinteractive }