tori/iganaq
tori/iganaq
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Implement most of the spec reusing scribe & nefthera code

Browse source
This commit is contained in:
Juno Takano 2025-04-09 01:59:32 -03:00
commit 612a98cfde
16 changed files with 225 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

11
ocaml/lib/system/process/fork.ml Normal file
View file

@ -0,0 +1,11 @@
open Qol
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)