sharpetronics/QGIS
1
0
Fork 0
mirror of https://github.com/qgis/QGIS.git synced 2025-04-15 00:04:00 -04:00
Code Issues Packages Projects Releases Wiki Activity

reset English translations on update

Browse Source
This commit is contained in:
Juergen E. Fischer 2018-10-27 19:03:44 +02:00
parent 9ad01cf9ba
commit 9e45223d42
2 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
scripts/ts-clear.pl Normal file
View File

@ -0,0 +1,48 @@
#!/usr/bin/env perl
###########################################################################
# ts-clear.pl
# ---------------------
# begin : October 2018
# copyright : (C) 2018 by Juergen E. Fischer
# email : jef at norbit dot de
###########################################################################
# #
# This program is free software; you can redistribute it and/or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
# (at your option) any later version. #
# #
###########################################################################
use strict;
use warnings;
use Carp qw/croak/;
use XML::Simple;
use Data::Dumper;
$SIG{__WARN__} = sub { croak @_; };
my $xml = XMLin("i18n/qgis_en.ts", ForceArray=>1);
die "context expected" unless exists $xml->{context};
foreach my $context ( @{ $xml->{context} } ) {
foreach my $message ( @{ $context->{message} } ) {
if(exists $message->{numerus} && $message->{numerus} eq "yes") {
for my $nf ( @{ $message->{translation}->[0]->{numerusform} } ) {
$nf = $message->{source}->[0];
}
} elsif(ref($message->{translation}->[0]) eq "") {
$message->{translation}->[0] = $message->{source}->[0];
}
}
}
my $xmlout = XMLout($xml, KeepRoot=>1, RootName => "TS");
my $out;
open $out, ">i18n/qgis_en.ts";
print $out "<?xml version=\"1.0\" encoding=\"utf-8\"?><!DOCTYPE TS>";
binmode($out, ":utf8");
print $out $xmlout;
close $out;

1
scripts/update_ts.sh
View File

@ -122,6 +122,7 @@ if [ $action = push ]; then
exit 1
fi
cp i18n/qgis_en.ts /tmp/qgis_en.ts-downloaded
perl scripts/ts-clear.pl # reset English translations
elif [ $action = pull ]; then
rm i18n/qgis_*.ts