=== modified file 'ppio.ml' --- ppio.ml 2019-04-11 19:04:04 +0000 +++ ppio.ml 2019-04-11 18:49:43 +0000 @@ -59,23 +59,8 @@ let main {hideendl; endl; color; exe} = pe ((show_cmd_args {hideendl; endl; color; exe})^"\n"); - let fd0 = Unix.File_descr.of_int 0 in - let fd1 = Unix.File_descr.of_int 1 in - let stdin_r, stdin_w = Unix.pipe () in - let stdout_r, stdout_w = Unix.pipe () in - printf "pipes: (%d %d) (%d %d)\n%!" - (Core.Unix.File_descr.to_int stdin_r) - (Core.Unix.File_descr.to_int stdin_w) - (Core.Unix.File_descr.to_int stdout_r) - (Core.Unix.File_descr.to_int stdout_w) - ; let pid = Subprocess.create_process - ~redirects:[ - fd0, Subprocess.Redirect stdin_r; - fd1, Subprocess.Redirect stdout_w; - stdin_w, Subprocess.Close; - stdout_r, Subprocess.Close; - ] + ~redirects:[] (List.nth_exn exe 0) (List.to_array exe) in printf "pid: %d\n%!" pid;