22 lines
296 B
OCaml
22 lines
296 B
OCaml
|
let () =
|
||
|
|
Api.reg_mod "Plugin_thread";
|
||
|
|
let _t =
|
||
|
|
Thread.create
|
||
|
|
(fun () ->
|
||
|
|
for i = 1 to 5 do
|
||
|
|
print_endline "Thread 1"; flush stdout;
|
||
|
|
Thread.delay 1.;
|
||
|
|
done
|
||
|
|
) ()
|
||
|
|
in
|
||
|
|
for i = 1 to 10 do
|
||
|
|
print_endline "Thread 2"; flush stdout;
|
||
|
|
Thread.delay 0.50;
|
||
|
|
done
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|