i18n: use location for strings of palettes/brushes/etc

If known, output the location of the strings as comment; together with
the usage of rc.cpp (instead of i18ndata) as temporary file for these
strings, this makes sure the .po file shows their locations.

Author: pinotree

Messages.sh

@@ -14,17 +14,17 @@ ACTIONFILES=`find . -name \*.action`
 ./action_i18n.pl --context=action $ACTIONFILES >> rc.cpp
 
 # extracti18n.pl extracts additional data from brushes, palettes etc.
-perl extracti18n.pl > i18ndata
+perl extracti18n.pl >> rc.cpp
 
 # Ignore sdk/templates which contains templates for writing future plugins.
 # Also ignore crashreporter, it has it's own catalog
 # None of the placeholder strings inside will be seen by users.
-kundo2_aware_xgettext krita.pot i18ndata rc.cpp \
+kundo2_aware_xgettext krita.pot rc.cpp \
                   `find . -name \*.cc -o -name \*.h  -o -name \*.cpp | \
                   grep -v '/tests/' | grep -v './sdk/templates' | grep -v './krita/crashreporter/'`
 
 # Extract the messages in Python plugins.
 $XGETTEXT -L Python `find . -name \*.py` -j -o $podir/krita.pot
 
 # Clean up
-rm -f i18ndata rc.cpp
+rm -f rc.cpp

extracti18n.pl

@@ -22,9 +22,13 @@
 use strict;
 use warnings;
 
-sub printi18n($$) {
+sub printi18n($$$$) {
   if ($_[0] ne "") 
     {
+      if ($_[3] > 0)
+      {
+        print "// i18n: file: ".$_[2].":".$_[3]."\n";
+      }
           print "i18nc(\"".$_[1]."\",\"".$_[0]."\");\n";
     }
 }
@@ -49,13 +53,13 @@ ($$)
       my @splited = split(/: /, $lines[1]);
       my $name = $splited[1];
       chomp($name);
-      printi18n($name, $filename);
+      printi18n($name, $filename, $filename, 2);
     }
     else
     {
       my $name = $lines[0];
       chomp($name);
-      printi18n($name, $filename);
+      printi18n($name, $filename, $filename, 1);
     }
   }
   else
@@ -70,13 +74,13 @@ ($$)
       {
         read(FILE, $bytes, 12);
         read(FILE, my $name, $size - 21);
-        printi18n($name, $filename);
+        printi18n($name, $filename, $filename, -1);
       }
       else
       {
         read(FILE, $bytes, 20);
         read(FILE, my $name, $size - 29);
-        printi18n($name, $filename);
+        printi18n($name, $filename, $filename, -1);
       }
     }
     else
@@ -85,7 +89,7 @@ ($$)
       my $size = unpack("N", $bytes);
       read(FILE, $bytes, 20);
       read(FILE, my $name, $size - 25);
-      printi18n($name, $filename);
+      printi18n($name, $filename, $filename, -1);
     }
   }
 }