mirror of
https://github.com/rkd77/elinks.git
synced 2024-06-30 01:55:30 +00:00
37 lines
1.1 KiB
Perl
Executable File
37 lines
1.1 KiB
Perl
Executable File
#! /usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
use Locale::PO qw();
|
|
|
|
my %contexts;
|
|
my($pofile) = @ARGV;
|
|
my $pos = do {
|
|
# Locale::PO 0.16 doesn't understand "#~" obsolete lines and spews warnings.
|
|
local $SIG{__WARN__} = sub {};
|
|
Locale::PO->load_file_asarray($pofile) or die "$pofile: $!";
|
|
};
|
|
foreach my $po (@$pos) {
|
|
next if $po->fuzzy();
|
|
my $msgstr = $po->msgstr()
|
|
or next;
|
|
my($accelerator) = ($msgstr =~ /~(.)/)
|
|
or next;
|
|
$accelerator = uc($accelerator);
|
|
my $automatic = $po->automatic()
|
|
or next;
|
|
my($contexts) = ($automatic =~ /^accelerator_context\(([^\)]*)\)/)
|
|
or next;
|
|
foreach my $context (split(/\s*,\s*/, $contexts)) {
|
|
my $prev = $contexts{$context}{$accelerator};
|
|
if (defined($prev)) {
|
|
warn "$pofile: Accelerator conflict for \"$accelerator\" in \"$context\":\n";
|
|
warn "$pofile: 1st msgid " . $prev->msgid() . "\n";
|
|
warn "$pofile: 1st msgstr " . $prev->msgstr() . "\n";
|
|
warn "$pofile: 2nd msgid " . $po->msgid() . "\n";
|
|
warn "$pofile: 2nd msgstr " . $po->msgstr() . "\n";
|
|
} else {
|
|
$contexts{$context}{$accelerator} = $po;
|
|
}
|
|
}
|
|
}
|