/[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.4 by spiralvoice, Tue Jun 28 23:17:08 2005 UTC revision 1.5 by spiralvoice, Mon Aug 1 20:09:13 2005 UTC
# Line 1655  let locstr = Line 1655  let locstr =
1655      (Sys.Signal_handle (fun _ -> ())));      (Sys.Signal_handle (fun _ -> ())));
1656    
1657    let s = charset_to_string locale in    let s = charset_to_string locale in
   Printf.printf "Current locale of the target machine is %s\n" s;  
   flush stdout;  
1658    s    s
1659    
1660  let (enc_list : string list ref) = ref []  let (enc_list : string list ref) = ref []
# Line 1666  let char_const = "_" Line 1664  let char_const = "_"
1664  let default_language =  let default_language =
1665    let s = get_default_language () in    let s = get_default_language () in
1666    let s = normalize_language s in    let s = normalize_language s in
   Printf.printf "Current language of the target machine is %s\n" s;  
   flush stdout;  
1667    s    s
1668    
1669  (*  (*

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

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