11 lines
509 B
OCaml
11 lines
509 B
OCaml
open Utilities.Aliases
|
|
|
|
let run (command: string) (arguments: string list) =
|
|
match Unix.fork () with
|
|
| 0 -> Unix.execvp command (Array.of_list arguments)
|
|
| pid -> let (_, status) = Unix.waitpid [] pid in
|
|
match status with
|
|
| Unix.WEXITED 0 -> ()
|
|
| Unix.WEXITED n -> print ("Process exited with code " ^ str_int n)
|
|
| Unix.WSIGNALED n -> print ("Process terminated by signal " ^ str_int n)
|
|
| Unix.WSTOPPED n -> print ("Process stopped by signal " ^ str_int n)
|