Index: trunk/tools/voice.pl
===================================================================
--- tools/voice.pl	(r18268)
+++ tools/voice.pl	(working copy)
@@ -27,6 +27,7 @@
 use DirHandle;
 use open ':encoding(utf8)';
 use open ':std';
+use utf8;
 
 sub printusage {
     print <<USAGE
@@ -226,6 +227,41 @@
                 }
             }
         }
+        case "japanese" {
+            switch($$tts_object{"vendor"}) {
+                case "L&H" {
+                    $string =~ s/・//;
+                    $string =~ s/ /・/;
+                    $string =~ s/早送り巻き戻し/早送り・巻き戻し/;
+                    $string =~ s/早送り/ハヤオクリ/;
+                    $string =~ s/巻き戻し/巻きも度し/;
+                    $string =~ s/大文字/王文字/;
+                    $string =~ s/背景色/背景蜀/;
+                    $string =~ s/文字色/文字蜀/;
+                    $string =~ s/簡体字/カンタイ字/;
+                    $string =~ s/USB/ユーヱスビー/;
+                    $string =~ s/一杯/いっぱい/;
+                    $string =~ s/無い場合レジューム/無い場合、レジューム/;
+                    $string =~ s/プレイリスト管理ファイルの更新エラー/プレイリスト管理ファイルの・更新エラー/;
+                }
+                case "Voiceware" {
+                    $string =~ s/が から です/が、殻です/;
+                    $string =~ s/小文字/こもじ/;
+                    $string =~ s/巻き戻し$/巻き戻し(っ)/;
+                    # 単に巻き戻しと書くと「（～を）巻き戻し、…」という動作のアクセントになるので。
+                    $string =~ s/背景色/ハイケイショク/;
+                    $string =~ s/文字色/文字ショク/;
+                    $string =~ s/簡体字/カンタイ字/;
+                    $string =~ s/繁体字/ハンタイ字/;
+                    $string =~ s/^強$/きょう/;
+                    $string =~ s/一杯/いっぱい/;
+                    $string =~ s/無い場合レジューム/無い場合、れじゅうむ/;
+                }
+                case "Create System Development Co, Ltd." {
+                    $string =~ s/一杯/いっぱい/;
+                }
+            }
+        }
     }
     if ($orig ne $string) {
         printf("%s -> %s\n", $orig, $string) if $verbose;