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.967 |
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 |
}
code -
default -
description -
prompt -
type -
label -
@string {
set value [astring $xdef]
}
generator -
validator -
@cmdprefix {
set value [alist $xdef]
| > | 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 |
}
code -
default -
description -
prompt -
type -
label -
arglabel -
@string {
set value [astring $xdef]
}
generator -
validator -
@cmdprefix {
set value [alist $xdef]
|
| ︙ | ︙ | |||
202 203 204 205 206 207 208 |
proc ::cmdr::help::format::JSON::astring {string} {
regsub -all -- {[ \n\t]+} $string { } string
return [json::write string [string trim $string]]
}
# # ## ### ##### ######## ############# #####################
## Ready
| | | 203 204 205 206 207 208 209 210 |
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 |
default -
description -
prompt -
type -
generator -
validator -
label -
@string {
set value [astring $xdef]
}
flags {
# Ignored, handled separately (see caller).
continue
}
| > | 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 |
default -
description -
prompt -
type -
generator -
validator -
label -
arglabel -
@string {
set value [astring $xdef]
}
flags {
# Ignored, handled separately (see caller).
continue
}
|
| ︙ | ︙ | |||
296 297 298 299 300 301 302 |
pid INTEGER REFERENCES parameters
);
CREATE INDEX fname on flags ( name );
}
}
# # ## ### ##### ######## ############# #####################
## Ready
| | | 297 298 299 300 301 302 303 304 |
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 |
}
code -
default -
description -
prompt -
type -
label -
@string {
set value [astring $xdef]
}
generator -
validator -
@cmdprefix {
set value $xdef
| > | 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 |
}
code -
default -
description -
prompt -
type -
label -
arglabel -
@string {
set value [astring $xdef]
}
generator -
validator -
@cmdprefix {
set value $xdef
|
| ︙ | ︙ | |||
181 182 183 184 185 186 187 |
proc ::cmdr::help::format::TCL::astring {string} {
regsub -all -- {[ \n\t]+} $string { } string
return [string trim $string]
}
# # ## ### ##### ######## ############# #####################
## Ready
| | | 182 183 184 185 186 187 188 189 |
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
|