177 |
let b = Int64Swarmer.find_block up in |
let b = Int64Swarmer.find_block up in |
178 |
|
|
179 |
(* lprintf "GOT BLOCK:\n"; *) |
(* lprintf "GOT BLOCK:\n"; *) |
180 |
Int64Swarmer.print_uploaders swarmer; |
if !verbose_swarming then Int64Swarmer.print_uploaders swarmer; |
181 |
|
|
182 |
if !verbose_swarming then begin |
if !verbose_swarming then begin |
183 |
lprintf "Block Found: "; Int64Swarmer.print_block b; |
lprintf "Block Found: "; Int64Swarmer.print_block b; |
193 |
let (x,y,r) = Int64Swarmer.find_range up in |
let (x,y,r) = Int64Swarmer.find_range up in |
194 |
|
|
195 |
(* lprintf "GOT RANGE:\n"; *) |
(* lprintf "GOT RANGE:\n"; *) |
196 |
Int64Swarmer.print_uploaders swarmer; |
if !verbose_swarming then Int64Swarmer.print_uploaders swarmer; |
197 |
|
|
198 |
d.download_ranges <- d.download_ranges @ [x,y,r]; |
d.download_ranges <- d.download_ranges @ [x,y,r]; |
199 |
(* Int64Swarmer.alloc_range r; *) |
(* Int64Swarmer.alloc_range r; *) |