diff options
Diffstat (limited to 'experimental/tqtinterface/qt4/bin/findtr')
| -rwxr-xr-x | experimental/tqtinterface/qt4/bin/findtr | 189 |
1 files changed, 189 insertions, 0 deletions
diff --git a/experimental/tqtinterface/qt4/bin/findtr b/experimental/tqtinterface/qt4/bin/findtr new file mode 100755 index 000000000..dbdca4df3 --- /dev/null +++ b/experimental/tqtinterface/qt4/bin/findtr @@ -0,0 +1,189 @@ +#!/usr/bin/perl -w +# vi:wrap: + +# See Qt I18N documentation for usage information. + +use POSIX qw(strftime); + +$projectid='PROJECT VERSION'; +$datetime = strftime "%Y-%m-%d %X %Z", localtime; +$charset='iso-8859-1'; +$translator='FULLNAME <EMAIL@ADDRESS>'; +$revision_date='YYYY-MM-DD'; + +$real_mark = "tr"; +$noop_mark = "QT_TR_NOOP"; +$scoped_mark = "tqApp->translate"; +$noop_scoped_mark = "QT_TRANSLATE_NOOP"; + +$header= +'# This is a Qt message file in .po format. Each msgid starts with +# a scope. This scope should *NOT* be translated - eg. translating +# from French to English, "Foo::Bar" would be translated to "Pub", +# not "Foo::Pub". +msgid "" +msgstr "" +"Project-Id-Version: '.$projectid.'\n" +"POT-Creation-Date: '.$datetime.'\n" +"PO-Revision-Date: '.$revision_date.'\n" +"Last-Translator: '.$translator.'\n" +"Content-Type: text/plain; charset='.$charset.'\n" + +'; + + + + +$scope = ""; + +if ( $#ARGV < 0 ) { + print STDERR "Usage: tqfindtr sourcefile ... >project.po\n"; + exit 1; +} + + +sub outmsg { + my ($file, $line, $scope, $msgid) = @_; + # unesc + $msgid =~ s/$esc:$esc:$esc/::/gs; + $msgid =~ s|$esc/$esc/$esc|//|gs; + + # Remove blank lines + $msgid =~ s/\n\n+/\n/gs; + $msgid = "\"\"\n$msgid" if $msgid =~ /\n/s; + print "#: $file:$line\n"; + $msgid =~ s/^"//; #"emacs bug + print "msgid \"${scope}::$msgid\n"; + #print "msgstr \"$msgid\n"; + print "msgstr \"\"\n"; + print "\n"; +} + +sub justlines { + my $l = @_; + $l =~ tr|\n||dc; + return $l; +} + +print $header; + + +foreach $file ( @ARGV ) { + next unless open( I, "< $file" ); + + $source = join( "", <I> ); + + # Find esc. Avoid bad case 1/// -> 1/1/1/1 -> ///1 + $esc = 1; + while ( $source =~ m!(?:$esc/$esc/$esc)|(?:$esc///) + |(?:$esc:$esc:$esc)|(?:$esc:\:\:)! ) { + $esc++; + } + + # Hide quoted :: in practically all strings + $source =~ s/\"([^"\n]*)::([^"\n]*)\"/\"$1$esc:$esc:$esc$2\"/g; + + # Hide quoted // in practically all strings + $source =~ s|\"([^"\n]*)//([^"\n]*)\"|\"$1$esc/$esc/$esc$2\"|g; + + + # strip comments -- does not handle "/*" in strings + while( $source =~ s|/\*(.*?)\*/|justlines($1)|ges ) { } + while( $source =~ s|//(.*?)\n|\n|g ) { } + + while( $source =~ / + (?: + # Some doublequotes are "escaped" to help vim syntax highlight + + # $1 = scope; $2 = parameters etc. + (?: + # Scoped function name ($1 is scope). + (\w+)::(?:\w+) + \s* + # Parameters etc up to open-curly - no semicolons + \(([^();]*)\) + \s* + (?:\{|:) + ) + | + # $3 - one-argument msgid + (?:\b + # One of the marks + (?:$real_mark|$noop_mark) + \s* + # The parameter + \(\s*((?:"(?:[^"]|[^\\]\\")*"\s*)+)\) + ) + | + # $4,$5 - two-argument msgid + (?:\b + # One of the scoped marks + (?:$scoped_mark|$noop_scoped_mark) + \s* + # The parameters + \( + # The scope parameter + \s*"([^\"]*)" + \s*,\s* + # The msgid parameter + \s*((?:\"(?:[^"]|[^\\]\\")*"\s*)+) #"emacs + \) + ) + | + # $6,$7 - scoped one-argument msgid + (?:\b + # The scope + (\w+):: + # One of the marks + (?:$real_mark) + \s* + # The parameter + \(\s*((?:"(?:[^"]|[^\\]\\")*"\s*)+)\) + ) + )/gsx ) + { + @lines = split /^/m, "$`"; + $line = @lines; + if ( defined( $1 ) ) { + if ( $scope ne $1 ) { + $sc=$1; + $etc=$2; + # remove strings + $etc =~ s/"(?:[^"]|[^\\]\\")"//g; + # count ( and ) + @open = split /\(/m, $etc; + @close = split /\)/m, $etc; + if ( $#open == $#close ) { + $scope = $sc; + } + } + next; + } + + if ( defined( $3 ) ) { + $this_scope = $scope; + $msgid = $3; + } elsif ( defined( $4 ) ) { + $this_scope = $4; + $msgid = $5; + } elsif ( defined( $6 ) ) { + $this_scope = $6; + $msgid = $7; + } else { + next; + } + + $msgid =~ s/^\s*//; + $msgid =~ s/\s*$//; + + # Might still be non-unique eg. tr("A" "B") vs. tr("A" "B"). + + $location{"${this_scope}::${msgid}"} = "$file:$line"; + } +} + +for $scoped_msgid ( sort keys %location ) { + ($scope,$msgid) = $scoped_msgid =~ m/([^:]*)::(.*)/s; + ($file,$line) = $location{$scoped_msgid} =~ m/([^:]*):(.*)/s; + outmsg($file,$line,$scope,$msgid); +} |