Commit 5e3595f0 authored by Arthur Carcano's avatar Arthur Carcano
Browse files

doco network (NET II)

parent 95d6df87
......@@ -276,8 +276,13 @@ module NetII : S = struct
;;
let doco l () =
let ths = List.map (fun f -> Thread.create f ()) l in
List.iter (fun th -> Thread.join th) ths
let (s,(inC,outC)) = init_connection () in
let jobsNum = Marshal.from_channel inC in
let ths =
List.map
(fun f -> Thread.create f ())
(List.map (List.nth l) jobsNum) in
List.iter (Thread.join) ths
;;
let return v = (fun () -> v);;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment