diff options
Diffstat (limited to 'l10n/l10n.pl')
| -rw-r--r-- | l10n/l10n.pl | 227 |
1 files changed, 0 insertions, 227 deletions
diff --git a/l10n/l10n.pl b/l10n/l10n.pl deleted file mode 100644 index c8312982fdc..00000000000 --- a/l10n/l10n.pl +++ /dev/null @@ -1,227 +0,0 @@ -#!/usr/bin/perl -use strict; -use Locale::PO; -use Cwd; -use Data::Dumper; -use File::Path; - -sub crawlPrograms{ - my( $dir, $ignore ) = @_; - my @found = (); - - opendir( DIR, $dir ); - my @files = readdir( DIR ); - closedir( DIR ); - @files = sort( @files ); - - foreach my $i ( @files ){ - next if substr( $i, 0, 1 ) eq '.'; - if( $i eq 'l10n' && !$ignore ){ - push( @found, $dir ); - } - elsif( -d $dir.'/'.$i ){ - push( @found, crawlPrograms( $dir.'/'.$i )); - } - } - - return @found; -} - -sub crawlFiles{ - my( $dir ) = @_; - my @found = (); - - opendir( DIR, $dir ); - my @files = readdir( DIR ); - closedir( DIR ); - @files = sort( @files ); - - foreach my $i ( @files ){ - next if substr( $i, 0, 1 ) eq '.'; - next if $i eq 'l10n'; - - if( -d $dir.'/'.$i ){ - push( @found, crawlFiles( $dir.'/'.$i )); - } - else{ - push(@found,$dir.'/'.$i) if $i =~ /.*(?<!\.min)\.js$/ || $i =~ /\.php$/; - } - } - - return @found; -} - -sub readIgnorelist{ - return () unless -e 'l10n/ignorelist'; - my %ignore = (); - open(IN,'l10n/ignorelist'); - while(<IN>){ - my $line = $_; - chomp($line); - $ignore{"./$line"}++; - } - close(IN); - return %ignore; -} - -sub getPluralInfo { - my( $info ) = @_; - - # get string - $info =~ s/.*Plural-Forms: (.+)\\n.*/$1/; - $info =~ s/^(.*)\\n.*/$1/g; - - return $info; -} - -sub init() { - # let's get the version from stdout of xgettext - my $out = `xgettext --version`; - # we assume the first line looks like this 'xgettext (GNU gettext-tools) 0.19.3' - $out = substr $out, 29, index($out, "\n")-29; - $out =~ s/^\s+|\s+$//g; - $out = "v" . $out; - my $actual = version->parse($out); - # 0.18.3 introduced JavaScript as a language option - my $expected = version->parse('v0.18.3'); - if ($actual < $expected) { - die( "Minimum expected version of xgettext is " . $expected . ". Detected: " . $actual ); - } -} - -init(); - -my $task = shift( @ARGV ); -my $place = '..'; - -die( "Usage: l10n.pl task\ntask: read, write\n" ) unless $task && $place; - -# Our current position -my $whereami = cwd(); -die( "Program must be executed in a l10n-folder called 'l10n'" ) unless $whereami =~ m/\/l10n$/; - -# Where are i18n-files? -my @dirs = crawlPrograms( $place, 1 ); - -# Languages -my @languages = (); -opendir( DIR, '.' ); -my @files = readdir( DIR ); -closedir( DIR ); -foreach my $i ( @files ){ - push( @languages, $i ) if -d $i && substr( $i, 0, 1 ) ne '.'; -} - -if( $task eq 'read' ){ - rmtree( 'templates' ); - mkdir( 'templates' ) unless -d 'templates'; - print "Mode: reading\n"; - foreach my $dir ( @dirs ){ - my @temp = split( /\//, $dir ); - my $app = pop( @temp ); - chdir( $dir ); - # parses the app info and creates an dummy file specialAppInfoFakeDummyForL10nScript.php - `php $whereami/../build/l10nParseAppInfo.php`; - my @totranslate = crawlFiles('.'); - my %ignore = readIgnorelist(); - my $output = "${whereami}/templates/$app.pot"; - print " Processing $app\n"; - - foreach my $file ( @totranslate ){ - next if $ignore{$file}; - my $keywords = ''; - if( $file =~ /\.js$/ ){ - $keywords = '--keyword=t:2 --keyword=n:2,3'; - } - else{ - $keywords = '--keyword=t --keyword=n:1,2'; - } - my $language = ( $file =~ /\.js$/ ? 'Javascript' : 'PHP'); - my $joinexisting = ( -e $output ? '--join-existing' : ''); - print " Reading $file\n"; - `xgettext --output="$output" $joinexisting $keywords --language=$language "$file" --add-comments=TRANSLATORS --from-code=UTF-8 --package-version="8.0.0" --package-name="ownCloud Core" --msgid-bugs-address="translations\@owncloud.org"`; - } - rmtree( "specialAppInfoFakeDummyForL10nScript.php" ); - chdir( $whereami ); - } -} -elsif( $task eq 'write' ){ - print "Mode: write\n"; - foreach my $dir ( @dirs ){ - my @temp = split( /\//, $dir ); - my $app = pop( @temp ); - chdir( $dir.'/l10n' ); - print " Processing $app\n"; - foreach my $language ( @languages ){ - next if $language eq 'templates'; - - my $input = "${whereami}/$language/$app.po"; - next unless -e $input; - - print " Language $language\n"; - my $array = Locale::PO->load_file_asarray( $input ); - # Create array - my @strings = (); - my @js_strings = (); - my $plurals; - - TRANSLATIONS: foreach my $string ( @{$array} ){ - if( $string->msgid() eq '""' ){ - # Translator information - $plurals = getPluralInfo( $string->msgstr()); - } - elsif( defined( $string->msgstr_n() )){ - # plural translations - my @variants = (); - my $msgid = $string->msgid(); - $msgid =~ s/^"(.*)"$/$1/; - my $msgid_plural = $string->msgid_plural(); - $msgid_plural =~ s/^"(.*)"$/$1/; - my $identifier = "_" . $msgid."_::_".$msgid_plural . "_"; - - foreach my $variant ( sort { $a <=> $b} keys( %{$string->msgstr_n()} )){ - next TRANSLATIONS if $string->msgstr_n()->{$variant} eq '""'; - push( @variants, $string->msgstr_n()->{$variant} ); - } - - push( @strings, "\"$identifier\" => array(".join(",", @variants).")"); - push( @js_strings, "\"$identifier\" : [".join(",", @variants)."]"); - } - else{ - # singular translations - next TRANSLATIONS if $string->msgstr() eq '""'; - push( @strings, $string->msgid()." => ".$string->msgstr()); - push( @js_strings, $string->msgid()." : ".$string->msgstr()); - } - } - next if $#strings == -1; # Skip empty files - - for (@strings) { - s/\$/\\\$/g; - } - - # delete old php file - unlink "$language.php"; - - # Write js file - open( OUT, ">$language.js" ); - print OUT "OC.L10N.register(\n \"$app\",\n {\n "; - print OUT join( ",\n ", @js_strings ); - print OUT "\n},\n\"$plurals\");\n"; - close( OUT ); - - # Write json file - open( OUT, ">$language.json" ); - print OUT "{ \"translations\": "; - print OUT "{\n "; - print OUT join( ",\n ", @js_strings ); - print OUT "\n},\"pluralForm\" :\"$plurals\"\n}"; - close( OUT ); - - } - chdir( $whereami ); - } -} -else{ - print "unknown task!\n"; -} |