[Mldonkey-commits] Changes to mldonkey/src/utils/lib/charset.ml

[mldonkey-commits]

Index: mldonkey/src/utils/lib/charset.ml
diff -u mldonkey/src/utils/lib/charset.ml:1.5 
mldonkey/src/utils/lib/charset.ml:1.6
--- mldonkey/src/utils/lib/charset.ml:1.5       Mon Aug  1 20:09:13 2005
+++ mldonkey/src/utils/lib/charset.ml   Sat Nov 19 17:19:45 2005
@@ -172,7 +172,7 @@
 
(**********************************************************************************)
 
 (* taken from camomile *)
-(* $Id: charset.ml,v 1.5 2005/08/01 20:09:13 spiralvoice Exp $ *)
+(* $Id: charset.ml,v 1.6 2005/11/19 17:19:45 spiralvoice Exp $ *)
 (* Copyright 2002, 2003 Yamagata Yoriyuki. distributed with LGPL *)
 
 let utf8_look s i =
@@ -254,7 +254,7 @@
 
(**********************************************************************************)
 
 (* taken from camomile *)
-(* $Id: charset.ml,v 1.5 2005/08/01 20:09:13 spiralvoice Exp $ *)
+(* $Id: charset.ml,v 1.6 2005/11/19 17:19:45 spiralvoice Exp $ *)
 (* Copyright 2002, 2003 Yamagata Yoriyuki. distributed with LGPL *)
 
 let rec length_aux s c i =
@@ -281,7 +281,7 @@
 
 
 (* taken from camomile *)
-(* $Id: charset.ml,v 1.5 2005/08/01 20:09:13 spiralvoice Exp $ *)
+(* $Id: charset.ml,v 1.6 2005/11/19 17:19:45 spiralvoice Exp $ *)
 (* Copyright 2002, 2003 Yamagata Yoriyuki. distributed with LGPL *)
 
 external uint_code : uchar -> int = "%identity"
@@ -1791,11 +1791,10 @@
   (* Let's get rid of charset aliases *)
   let l = List.map (fun li -> List.hd li) (charset_list_from_language lang) in
   enc_list := List.map (fun c -> charset_to_string c ) l;
-(*  Printf.printf "List of charmap used to convert the strings:\n";
+(* Printf2.lprintf "List of charmap used to convert the strings:\n";
   List.iter (fun enc ->
-    Printf.printf "  Use encoding %s\n" enc; 
-  ) !enc_list;
-  flush stdout; *)
+    Printf2.lprintf "  Use encoding %s\n" enc; 
+  ) !enc_list; *)
   nenc := List.length !enc_list
 
 
(**********************************************************************************)