20 lines
694 B
OCaml
20 lines
694 B
OCaml
(* A very simple communication module using buffers. It should help detecting
|
|
advanced character reading by Scanf when using stdin. *)
|
|
|
|
let send_flush send ob oc t =
|
|
send ob t;
|
|
Buffer.output_buffer oc ob;
|
|
Buffer.clear ob;
|
|
flush oc
|
|
;;
|
|
|
|
(* The correct sending format for the test should be "%S\n",
|
|
but to avoid problems when Scanf ask too early for the next character,
|
|
"%S\n\n" is fine. *)
|
|
let send_string = send_flush (fun ob -> Printf.bprintf ob "%S\n");;
|
|
|
|
(* The correct reading format for the test should be "%S\n",
|
|
but to avoid problems when Scanf ask too early for the next character,
|
|
" %S\n" is fine. *)
|
|
let receive_string ib = Scanf.bscanf ib "%S\n" (fun s -> s);;
|