多线程场景下Hemlock的SIGWINCH信号处理问题

方案1：主线程独占SIGWINCH处理+原子标记触发重绘 #

通过让所有非主线程屏蔽SIGWINCH信号，确保信号仅被主线程接收，同时用原子变量标记重绘需求，避免在信号上下文执行复杂UI操作。

步骤1：屏蔽子线程的SIGWINCH信号 #

启动所有工作线程时，用sb-thread:with-masked-signals屏蔽SIGWINCH：

(sb-thread:make-thread
 (lambda ()
   (sb-thread:with-masked-signals (sb-posix:SIGWINCH)
     ;; 子线程业务逻辑代码
     ))
 :name "hemlock-worker")

步骤2：主线程注册SIGWINCH处理函数 #

在主线程初始化时，注册信号处理函数仅标记重绘需求：

(defvar *need-redisplay* nil)

;; 确保在主线程执行这段代码
(sb-sys:enable-interrupt sb-posix:SIGWINCH
 (lambda (signal code context)
   (declare (ignore signal code context))
   (setf *need-redisplay* t)))

步骤3：主事件循环检查重绘标记 #

修改Hemlock的主事件循环，每次迭代时检查标记并触发重绘：

(loop
  ;; 原有事件循环逻辑：处理IO、用户输入等
  (when *need-redisplay*
    (setf *need-redisplay* nil)
    (redisplay-all))
  ;; 等待事件的逻辑（例如IOLIB的等待调用）
  )

方案2：用线程信号通知主线程执行重绘 #

如果不想修改主事件循环，可利用SBCL的线程信号机制，让信号处理函数通知主线程异步执行重绘：

步骤1：记录主线程引用 #

在Hemlock启动时，保存主线程的引用：

(defvar *hemlock-main-thread* sb-thread:*current-thread*)

步骤2：注册信号处理函数 #

信号处理函数直接给主线程发送执行重绘的指令：

(sb-sys:enable-interrupt sb-posix:SIGWINCH
 (lambda (signal code context)
   (declare (ignore signal code context))
   ;; 通知主线程执行重绘，该操作会在主线程的下一个中断点执行
   (sb-thread:signal-thread *hemlock-main-thread*
                            (lambda ()
                              (redisplay-all)))))

步骤3：屏蔽子线程SIGWINCH #

同方案1，所有子线程启动时屏蔽SIGWINCH信号，避免信号被分发到非主线程。

方案说明 #

• 崩溃解决逻辑：SBCL默认会将信号随机分发到任意活跃线程，通过屏蔽子线程的SIGWINCH，确保信号仅被主线程接收，避免非主线程处理TTY相关操作导致的崩溃。
• 安全执行逻辑：信号上下文属于内核中断环境，在此执行复杂Lisp操作（如内存分配、UI渲染）可能引发未定义行为，用标记或线程通知的方式将重绘逻辑移到主线程的正常执行流程中更安全。
• 兼容性：完全基于SBCL原生API（sb-thread、sb-sys、sb-posix），无需依赖第三方库，也不需要重构现有IOLIB代码。

内容的提问来源于stack exchange，提问作者CL-USER