[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/networks/gnutella2/g2Proto.ml
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/networks/gnutella2/g2Proto.ml |
Date: |
Sat, 19 Nov 2005 12:19:48 -0500 |
Index: mldonkey/src/networks/gnutella2/g2Proto.ml
diff -u mldonkey/src/networks/gnutella2/g2Proto.ml:1.10
mldonkey/src/networks/gnutella2/g2Proto.ml:1.11
--- mldonkey/src/networks/gnutella2/g2Proto.ml:1.10 Thu Oct 6 10:21:10 2005
+++ mldonkey/src/networks/gnutella2/g2Proto.ml Sat Nov 19 17:19:45 2005
@@ -1271,22 +1271,22 @@
let (_,used_in, used_out) = inflate z !buf !pos len s2 0 100000 f in
pos := !pos + len;
- Printf.printf "\n----------NEW PAQUET
(%d/%d)----------------------------------------\n" used_in len;
+ lprintf "\n----------NEW PAQUET
(%d/%d)----------------------------------------\n" used_in len;
for i = 0 to used_out - 1 do
let c = s2.[i] in
let x = int_of_char c in
if x > 31 && x < 127 then
print_char c
else
- Printf.printf "(%d)" x;
+ lprintf "(%d)" x;
done;
- Printf.printf
"\n------------------------------------------------------------\n";
+ lprintf "\n------------------------------------------------------------\n";
for i = 0 to used_out - 1 do
let c = s2.[i] in
let x = int_of_char c in
- Printf.printf "(%d)" x;
+ lprintf "(%d)" x;
done;
- Printf.printf
"\n------------------------------------------------------------\n";
+ lprintf "\n------------------------------------------------------------\n";
*)
(*
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Mldonkey-commits] Changes to mldonkey/src/networks/gnutella2/g2Proto.ml,
mldonkey-commits <=