|
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; *)
()
|