Add language chooser dialog.

diff --git a/virt-p2v.ml b/virt-p2v.ml
index e61e62d..6f057ac 100644 (file)
--- a/virt-p2v.ml
+++ b/virt-p2v.ml
@@ -810,6 +810,26 @@ let rec main ttyname =
        dup2 fd stdout;
        close fd
   );
+
+  (* Choose language early, so messages are translated. *)
+  if !config_greeting then (
+    with_newt (
+      fun () ->
+       (* Note these strings are NOT translated! *)
+       let items = [
+         "English", "en_US.UTF-8";
+         "\xE6\x97\xA5\xE6\x9C\xAC\xE8\xAA\x9E (Japanese)", "ja_JP.UTF-8"
+       ] in
+
+       let lang = select_single ~stage:(s_ "Select language") 40
+         (s_ "Select language")
+         items in
+
+       putenv "LANGUAGE" lang;
+       ignore (GettextStubCompat.setlocale GettextStubCompat.LC_ALL lang)
+    )
+  );
+
   let () = printf (f_ "%s starting up ...\n%!") program_name in
 
   (* Disable screen blanking on tty. *)