summaryrefslogtreecommitdiffstats
path: root/talk/po2talk
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2009-01-27 17:30:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2009-01-27 17:30:08 +0000
commit5ce8d30439463838f845c78bc926cc9b310a8743 (patch)
treebb1852dc58711c7baee31216a765067dfa49b65b /talk/po2talk
parent10658e71475bd964263d09f1a661f24fadfaf496 (diff)
downloadbootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.tar
bootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.tar.gz
bootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.tar.bz2
bootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.tar.xz
bootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.zip
imported openSUSE.tar.bz2 (from gfxboot-4.1.19-2.1.src.rpm)4.1.19.1
Diffstat (limited to 'talk/po2talk')
-rwxr-xr-xtalk/po2talk191
1 files changed, 191 insertions, 0 deletions
diff --git a/talk/po2talk b/talk/po2talk
new file mode 100755
index 0000000..46fe1fe
--- /dev/null
+++ b/talk/po2talk
@@ -0,0 +1,191 @@
+#! /usr/bin/perl
+
+use Getopt::Long;
+
+sub help;
+sub read_po;
+sub join_id;
+sub new_tmp_file;
+sub cleanup;
+
+GetOptions(
+ 'help' => \&help,
+ 'compress' => \$opt_compress,
+);
+
+END { cleanup }
+$SIG{INT} = \&cleanup;
+$SIG{TERM} = \&cleanup;
+
+my @tmp_files;
+
+$espeak = "espeak";
+
+$magic = 0x692741e8;
+
+help if @ARGV != 2;
+
+$po = read_po $ARGV[0];
+
+$tmp_txt = new_tmp_file;
+$tmp_wav = new_tmp_file;
+$tmp_snd = new_tmp_file;
+
+for $msg (@{$po}) {
+ $id = join_id $msg, 'id';
+ $str = join_id $msg, 'str';
+
+ next unless $id ne "";
+
+ eval '$id = "' . $id . '"';
+ eval '$str = "' . $str . '"';
+
+ $str = $id if $str eq "";
+
+ if(!$snd{$str}) {
+ open W, ">$tmp_txt";
+ print W $str;
+ close W;
+
+ $punc = length($id) == 1 ? "--punc" : "";
+
+ system "$espeak $punc -f $tmp_txt -w $tmp_wav";
+ system "sox $tmp_wav -b -u -c 1 -r 16000 -t .wav $tmp_snd";
+ if($opt_compress) {
+ system "./sc $tmp_snd $tmp_snd";
+ }
+
+ open F, $tmp_snd;
+ sysread F, $snd_buf, -s $tmp_snd;
+ close F;
+
+ $snd{$str} = $snd_buf;
+ }
+
+ $snd_id{$id} = $str;
+}
+
+$file_ofs = 0;
+@snds = sort keys %snd;
+@snd_ids = sort keys %snd_id;
+
+for $snd_id (@snd_ids) {
+ $txt_ofs{$snd_id} = $file_ofs;
+ $file_ofs += length($snd_id) + 1;
+}
+
+for $snd (@snds) {
+ $snd_ofs{$snd} = $file_ofs;
+ $file_ofs += length($snd{$snd});
+}
+
+$head_size = 8 + 8 * @snd_ids;
+
+open W, ">$ARGV[1]";
+
+print W pack("VV", $magic, scalar(@snd_ids));
+for $snd_id (@snd_ids) {
+ print W pack("VV", ($txt_ofs{$snd_id} + $head_size, $snd_ofs{$snd_id{$snd_id}} + $head_size));
+}
+for $snd_id (@snd_ids) {
+ print W $snd_id, "\x00";
+}
+for $snd (@snds) {
+ print W $snd{$snd};
+}
+
+close W;
+
+
+sub help
+{
+ print STDERR
+ "Usage: po2talk [options] po_file talk_file\n" .
+ "Run po file through espeak.\n";
+
+ exit 0;
+}
+
+
+sub read_po
+{
+ local $_;
+ my ($msg, $cnt, $id, $f);
+
+ $cnt = 0;
+
+ open F, $_[0];
+ while(<F>) {
+ s/^\s*|\s*$//g;
+ next if $_ eq "";
+ if(/^#,/) {
+ s/^#,\s*//;
+ for $f (split /\s*,\s*/) {
+ ${$msg->[$cnt]{flags}{$f}} = 1 if $f ne "";
+ }
+ next
+ }
+ if(/^#(\s|$)/) { push @{$msg->[$cnt]{u_comment}}, $_ ; next }
+ if(/^#/) { push @{$msg->[$cnt]{a_comment}}, $_; next }
+ if(s/^msg(id\b|id_plural\b|str(\[\d+\])?)\s*//) {
+ $id = $1;
+ if($id eq 'id') {
+ $msg->[$cnt]{line} = $. unless exists $msg->[$cnt]{$line};
+ $cnt++;
+ }
+ }
+ if($cnt && /^"(.*)"$/) {
+ push @{$msg->[$cnt - 1]{$id}}, $1;
+ }
+ else {
+ print STDERR "$_[0]:$.: invalid po format\n";
+ return undef;
+ }
+ }
+ close F;
+
+ # trailing comments
+ pop @$msg if @$msg > 0 && !$msg->[-1]{id};
+
+ return $msg;
+}
+
+
+sub join_id
+{
+ my ($msg, $id);
+
+ ($msg, $id) = @_;
+
+ return join '', @{$msg->{$id}};
+}
+
+
+# create new temporary file
+sub new_tmp_file
+{
+ local $_;
+
+ chomp ($_ = `mktemp /tmp/po2talk.XXXXXXXXXX`);
+ die "error: mktemp failed\n" if $?;
+
+ push @tmp_files, $_;
+
+ return $_;
+}
+
+
+# remove temporary files
+sub cleanup
+{
+ local $_;
+
+ for (@tmp_files) {
+ next unless defined $_;
+ unlink;
+ $_ = undef;
+ }
+
+ undef @tmp_files;
+}
+