如何让tclsh忽略EOF？

Question

在csh，你可以做到

set ignoreeof

或者在bash你能做的

export ignoreeof=1

这将使csh/bash忽略EOF，即它不会在Ctrl+D上退出，或者在到达结尾或文件时退出。

有没有办法用tclsh做同样的事情？

有没有办法让tclsh在到达文件末尾时不退出？

Answer 1

您可能希望Expect:将其保存为tclsh.exp

#! /usr/bin/env expect
log_user 0
spawn tclsh
if {[llength $argv] > 0} {
    send -- "set argv [list [lrange $argv 1 end]]; source [lindex $argv 0]\r"
}
interact

然后运行tclsh.exp somefile.tcl arg arg ...

Answer 2

您也许能够在TclX中使用trap命令。

Answer 3

tclsh中没有这样的内置功能。