Check-in [834688633e]

Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Force use of the local copy of cmdr, to ease development regardng bugs and features we may have to fix/implement
Timelines: family | ancestors | descendants | both | v2
Files: files | file ages | folders
SHA1:834688633e687852fa05782ca044f1da26250c16
User & Date: andreask 2014-02-01 01:22:06
Context
2014-02-01
01:23
officer - Extend method 'extend' to return the new command instance, for dynamic modification post-creation. check-in: e7adec4ace user: andreask tags: v2
01:22
Force use of the local copy of cmdr, to ease development regardng bugs and features we may have to fix/implement check-in: 834688633e user: andreask tags: v2
2014-01-31
22:35
Merged specials. Updated TODO. Modified app main code to catch user-triggered cmdr exceptions. check-in: 2d86d67b44 user: andreask tags: v2
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to cli.tcl.

3
4
5
6
7
8
9


















10
11
12
13
14
15
16
## Core cli setup.

# # ## ### ##### ######## ############# #####################
## Import a generic command line processing framework.
## Try to use whatever the installation supplies first.
## On failure fall back to the local copy of the framework.



















try {
    package require cmdr
    #kettle io trace {outside cmdr = [package ifneeded cmdr [package present cmdr]]}

} on error {e o} {
    lappend auto_path [kettle option get @kettledir]/support
    package require cmdr







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
## Core cli setup.

# # ## ### ##### ######## ############# #####################
## Import a generic command line processing framework.
## Try to use whatever the installation supplies first.
## On failure fall back to the local copy of the framework.

# Force use of local Cmdr framework.
# Enables local fixing of bugs before transfering to the official sources.
# Ditto for cmdr extensions.
if 1 {apply {dir {
    source [file join $dir util.tcl]
    source [file join $dir vcommon.tcl]
    source [file join $dir validate.tcl]
    source [file join $dir help.tcl]
    #source [file join $dir help_json.tcl]
    #source [file join $dir help_sql.tcl]
    source [file join $dir parameter.tcl]
    source [file join $dir config.tcl]
    source [file join $dir actor.tcl]
    source [file join $dir private.tcl]
    source [file join $dir officer.tcl]
    source [file join $dir cmdr.tcl]
}} [kettle option get @kettledir]/support}

try {
    package require cmdr
    #kettle io trace {outside cmdr = [package ifneeded cmdr [package present cmdr]]}

} on error {e o} {
    lappend auto_path [kettle option get @kettledir]/support
    package require cmdr