mirror of
https://github.com/qgis/QGIS.git
synced 2025-02-24 00:47:57 -05:00
35 lines
780 B
Perl
35 lines
780 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use XML::Simple;
|
||
|
|
use Data::Dumper;
|
||
|
|
|
||
|
|
die "usage: $0 source.ts dest.cpp\n" unless @ARGV==2 && -f $ARGV[0];
|
||
|
|
|
||
|
|
my $xml = XMLin($ARGV[0], ForceArray=>1);
|
||
|
|
|
||
|
|
open F, ">$ARGV[1]";
|
||
|
|
|
||
|
|
print F <<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
|
||
|
|
|
||
|
|
die "context expected" unless exists $xml->{context};
|
||
|
|
|
||
|
|
foreach my $context ( @{ $xml->{context} } ) {
|
||
|
|
print F "\n// context: $context->{name}->[0]\n\n";
|
||
|
|
|
||
|
|
foreach my $message ( @{ $context->{message} } ) {
|
||
|
|
$message->{source}->[0] =~ s/"/\\"/g;
|
||
|
|
$message->{source}->[0] =~ s/\n/\\n/g;
|
||
|
|
|
||
|
|
print F "translate( \"$context->{name}->[0]\", \"$message->{source}->[0]\");\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
close F;
|