Wojciech Jaworski / ENIAM

swigra_test.ml 521 Bytes
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 

let swigra_in, swigra_out = Unix.open_process "../swigra/parser/run.sh"

let _ =
  Printf.fprintf swigra_out "Ala ma kota\n%!";
  print_endline (input_line swigra_in);
  (* powyższą linię należy zastąpić przez:
  let xml = Xml.parse_in swigra_in in
  print_endline (Xml.to_string_fmt xml; *)
  Printf.fprintf swigra_out "Ela ma kota\n%!";
  print_endline (input_line swigra_in);
  (* powyższą linię należy zastąpić przez:
  let xml = Xml.parse_in swigra_in in
  print_endline (Xml.to_string_fmt xml; *)
  ()