/[mldonkey]/mldonkey/src/daemon/common/commonSwarming2.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonSwarming2.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by spiralvoice, Sun Jul 10 23:19:16 2005 UTC revision 1.10 by spiralvoice, Thu Jul 14 15:34:14 2005 UTC
# Line 189  module HU = Weak2.Make(struct Line 189  module HU = Weak2.Make(struct
189  let uploaders_by_num = HU.create 113  let uploaders_by_num = HU.create 113
190    
191  let edonkey_range_size = Int64.of_int (180 * 1024)  let edonkey_range_size = Int64.of_int (180 * 1024)
192      
193  let swarmer_counter = ref 0  let swarmer_counter = ref 0
194    
195  let has_multinet = true  let has_multinet = true
# Line 2255  we thus might put a lot of clients on th Line 2255  we thus might put a lot of clients on th
2255              up.up_ranges <- up.up_ranges @ [key];              up.up_ranges <- up.up_ranges @ [key];
2256              r.range_nuploading <- r.range_nuploading + 1;              r.range_nuploading <- r.range_nuploading + 1;
2257              if r.range_current_begin = r.range_end then              if r.range_current_begin = r.range_end then
2258                lprintf "CS error: range is empty <<<<<<<<<<<--------- error\n";                lprintf "CS error: range is empty error\n";
2259              key              key
2260            end else            end else
2261          match r.range_next with          match r.range_next with
# Line 3005  let has_secondaries t = Line 3005  let has_secondaries t =
3005  (*                         subfiles                                      *)  (*                         subfiles                                      *)
3006  (*                                                                       *)  (*                                                                       *)
3007  (*************************************************************************)  (*************************************************************************)
3008      
3009  let subfiles t =  let subfiles t =
3010    List.map (fun t -> t.t_file) t.t_s.s_networks        List.map (fun t -> t.t_file) t.t_s.s_networks
3011    
3012  (*************************************************************************)  (*************************************************************************)
3013  (*                                                                       *)  (*                                                                       *)
# Line 3038  module SwarmerOption = struct Line 3038  module SwarmerOption = struct
3038          ("file_size", int64_to_value s.s_size);          ("file_size", int64_to_value s.s_size);
3039          ("file_name", string_to_value s.s_filename);          ("file_name", string_to_value s.s_filename);
3040          ("file_bitmap", string_to_value s.s_verified_bitmap);          ("file_bitmap", string_to_value s.s_verified_bitmap);
3041          ("file_chunk_sizes", list_to_value int64_to_value          ("file_chunk_sizes", list_to_value int64_to_value
3042              (List.map (fun t -> t.t_block_size) s.s_networks));              (List.map (fun t -> t.t_block_size) s.s_networks));
3043          ]          ]
3044    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26