/[mldonkey]/mldonkey/src/networks/bittorrent/bTInteractive.ml
ViewVC logotype

Diff of /mldonkey/src/networks/bittorrent/bTInteractive.ml

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

revision 1.60 by spiralvoice, Thu Oct 6 14:20:20 2005 UTC revision 1.61 by spiralvoice, Sun Oct 16 20:42:53 2005 UTC
# Line 731  let op_client_dprint c o file = Line 731  let op_client_dprint c o file =
731      (Int64.to_string c.client_downloaded)      (Int64.to_string c.client_downloaded)
732    (Int64.to_string c.client_uploaded)    (Int64.to_string c.client_uploaded)
733    (if c.client_downloaded > c.client_uploaded then "-" else "+")    (if c.client_downloaded > c.client_uploaded then "-" else "+")
734    (if c.client_uploaded > Int64.zero then (Int64.to_float (Int64.div c.client_downloaded c.client_uploaded)) else (1.))    (if c.client_uploaded > Int64.zero then
735         Int64.to_float (c.client_downloaded // c.client_uploaded)
736       else 1.)
737    ("BT");    ("BT");
738    (Printf.bprintf buf (_b "%18sFile  : %s\n") "" info.GuiTypes.file_name)    (Printf.bprintf buf (_b "%18sFile  : %s\n") "" info.GuiTypes.file_name)
739    

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

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