Llewellyn/Tomb
1
0
Fork 0
mirror of https://github.com/Llewellynvdm/Tomb.git synced 2024-11-11 07:30:56 +00:00
Code Issues Packages Projects Releases Wiki Activity

[i18n] New .pot file generation script

Browse Source 
The new script adds reference and context to the strings, identifies
them with more correctness and has blacklisting capabilities to ignore
strings that need no translation.
This commit is contained in:
gdrooid 2014-12-01 17:05:27 +01:00
parent e9d6227e68
commit 5e4141a628
2 changed files with 66 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extras/po/Makefile
View File

@ -4,7 +4,7 @@ TOMBFILE = LC_MESSAGES/tomb.mo
all:
@rm -f tomb.pot
@./generate_translatable_strings.sh > tomb.pot
@perl generate_translatable_strings.pl > tomb.pot
@echo "Strings generated in tomb.pot"
.PHONY: install

65
extras/po/generate_translatable_strings.pl Normal file
View File

@ -0,0 +1,65 @@
use strict;
use warnings;
my $FILE = '../../tomb';
my $FUNCPATTERN = '_(success|warning|failure|message|print)';
my $STRINGPATTERN = '(".*?[^\\\]")';
my $date = localtime;
print '
# Tomb - The Crypto Undertaker.
# Copyright (C) 2007-2014 Dyne.org Foundation
# Denis Roio <jaromil@dyne.org>, 2013.
#
#, fuzzy
msgid ""
msgstr ""
"PO-Revision-Date: ', $date, '\n"
"Last-Translator: Denis Roio <jaromil@dyne.org>\n"
"Language: English\n"
"Language-Team: Tomb developers <crypto@lists.dyne.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
';
my @blacklist = ('"--"', '"\\\\000"', '`.*`', '$\(.*\)');
open my $handle, $FILE or die "Failed to open $FILE";
my @lines = <$handle>;
close $handle;
my %seen;
my @ignored;
my $index = 0;
foreach (@lines) {
$index++;
# Ignore if there is no print function on this line
next unless m/$FUNCPATTERN +$STRINGPATTERN/;
# Ignore if the string was seen before
$seen{$2}++;
next if $seen{$2} > 1;
# Ignore if this string is blacklisted
if (grep {$2 =~ m/$_/} @blacklist) {
push @ignored, $2;
next;
}
for (-7..3) {
my $n = $index + $_;
print "#. $lines[$n]";
}
print "#: tomb:$index\n";
print "msgid $2\n";
print "msgstr \"\"\n\n";
}
print STDERR "-- IGNORED\n";
foreach (@ignored) {
print STDERR "$_\n";
}