Source file `signals_.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
let ignore_signals_ () =
  try
    Thread.sigmask SIG_BLOCK
      [
        Sys.sigpipe;
        Sys.sigbus;
        Sys.sigterm;
        Sys.sigchld;
        Sys.sigalrm;
        Sys.sigint;
        Sys.sigusr1;
        Sys.sigusr2;
      ]
    |> ignore
  with _ -> ()