-
-
Notifications
You must be signed in to change notification settings - Fork 3k
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
git-svn-id: http://svn.osgeo.org/qgis/trunk@12658 c8812cc2-4d05-0410-92ff-de0c093fc19c
- Loading branch information
jef
committed
Dec 31, 2009
1 parent
b07d7d7
commit 57e37f8
Showing
6 changed files
with
66 additions
and
10 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,58 @@ | ||
#!/usr/bin/perl | ||
|
||
use XML::Simple; | ||
use Data::Dumper; | ||
|
||
print <<EOF; | ||
/* | ||
This is NOT a proper c++ source code. This file is only designed to be caught | ||
by qmake and included in lupdate. It contains all translateable strings collected | ||
by pylupdate4. | ||
*/ | ||
EOF | ||
|
||
my %labels; | ||
my $file; | ||
|
||
sub parse { | ||
foreach my $a (@_) { | ||
if( ref($a) eq "ARRAY" ) { | ||
foreach my $b ( @$a ) { | ||
parse($b); | ||
} | ||
} elsif( ref($a) eq "HASH" ) { | ||
foreach my $b ( keys %$a ) { | ||
if( $b eq "label" ) { | ||
my $label = $a->{$b}; | ||
die "expected string" unless ref($label) eq ""; | ||
print STDERR "warning[$file]: '$label' should start with a uppercase character or digit and not start or end with whitespaces" | ||
if $label =~ /^\s+/ || $label =~ /\s+$/ || $label !~ /^[A-Z0-9(]/; | ||
$label =~ s/^\s+//; | ||
$label =~ s/\s+$//; | ||
$label =~ ucfirst $label; | ||
$labels{$label} = 1; | ||
} else { | ||
parse($a->{$b}); | ||
} | ||
} | ||
# } elsif(ref($a) eq "") { | ||
# warn "found: " . $a; | ||
# } else { | ||
# warn "found: " . ref($a) . " " . Dumper($a); | ||
} | ||
} | ||
} | ||
|
||
open I, "find src/plugins/grass -name '*.qgm' -o -name '*.qgc'|"; | ||
while($file = <I>) { | ||
print STDERR "$file\n"; | ||
chop $file; | ||
parse XMLin($file, ForceArray=>1); | ||
print STDERR "$file DONE\n"; | ||
} | ||
close I; | ||
|
||
foreach (sort keys %labels) { | ||
print "translate( \"grasslabel\", \"$_\" );\n"; | ||
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters