cmdr
Check-in [60dbdef1b0]
Not logged in

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

Overview
Comment:Fixed buglet in the help setup. Add the main (root) name to the command prefix when not in a cli shell. Bumped cmdr::help to version 1.0.1.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 60dbdef1b0807df26b358590a6aa05e73ba3a5ce
User & Date: andreask 2014-01-13 21:03:16.198
Context
2014-01-30
18:09
Fixed missing initialization in the main help generator. check-in: 3a146bdf51 user: andreask tags: trunk
2014-01-13
21:03
Fixed buglet in the help setup. Add the main (root) name to the command prefix when not in a cli shell. Bumped cmdr::help to version 1.0.1. check-in: 60dbdef1b0 user: andreask tags: trunk
2013-12-18
20:29
Fix broken requirements cmdr::help::json and *::sql. Were not updated to v1. check-in: d46922cc52 user: andreask tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to help.tcl.
53
54
55
56
57
58
59









60
61
62
63
64
65
66
67

proc ::cmdr::help::query {actor words} {
    debug.cmdr/help {}
    # Resolve chain of words (command name path) to the actor
    # responsible for that command, starting from the specified actor.
    # This is very much a convenience command.










    return [[query-actor $actor $words] help $words]
}

proc ::cmdr::help::query-actor {actor words} {
    debug.cmdr/help {}
    # Resolve chain of words (command name path) to the actor
    # responsible for that command, starting from the specified actor.
    # This is very much a convenience command.







>
>
>
>
>
>
>
>
>
|







53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76

proc ::cmdr::help::query {actor words} {
    debug.cmdr/help {}
    # Resolve chain of words (command name path) to the actor
    # responsible for that command, starting from the specified actor.
    # This is very much a convenience command.

    set root   [$actor root]
    set prefix $words

    if {![$root exists *in-shell*] ||
	![$root get    *in-shell*]} {
	# Not in the shell, put executable's name into the prefix.
	set prefix [linsert $prefix 0 [$root name]]
    }

    return [[query-actor $actor $words] help $prefix]
}

proc ::cmdr::help::query-actor {actor words} {
    debug.cmdr/help {}
    # Resolve chain of words (command name path) to the actor
    # responsible for that command, starting from the specified actor.
    # This is very much a convenience command.
506
507
508
509
510
511
512
513

    return $categories
}


# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::help 1.0







|
515
516
517
518
519
520
521
522

    return $categories
}


# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::help 1.0.1