f84e93edfe
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@4713 a1c6a512-1295-4272-9138-f99709370657
126 lines
2.7 KiB
Perl
Executable file
126 lines
2.7 KiB
Perl
Executable file
#!/usr/bin/perl -s
|
|
|
|
if(!$ARGV[0]) {
|
|
print <<MOO
|
|
Usage: genlang [-p=<prefix>] <language file>
|
|
|
|
When running this program. <prefix>.h and <prefix>.c will be created in the
|
|
"current directory". <prefix> is "lang" by default.
|
|
MOO
|
|
;
|
|
exit;
|
|
}
|
|
|
|
my $prefix = $p;
|
|
if(!$prefix) {
|
|
$prefix="lang";
|
|
}
|
|
|
|
my $input = $ARGV[0];
|
|
|
|
open(HFILE, ">$prefix.h");
|
|
open(CFILE, ">$prefix.c");
|
|
|
|
print HFILE <<MOO
|
|
/* This file was automatically generated using genlang */
|
|
/*
|
|
* The str() macro/functions is how to access strings that might be
|
|
* translated. Use it like str(MACRO) and expect a string to be
|
|
* returned!
|
|
*/
|
|
#define str(x) language_strings[x]
|
|
|
|
/* this is the array with all the strings */
|
|
extern unsigned char *language_strings[];
|
|
|
|
/* The enum below contains all available strings */
|
|
enum {
|
|
MOO
|
|
;
|
|
|
|
print CFILE <<MOO
|
|
/* This file was automaticly generated using genlang, the strings come
|
|
from "$input" */
|
|
|
|
unsigned char *language_strings[]={
|
|
MOO
|
|
;
|
|
|
|
open(LANG, "<$input");
|
|
while(<LANG>) {
|
|
$line++;
|
|
if($_ =~ / *\#/) {
|
|
# comment
|
|
next;
|
|
}
|
|
# get rid of DOS newlines
|
|
$_ =~ s/\r//g;
|
|
if($_ =~ / *([a-z]+): *(.*)/) {
|
|
($var, $value) = ($1, $2);
|
|
# print "$var => $value\n";
|
|
|
|
$set{$var} = $value;
|
|
|
|
if( (($var eq "new") && $value && ($value !~ /^\"(.*)\"\W*$/)) ||
|
|
(($var eq "voice") && $value && ($value !~ /^\"(.*)\"\W*$/)) ||
|
|
(($var eq "eng") && ($value !~ /^\"(.*)\"\W*$/)) ) {
|
|
print "$input:$line:missing quotes for ".$set{'id'}."\n";
|
|
$errors++;
|
|
next;
|
|
}
|
|
|
|
if($var eq "new") {
|
|
# the last one for a single phrase
|
|
|
|
if(!$value || ($value eq "\"\"") ) {
|
|
# if not set, get the english version
|
|
$value = $set{'eng'};
|
|
}
|
|
# print "VOICE: ".$set{'voice'}." VALUE: $value\n";
|
|
# Note: if both entries are "", the string is deprecated,
|
|
# but must be included to maintain compatibility
|
|
if(($value eq "\"\"") && $set{'voice'} ne "\"\"") {
|
|
# voice-only
|
|
push @vfile, $set{'id'};
|
|
}
|
|
else {
|
|
push @hfile, $set{'id'};
|
|
print CFILE " $value,\n";
|
|
}
|
|
|
|
undef %set;
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
close(LANG);
|
|
|
|
for(@hfile) {
|
|
print HFILE " $_,\n";
|
|
}
|
|
|
|
print HFILE " /* --- below this follows voice-only strings --- */\n",
|
|
" VOICEONLY_DELIMITER = 0x8000,\n";
|
|
|
|
for(@vfile) {
|
|
print HFILE " $_,\n";
|
|
}
|
|
|
|
print HFILE <<MOO
|
|
LANG_LAST_INDEX_IN_ARRAY /* this is not a string, this is a marker */
|
|
};
|
|
/* end of generated enum list */
|
|
MOO
|
|
;
|
|
|
|
print CFILE <<MOO
|
|
};
|
|
/* end of generated string list */
|
|
MOO
|
|
;
|
|
|
|
close(CFILE);
|
|
close(HFILE);
|
|
|
|
exit $errors;
|