mifr/subsurface
1
0
Fork 0
mirror of https://github.com/subsurface/subsurface.git synced 2025-02-19 22:16:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

A script to find literal texts to be marked for translation in qml

Browse source 
in perl...

Signed-off-by: Robert C. Helling <helling@atdotde.de>
Signed-off-by: Dirk Hohndel <dirk@hohndel.org>
This commit is contained in:
Robert C. Helling 2016-05-03 18:14:41 +02:00 • committed by Dirk Hohndel
parent 17355c99ff
commit 70e3ec9e90
1 changed files with 24 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
scripts/translationmark.pl Executable file
View file

@ -0,0 +1,24 @@
#!/usr/bin/env perl
# This script expects filenames on the command line and looks up text: tags in qml files and tries to wrap them with qsTr
foreach $filename (@ARGV) {
next unless $filename =~ /qml$/;
open IN, $filename;
open OUT, ">$filename.bak";
while (<IN>) {
if (/text:/ && !/qsTr/) {
if (/text:\s+(\"[^\"]*\")\s*$/) {
print OUT "$`text: qsTr($1)$'\n";
} else {
print OUT ">>>>$_";
print "$filename: $_";
}
} else {
print OUT;
}
}
close IN;
close OUT;
system "mv $filename.bak $filename";
}