0

我有一种明显的感觉，我错过了一些东西，但到目前为止我的搜索没有结果。

我正在尝试使用 tcl/expect 脚本来启动 tclsh 交互式 shell，添加一个用于轻松重新加载实用程序以进行测试的过程，然后将正常控制权返回给我。

到目前为止，我发现使 tcl 交互式 shell“可用”的一种方法是用“rlwrap”启动它，这样我就可以使用箭头键等。

所以我尝试了下面的脚本，当交互命令被点击时，关于 rlwrap 的一些事情导致以前的输出被转储到标准输出。

我能做些什么来避免这种情况发生吗？

代码：

package require Expect


puts "Tcl version   : [info tclversion]"
puts "Expect version: [exp_version]"


log_user 0
spawn -noecho rlwrap tclsh

# Create procedure to easily reload utilites after changes have been made
expect "% "
send {
   proc reload {} {
      # Procedure to reload utility source easily for testing
   }
}

# Source utilities
expect "% "
send "reload\r"

send_user "\nUse 'reload' procedure to re-source utility files\n\n"

log_user 1
interact

输出：

Tcl version   : 8.4
Expect version: 5.43.0

Use 'reload' procedure to re-source utility files


   proc reload {} {
      # Procedure to reload utility source easily for testing
   }
% reload
%

你可以因为某种原因它呼应 proc 定义和重新加载命令的输入。一旦发生交互，就会发生这种情况。如果我用“退出”替换交互，我看不到任何输出。

当然，我希望看到的输出是这样的：

Tcl version   : 8.4
Expect version: 5.43.0

Use 'reload' procedure to re-source utility files

%
4

2 回答 2

1

如果你不介意自己编译一个小的 C 程序，你可以使用这个：

#include <tcl.h>

#ifdef WIN32
#ifdef UNICODE
#define WIN32_UNICODE
#endif
#endif

int TclSHI_Main(Tcl_Interp*);

static int g_argc;
#ifdef WIN32_UNICODE
#define Tcl_NewStringObj Tcl_NewUnicodeObj
static wchar_t*** g_argv;
void wmain(int argc, wchar_t **argv) {
#else
static char*** g_argv;
void main(int argc, char **argv) {
#endif
    g_argc = argc;
    g_argv = &argv;
    Tcl_FindExecutable(argv[0]);
    Tcl_Main(1, argv, TclSHI_Main);
}

int TclSHI_Main(Tcl_Interp* interp) {
    Tcl_Obj* lobj;
    int i;
    if (g_argc > 1) {
        Tcl_SetVar2Ex(interp, "argv0", NULL, Tcl_NewStringObj((*g_argv)[1], -1), TCL_GLOBAL_ONLY);
    }
    lobj = Tcl_NewObj();
    Tcl_IncrRefCount(lobj);
    for (i = 2; i < g_argc; i++) {
        Tcl_ListObjAppendElement(interp, lobj, Tcl_NewStringObj((*g_argv)[i], -1));
    }
    Tcl_SetVar2Ex(interp, "argv", NULL, lobj, TCL_GLOBAL_ONLY);
    Tcl_DecrRefCount(lobj);
    Tcl_SetVar2Ex(interp, "argc", NULL, Tcl_NewIntObj(g_argc - 2), TCL_GLOBAL_ONLY);
    if (g_argc > 1) {
        Tcl_Eval(interp, "source $argv0");
    }
    return TCL_OK;
}

我在 windows (CL) 和 linux (GCC) 上对其进行了测试。
为了用 gcc 编译它，我gcc TclSH.c -o TclSHI -ltcl8.6
在 windows 上使用了 Visual Studio。

它告诉 Tcl 它没有收到任何参数 ( Tcl_Main(1,...))，但是用这个参数填充新的 interp 并获取文件。在这一步之后，它总是会显示提示（它从未收到任何参数，对吧？）。

您的期望解决方案有一个小问题，如果您指定任何参数，Tcl 将执行该脚本，并且从不显示提示。

另请注意，我是一名新手 C 程序员，因此此解决方案可能不是防弹的。

于 2013-10-15T10:35:20.457 回答
0

您要做的是等待一个明确的标记，表明从属进程已准备好。

# ... your script as above ...
expect "% "

#### NEW STUFF STARTS ####
send "reload;puts READY\r"
expect "READY\r"

# Note that we need to fake the prompt; c'est la vie
send_user "\nUse 'reload' procedure to re-source utility files\n\n% "

# Now start doing things!
log_user 1
interact

或者至少当我尝试使用从属进程时这是有效的，但我没有在混合中使用 rlwrap，所以这可能会改变事情......</p>

于 2013-10-10T19:45:27.850 回答