mirror of
https://github.com/c-cube/nanoev.git
synced 2025-12-06 11:15:48 -05:00
83 lines
2.4 KiB
OCaml
83 lines
2.4 KiB
OCaml
module Trace = Trace_core
|
|
module F = Moonpool_fib
|
|
module IO = Nanoev_picos
|
|
|
|
[@@@ocaml.alert "-deprecated"]
|
|
|
|
let ( let@ ) = ( @@ )
|
|
let pf = Printf.printf
|
|
let verbose = ref false
|
|
|
|
let main ~port ~n ~n_conn () =
|
|
pf "connect on localhost:%d n=%d n_conn=%d\n%!" port n n_conn;
|
|
|
|
let addr = Unix.ADDR_INET (Unix.inet_addr_loopback, port) in
|
|
|
|
let remaining = Atomic.make n in
|
|
let all_done = Atomic.make 0 in
|
|
|
|
Printf.printf "connecting to port %d\n%!" port;
|
|
|
|
let rec run_task () =
|
|
let n = Atomic.fetch_and_add remaining (-1) in
|
|
let _task_sp =
|
|
Trace.enter_manual_toplevel_span ~__FILE__ ~__LINE__ "run-task"
|
|
~data:(fun () -> [ "n", `Int n ])
|
|
in
|
|
if n > 0 then (
|
|
( (* let@ _sp = Trace.with_span ~__FILE__ ~__LINE__ "connect.client" in *)
|
|
IO.Net_client.with_connect addr
|
|
@@ fun ic oc ->
|
|
let buf = Bytes.create 32 in
|
|
|
|
for _j = 1 to 100 do
|
|
let _sp =
|
|
Trace.enter_manual_sub_span ~parent:(Trace.ctx_of_span _task_sp)
|
|
~__FILE__ ~__LINE__ "write.loop" ~data:(fun () ->
|
|
[ "iter", `Int _j ])
|
|
in
|
|
Iostream.Out.output_string oc "hello";
|
|
Iostream.Out_buf.flush oc;
|
|
|
|
(* read back what we wrote *)
|
|
Iostream.In.really_input ic buf 0 (String.length "hello");
|
|
Trace.exit_manual_span _sp;
|
|
F.yield ()
|
|
done );
|
|
|
|
(* run another task *)
|
|
F.spawn_ignore run_task
|
|
) else (
|
|
(* if we're the last to exit, resolve the promise *)
|
|
let n_already_done = Atomic.fetch_and_add all_done 1 in
|
|
if n_already_done = n_conn - 1 then Printf.printf "all done\n%!"
|
|
);
|
|
Trace.exit_manual_span _task_sp
|
|
in
|
|
|
|
(* start the first [n_conn] tasks *)
|
|
let fibers = List.init n_conn (fun _ -> F.spawn run_task) in
|
|
List.iter F.await fibers;
|
|
|
|
(* exit when [fut_exit] is resolved *)
|
|
Printf.printf "done with main\n%!"
|
|
|
|
let () =
|
|
let@ () = Trace_tef.with_setup () in
|
|
Trace.set_thread_name "main";
|
|
|
|
let port = ref 1234 in
|
|
let n = ref 1000 in
|
|
let n_conn = ref 20 in
|
|
let opts =
|
|
[
|
|
"-p", Arg.Set_int port, " port";
|
|
"-v", Arg.Set verbose, " verbose";
|
|
"-n", Arg.Set_int n, " number of iterations";
|
|
"--n-conn", Arg.Set_int n_conn, " number of simultaneous connections";
|
|
]
|
|
|> Arg.align
|
|
in
|
|
Arg.parse opts ignore "echo_client";
|
|
|
|
F.main @@ fun _runner -> main ~port:!port ~n:!n ~n_conn:!n_conn ()
|