OCaml 刷新异常行为（退出所有线程）

Question

我尝试使用 2 个命令实现 CLI：

• run 在 /my/path/file.sock 产生一个 unix 套接字并产生输出
• watch 连接到套接字并将输出转发到它自己的输出

当我kill watch命令时，我无法理解为什么run命令也被kill了。他们不会引发任何异常或系统信号。我注意到问题来自 flush 函数。一旦被调用，它就像一个 exit 0。怎么会？

此处来源：https://github.com/soywod/comodoro

Answer 1

服务器必须侦听客户端断开连接并从 conn 列表中删除连接。 这样的事情可能会奏效：

let client_thread conn =
  let in_ch = in_channel_of_descr conn in
  while true do
    try input_line in_ch |> ignore
    with End_of_file ->
     (* Remove conn from !conn and close the conn *)
  done
in

let add_conn () =
  (* ... *)
  Thread.create client_thread conn |> ignore;
  (* ... *)
in