Tcl 在获取 file.tcl 后进行交互答案

【问题标题】：Tcl interact after sourcing a file.tclTcl 在获取 file.tcl 后进行交互
【发布时间】：2013-10-15 06:29:49
【问题描述】：

我想在 Tcl 提示中获取文件后进行交互。即，

]$ tclsh myCode.tcl

// 执行我的代码

% // 在 myCode.tcl 中进入交互模式

【问题讨论】：

【解决方案1】：

最简单的方法是使用TclX extension 中的commandloop 命令。

package require Tclx

#... define things and run things...

# Let the user issue commands
commandloop

上面链接的 wiki 页面讨论了如何在不使用 TclX 的情况下做到这一点。

【讨论】：

【解决方案2】：

恐怕我对此的了解太少，或者过于简化了，但是……这不是您需要的 interact 命令吗？

如果您希望 Tcl/Expect 做某事，然后将控制权交还给用户，请查看以下手册页链接中的交互命令：

【讨论】：

【解决方案3】：

如果您宁愿在没有任何外部包的纯 tcl 中执行此操作，则 tclsh 提示符的最简单实现确实非常简单。把这个放在myCode.tcl的末尾：

fileevent stdin readable {
    puts [eval [gets stdin]]
}

vwait forever

您甚至可以将其作为一个独立程序来实现，该程序为您的其他 tcl 脚本提供源代码。

当然，上面的示例代码非常简单，它甚至不会打印提示或处理多行命令之类的东西，但它是您修改和自定义的一个很好的起点。

【讨论】：

【解决方案4】：

您可以尝试tkcon，这是一个交互式 tclsh，它创建一个单独的窗口。我用第一行写了一个小shell脚本mytclsh

#!/usr/bin/tkcon myscript.tcl

并使其可执行 (chmod 755 mytclsh)。这将执行myscript.tcl，然后进行交互。这里有更多关于tkcon的信息：https://wuhrr.wordpress.com/2011/01/13/a-solution-for-tclsh-editing-woes/

【讨论】：