bin/findtr

   1 #!/usr/bin/perl -w
   2 # vi:wrap:
   3
   4 # See Qt I18N documentation for usage information.
   5
   6 use POSIX qw(strftime);
   7
   8 $projectid='PROJECT VERSION';
   9 $datetime = strftime "%Y-%m-%d %X %Z", localtime;
  10 $charset='iso-8859-1';
  11 $translator='FULLNAME <EMAIL@ADDRESS>';
  12 $revision_date='YYYY-MM-DD';
  13
  14 $real_mark = "tr";
  15 $noop_mark = "QT_TR_NOOP";
  16 $scoped_mark = "qApp->translate";
  17 $noop_scoped_mark = "QT_TRANSLATE_NOOP";
  18
  19 $header=
  20 '# This is a Qt message file in .po format.  Each msgid starts with
  21 # a scope.  This scope should *NOT* be translated - eg. translating
  22 # from French to English, "Foo::Bar" would be translated to "Pub",
  23 # not "Foo::Pub".
  24 msgid ""
  25 msgstr ""
  26 "Project-Id-Version: '.$projectid.'\n"
  27 "POT-Creation-Date: '.$datetime.'\n"
  28 "PO-Revision-Date: '.$revision_date.'\n"
  29 "Last-Translator: '.$translator.'\n"
  30 "Content-Type: text/plain; charset='.$charset.'\n"
  31
  32 ';
  33
  34
  35
  36
  37 $scope = "";
  38
  39 if ( $#ARGV < 0 ) {
  40     print STDERR "Usage:  findtr sourcefile ...  >project.po\n";
  41     exit 1;
  42 }
  43
  44
  45 sub outmsg {
  46     my ($file, $line, $scope, $msgid) = @_;
  47     # unesc
  48     $msgid =~ s/$esc:$esc:$esc/::/gs;
  49     $msgid =~ s|$esc/$esc/$esc|//|gs;
  50
  51     # Remove blank lines
  52     $msgid =~ s/\n\n+/\n/gs;
  53     $msgid = "\"\"\n$msgid" if $msgid =~ /\n/s;
  54     print "#: $file:$line\n";
  55     $msgid =~ s/^"//; #"emacs bug
  56     print "msgid \"${scope}::$msgid\n";
  57     #print "msgstr \"$msgid\n";
  58     print "msgstr \"\"\n";
  59     print "\n";
  60 }
  61
  62 sub justlines {
  63     my $l = @_;
  64     $l =~ tr|\n||dc;
  65     return $l;
  66 }
  67
  68 print $header;
  69
  70
  71 foreach $file ( @ARGV ) {
  72     next unless open( I, "< $file" );
  73
  74     $source = join( "", <I> );
  75
  76     # Find esc. Avoid bad case 1/// -> 1/1/1/1 -> ///1
  77     $esc = 1;
  78     while ( $source =~ m!(?:$esc/$esc/$esc)|(?:$esc///)
  79             |(?:$esc:$esc:$esc)|(?:$esc:\:\:)! ) {
  80         $esc++;
  81     }
  82
  83     # Hide quoted :: in practically all strings
  84     $source =~ s/\"([^"\n]*)::([^"\n]*)\"/\"$1$esc:$esc:$esc$2\"/g;
  85
  86     # Hide quoted // in practically all strings
  87     $source =~ s|\"([^"\n]*)//([^"\n]*)\"|\"$1$esc/$esc/$esc$2\"|g;
  88
  89
  90     # strip comments -- does not handle "/*" in strings
  91     while( $source =~ s|/\*(.*?)\*/|justlines($1)|ges ) { }
  92     while( $source =~ s|//(.*?)\n|\n|g ) { }
  93
  94     while( $source =~ /
  95             (?:
  96                 # Some doublequotes are "escaped" to help vim syntax highlight
  97
  98                 # $1 = scope; $2 = parameters etc.
  99                 (?:
 100                     # Scoped function name ($1 is scope).
 101                     (\w+)::(?:\w+)
 102                     \s*
 103                     # Parameters etc up to open-curly - no semicolons
 104                     \(([^();]*)\)
 105                     \s*
 106                     (?:\{|:)
 107                 )
 108               |
 109                 # $3 - one-argument msgid
 110                 (?:\b
 111                     # One of the marks
 112                     (?:$real_mark|$noop_mark)
 113                     \s*
 114                     # The parameter
 115                     \(\s*((?:"(?:[^"]|[^\\]\\")*"\s*)+)\)
 116                 )
 117               |
 118                 # $4,$5 - two-argument msgid
 119                 (?:\b
 120                     # One of the scoped marks
 121                     (?:$scoped_mark|$noop_scoped_mark)
 122                     \s*
 123                     # The parameters
 124                     \(
 125                         # The scope parameter
 126                         \s*"([^\"]*)"
 127                         \s*,\s*
 128                         # The msgid parameter
 129                         \s*((?:\"(?:[^"]|[^\\]\\")*"\s*)+) #"emacs
 130                     \)
 131                 )
 132               |
 133                 # $6,$7 - scoped one-argument msgid
 134                 (?:\b
 135                     # The scope
 136                     (\w+)::
 137                     # One of the marks
 138                     (?:$real_mark)
 139                     \s*
 140                     # The parameter
 141                     \(\s*((?:"(?:[^"]|[^\\]\\")*"\s*)+)\)
 142                 )
 143             )/gsx )
 144     {
 145         @lines = split /^/m, "$`";
 146         $line = @lines;
 147         if ( defined( $1 ) ) {
 148             if ( $scope ne $1 ) {
 149                 $sc=$1;
 150                 $etc=$2;
 151                 # remove strings
 152                 $etc =~ s/"(?:[^"]|[^\\]\\")"//g;
 153                 # count ( and )
 154                 @open = split /\(/m, $etc;
 155                 @close = split /\)/m, $etc;
 156                 if ( $#open == $#close ) {
 157                     $scope = $sc;
 158                 }
 159             }
 160             next;
 161         }
 162
 163         if ( defined( $3 ) ) {
 164             $this_scope = $scope;
 165             $msgid = $3;
 166         } elsif ( defined( $4 ) ) {
 167             $this_scope = $4;
 168             $msgid = $5;
 169         } elsif ( defined( $6 ) ) {
 170             $this_scope = $6;
 171             $msgid = $7;
 172         } else {
 173             next;
 174         }
 175
 176         $msgid =~ s/^\s*//;
 177         $msgid =~ s/\s*$//;
 178
 179         # Might still be non-unique eg. tr("A" "B")  vs.  tr("A"  "B").
 180
 181         $location{"${this_scope}::${msgid}"} = "$file:$line";
 182     }
 183 }
 184
 185 for $scoped_msgid ( sort keys %location ) {
 186     ($scope,$msgid) = $scoped_msgid =~ m/([^:]*)::(.*)/s;
 187     ($file,$line) = $location{$scoped_msgid} =~ m/([^:]*):(.*)/s;
 188     outmsg($file,$line,$scope,$msgid);
 189 }