Shells in OCaml
Recognise Signals
Adds additional signal numbers that can be recognised by `trap`.
+8
+8
src/lib/eunix.ml
+8
src/lib/eunix.ml
···
129
129
| i when Int.equal i Sys.sigterm -> Terminate
130
130
| i when Int.equal i Sys.sigstop -> Stop
131
131
| i when Int.equal i Sys.sighup -> Hup
132
+
(* From the manpages *)
133
+
| 1 -> Hup
134
+
| 2 -> Interrupt
135
+
| 3 -> Quit
136
+
| 6 -> Abort
137
+
| 9 -> Kill
138
+
| 14 -> Alarm
139
+
| 15 -> Terminate
132
140
| m -> Fmt.invalid_arg "Signal %i not supported yet." m
133
141
134
142
let to_int = function