simon/nanoev
1
0
Fork 0
mirror of https://github.com/c-cube/nanoev.git synced 2025-12-06 11:15:48 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

update example

Browse source
This commit is contained in:
Simon Cruanes 2025-05-07 09:52:36 -04:00
parent 604224d1cf
commit 9b2107ec7c
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 19 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
examples/fnv1_udp/client.ml
View file

@ -15,6 +15,11 @@ let main () : unit =
let n_tasks_done = Atomic.make 0 in let n_tasks_done = Atomic.make 0 in
let n_sent = Atomic.make 0 in let n_sent = Atomic.make 0 in
let n_recv = Atomic.make 0 in let n_recv = Atomic.make 0 in
let remoteaddr = Unix.ADDR_INET (Unix.inet_addr_loopback, !port) in
(let@ pool = Moonpool.Ws_pool.with_ ~num_threads:!j () in
ignore ignore
(Thread.create (Thread.create
(fun () -> (fun () ->
@ -31,10 +36,6 @@ let main () : unit =
() ()
: Thread.t); : Thread.t);
(let@ pool = Moonpool.Ws_pool.with_ ~num_threads:!j () in
let remoteaddr = Unix.ADDR_INET (Unix.inet_addr_loopback, !port) in
let task () = let task () =
let[@alert "-deprecated"] _sp = let[@alert "-deprecated"] _sp =
Trace.enter_manual_toplevel_span ~__FILE__ ~__LINE__ "task.run" Trace.enter_manual_toplevel_span ~__FILE__ ~__LINE__ "task.run"
@ -64,6 +65,9 @@ let main () : unit =
done done
in in
if Random.float 1. > 0.992 then
Trace.counter_int "n-tasks" (Moonpool.Runner.num_tasks pool);
Picos.Fiber.(yield ()); Picos.Fiber.(yield ());
(* receive a response *) (* receive a response *)