Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Followup on [463519edc6]. Fixed missing handling of "arglabel" data in the json, tcl, and sql help formats. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
9660d12cb0ec9c3626e18771581bcc50 |
| User & Date: | andreask 2014-11-26 23:12:20 |
Context
|
2014-11-27
| ||
| 21:53 | Created a new reserved common block, *config*, in the root-actor. Used to convey the active instance of cmdr::config to parameter callbacks. This different from the definition config for global parameters. For regular parameters it is the same as found as the first argument of the callback. The active instance is needed when a global parameter interacts with regular ones of the active private. check-in: f121133cf2 user: andreask tags: trunk | |
|
2014-11-26
| ||
| 23:12 | Followup on [463519edc6]. Fixed missing handling of "arglabel" data in the json, tcl, and sql help formats. check-in: 9660d12cb0 user: andreask tags: trunk | |
|
2014-11-04
| ||
| 18:05 | cmdr::help - Prevent the space allocated to descriptions in the categorized help from getting to small. Negatives trigger an error in adjust, and anything below 10 will generate very short tall columns. Better to misformat (cut at terminal edge, or wrap-around) for these cases. Bumped version to 1.3.2. check-in: b64206b4e3 user: andreask tags: trunk | |
Changes
Changes to help_json.tcl.
153
154
155
156
157
158
159
160
161
162
163
164
165
166
...
202
203
204
205
206
207
208
209
|
}
code -
default -
description -
prompt -
type -
label -
@string {
set value [astring $xdef]
}
generator -
validator -
@cmdprefix {
set value [alist $xdef]
................................................................................
proc ::cmdr::help::format::JSON::astring {string} {
regsub -all -- {[ \n\t]+} $string { } string
return [json::write string [string trim $string]]
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::help::json 1.1
|
>
|
|
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
...
203
204
205
206
207
208
209
210
|
} code - default - description - prompt - type - label - arglabel - @string { set value [astring $xdef] } generator - validator - @cmdprefix { set value [alist $xdef] ................................................................................ proc ::cmdr::help::format::JSON::astring {string} { regsub -all -- {[ \n\t]+} $string { } string return [json::write string [string trim $string]] } # # ## ### ##### ######## ############# ##################### ## Ready package provide cmdr::help::json 1.1.1 |
Changes to help_sql.tcl.
186
187
188
189
190
191
192
193
194
195
196
197
198
199
...
296
297
298
299
300
301
302
303
|
default -
description -
prompt -
type -
generator -
validator -
label -
@string {
set value [astring $xdef]
}
flags {
# Ignored, handled separately (see caller).
continue
}
................................................................................
pid INTEGER REFERENCES parameters
);
CREATE INDEX fname on flags ( name );
}
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::help::sql 1.1
|
>
|
|
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
...
297
298
299
300
301
302
303
304
|
default - description - prompt - type - generator - validator - label - arglabel - @string { set value [astring $xdef] } flags { # Ignored, handled separately (see caller). continue } ................................................................................ pid INTEGER REFERENCES parameters ); CREATE INDEX fname on flags ( name ); } } # # ## ### ##### ######## ############# ##################### ## Ready package provide cmdr::help::sql 1.1.1 |
Changes to help_tcl.tcl.
148
149
150
151
152
153
154
155
156
157
158
159
160
161
...
181
182
183
184
185
186
187
188
|
}
code -
default -
description -
prompt -
type -
label -
@string {
set value [astring $xdef]
}
generator -
validator -
@cmdprefix {
set value $xdef
................................................................................
proc ::cmdr::help::format::TCL::astring {string} {
regsub -all -- {[ \n\t]+} $string { } string
return [string trim $string]
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::help::tcl 1.1
|
>
|
|
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
...
182
183
184
185
186
187
188
189
|
} code - default - description - prompt - type - label - arglabel - @string { set value [astring $xdef] } generator - validator - @cmdprefix { set value $xdef ................................................................................ proc ::cmdr::help::format::TCL::astring {string} { regsub -all -- {[ \n\t]+} $string { } string return [string trim $string] } # # ## ### ##### ######## ############# ##################### ## Ready package provide cmdr::help::tcl 1.1.1 |