[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/utils/lib/charset.ml
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/utils/lib/charset.ml |
Date: |
Tue, 28 Jun 2005 19:17:13 -0400 |
Index: mldonkey/src/utils/lib/charset.ml
diff -u mldonkey/src/utils/lib/charset.ml:1.3
mldonkey/src/utils/lib/charset.ml:1.4
--- mldonkey/src/utils/lib/charset.ml:1.3 Mon May 30 21:02:56 2005
+++ mldonkey/src/utils/lib/charset.ml Tue Jun 28 23:17:08 2005
@@ -172,7 +172,7 @@
(**********************************************************************************)
(* taken from camomile *)
-(* $Id: charset.ml,v 1.3 2005/05/30 21:02:56 spiralvoice Exp $ *)
+(* $Id: charset.ml,v 1.4 2005/06/28 23:17:08 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.3 2005/05/30 21:02:56 spiralvoice Exp $ *)
+(* $Id: charset.ml,v 1.4 2005/06/28 23:17:08 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.3 2005/05/30 21:02:56 spiralvoice Exp $ *)
+(* $Id: charset.ml,v 1.4 2005/06/28 23:17:08 spiralvoice Exp $ *)
(* Copyright 2002, 2003 Yamagata Yoriyuki. distributed with LGPL *)
external uint_code : uchar -> int = "%identity"
@@ -1648,7 +1648,6 @@
with _ -> ASCII
let locstr =
- Printf.printf "Blocking system signals until core is started...\n";
(* block signals until core started correctly *)
(MlUnix.set_signal Sys.sigint
(Sys.Signal_handle (fun _ -> ())));
@@ -1796,11 +1795,11 @@
(* 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";
+(* Printf.printf "List of charmap used to convert the strings:\n";
List.iter (fun enc ->
Printf.printf " Use encoding %s\n" enc;
) !enc_list;
- flush stdout;
+ flush stdout; *)
nenc := List.length !enc_list
(**********************************************************************************)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Mldonkey-commits] Changes to mldonkey/src/utils/lib/charset.ml,
mldonkey-commits <=