Wojciech Jaworski / ENIAM

concraft_test.ml 488 Bytes
1 2 3 4 5 6 7 8 9 10 11 12 

(* let concraft_in, concraft_out, concraft_err = Unix.open_process_full "../../../.local/bin/concraft-pl tag ../concraft/nkjp-model-0.2.gz" [| |] *)
let concraft_in, concraft_out, concraft_err =
  Unix.open_process_full "concraft-pl tag ../concraft/nkjp-model-0.2.gz"
    [|"PATH=" ^ Sys.getenv "PATH"|]

let _ =
  print_endline "out";
  Printf.fprintf concraft_out "Ala ma kota.\n\n%!";
  print_endline "in";
  print_endline ("concraft error message: " ^ input_line concraft_err);
  ()