[Mldonkey-commits] Changes to mldonkey/src/networks/bittorrent/bTRate.ml

[mldonkey-commits]

Index: mldonkey/src/networks/bittorrent/bTRate.ml
diff -u mldonkey/src/networks/bittorrent/bTRate.ml:1.2 
mldonkey/src/networks/bittorrent/bTRate.ml:1.3
--- mldonkey/src/networks/bittorrent/bTRate.ml:1.2      Wed Jan 14 22:54:17 2004
+++ mldonkey/src/networks/bittorrent/bTRate.ml  Sun Aug  7 12:57:22 2005
@@ -1,5 +1,5 @@
-(* Copyright 2003, Denis Fortin 
-   Heavily based on file CurrentRateMeasure.py 
+(* Copyright 2003, Denis Fortin
+   Heavily based on file CurrentRateMeasure.py
    from BitTorrent 3.3 by Bram Cohen
  *)
 (*
@@ -29,39 +29,38 @@
   mutable rate : float;
 }
 
-let (>) a b = a.rate > b.rate 
+let (>) a b = a.rate > b.rate
 
-let update r amount = 
+let update r amount =
   let t = float_of_int (last_time ()) in
     r.rate <- (r.rate *. (r.lasttime -. r.ratesince) +.
               amount) /. (t -. r.ratesince);
-    r.lasttime <- t;    
+    r.lasttime <- t;
     if r.ratesince < (t -. 20.) then
       r.ratesince <- (t -. 20.)
 
-let update_no_change r = 
+let update_no_change r =
   let t = float_of_int (last_time ()) in
     r.ratesince <- t
-      
-let ratesince r = 
+
+let ratesince r =
   r.ratesince
 
-let new_rate () = 
+let new_rate () =
   let t = float_of_int (last_time()) in
   {
     ratesince = t -. 1.;
     lasttime = t;
     rate = 0.;
   }
-       
-let last_time t = 
+
+let last_time t =
   t.lasttime
-       
+
 let get_rate r =
-  r.rate 
-    
+  r.rate
 
-let compare r1 r2 = 
+let compare r1 r2 =
   compare r1.rate r2.rate
 
 let zero =   {