Commands.ml

let stringOfChannel ch =
  let ok = ref false in
  let result = ref "" in
  let _ =
    try
      while true do
        result := !result ^ "\n" ^ input_line ch
      done
    with End_of_file -> (
      match Unix.close_process_in ch with
      | WEXITED 0 -> ok := true
      | _ -> ok := false)
  in
  match !ok with true -> Some !result | false -> None

let doStuff cmd ~path =
  let in_channel =
    Unix.open_process_args_in cmd [|"--stuff"; "yah"; "--lol"; path|]
  in
    match stringOfChannel in_channel with
    | Some res -> res
    | None -> "TODO"