From eb7600913d97086027183c9befc3688e7fc2a8a2 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Thu, 1 Jan 1970 00:00:00 +0000
Subject: [PATCH] Add language chooser dialog.

---
 virt-p2v.ml | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/virt-p2v.ml b/virt-p2v.ml
index e61e62d..6f057ac 100644
--- 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. *)
-- 
1.8.3.1