cmdr
Check-in [60dbdef1b0]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

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
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
Hide Diffs Unified Diffs Show Whitespace Changes Patch

Changes to help.tcl.

53
54
55
56
57
58
59









60
61
62
63
64
65
66
67
...
506
507
508
509
510
511
512
513

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.
................................................................................

    return $categories
}


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







>
>
>
>
>
>
>
>
>
|







 







|
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
...
515
516
517
518
519
520
521
522

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.
................................................................................

    return $categories
}


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