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

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

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

revision 1.21 by spiralvoice, Sun Jul 17 16:11:12 2005 UTC revision 1.22 by spiralvoice, Fri Jul 22 14:32:12 2005 UTC
# Line 32  open BTTypes Line 32  open BTTypes
32  open BTOptions  open BTOptions
33  open BTGlobals  open BTGlobals
34    
35    (* prints a new logline with date, module and starts newline *)
36    let lprintf_nl () =
37      lprintf "%s[BT] "
38        (log_time ()); lprintf_nl2
39    
40  module ClientOption = struct  module ClientOption = struct
41            
42      let value_to_client file v =      let value_to_client file v =
# Line 160  let value_to_file file_size file_state a Line 165  let value_to_file file_size file_state a
165          (get_value  "file_sources" (          (get_value  "file_sources" (
166            value_to_list (ClientOption.of_value file)))            value_to_list (ClientOption.of_value file)))
167      with e ->      with e ->
168          lprintf_nl "[BT]: Exception %s while loading sources"          lprintf_nl () "Exception %s while loading sources"
169            (Printexc2.to_string e);            (Printexc2.to_string e);
170    );    );
171    
# Line 207  send us more clients. Line 212  send us more clients.
212          Int64Swarmer.swarmer_to_value swarmer assocs          Int64Swarmer.swarmer_to_value swarmer assocs
213    with    with
214      e ->      e ->
215        lprintf_nl "BTComplexOptions: exception %s in file_to_value"        lprintf_nl () "exception %s in file_to_value"
216          (Printexc2.to_string e); raise e          (Printexc2.to_string e); raise e
217                
218  let old_files =  let old_files =

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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