cygwin 上的 Auto_execok 问题

Question

我有一个问题： auto_execok 命令无法按预期在 Cygwin 平台上运行。 它无法从您的 PATH 环境变量中找到任何内容，因为

info body auto_execok
"...
    foreach dir [split $path {;}] {
"

它默认认为 ; 是正确的分隔符，但 Cygwin 使用 :！ 如何优雅地克服这个问题呢？ 我不想更改 PATH 变量，因为其他程序/脚本可以正确使用 : ，因为它应该适用于 Cygwin。

Answer 1

您是否有正确的支持 Cygwin 的 Tcl 构建？正如您所发现的，直接 Windows 构建会遇到问题，正是因为 Cygwin 环境是 Unix 和 Windows 之间的混合体。 （这是为什么我们不完全支持在 Cygwin 中做事的一个例子；它时不时地受到一些人的喜爱，但它不是一个主要平台，因为它非常复杂。）也就是说，这是一种问题几乎可以肯定，在 comp.lang.tcl 上询问会更好这有一个社区可能会能够帮助解决这类事情。

另外，这是什么Tcl补丁级别？这很重要，因为支持水平肯定会随着时间的推移而变化……

Answer 2

我们可以混合使用set ar [info args auto_execok]、set bd [info body auto_execok]、
使用 set cygdir [exec cygpath -a $wdir] 和 eval proc auto_exeok {$ar} {$bd} 在主体上进行一些 regsub 以获得所需的结果。

然而，目前我还没有准备好完整的解决方案。

Answer 3

您可以使用能够解析正确路径的版本来包装 auto_execok 的本机 tcl 版本。我们可以利用这样一个事实：原始的 auto_execok 会找到 cygpath.exe，并一举告诉用户当前脚本正在运行 Windows，并且它是为 cygwin 设置的。一旦知道了这一点，我们就可以用一个将使用 cygpath.exe 解析真实 Windows 路径的过程来包装原始的 auto_execok 过程。我使用了 try 命令，因此这是针对 8.5 及更高版本的，但对于较低版本的 tcl 可以使用 catch 编写。另外，因为使用了 subst 命令，所以 cygpath 的路径被硬编码到新的 auto_execok 过程中，因此查找仅发生一次。也只允许此代码运行一次。举个例子
在下面的代码运行之前

puts "[ auto_execok tar ]"

给出
“/usr/bin/tar”

代码运行后

auto_execok 被包装： puts “[ auto_execok tar ]”

给出（在我的机器上）：

“C:/cygwin/bin/tar.EXE”

if { [string length [ auto_execok cygpath ] ] } { 
set paths [ split $env(PATH) ";" ]
set cygexecpath "" 
foreach p $paths { 
    set c  [file join $p cygpath.exe ] 
    puts "checking for $c "
    if {[file exists $c ] } { 
        set cygexecpath [file join $p cygpath.exe ]
        break
    } 
}
if { $cygexecpath eq "" } { 
    puts "unable to find true path to [auto_execok cygpath.exe ]"
}
# rename original proc so we can use it in our wrapper proc 
rename ::auto_execok ::auto_execok_orig
uplevel #0 [subst -nocommands {proc auto_execok { path } {
    try {
        set path [auto_execok_orig \$path ] 
        if { \$path ne \"\" } {
            set path [string trim [exec $cygexecpath -w \$path ] ]
        }
    } on error { a b } {
        set path \"\" 
    } 
    return \$path
} } ] 
puts "[info body auto_execok ] "

}