为 procs 激活自动 tcl 命令完成

Question

我需要在我的 tcl 应用程序中为用户定义的 tcl procs 添加 tcl 命令完成。

例如：

tcl_shell> proc myproc {} {puts test}

tcl_shell> my  

当按下 tab 时，它应该完成 myproc。

Answer 1

基本思路是问info commands。如果您在变量str 中保留制表符之前键入的字符，则可以使用

检查匹配的命令

info commands $str*

如果它返回多个匹配项，则您没有足够的字符串前缀来明确识别命令（您可能希望保留候选列表并让用户通过连续的选项卡遍历它）。如果你没有得到任何匹配，str 中的文本不是任何已知命令的前缀。如果你得到一个匹配，那就是要完成的命令名称。

如果你也想完成命名空间，namespace children 就是这个命令。

例子：

proc findCommand str {
    set matches [info commands $str*]
    set ns [namespace qualifiers $str]
    set str [namespace tail $str]
    set nses [namespace children $ns $str*]
    foreach ns $nses {
        lappend matches {*}[info commands $ns\::*]
    }
    return $matches
}

% findCommand cl
clock close clear
% findCommand tcl::cl
::tcl::clock::GetJulianDayFromEraYearWeekDay ::tcl::clock::Oldscan ::tcl::clock::ParseFormatArgs ::tcl::clock::GetDateFields ::tcl::clock::microseconds ::tcl::clock::getenv ::tcl::clock::clicks ::tcl::clock::GetJulianDayFromEraYearMonthDay ::tcl::clock::milliseconds ::tcl::clock::ConvertLocalToUTC ::tcl::clock::seconds

文档： info, namespace

预计到达时间：tcl::prefix

Donal Fellows 在评论中提到了tcl::prefix。它的作用大致相同，但使用起来有点复杂。允许完成的完整列表必须作为参数传递给它，这一方面意味着您必须收集它；另一方面，这意味着您可以根据需要限制允许的完成集，或者允许不存在的命令名称（由unknown 处理）。如果字符串与其中任何一个都不匹配，它还可以向用户提示完成列表。示例 -- 用户输入“foo”，命令列表是以“b”或“c”开头的全局命令：

::tcl::prefix match -message command $cmds $str
bad command "foo": must be bgerror, binary, break, case, catch, cd, chan, clear, clock, close, concat, continue, or coroutine