-1

我正在尝试获取 Tcl Interpreter 的输出，如回答这个问题Tcl C API: redirect stdout of embedded Tcl interp to a file 中所述，而不影响整个程序。而不是将数据写入文件，我需要使用管道获取它。我更改Tcl_OpenFileChannel为 Tcl_MakeFileChannel并将管道的写入端传递给它。然后我Tcl_Eval用一些看跌期权跟注。管道的读取端没有数据。

#include <sys/wait.h>
#include <assert.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <fcntl.h>
#include <tcl.h>
#include <iostream>

int main() {
    int pfd[2];
    if (pipe(pfd) == -1) { perror("pipe"); exit(EXIT_FAILURE); }
/*
        int saved_flags = fcntl(pfd[0], F_GETFL);
        fcntl(pfd[0], F_SETFL, saved_flags | O_NONBLOCK);
*/

        Tcl_Interp *interp = Tcl_CreateInterp(); 
        Tcl_Channel chan;
        int rc;
        int fd;

        /* Get the channel bound to stdout.
         * Initialize the standard channels as a byproduct
         * if this wasn't already done. */
        chan = Tcl_GetChannel(interp, "stdout", NULL);
        if (chan == NULL) {
                return TCL_ERROR;
        }

        /* Duplicate the descriptor used for stdout. */
        fd = dup(1);
        if (fd == -1) {
                perror("Failed to duplicate stdout");
                return TCL_ERROR;
        }

        /* Close stdout channel.
         * As a byproduct, this closes the FD 1, we've just cloned. */
        rc = Tcl_UnregisterChannel(interp, chan);
        if (rc != TCL_OK)
                return rc;

        /* Duplicate our saved stdout descriptor back.
         * dup() semantics are such that if it doesn't fail,
         * we get FD 1 back. */
        rc = dup(fd);
        if (rc == -1) {
                perror("Failed to reopen stdout");
                return TCL_ERROR;
        }

        /* Get rid of the cloned FD. */
        rc = close(fd);
        if (rc == -1) {
                perror("Failed to close the cloned FD");
                return TCL_ERROR;
        }

        chan = Tcl_MakeFileChannel((void*)pfd[1], TCL_WRITABLE | TCL_READABLE);
        if (chan == NULL)
                return TCL_ERROR;

        /* Since stdout channel does not exist in the interp,
         * this call will make our file channel the new stdout. */
        Tcl_RegisterChannel(interp, chan);



        rc = Tcl_Eval(interp, "puts test");
        if (rc != TCL_OK) {
                fputs("Failed to eval", stderr);
                return 2;
        }

        char buf;
        while (read(pfd[0], &buf, 1) > 0) {
            std::cout << buf;
        }

}
4

1 回答 1

1

我目前没有时间修改代码（以后可能会这样做），但我认为这种方法存在缺陷，因为我发现它有两个问题：

  1. 如果stdout连接到不是交互式控制台的东西（isatty(2)运行时通常使用调用来检查它），则可能（并且我认为将会）使用完全缓冲，所以除非你puts在嵌入式解释器输出中调用这么多字节会填满或溢出 Tcl 的通道缓冲区（8KiB，ISTR），然后是下游系统的缓冲区（见下一点），我认为不会小于 4KiB（单个内存的大小）典型硬件平台上的页面），读取端不会出现任何内容。

    您可以通过将 Tcl 脚本更改为 flush 来测试这一点stdout，如下所示：

    puts one
flush stdout
puts two

    然后，您应该能够puts从管道的读取端读取第一个字节输出的四个字节。

  2. 管道是通过缓冲区连接的两个 FD（具有已定义但取决于系统的大小）。一旦写入端（您的 Tcl interp）填满该缓冲区，将达到“缓冲区已满”条件的写入调用将阻止写入过程，除非从读取端读取某些内容以释放缓冲区中的空间。由于 reader 是同一个进程，因此这种情况极有可能陷入死锁，因为一旦 Tcl interp 被卡住试图写入stdout，整个进程就会卡住。

现在的问题是：这能行得通吗？

第一个问题可以通过在 Tcl 端关闭该通道的缓冲来部分解决。这（据说）不会影响系统为管道提供的缓冲。

第二个问题更难，我只能想到两种可能来解决它​​：

  1. 创建一个管道，然后创建fork(2)一个子进程，确保其标准输出流连接到管道的写入端。然后将 Tcl 解释器嵌入到该进程中，不对其中的流执行任何操作，stdout因为它将隐式连接到附加到管道的子进程标准输出流。然后，您从管道中读取父进程，直到写入端关闭。

    这种方法比使用线程更健壮（见下一点），但它有一个潜在的缺点：如果您需要以某种方式以某种方式影响嵌入式 Tcl 解释器，而这些方式在程序运行之前是未知的（例如，作为响应到用户的操作），您将不得不在父进程和子进程之间设置某种 IPC。

  2. 使用线程并将 Tcl interp 嵌入到单独的线程中：然后确保从管道中读取发生在另一个（我们称之为“控制”）线程中。

    这种方法可能表面上看起来比分叉一个进程更简单，但是你会遇到与线程常见的正确同步相关的所有麻烦。例如，不能从创建 interp 的线程以外的线程直接访问 Tcl 解释器。这不仅意味着并发访问（这本身就很明显），还意味着任何访问，包括同步访问，因为可能存在TLS问题。（我不确定这是否属实，但我觉得这是一大罐蠕虫。）

所以，说了这么多，我想知道为什么您似乎系统地拒绝为您的 interp 实现自定义“通道驱动程序”的建议，而只是使用它来为stdout您的 interp 中的通道提供实现？这将创建一个超级简单的单线程完全同步实现。这种方法有什么问题，真的吗？

还要注意，如果您决定使用管道，希望它可以用作一种“匿名文件”，那么这是错误的：管道假定双方并行工作。在您的代码中，您首先让 Tcl interp 编写它必须编写的所有内容，然后尝试读取它。正如我所描述的，这是自找麻烦，但如果这是为了不弄乱文件而发明的，那么你只是做错了，在 POSIX 系统上，操作过程可能是：

  1. 用于mkstemp()创建和打开临时文件。

  2. 立即使用mkstemp()返回的名称代替您传递的模板将其删除。

    由于该文件仍然有一个打开的 FD（由 返回mkstemp()），因此它将从文件系统中消失，但不会取消链接，并且可能会被写入和读取。

  3. 将此 FD 设为 interp 的stdout. 让 interp 写下它必须写的一切。
  4. interp 完成后，seek()FD 回到文件的开头并从中读取。
  5. 完成后关闭 FD——它在底层文件系统上占用的空间将被回收。
于 2013-05-07T15:42:21.043 回答