RELEASE/1.1RELEASE/1.2debug-cidebug-ci-sanitisersstereowalls-datawalls-data-hanging-as-warning
Line | |
---|
1 | #!/usr/bin/perl -w |
---|
2 | use strict; |
---|
3 | my %menu = (); |
---|
4 | my $srcdir = $ENV{'srcdir'} || ''; |
---|
5 | $srcdir .= '/' if $srcdir; |
---|
6 | |
---|
7 | open I, "<$srcdir../src/mainfrm.cc" or die $!; |
---|
8 | while (<I>) { |
---|
9 | /(\w+)->Append\(.*\(\/\*.*?\*\/(\d+)/ && push @{$menu{$1}}, $2; |
---|
10 | } |
---|
11 | close I; |
---|
12 | |
---|
13 | my $exitcode = 0; |
---|
14 | for my $lang (@ARGV) { |
---|
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 $!; |
---|
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[$_] =~ /\@(.)/); |
---|
30 | if (!defined $acc) { |
---|
31 | print "Lang $lang : message $_ '$msg[$_]' has no shortcut\n"; |
---|
32 | } else { |
---|
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 | } |
---|
44 | } |
---|
45 | } |
---|
46 | if ($bad) { |
---|
47 | print "Unused letters: ", grep {!exists $sc{$_}} ('a' .. 'z'), "\n"; |
---|
48 | $exitcode = 1; |
---|
49 | } |
---|
50 | } |
---|
51 | print "\n" unless defined $hdr; |
---|
52 | } |
---|
53 | exit $exitcode; |
---|
Note: See
TracBrowser
for help on using the repository browser.