/[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.5 by spiralvoice, Mon Aug 1 20:09:13 2005 UTC revision 1.6 by spiralvoice, Sat Nov 19 17:19:45 2005 UTC
# Line 1791  let set_default_charset_list (lang : str Line 1791  let set_default_charset_list (lang : str
1791    (* Let's get rid of charset aliases *)    (* Let's get rid of charset aliases *)
1792    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
1793    enc_list := List.map (fun c -> charset_to_string c ) l;    enc_list := List.map (fun c -> charset_to_string c ) l;
1794  (*  Printf.printf "List of charmap used to convert the strings:\n";  (* Printf2.lprintf "List of charmap used to convert the strings:\n";
1795    List.iter (fun enc ->    List.iter (fun enc ->
1796      Printf.printf "  Use encoding %s\n" enc;      Printf2.lprintf "  Use encoding %s\n" enc;
1797    ) !enc_list;    ) !enc_list; *)
   flush stdout; *)  
1798    nenc := List.length !enc_list    nenc := List.length !enc_list
1799    
1800  (**********************************************************************************)  (**********************************************************************************)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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