Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Move handling of global option to before checking for a command. We can now enter a main shell with global options set. Bump version numbers. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
2bfa8d578585c4f9bbf875b29dab303f |
| User & Date: | andreask 2014-09-10 20:35:04 |
Context
|
2014-09-19
| ||
| 17:52 | cmdr::parameter - Utility DSL commands for easy locking (disallow) and trivial accss to siblings (touch, touch?). Semantic change for when-* hooks. Now storing a list and multiple when-set definitions accumulate. Tweaking locking error message to use better name of the locked parameter. check-in: 9fc3922163 user: andreask tags: trunk | |
|
2014-09-10
| ||
| 20:35 | Move handling of global option to before checking for a command. We can now enter a main shell with global options set. Bump version numbers. check-in: 2bfa8d5785 user: andreask tags: trunk | |
| 20:21 | Moved handling of option arguments in help to separate proc. Reworked the handling of global options to show arguments as well. Fixed sorting of section display when seeing options with arguments. check-in: f41f44de14 user: andreask tags: trunk | |
Changes
Changes to help.tcl.
603 604 605 606 607 608 609 610 |
}
return $categories
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::help 1.3
|
| |
603 604 605 606 607 608 609 610 |
}
return $categories
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::help 1.3.1
|
Changes to officer.tcl.
408 409 410 411 412 413 414 415 416 417 418 419 420 421 ... 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 ... 751 752 753 754 755 756 757 758 |
# # ## ### ##### ######## #############
## Command dispatcher. Choose the subordinate and delegate.
method do {args} {
debug.cmdr/officer {}
my Setup
# No command specified, what should we do ?
# (1) If there is a default, we can go on (Do will call on it).
# (2) Without default we must enter an interactive shell.
# (3) Except if interaction is globally suppressed. Then we
# fall through, again, to generate the proper error message.
#
# Result: Interact with the user if no command was specified,
................................................................................
set reset 0
if {![my exists *command*]} {
# Prevent handling of application-specific options here.
my set *command* -- $args
set reset 1
}
try {
# Process any options we may find. The first non-option
# will be the command to dispatch on.
set args [config parse-head-options {*}$args]
# Empty command. Delegate to the default, if we have any.
# Otherwise fail.
if {![llength $args]} {
if {[my hasdefault]} {
return [[my lookup [my default]] do]
}
return -code error -errorcode {CMDR DO EMPTY} \
................................................................................
myreplexit myhandler mypmap myshandler myconfig
# # ## ### ##### ######## #############
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::officer 1.4
|
> > > > < < < < | |
408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 ... 457 458 459 460 461 462 463 464 465 466 467 468 469 470 ... 751 752 753 754 755 756 757 758 |
# # ## ### ##### ######## #############
## Command dispatcher. Choose the subordinate and delegate.
method do {args} {
debug.cmdr/officer {}
my Setup
# Process any options we may find. The first non-option
# will be the command to dispatch on.
set args [config parse-head-options {*}$args]
# No command specified, what should we do ?
# (1) If there is a default, we can go on (Do will call on it).
# (2) Without default we must enter an interactive shell.
# (3) Except if interaction is globally suppressed. Then we
# fall through, again, to generate the proper error message.
#
# Result: Interact with the user if no command was specified,
................................................................................
set reset 0
if {![my exists *command*]} {
# Prevent handling of application-specific options here.
my set *command* -- $args
set reset 1
}
try {
# Empty command. Delegate to the default, if we have any.
# Otherwise fail.
if {![llength $args]} {
if {[my hasdefault]} {
return [[my lookup [my default]] do]
}
return -code error -errorcode {CMDR DO EMPTY} \
................................................................................
myreplexit myhandler mypmap myshandler myconfig
# # ## ### ##### ######## #############
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::officer 1.4.1
|