2011-06-20 19:54:21 +00:00
|
|
|
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
use Locale::PO;
|
|
|
|
use Cwd;
|
|
|
|
use Data::Dumper;
|
2011-07-27 10:05:41 +00:00
|
|
|
use File::Path;
|
2011-06-20 19:54:21 +00:00
|
|
|
|
2011-08-10 10:34:49 +00:00
|
|
|
sub crawlPrograms{
|
|
|
|
my( $dir, $ignore ) = @_;
|
|
|
|
my @found = ();
|
|
|
|
|
|
|
|
opendir( DIR, $dir );
|
|
|
|
my @files = readdir( DIR );
|
|
|
|
closedir( DIR );
|
2011-08-26 07:21:55 +00:00
|
|
|
@files = sort( @files );
|
2011-08-10 10:34:49 +00:00
|
|
|
|
|
|
|
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{
|
2011-06-20 19:54:21 +00:00
|
|
|
my( $dir ) = @_;
|
|
|
|
my @found = ();
|
|
|
|
|
|
|
|
opendir( DIR, $dir );
|
|
|
|
my @files = readdir( DIR );
|
|
|
|
closedir( DIR );
|
2011-08-26 07:21:55 +00:00
|
|
|
@files = sort( @files );
|
2011-06-20 19:54:21 +00:00
|
|
|
|
|
|
|
foreach my $i ( @files ){
|
|
|
|
next if substr( $i, 0, 1 ) eq '.';
|
2011-08-26 07:21:55 +00:00
|
|
|
next if $i eq 'l10n';
|
2013-07-07 17:51:24 +00:00
|
|
|
|
2011-06-20 19:54:21 +00:00
|
|
|
if( -d $dir.'/'.$i ){
|
2011-08-10 10:34:49 +00:00
|
|
|
push( @found, crawlFiles( $dir.'/'.$i ));
|
2011-06-20 19:54:21 +00:00
|
|
|
}
|
2011-08-10 10:34:49 +00:00
|
|
|
else{
|
|
|
|
push(@found,$dir.'/'.$i) if $i =~ /\.js$/ || $i =~ /\.php$/;
|
2011-06-20 19:54:21 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return @found;
|
|
|
|
}
|
|
|
|
|
2011-08-10 10:34:49 +00:00
|
|
|
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;
|
|
|
|
}
|
|
|
|
|
2013-08-01 17:13:52 +00:00
|
|
|
sub getPluralInfo {
|
|
|
|
my( $info ) = @_;
|
|
|
|
|
|
|
|
# get string
|
|
|
|
$info =~ s/.*Plural-Forms: (.+)\\n.*/$1/;
|
|
|
|
$info =~ s/^(.*)\\n.*/$1/g;
|
|
|
|
|
|
|
|
return $info;
|
|
|
|
}
|
|
|
|
|
2011-06-20 19:54:21 +00:00
|
|
|
my $task = shift( @ARGV );
|
|
|
|
my $place = '..';
|
|
|
|
|
2011-07-27 10:05:41 +00:00
|
|
|
die( "Usage: l10n.pl task\ntask: read, write\n" ) unless $task && $place;
|
2011-06-20 19:54:21 +00:00
|
|
|
|
2011-06-20 20:22:17 +00:00
|
|
|
# Our current position
|
|
|
|
my $whereami = cwd();
|
|
|
|
die( "Program must be executed in a l10n-folder called 'l10n'" ) unless $whereami =~ m/\/l10n$/;
|
|
|
|
|
2011-06-20 19:54:21 +00:00
|
|
|
# Where are i18n-files?
|
2011-08-10 10:34:49 +00:00
|
|
|
my @dirs = crawlPrograms( $place, 1 );
|
2011-06-20 19:54:21 +00:00
|
|
|
|
|
|
|
# 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' ){
|
2011-08-13 03:13:10 +00:00
|
|
|
rmtree( 'templates' );
|
|
|
|
mkdir( 'templates' ) unless -d 'templates';
|
2011-08-10 10:34:49 +00:00
|
|
|
print "Mode: reading\n";
|
2011-06-20 19:54:21 +00:00
|
|
|
foreach my $dir ( @dirs ){
|
|
|
|
my @temp = split( /\//, $dir );
|
|
|
|
my $app = pop( @temp );
|
|
|
|
chdir( $dir );
|
2011-08-10 10:34:49 +00:00
|
|
|
my @totranslate = crawlFiles('.');
|
|
|
|
my %ignore = readIgnorelist();
|
2011-06-21 14:19:30 +00:00
|
|
|
my $output = "${whereami}/templates/$app.pot";
|
2011-08-10 10:34:49 +00:00
|
|
|
print " Processing $app\n";
|
|
|
|
|
|
|
|
foreach my $file ( @totranslate ){
|
|
|
|
next if $ignore{$file};
|
2013-07-07 17:51:24 +00:00
|
|
|
my $keywords = '';
|
|
|
|
if( $file =~ /\.js$/ ){
|
2013-07-16 19:38:31 +00:00
|
|
|
$keywords = '--keyword=t:2 --keyword=n:2,3';
|
2013-07-07 17:51:24 +00:00
|
|
|
}
|
|
|
|
else{
|
2013-07-16 19:38:31 +00:00
|
|
|
$keywords = '--keyword=t --keyword=n:1,2';
|
2013-07-07 17:51:24 +00:00
|
|
|
}
|
2012-09-26 11:17:12 +00:00
|
|
|
my $language = ( $file =~ /\.js$/ ? 'Python' : 'PHP');
|
2011-08-10 10:34:49 +00:00
|
|
|
my $joinexisting = ( -e $output ? '--join-existing' : '');
|
|
|
|
print " Reading $file\n";
|
2013-10-07 07:34:55 +00:00
|
|
|
`xgettext --output="$output" $joinexisting $keywords --language=$language "$file" --add-comments=TRANSLATORS --from-code=UTF-8 --package-version="6.0.0" --package-name="ownCloud Core" --msgid-bugs-address="translations\@owncloud.org"`;
|
2011-08-10 10:34:49 +00:00
|
|
|
}
|
2011-06-20 19:54:21 +00:00
|
|
|
chdir( $whereami );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
elsif( $task eq 'write' ){
|
2011-08-10 10:34:49 +00:00
|
|
|
print "Mode: write\n";
|
2011-06-20 19:54:21 +00:00
|
|
|
foreach my $dir ( @dirs ){
|
|
|
|
my @temp = split( /\//, $dir );
|
|
|
|
my $app = pop( @temp );
|
2011-08-10 10:34:49 +00:00
|
|
|
chdir( $dir.'/l10n' );
|
|
|
|
print " Processing $app\n";
|
2011-06-20 19:54:21 +00:00
|
|
|
foreach my $language ( @languages ){
|
|
|
|
next if $language eq 'templates';
|
2013-07-07 17:51:24 +00:00
|
|
|
|
2011-06-20 19:54:21 +00:00
|
|
|
my $input = "${whereami}/$language/$app.po";
|
|
|
|
next unless -e $input;
|
|
|
|
|
2011-08-10 10:34:49 +00:00
|
|
|
print " Language $language\n";
|
2011-06-20 20:22:17 +00:00
|
|
|
my $array = Locale::PO->load_file_asarray( $input );
|
2011-06-20 19:54:21 +00:00
|
|
|
# Create array
|
|
|
|
my @strings = ();
|
2013-08-01 17:13:52 +00:00
|
|
|
my $plurals;
|
2013-07-07 17:51:24 +00:00
|
|
|
|
2013-08-01 17:13:52 +00:00
|
|
|
foreach my $string ( @{$array} ){
|
|
|
|
if( $string->msgid() eq '""' ){
|
|
|
|
# Translator information
|
|
|
|
$plurals = getPluralInfo( $string->msgstr());
|
|
|
|
}
|
|
|
|
elsif( defined( $string->msgstr_n() )){
|
|
|
|
# plural translations
|
2013-07-16 19:38:31 +00:00
|
|
|
my @variants = ();
|
2013-07-16 20:25:19 +00:00
|
|
|
my $identifier = $string->msgid()."::".$string->msgid_plural();
|
2013-07-16 19:38:31 +00:00
|
|
|
$identifier =~ s/"/_/g;
|
|
|
|
|
|
|
|
foreach my $variant ( sort { $a <=> $b} keys( %{$string->msgstr_n()} )){
|
|
|
|
push( @variants, $string->msgstr_n()->{$variant} );
|
|
|
|
}
|
|
|
|
|
2013-08-15 13:38:33 +00:00
|
|
|
push( @strings, "\"$identifier\" => array(".join(",", @variants).")");
|
2013-07-07 17:51:24 +00:00
|
|
|
}
|
|
|
|
else{
|
2013-08-01 17:13:52 +00:00
|
|
|
# singular translations
|
2013-07-07 17:51:24 +00:00
|
|
|
next if $string->msgstr() eq '""';
|
|
|
|
push( @strings, $string->msgid()." => ".$string->msgstr());
|
|
|
|
}
|
2011-06-20 19:54:21 +00:00
|
|
|
}
|
2011-06-20 20:08:44 +00:00
|
|
|
next if $#strings == -1; # Skip empty files
|
2011-06-20 19:54:21 +00:00
|
|
|
|
2014-06-03 06:13:50 +00:00
|
|
|
for (@strings) {
|
|
|
|
s/\$/\\\$/g;
|
|
|
|
}
|
|
|
|
|
2011-06-20 19:54:21 +00:00
|
|
|
# Write PHP file
|
2011-06-20 20:02:13 +00:00
|
|
|
open( OUT, ">$language.php" );
|
2013-08-02 21:07:53 +00:00
|
|
|
print OUT "<?php\n\$TRANSLATIONS = array(\n";
|
2011-06-20 19:54:21 +00:00
|
|
|
print OUT join( ",\n", @strings );
|
2013-08-02 19:45:36 +00:00
|
|
|
print OUT "\n);\n\$PLURAL_FORMS = \"$plurals\";\n";
|
2011-06-20 19:54:21 +00:00
|
|
|
close( OUT );
|
|
|
|
}
|
|
|
|
chdir( $whereami );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else{
|
|
|
|
print "unknown task!\n";
|
|
|
|
}
|