let bufsize = 1024 * 1024 in
let buffer = String.create bufsize in
let start = gettimeofday () in
let bufsize = 1024 * 1024 in
let buffer = String.create bufsize in
let start = gettimeofday () in
let n = read fd buffer 0 bufsize in
if n > 0 then (
let n' = write sock buffer 0 n in
if n <> n' then assert false; (* never, according to the manual *)
let bytes_sent = Int64.add bytes_sent (Int64.of_int n) in
let n = read fd buffer 0 bufsize in
if n > 0 then (
let n' = write sock buffer 0 n in
if n <> n' then assert false; (* never, according to the manual *)
let bytes_sent = Int64.add bytes_sent (Int64.of_int n) in
(Int64.to_float bytes_sent/.secs_elapsed/.1_000_000. *. 8.);
(* After 60 seconds has elapsed, start printing estimates. *)
if secs_elapsed >= 60. then (
(Int64.to_float bytes_sent/.secs_elapsed/.1_000_000. *. 8.);
(* After 60 seconds has elapsed, start printing estimates. *)
if secs_elapsed >= 60. then (