mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
22 lines
617 B
OCaml
22 lines
617 B
OCaml
|
|
(** Write 10_000 Bencode values on the given file *)
|
|
|
|
(* write n times the same value in the file *)
|
|
let write_values file n =
|
|
let out = BencodeOnDisk.open_out file in
|
|
Printf.printf "[%d] opened file\n" (Unix.getpid ());
|
|
let v = Bencode.(L [I 0; I 1; S "foo"]) in
|
|
for i = 0 to n-1 do
|
|
Printf.printf "[%d] iteration %d\n" (Unix.getpid ()) i;
|
|
flush stdout;
|
|
BencodeOnDisk.write out v;
|
|
done;
|
|
BencodeOnDisk.close_out out;
|
|
Printf.printf "done\n";
|
|
()
|
|
|
|
let _ =
|
|
let file = Sys.argv.(1) in
|
|
Printf.printf "[%d] start: write to %s\n" (Unix.getpid ()) file;
|
|
flush stdout;
|
|
write_values file 100
|