len0rd/rockbox
1
0
Fork 1
mirror of https://github.com/Rockbox/rockbox.git synced 2026-10-10 08:03:04 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

More GSoC related work. Have genlang parse the user field of the lang files. For now, all user strings are core. In the future more users will be added. Add missing user fields to a few phrases in some languages. Genlang will also warn if a phrase is missing the user field or it is unknown. The output format is unchanged.

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@20187 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Tom Ross 2009-03-03 01:38:26 +00:00
parent 9f6e117e82
commit 104fb378ec
41 changed files with 27562 additions and 27523 deletions
Download patch file Download diff file Expand all files Collapse all files

18
tools/genlang
View file

@ -20,6 +20,10 @@ my $langversion = 4; # 3 was the latest one used in the v1 format
# figured it was boring and unnecessary to write support for now since we
# don't use it anymore.
my %user2num =
('core' => 1);
if(!$ARGV[0]) {
print <<MOO
Usage: genlang [options] <langv2 file>
@ -207,6 +211,8 @@ if($english) {
my @phrase;
my $id;
my $maybeid;
my $user;
my $maybeuser;
my $withindest;
my $numphrases = 0;
while(<ENG>) {
@ -254,6 +260,7 @@ if($english) {
# we unconditionally always use all IDs when the "update"
# feature is used
$id = $maybeid;
$user = $user2num{$maybeuser};
# print "DEST: use this id $id\n";
}
else {
@ -278,6 +285,9 @@ if($english) {
$maybeid=$1;
$sortorder{$maybeid}=$numphrases++;
}
if($_ =~ /^ *user: ([^ \t\n]+)/i) {
$maybeuser=$1;
}
}
close(ENG);
}
@ -443,6 +453,12 @@ while(<LANG>) {
if($dest eq '""' && $phrase{'desc'} !~ /deprecated/i && $idstr !~ /^VOICE/) {
print STDERR "$input:$line:1: warning: empty dest before line in non-deprecated phrase!\n";
}
my $user = $user2num{trim($phrase{'user'})};
if(!$user) {
print STDERR "$input:$line:1: warning: unknown user!\n";
$user = 1;
}
# Use the ID name to figure out which id number range we
# should use for this phrase. Voice-only strings are
@ -467,11 +483,13 @@ while(<LANG>) {
print "source: $src\n";
print "dest: $dest\n";
print "voice: $voice\n";
print "user: $user\n";
}
undef $src;
undef $dest;
undef $voice;
undef $user;
undef %phrase;
}