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 [] |
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 |
(* |
(* |