Source file `terminal_signals.ml`

1
2
3
4
5
6
7
8
9
10
11
12
let signals : Signal.t list =
  [ Cont (* restore the terminal after process is resumed *)
  ; Tstp (* to restore the terminal after it's stopped (C-z) *)
  ; Winch (* Re-render thet terminal when the terminal is resized *)
  ]
;;

let unblock () =
  if not Sys.win32
  then
    ignore (Unix.sigprocmask SIG_UNBLOCK (List.map ~f:Signal.to_int signals) : int list)
;;