Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Excluded auto-added commands from categorized help. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
7e77c5a0bebbb3a01ec2931f5988aa78 |
| User & Date: | andreask 2014-02-17 23:29:04.639 |
Context
|
2014-02-19
| ||
| 20:20 | officer - Extended class to accept the unique prefixes of the known command names for dispatch. check-in: 434ada2661 user: andreask tags: trunk | |
| 19:11 | Draft code for additional vtypes: Paths, with appropriate open channels as internal rep. check-in: 209bf08a86 user: aku tags: more-vtypes | |
|
2014-02-17
| ||
| 23:29 | Excluded auto-added commands from categorized help. check-in: 7e77c5a0be user: andreask tags: trunk | |
| 20:20 | Tweak to default format selection of help, use "short" for interior nodes. check-in: ac17c7fb74 user: andreask tags: trunk | |
Changes
Changes to help.tcl.
| ︙ | ︙ | |||
105 106 107 108 109 110 111 112 113 114 115 116 117 118 |
}
}
lappend map @formats@ [linsert [join $formats {, }] end-1 and]
lappend map @options@ [join $options \n]
lappend map @actor@ $actor
$actor learn [string map $map {private help {
description {
Retrieve help for a command or command set.
Without arguments help for all commands is given.
The default format is --full.
}
@options@
state format {
| > | 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 |
}
}
lappend map @formats@ [linsert [join $formats {, }] end-1 and]
lappend map @options@ [join $options \n]
lappend map @actor@ $actor
$actor learn [string map $map {private help {
section *AutoGenerated*
description {
Retrieve help for a command or command set.
Without arguments help for all commands is given.
The default format is --full.
}
@options@
state format {
|
| ︙ | ︙ | |||
436 437 438 439 440 441 442 443 444 445 446 447 448 449 |
array set subc {} ;# category path -> list (child category path)
array set cmds {} ;# category path -> list (cmd)
# cmd = tuple (label description)
dict for {name def} $help {
dict with def {} ; # -> desc, arguments, parameters, sections
if {![llength $sections]} {
lappend sections Miscellaneous
}
if {$fmtname} {
append name " " [Arguments $arguments $parameters]
| > > > > > | 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 |
array set subc {} ;# category path -> list (child category path)
array set cmds {} ;# category path -> list (cmd)
# cmd = tuple (label description)
dict for {name def} $help {
dict with def {} ; # -> desc, arguments, parameters, sections
# Do not show the auto-generated commands in the categorized help.
if {"*AutoGenerated*" in $sections} {
continue
}
if {![llength $sections]} {
lappend sections Miscellaneous
}
if {$fmtname} {
append name " " [Arguments $arguments $parameters]
|
| ︙ | ︙ | |||
517 518 519 520 521 522 523 |
return $categories
}
# # ## ### ##### ######## ############# #####################
## Ready
| | | 523 524 525 526 527 528 529 530 |
return $categories
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::help 1.2
|
Changes to officer.tcl.
| ︙ | ︙ | |||
190 191 192 193 194 195 196 197 198 199 200 201 202 203 |
}
# Auto-create an 'exit' command when possible, i.e not in
# conflict with a user-specified command.
if {![my has exit]} {
my learn {
private exit {
description {
Exit the shell.
No-op if not in a shell.
}
} [mymethod shell-exit]
}
}
| > | 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 |
}
# Auto-create an 'exit' command when possible, i.e not in
# conflict with a user-specified command.
if {![my has exit]} {
my learn {
private exit {
section *AutoGenerated*
description {
Exit the shell.
No-op if not in a shell.
}
} [mymethod shell-exit]
}
}
|
| ︙ | ︙ | |||
677 678 679 680 681 682 683 |
myreplexit myhandler
# # ## ### ##### ######## #############
}
# # ## ### ##### ######## ############# #####################
## Ready
| | | 678 679 680 681 682 683 684 685 |
myreplexit myhandler
# # ## ### ##### ######## #############
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::officer 1.2
|