add Imandrakit_io.block_signals

Author: c-cube

src/io/imandrakit_io.ml

@@ -79,6 +79,21 @@ let with_signal ?(signal = Sys.sigint) ~on_sig f =
 let block_sigpipe_sigint () =
   ignore (Thread.sigmask Unix.SIG_BLOCK [ Sys.sigint; Sys.sigpipe ] : _ list)
 
+let block_signals () =
+  ignore
+    (Unix.sigprocmask Unix.SIG_BLOCK
+       [
+         Sys.sigterm;
+         Sys.sigpipe;
+         Sys.sigint;
+         Sys.sigchld;
+         Sys.sigalrm;
+         Sys.sigusr1;
+         Sys.sigusr2;
+         Sys.sigvtalrm;
+       ]
+      : _ list)
+
 let read_i32_framed ic : string =
   let buf_len = Bytes.create 4 in
   really_input ic buf_len 0 4;

src/io/imandrakit_io.mli

@@ -41,6 +41,9 @@ val with_signal : ?signal:int -> on_sig:(int -> unit) -> (unit -> 'a) -> 'a
 val block_sigpipe_sigint : unit -> unit
 (** Block these signals in this thread *)
 
+val block_signals : unit -> unit
+(** Block a reasonable collection of signals in this thread *)
+
 val read_i32_framed : in_channel -> string
 (** [read_i32_framed ic] reads a int32_le-framed message from [ic] *)