add some signal stuff, fmt

.ocamlformat

@@ -1,4 +1,4 @@
-version=0.26.2
+version=0.27.0
 assignment-operator=end-line
 break-cases=fit
 break-fun-decl=wrap

CHANGES.md

@@ -1,5 +1,7 @@
 ## unreleased
 
+- add some signals stuff to `Sys` module
+
 ## 0.3 - 2024-07-26
 
 - move monoporphic comparison operators to Infix submodule

src/prelude.ml

@@ -112,6 +112,71 @@ module Stdlib = Empty
 
 (* Use Bos instead. *)
 module Sys = struct
+  (* Signals *)
+  type signal_behavior = Sys.signal_behavior =
+    | Signal_default
+    | Signal_ignore
+    | Signal_handle of (int -> unit)
+
+  let set_signal = Sys.set_signal
+
+  let sigabrt = Sys.sigabrt
+
+  let sigalrm = Sys.sigalrm
+
+  let sigfpe = Sys.sigfpe
+
+  let sighup = Sys.sighup
+
+  let sigill = Sys.sigill
+
+  let sigint = Sys.sigint
+
+  let sigkill = Sys.sigkill
+
+  let sigpipe = Sys.sigpipe
+
+  let sigquit = Sys.sigquit
+
+  let sigsegv = Sys.sigsegv
+
+  let sigterm = Sys.sigterm
+
+  let sigusr1 = Sys.sigusr1
+
+  let sigusr2 = Sys.sigusr2
+
+  let sigchld = Sys.sigchld
+
+  let sigcont = Sys.sigcont
+
+  let sigstop = Sys.sigstop
+
+  let sigtstp = Sys.sigtstp
+
+  let sigttin = Sys.sigttin
+
+  let sigttou = Sys.sigttou
+
+  let sigvtalrm = Sys.sigvtalrm
+
+  let sigprof = Sys.sigprof
+
+  let sigbus = Sys.sigbus
+
+  let sigpoll = Sys.sigpoll
+
+  let sigsys = Sys.sigsys
+
+  let sigtrap = Sys.sigtrap
+
+  let sigurg = Sys.sigurg
+
+  let sigxcpu = Sys.sigxcpu
+
+  let sigxfsz = Sys.sigxfsz
+
+  (* Other stuff *)
   let opaque_identity = Sys.opaque_identity
 end