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

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyProtoClient.ml
diff -u mldonkey/src/networks/donkey/donkeyProtoClient.ml:1.23 
mldonkey/src/networks/donkey/donkeyProtoClient.ml:1.24
--- mldonkey/src/networks/donkey/donkeyProtoClient.ml:1.23      Tue Jul 19 
18:01:33 2005
+++ mldonkey/src/networks/donkey/donkeyProtoClient.ml   Fri Jul 22 10:58:55 2005
@@ -162,7 +162,7 @@
        t.port
         (Md4.to_string t.md4);
       (match t.server_info with
-          None -> lprintf_nl ""
+          None -> lprint_newline ()
         | Some (ip, port) ->
             lprintf_nl " on server: %s:%d" (Ip.to_string ip) port);
       lprintf "tags: ";
@@ -239,7 +239,7 @@
        t.port
         (Md4.to_string t.md4);
       (match t.server_info with
-          None -> lprintf_nl ""
+          None -> lprint_newline ()
         | Some (ip, port) ->
             lprintf_nl " on server: %s:%d" (Ip.to_string ip) port);
       lprintf "tags: ";
@@ -303,7 +303,7 @@
       lprintf "JOIN QUEUE";
       (match t with None -> () | Some md4 ->
             lprintf " OF %s" (Md4.to_string md4));
-      lprintf_nl ""
+      lprint_newline ()
           
     let write emule buf t = 
       if extendedrequest emule > 0 then
@@ -396,7 +396,7 @@
         None -> ()
       | Some (bitmap, ncompletesources) ->
           print_bitmap bitmap; 
-          lprintf_nl "";
+          lprint_newline ();
           if ncompletesources >= 0 then
             lprintf_nl "Complete sources: %d" ncompletesources
     
@@ -441,7 +441,7 @@
       lprint_string "   ";
       Array.iter (fun b -> 
           if b then lprintf "1" else lprintf "0") t.chunks;
-      lprintf_nl ""
+      lprint_newline ()
     
     let write buf t =
       buf_md4 buf t.md4;
@@ -484,7 +484,7 @@
       Array.iter (fun b -> 
           lprintf "  %s" (Md4.to_string b))
       t.chunks;
-      lprintf_nl ""
+      lprint_newline ()
       
     let write buf t =
       buf_md4 buf t.md4;
@@ -661,7 +661,7 @@
           lprintf_nl "  port: %d" t.f_port;
           lprintf "  tags: ";
           print_tags t.f_tags;
-          lprintf_nl "";) t
+          lprint_newline ();) t
     
     let rec write_files buf files =
       match files with
@@ -834,7 +834,7 @@
       lprintf_nl "  protversion: %d" t.version;
       lprintf "  tags: "; 
       print_tags t.tags;
-      lprintf_nl ""
+      lprint_newline ()
         
     let write buf t = 
       buf_int8 buf t.version;
@@ -1302,7 +1302,7 @@
                   File.from_string tmp_file s;
                   lprintf_nl "Saved unknown packet %s" tmp_file;
                   dump s;
-                  lprintf_nl "";
+                  lprint_newline ();
                 end;
               UnknownReq (magic,s)
               
@@ -1330,7 +1330,7 @@
             lprintf_nl "Saved unknown packet %s" tmp_file;
 
           dump s;
-          lprintf_nl "";
+          lprint_newline ();
         end;
       UnknownReq (magic,s)