mirror of
https://git.lyx.org/repos/lyx.git
synced 2024-11-09 18:31:04 +00:00
Add option for ignoring fuzzy translations, per Pavel's request.
git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@38273 a592a061-630c-0410-9148-cb99ea01b6c8
This commit is contained in:
parent
52b6583751
commit
de5f7dde5b
@ -26,12 +26,13 @@ options is given, in which case we checks only for those requested.
|
||||
-q: Check Qt shortcuts
|
||||
-s: Check for space at end
|
||||
-t: Check for uniform translation
|
||||
This option can be given with or without other options.
|
||||
These options can be given with or without other options.
|
||||
-f: Ignore fuzzy translations.
|
||||
-w: Only report summary total of errors
|
||||
EOT
|
||||
|
||||
my %options;
|
||||
getopts(":hacmpqstw", \%options);
|
||||
getopts(":hacfmpqstw", \%options);
|
||||
|
||||
if (defined($options{h})) {
|
||||
print $usage;
|
||||
@ -40,6 +41,8 @@ if (defined($options{h})) {
|
||||
|
||||
my $only_total = defined($options{w});
|
||||
delete $options{w} if $only_total;
|
||||
my $ignore_fuzzy = defined($options{f});
|
||||
delete $options{f} if $ignore_fuzzy;
|
||||
|
||||
my $check_args = (!%options or defined($options{a}));
|
||||
my $check_colons = (!%options or defined($options{c}));
|
||||
@ -75,6 +78,10 @@ foreach my $pofilename ( @ARGV ) {
|
||||
( $msgid ) = ( $pofile[$i] =~ m/^msgid "(.*)"/ );
|
||||
$i++;
|
||||
next unless $msgid;
|
||||
if ($ignore_fuzzy) {
|
||||
my $previous = $pofile[$i - 2];
|
||||
next if $previous =~ m/#,.*fuzzy/;
|
||||
}
|
||||
|
||||
# some msgid's are more than one line long, so add those.
|
||||
while ( ( $more ) = $pofile[$i] =~ m/^"(.*)"/ ) {
|
||||
|
Loading…
Reference in New Issue
Block a user