/[mldonkey]/mldonkey/src/utils/lib/charset.ml
ViewVC logotype

Diff of /mldonkey/src/utils/lib/charset.ml

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

revision 1.3 by spiralvoice, Mon May 30 21:02:56 2005 UTC revision 1.4 by spiralvoice, Tue Jun 28 23:17:08 2005 UTC
# Line 1648  let locale = Line 1648  let locale =
1648    with _ -> ASCII    with _ -> ASCII
1649    
1650  let locstr =  let locstr =
   Printf.printf "Blocking system signals until core is started...\n";  
1651    (* block signals until core started correctly *)    (* block signals until core started correctly *)
1652    (MlUnix.set_signal  Sys.sigint    (MlUnix.set_signal  Sys.sigint
1653      (Sys.Signal_handle (fun _ -> ())));      (Sys.Signal_handle (fun _ -> ())));
# Line 1796  let set_default_charset_list (lang : str Line 1795  let set_default_charset_list (lang : str
1795    (* Let's get rid of charset aliases *)    (* Let's get rid of charset aliases *)
1796    let l = List.map (fun li -> List.hd li) (charset_list_from_language lang) in    let l = List.map (fun li -> List.hd li) (charset_list_from_language lang) in
1797    enc_list := List.map (fun c -> charset_to_string c ) l;    enc_list := List.map (fun c -> charset_to_string c ) l;
1798    Printf.printf "List of charmap used to convert the strings:\n";  (*  Printf.printf "List of charmap used to convert the strings:\n";
1799    List.iter (fun enc ->    List.iter (fun enc ->
1800      Printf.printf "  Use encoding %s\n" enc;      Printf.printf "  Use encoding %s\n" enc;
1801    ) !enc_list;    ) !enc_list;
1802    flush stdout;    flush stdout; *)
1803    nenc := List.length !enc_list    nenc := List.length !enc_list
1804    
1805  (**********************************************************************************)  (**********************************************************************************)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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