tomb

commit 836d48c2d75059b7db5d0164d110b46e5a236a03
parent d8c5cd24d14b561742f614c43eed77269a2ab635
Author: Dani <gdrooid@openmailbox.org>
Date:   Fri,  9 Jan 2015 16:49:18 +0100

Merge pull request #174 from gdrooid/i18n

[i18n] New .pot file generation script
Diffstat:
M
extras/po/Makefile
 | 
2
+-
A
extras/po/generate_translatable_strings.pl
 | 
94
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

2 files changed, 95 insertions(+), 1 deletion(-)
diff --git a/extras/po/Makefile b/extras/po/Makefile
@@ -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
diff --git a/extras/po/generate_translatable_strings.pl b/extras/po/generate_translatable_strings.pl
@@ -0,0 +1,94 @@
+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;
+my $fold;
+my $func;
+
+foreach (@lines) {
+    $index++;
+
+    # It's a fold title
+    if (m/^# +{{{ +(.*)$/) {
+        $fold = $1;
+        next;
+    }
+
+    # It's a function name
+    if (m/^(.*)\(\) *{$/) {
+        $func = $1;
+        next;
+    }
+
+    # Next if there is no print function
+    next unless m/$FUNCPATTERN +$STRINGPATTERN/;
+
+    # Next if it was seen before
+    $seen{$2}++;
+    next if $seen{$2} > 1;
+
+    # Next if it's blacklisted
+    if (grep {$2 =~ m/$_/} @blacklist) {
+	push @ignored, $2;
+	next;
+    }
+
+    print "#. Fold: $fold\n";
+    print "#. Function: $func\n";
+    print "#.\n";
+    print "#. Code sample:\n";
+
+    my $sign = ' ';
+    for (-7..3) {
+        if($_ == -1) {
+            $sign = '>';
+        }
+        else {
+            $sign = ' ';
+        }
+
+        my $n = $index + $_;
+        print "#. $sign $lines[$n]";
+    }
+
+    print "#: tomb:$index\n";
+    print "msgid $2\n";
+    print "msgstr \"\"\n\n";
+}
+
+print STDERR "-- IGNORED\n";
+foreach (@ignored) {
+    print STDERR "$_\n";
+}
+