什么 tcl 命令返回最后评估的命令？

Question

什么 tcl 命令返回最后评估的命令？我认为它应该有类似 bash 历史的东西。

我试过了，但是打印的是空字符串。

set aaa bbb
puts [history info]

我有创建 Tcl 解释器并使用它评估命令的 c++ 程序。在特定时刻，我需要知道最后评估的命令是什么。是否可以使用 Tcl 或 C 接口？

set a bbb
set b ccc
puts eee
set hh [history redo 1]

现在报错了

event "1" hasn't occured yet
    while executing
"HistIndex $event"
    (procedure "tcl::HistRedo" line 6)
    invoked from within
"tcl::HistRedo [lindex $args 1]"
    (procedure "history" line 109)
    invoked from within
"history redo 1"
    invoked from within
"set hh [history redo 1]"
    (file "./a.itcl" line 17)

Answer 1

使用history 命令可以在 tclsh 中查看和操作以前输入的命令。这让您可以查看之前的命令列表和重做事件。

在交互式 tclsh 中，还有一个 !! 或 !N 快​​捷方式到 history redo N 以重做最后输入的命令或重做命令 N（其中 N 是事件编号）。

它不绑定向上箭头或 ctrl-p 或任何正常的东西。为此，您可能需要一些像 rlwrap 或 socat READLINE 这样的包装器来提供 readline 样式的行编辑。如果你有一个 X Windows 会话，那么tkcon 更有用并提供合理的命令行编辑。在 Windows 上，tclsh 可以使用 cmd.exe 提示符下的内置行编辑 - 包括使用 uparrow 来访问以前的命令。

在我的测试会话中：

% info pa
8.5.13
% history z
bad option "z": must be add, change, clear, event, info, keep, nextid, or redo
% history info
     1  info pa
     2  history z
     3  history info
% history redo 1
8.5.13
% exit

跟进

来自原始海报的其他 cmets 表明代码未在标准 tclsh 解释器中运行。历史功能在 generic/tclHistory.c 和 library/history.tcl 库脚本中实现。如C文件头注释中所述：

这个模块和Tcl库文件history.tcl一起实现 Tcl 命令历史。可以调用 Tcl_RecordAndEval(Obj) 进行记录 命令（“事件”）在执行之前。中定义的命令 history.tcl 可用于执行历史替换。

因此我们可以推断出自定义解释器在评估我们想要输入历史的命令时必须使用Tcl_RecordAndEval API 调用。大概目前的自定义实现只是使用 Tcl_Eval 或相关函数之一。