RELEASE/1.1RELEASE/1.2debug-cidebug-ci-sanitisersstereowalls-datawalls-data-hanging-as-warning
Rev | Line | |
---|
[46cb98f] | 1 | #!/usr/bin/perl -w |
---|
| 2 | use strict; |
---|
| 3 | my %menu = (); |
---|
[aceb53e] | 4 | my $srcdir = $ENV{'srcdir'} || ''; |
---|
| 5 | $srcdir .= '/' if $srcdir; |
---|
[6deca30] | 6 | |
---|
| 7 | open I, "<$srcdir../src/mainfrm.cc" or die $!; |
---|
[46cb98f] | 8 | while (<I>) { |
---|
| 9 | /(\w+)->Append\(.*\(\/\*.*?\*\/(\d+)/ && push @{$menu{$1}}, $2; |
---|
| 10 | } |
---|
| 11 | close I; |
---|
| 12 | |
---|
[6deca30] | 13 | my $exitcode = 0; |
---|
[46cb98f] | 14 | for my $lang (@ARGV) { |
---|
[6deca30] | 15 | $lang =~ s/\.msg$//; # allow en or en.msg |
---|
| 16 | my $hdr = "Lang $lang:\n"; |
---|
| 17 | # .msg files could be in srcdir or build directory when building outside |
---|
| 18 | # the source tree |
---|
| 19 | open L, "<$srcdir$lang.msg" or open L, "<$lang.msg" or die $!; |
---|
[46cb98f] | 20 | my $buf; |
---|
| 21 | read L, $buf, 20; |
---|
| 22 | read L, $buf, 999999; |
---|
| 23 | close L; |
---|
| 24 | my @msg = split /\0/, $buf; |
---|
| 25 | for my $menu (sort keys %menu) { |
---|
| 26 | my %sc = (); |
---|
| 27 | my $bad = 0; |
---|
| 28 | for (@{$menu{$menu}}) { |
---|
| 29 | my ($acc) = ($msg[$_] =~ /\@(.)/); |
---|
[206c976] | 30 | if (!defined $acc) { |
---|
| 31 | print "Lang $lang : message $_ '$msg[$_]' has no shortcut\n"; |
---|
[46cb98f] | 32 | } else { |
---|
[206c976] | 33 | $acc = lc $acc; |
---|
| 34 | if (exists $sc{$acc}) { |
---|
| 35 | if (defined $hdr) { |
---|
| 36 | print $hdr; |
---|
| 37 | $hdr = undef; |
---|
| 38 | } |
---|
| 39 | print "Menu $menu : '$msg[$sc{$acc}]' and '$msg[$_]' both use shortcut '$acc'\n"; |
---|
| 40 | $bad = 1; |
---|
| 41 | } else { |
---|
| 42 | $sc{$acc} = $_; |
---|
| 43 | } |
---|
[46cb98f] | 44 | } |
---|
| 45 | } |
---|
| 46 | if ($bad) { |
---|
| 47 | print "Unused letters: ", grep {!exists $sc{$_}} ('a' .. 'z'), "\n"; |
---|
[6deca30] | 48 | $exitcode = 1; |
---|
[46cb98f] | 49 | } |
---|
| 50 | } |
---|
[6deca30] | 51 | print "\n" unless defined $hdr; |
---|
[46cb98f] | 52 | } |
---|
[6deca30] | 53 | exit $exitcode; |
---|
Note: See
TracBrowser
for help on using the repository browser.