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 _ -> ()))); |
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 |
(**********************************************************************************) |
(**********************************************************************************) |