[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyComplexOptions.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyComplexOptions.ml
diff -u mldonkey/src/networks/donkey/donkeyComplexOptions.ml:1.36 
mldonkey/src/networks/donkey/donkeyComplexOptions.ml:1.37
--- mldonkey/src/networks/donkey/donkeyComplexOptions.ml:1.36   Sat Sep 17 
17:59:47 2005
+++ mldonkey/src/networks/donkey/donkeyComplexOptions.ml        Mon Nov  7 
20:11:42 2005
@@ -518,22 +518,22 @@
             try conv (List.assoc name assocs) with _ -> []
           in
           { 
-            brand_mod_seen = value_to_int (List.assoc "mseen" assocs);
-            brand_mod_banned = value_to_int (List.assoc "mbanned" assocs);
-            brand_mod_filerequest = value_to_int (List.assoc "mfilereqs" 
assocs);
-            brand_mod_download = value_to_int64 (List.assoc "mdownload" 
assocs);
-            brand_mod_upload = value_to_int64 (List.assoc "mupload" assocs);
+            brand_seen = value_to_int (List.assoc "mseen" assocs);
+            brand_banned = value_to_int (List.assoc "mbanned" assocs);
+            brand_filerequest = value_to_int (List.assoc "mfilereqs" assocs);
+            brand_download = value_to_int64 (List.assoc "mdownload" assocs);
+            brand_upload = value_to_int64 (List.assoc "mupload" assocs);
           }
           
       | _ -> failwith "Options: not a mod_stat option"
           
     let stat_to_mod_value b =
       Options.Module [
-        "mseen", int_to_value b.brand_mod_seen;
-        "mbanned", int_to_value b.brand_mod_banned;
-        "mfilereqs", int_to_value b.brand_mod_filerequest;
-        "mdownload", int64_to_value b.brand_mod_download;
-        "mupload", int64_to_value b.brand_mod_upload;
+        "mseen", int_to_value b.brand_seen;
+        "mbanned", int_to_value b.brand_banned;
+        "mfilereqs", int_to_value b.brand_filerequest;
+        "mdownload", int64_to_value b.brand_download;
+        "mupload", int64_to_value b.brand_upload;
       ]
     
     
@@ -648,37 +648,37 @@
   
 let new_mod_stats_array () = 
   Array.init brand_mod_count (fun _ ->
-      { dummy_mod_stats with brand_mod_seen = 0 }
+      { dummy_stats with brand_seen = 0 }
   )
 
-let gstats_by_brand = define_option stats_section ["stats"] "" 
+let gstats_array = define_option stats_section ["stats"] "" 
     (array_option StatsOption.t) (new_stats_array ())
 
-let gstats_by_brand_mod = define_option mod_stats_section ["stats"] "" 
+let gstats_mod_array = define_option mod_stats_section ["stats"] "" 
     (array_option ModStatsOption.t) (new_mod_stats_array ())
 
 let _ =
-  option_hook gstats_by_brand (fun _ ->
-      let old_stats = !!gstats_by_brand in
+  option_hook gstats_array (fun _ ->
+      let old_stats = !!gstats_array in
       let old_len = Array.length old_stats in
       if old_len <> brand_count then
         let t = new_stats_array () in
         for i = 0 to old_len - 1 do
           t.(i) <- old_stats.(i)
         done;
-        gstats_by_brand =:= t
+        gstats_array =:= t
   )
   
 let _ =
-  option_hook gstats_by_brand_mod (fun _ ->
-      let old_mod_stats = !!gstats_by_brand_mod in
+  option_hook gstats_mod_array (fun _ ->
+      let old_mod_stats = !!gstats_mod_array in
       let old_mod_len = Array.length old_mod_stats in
       if old_mod_len <> brand_mod_count then
         let t = new_mod_stats_array () in
         for i = 0 to old_mod_len - 1 do
           t.(i) <- old_mod_stats.(i)
         done;
-        gstats_by_brand_mod =:= t
+        gstats_mod_array =:= t
   )
 
 let diff_time = ref 0