如何在Guile REPL中生成带正确I/O重定向的交互式bash shell？

你的问题出在两个核心点：一是system*默认不会确保子进程I/O与当前终端正确绑定，二是bash在非终端环境下会自动进入非交互模式，导致无法接收输入或输出。下面提供两种解决方案，适配不同场景：

方案1：直接强制bash交互式并复用当前终端 #

如果你的Guile脚本在终端中直接运行，只需给bash添加-i参数强制启动交互式模式，system*会自动复用当前进程的stdin/stdout/stderr：

(use-modules (ice-9 popen))

(define (spawn-interactive-shell)
  (format #t "Spawning interactive bash shell...~%")
  ;; -i 参数强制bash进入交互式模式
  (system* "bash" "-i")
  (format #t "Returning to REPL.~%")
)

;; 调用示例
(spawn-interactive-shell)

方案2：使用伪终端（PTY）实现完整交互式环境 #

如果需要在非终端环境（如管道调用、后台运行）中运行，或者需要完整终端功能（如命令补全、信号处理、提示符），必须用伪终端（PTY）模拟终端环境。Guile的(ice-9 pty)模块提供了相关支持：

(use-modules (ice-9 pty)
             (ice-9 rdelim)
             (ice-9 threads))

(define (spawn-pty-shell)
  (format #t "Spawning interactive bash shell via PTY...~%")
  ;; 创建伪终端的主、从设备对
  (let* ((pty-pair (openpty))
         (master-port (car pty-pair))
         (slave-port (cdr pty-pair))
         (child-pid (primitive-fork)))

    (cond
     ;; 子进程逻辑：绑定I/O到伪终端从设备，启动交互式bash
     ((zero? child-pid)
      (close-port master-port)
      ;; 将从设备重定向为子进程的stdin/stdout/stderr
      (dup2 slave-port 0)
      (dup2 slave-port 1)
      (dup2 slave-port 2)
      (close-port slave-port)
      ;; 启动交互式登录shell，-l可选，用于加载登录环境
      (execlp "bash" "bash" "-i" "-l")
      (exit 1)) ; 若execlp执行失败则退出

     ;; 父进程逻辑：转发终端与伪终端之间的I/O
     (else
      (close-port slave-port)
      ;; 启动线程，将终端输入转发到伪终端主设备
      (call-with-new-thread
       (lambda ()
         (let loop ()
           (let ((input-char (read-char)))
             (unless (eof-object? input-char)
               (write-char input-char master-port)
               (force-output master-port)
               (loop))))))
      ;; 将伪终端主设备的输出转发到终端
      (let loop ()
        (let ((output-line (read-line master-port)))
          (unless (eof-object? output-line)
            (display output-line)
            (newline)
            (force-output)
            (loop))))
      ;; 等待子进程结束，清理资源
      (waitpid child-pid)
      (close-port master-port)
      (format #t "Returning to REPL.~%"))))
)

;; 调用示例
(spawn-pty-shell)

关键说明 #

• openpty创建伪终端对，主设备由Guile进程控制，从设备绑定给bash进程
• 用线程实现双向I/O转发，避免单线程下的阻塞问题
• execlp替换子进程为bash，-i确保交互式模式，-l可选，用于加载用户登录环境变量
• dup2完成文件描述符重定向，让bash的I/O完全关联到伪终端

内容的提问来源于stack exchange，提问作者Rainb