rockbox/tools/release/voices.pl
Frank Gevaerts bf17fcb43e Fix voice and manual build scripts even more
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@26531 a1c6a512-1295-4272-9138-f99709370657
2010-06-03 21:04:02 +00:00

82 lines
1.6 KiB
Perl
Executable file

#!/usr/bin/perl
$version="3.0";
require "tools/builds.pm";
my $verbose;
if($ARGV[0] eq "-v") {
$verbose =1;
shift @ARGV;
}
my $doonly;
if($ARGV[0]) {
$doonly = $ARGV[0];
print "only build $doonly\n" if($verbose);
}
# made once for all targets
sub runone {
my ($dir)=@_;
my $a;
if($doonly && ($doonly ne $dir)) {
return;
}
mkdir "buildv-$dir";
chdir "buildv-$dir";
print "Build in buildv-$dir\n" if($verbose);
# build the manual(s)
$a = buildit($dir);
chdir "..";
my $o="buildv-$dir/english.voice";
if (-f $o) {
my $newo="output/$dir-$version-english.zip";
system("cp $o output/$dir-$version-english.voice");
system("mkdir -p .rockbox/langs");
system("cp $o .rockbox/langs");
system("zip -r $newo .rockbox");
system("rm -rf .rockbox");
print "moved $o to $newo\n" if($verbose);
}
print "remove all contents in buildv-$dir\n" if($verbose);
system("rm -rf buildv-$dir");
return $a;
};
sub buildit {
my ($model)=@_;
`rm -rf * >/dev/null 2>&1`;
my $c = "../tools/configure --type=av --target=$model --language=0 --tts=f --ram=0 --voice=0";
print "C: $c\n" if($verbose);
`$c`;
print "Run 'make voice'\n" if($verbose);
print `make voice 2>/dev/null`;
}
# run make in tools first to make sure they're up-to-date
`(cd tools && make ) >/dev/null 2>&1`;
my $home=$ENV{'HOME'};
my $pool="$home/tmp/rockbox-voices-$version/voice-pool";
`mkdir -p $pool`;
`rm -f $pool/*`;
$ENV{'POOL'}="$pool";
for my $b (&stablebuilds) {
next if (length($builds{$b}{configname}) > 0); # no variants
runone($b);
}