API change for domainslib 0.5.1

Author: anishcr

dune-project

@@ -17,8 +17,9 @@
 
 (package
  (name ocaml5_tutorial)
+ (allow_empty)
  (synopsis "A tutorial on new concurrency features in OCaml 5")
  (description "A tutorial on new concurrency features in OCaml 5")
- (depends ocaml dune))
+ (depends ocaml dune (domainslib (>= 0.5.1))))
 
 ; See the complete stanza docs at https://dune.readthedocs.io/en/stable/dune-files.html#dune-project

ocaml5_tutorial.opam

@@ -11,8 +11,8 @@ bug-reports: "https://github.com/kayceesrk/ocaml5-tutorial/issues"
 depends: [
   "ocaml"
   "dune" {>= "3.1"}
+  "domainslib" {>= "0.5.1"}
   "odoc" {with-doc}
-  "domainslib"
 ]
 build: [
   ["dune" "subst"] {dev}

solutions/game_of_life_par.ml

@@ -62,7 +62,7 @@ let rec repeat pool n =
   | _-> next pool; repeat pool (n-1)
 
 let ()=
-  let pool = T.setup_pool ~num_additional_domains:(num_domains - 1) () in
+  let pool = T.setup_pool ~num_domains:(num_domains - 1) () in
   print !rg;
   T.run pool (fun _ -> repeat pool n_times);
   print !rg;

solutions/mergesort_par.ml

@@ -48,6 +48,6 @@ let sort pool a =
   T.run pool (fun () -> merge_sort pool false a b 0 (Array.length a))
 
 let () =
-  let pool = T.setup_pool ~num_additional_domains:(num_domains - 1) () in
+  let pool = T.setup_pool ~num_domains:(num_domains - 1) () in
   sort pool a;
   T.teardown_pool pool

solutions/tak_par.ml

@@ -25,7 +25,7 @@ let rec tak_par p x y z =
   else z
 
 let main () =
-  let p = T.setup_pool ~num_additional_domains:(num_domains - 1) () in
+  let p = T.setup_pool ~num_domains:(num_domains - 1) () in
   let r = T.run p (fun _ -> tak_par p x y z) in
   T.teardown_pool p;
   Printf.printf "tak %d %d %d = %d\n" x y z r

src/fib_domainslib.ml

@@ -13,7 +13,7 @@ let rec fib_par pool n =
   end else fib n
 
 let main () =
-  let pool = T.setup_pool ~num_additional_domains:(num_domains - 1) () in
+  let pool = T.setup_pool ~num_domains:(num_domains - 1) () in
   let res = T.run pool (fun _ -> fib_par pool n) in
   T.teardown_pool pool;
   Printf.printf "fib(%d) = %d\n" n res

src/mandelbrot_par.ml

@@ -42,7 +42,7 @@ let mandelbrot pool w =
   )
 
 let main () =
-  let pool = T.setup_pool ~num_additional_domains:(num_domains - 1) () in
+  let pool = T.setup_pool ~num_domains:(num_domains - 1) () in
   let l = T.run pool (fun _ -> mandelbrot pool w) in
   T.teardown_pool pool;
   List.iter (fun buf -> output_bytes stdout (Buffer.to_bytes buf)) l

src/spectralnorm_par.ml

@@ -27,7 +27,7 @@ let eval_AtA_times_u pool u v =
 
 
 let () =
-  let pool = T.setup_pool ~num_additional_domains:(num_domains - 1) () in
+  let pool = T.setup_pool ~num_domains:(num_domains - 1) () in
   let u = Array.make n 1.0  and  v = Array.make n 0.0 in
   T.run pool (fun _ ->
   for _i = 0 to 9 do

src/tak_par.ml

@@ -17,7 +17,7 @@ let rec tak x y z =
 let rec tak_par p x y z = failwith "not implemented"
 
 let main () =
-  let p = T.setup_pool ~num_additional_domains:(num_domains - 1) () in
+  let p = T.setup_pool ~num_domains:(num_domains - 1) () in
   let r = T.run p (fun _ -> tak_par p x y z) in
   T.teardown_pool p;
   Printf.printf "tak %d %d %d = %d\n" x y z r