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

update_ts.sh: add more context

Browse Source
This commit is contained in:
Juergen E. Fischer 2019-03-24 13:15:52 +01:00
parent 0c23e94a29
commit e5f0522b36
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
scripts/processing2ui.pl
View File

@ -39,7 +39,7 @@ for my $f (<python/plugins/processing/algs/otb/description/*.xml>) {
my $xml = XMLin($f, ForceArray=>1);
foreach my $k (qw/longname group description/) {
$strings{"OTBAlgorithm"}{$xml->{$k}->[0]} = 1;
$strings{"OTBAlgorithm"}{$xml->{$k}->[0]} = $f;
}
}
@ -52,7 +52,7 @@ for my $f (<python/plugins/processing/algs/grass*/description/*.txt>) {
while( my($class, $name, $description, $rest) = split /\|/, scalar(<I>) ) {
next unless defined $description;
$description =~ s/\s+$//;
$strings{"GrassAlgorithm"}{$description} = 1
$strings{"GrassAlgorithm"}{$description} = $f;
}
close I;
@ -60,8 +60,8 @@ for my $f (<python/plugins/processing/algs/grass*/description/*.txt>) {
chop $desc;
chop $group;
$strings{"GrassAlgorithm"}{$desc} = 1;
$strings{"GrassAlgorithm"}{$group} = 1;
$strings{"GrassAlgorithm"}{$desc} = $f;
$strings{"GrassAlgorithm"}{$group} = $f;
}
for my $f (<python/plugins/processing/algs/saga/description/*/*.txt>) {
@ -86,7 +86,7 @@ for my $f (<python/plugins/processing/algs/help/*.yaml>) {
$base = uc $base;
my $yaml = LoadFile($f);
for my $k (keys %$yaml) {
$strings{"${base}Algorithm"}{$yaml->{$k}} = 1;
$strings{"${base}Algorithm"}{$yaml->{$k}} = $f;
}
}
@ -96,7 +96,7 @@ for my $f ( ("python/plugins/processing/gui/algnames.txt") ) {
chop;
s/^.*,//;
foreach my $v (split "/", $_) {
$strings{"AlgorithmClassification"}{$v} = 1;
$strings{"AlgorithmClassification"}{$v} = $f;
}
}
close I;
@ -120,7 +120,11 @@ EOF
foreach my $v (keys %{ $strings{$k} } ) {
next if $v eq "";
print F " <property><string>" . xmlescape($v) . "</string></property>\n";
my $c = $strings{$k}{$v};
$c =~ s#^.*/##;
$c =~ s#\.[^.]+$##;
print F " <property><string extracomment=\"$c\">" . xmlescape($v) . "</string></property>\n";
}
print F <<EOF;