localize.pl - OpenGrok cross reference for /aoo42x/main/l10ntools/scripts/localize.pl

1:
2eval 'exec perl -wS $0 ${1+"$@"}'
3 if 0;
4
5
6#**************************************************************
7#
8# Licensed to the Apache Software Foundation (ASF) under one

--- 135 unchanged lines hidden (view full) ---

144 if( /$sdf_regex/ ){
145 my $line = defined $_ ? $_ : '';
146 my $prj = defined $3 ? $3 : '';
147 my $file = defined $4 ? $4 : '';
148 my $type = defined $6 ? $6 : '';
149 my $gid = defined $7 ? $7 : '';
150 my $lid = defined $8 ? $8 : '';
151 my $lang = defined $12 ? $12 : '';

152 my $plattform = defined $10 ? $10 : '';

152 my $platform = defined $10 ? $10 : '';

153 my $helpid = defined $9 ? $9 : '';
154 next if( $prj eq "binfilter" ); # Don't merge strings into binfilter module
155 chomp( $line );
156
157 if( $force_ooo_module )
158 {

159 $string_hash_ooo { $lang }{ "$prj\t$file\t$type\t$gid\t$lid\t$helpid\t$plattform\t$lang" } = $line;

159 $string_hash_ooo { $lang }{ "$prj\t$file\t$type\t$gid\t$lid\t$helpid\t$platform\t$lang" } = $line;

160 }
161 else
162 {

163 $string_hash_so{ $lang }{ "$prj\t$file\t$type\t$gid\t$lid\t$helpid\t$plattform\t$lang" } = $line;

163 $string_hash_so{ $lang }{ "$prj\t$file\t$type\t$gid\t$lid\t$helpid\t$platform\t$lang" } = $line;

164 }
165 }
166 }
167 close( MYFILE );
168
169 if( !defined $ENV{SOURCE_ROOT_DIR} ){
170 print "Error, no SOURCE_ROOT_DIR in env found.\n";
171 exit( -1 );

--- 36 unchanged lines hidden (view full) ---

208 if( /$sdf_regex/ ){
209 my $line = defined $_ ? $_ : '';
210 my $prj = defined $3 ? $3 : '';
211 my $file = defined $4 ? $4 : '';
212 my $type = defined $6 ? $6 : '';
213 my $gid = defined $7 ? $7 : '';
214 my $lid = defined $8 ? $8 : '';
215 my $lang = defined $12 ? $12 : '';

216 my $plattform = defined $10 ? $10 : '';

216 my $platform = defined $10 ? $10 : '';

217 my $helpid = defined $9 ? $9 : '';
218
219 chomp( $line );

220 if ( defined $string_hash->{ $lang }{ "$prj\t$file\t$type\t$gid\t$lid\t$helpid\t$plattform\t$lang" } )

220 if ( defined $string_hash->{ $lang }{ "$prj\t$file\t$type\t$gid\t$lid\t$helpid\t$platform\t$lang" } )

221 {
222 # Changed String!

223 push @sdf_file , $string_hash->{ $lang }{ "$prj\t$file\t$type\t$gid\t$lid\t$helpid\t$plattform\t$lang" } ;
224 $string_hash->{ $lang }{ "$prj\t$file\t$type\t$gid\t$lid\t$helpid\t$plattform\t$lang" } = undef;

223 push @sdf_file , $string_hash->{ $lang }{ "$prj\t$file\t$type\t$gid\t$lid\t$helpid\t$platform\t$lang" } ;
224 $string_hash->{ $lang }{ "$prj\t$file\t$type\t$gid\t$lid\t$helpid\t$platform\t$lang" } = undef;

225 }
226 else
227 {
228 # No new string
229 push @sdf_file , $line;
230 }
231 }
232 }

--- 214 unchanged lines hidden (view full) ---

447 if( /$sdf_regex/ ){
448 my $line = defined $_ ? $_ : '';
449 my $prj = defined $3 ? $3 : '';
450 my $file = defined $4 ? $4 : '';
451 my $type = defined $6 ? $6 : '';
452 my $gid = defined $7 ? $7 : '';
453 my $lid = defined $8 ? $8 : '';
454 my $lang = defined $12 ? $12 : '';

455 my $plattform = defined $10 ? $10 : '';

455 my $platform = defined $10 ? $10 : '';

456 my $helpid = defined $9 ? $9 : '';
457
458 chomp( $line );
459
460 if ( $lang eq $cur_lang ){
461 # Overwrite fallback strings with collected strings
462 #if( ( !has_two_sourcelanguages( $cur_lang) && $cur_lang eq "de" ) || $cur_lang ne "en-US" ){

463 $fallbackhashhash_ref->{ $cur_lang }{ $prj.$gid.$lid.$file.$type.$plattform.$helpid } = $line ;

463 $fallbackhashhash_ref->{ $cur_lang }{ $prj.$gid.$lid.$file.$type.$platform.$helpid } = $line ;

464 #}
465
466 }
467 }
468 }
469 }else { print STDERR "WARNING: Can't open file $currentfile"; }
470 }
471

--- 36 unchanged lines hidden (view full) ---

508 my $timestamp = defined $18 ? $18 : '';
509
510 my $prj = defined $3 ? $3 : '';
511 my $file = defined $4 ? $4 : '';
512 my $type = defined $6 ? $6 : '';
513 my $gid = defined $7 ? $7 : '';
514 my $lid = defined $8 ? $8 : '';
515 #my $lang = defined $12 ? $12 : '';

516 my $plattform = defined $10 ? $10 : '';

516 my $platform = defined $10 ? $10 : '';

517 my $helpid = defined $9 ? $9 : '';
518
519
520 if( $use_default_date )
521 {
522 $extract_date = "$default_date\n" ;
523 }
524 elsif( $extract_date eq "" ) {
525 $extract_date = $timestamp ;
526 $extract_date =~ tr/\r\n//d;
527 $extract_date .= "\n";
528 }
529
530 if( $bAll ){ print DESTFILE $leftpart."\t".$lang."\t".$rightpart.$extract_date ; }
531 else {
532 foreach my $sLang ( keys( %{ $langhash_ref } ) ){
533 if( $sLang=~ /all/i ) {

534 push @{ $output{ $prj.$gid.$lid.$file.$type.$plattform.$helpid } } , $leftpart."\t".$lang."\t".$rightpart.$extract_date ;

534 push @{ $output{ $prj.$gid.$lid.$file.$type.$platform.$helpid } } , $leftpart."\t".$lang."\t".$rightpart.$extract_date ;

535 #print DESTFILE $leftpart."\t".$lang."\t".$rightpart.$extract_date;
536 }
537 #if( $sLang eq "de" && $lang eq "de" ) {

538 # push @{ $output{ $prj.$gid.$lid.$file.$type.$plattform.$helpid } } , $leftpart."\t".$lang."\t".$rightpart.$extract_date ;

538 # push @{ $output{ $prj.$gid.$lid.$file.$type.$platform.$helpid } } , $leftpart."\t".$lang."\t".$rightpart.$extract_date ;

539 #print DESTFILE $leftpart."\t".$lang."\t".$rightpart.$extract_date;
540 #}
541 if( $sLang eq "en-US" && $lang eq "en-US" ) {

542 push @order , $prj.$gid.$lid.$file.$type.$plattform.$helpid;
543 if( !$bFakeEnglish ){ push @{ $output{ $prj.$gid.$lid.$file.$type.$plattform.$helpid } } , $leftpart."\t".$lang."\t".$rightpart.$extract_date ; }

542 push @order , $prj.$gid.$lid.$file.$type.$platform.$helpid;
543 if( !$bFakeEnglish ){ push @{ $output{ $prj.$gid.$lid.$file.$type.$platform.$helpid } } , $leftpart."\t".$lang."\t".$rightpart.$extract_date ; }

544 #print DESTFILE $leftpart."\t".$lang."\t".$rightpart.$extract_date;
545 }
546
547 }
548 }
549 }
550 }
551 # Insert particles

--- 6 unchanged lines hidden (view full) ---

558 my $timestamp = defined $18 ? $18 : '';
559
560 #my $prj = defined $3 ? $3 : '';
561 my $file = defined $4 ? $4 : '';
562 my $type = defined $6 ? $6 : '';
563 my $gid = defined $7 ? $7 : '';
564 my $lid = defined $8 ? $8 : '';
565 #my $lang = defined $12 ? $12 : '';

566 my $plattform = defined $10 ? $10 : '';

566 my $platform = defined $10 ? $10 : '';

567 my $helpid = defined $9 ? $9 : '';
568
569
570 if( $use_default_date )
571 {
572 $extract_date = "$default_date\n" ;
573 }
574 elsif( $extract_date eq "" )
575 {
576 $extract_date = $timestamp;
577 }
578
579 if( ! ( $prj =~ /binfilter/i ) ) {

580 push @{ $output{ $prj.$gid.$lid.$file.$type.$plattform.$helpid } } , $leftpart."\t".$lang."\t".$rightpart.$extract_date ;

580 push @{ $output{ $prj.$gid.$lid.$file.$type.$platform.$helpid } } , $leftpart."\t".$lang."\t".$rightpart.$extract_date ;

581 #print DESTFILE $leftpart."\t".$lang."\t".$rightpart.$extract_date ;
582 }
583 }
584 }
585
586 # Write!
587 foreach my $curkey ( @order ){
588 foreach my $curlist ( $output{ $curkey } ){

--- 32 unchanged lines hidden (view full) ---

621 if( /$sdf_regex/ ){
622 my $line = defined $_ ? $_ : '';
623 my $language = defined $12 ? $12 : '';
624 my $prj = defined $3 ? $3 : '';
625 my $file = defined $4 ? $4 : '';
626 my $type = defined $6 ? $6 : '';
627 my $gid = defined $7 ? $7 : '';
628 my $lid = defined $8 ? $8 : '';

629 my $plattform = defined $10 ? $10 : '';

629 my $platform = defined $10 ? $10 : '';

630 my $helpid = defined $9 ? $9 : '';
631

632 my $leftpart = $prj.$gid.$lid.$file.$type.$plattform.$helpid;

632 my $leftpart = $prj.$gid.$lid.$file.$type.$platform.$helpid;

633
634 if( $language eq "en-US" ){ # source string found, 1. entry
635 $enusleftpart = $leftpart;
636 push @good_lines , $line;
637 }else{
638 if( !defined $enusleftpart or !defined $leftpart ){
639 print STDERR "BADLINE: $line\n";
640 print STDERR "\$enusleftpart = $enusleftpart\n";

--- 193 unchanged lines hidden (view full) ---

834 while( <MYFILE>){
835 if( /$sdf_regex/ ){
836 my $line = defined $_ ? $_ : '';
837 my $prj = defined $3 ? $3 : '';
838 my $file = defined $4 ? $4 : '';
839 my $type = defined $6 ? $6 : '';
840 my $gid = defined $7 ? $7 : '';
841 my $lid = defined $8 ? $8 : '';

842 my $plattform = defined $10 ? $10 : '';

842 my $platform = defined $10 ? $10 : '';

843 my $lang = defined $12 ? $12 : '';
844 my $helpid = defined $9 ? $9 : '';
845
846 foreach my $isolang ( keys ( %{ $langhash_ref } ) ){

847 if( $isolang=~ /$lang/i || $isolang=~ /all/i ) { $block{$prj.$gid.$lid.$file.$type.$plattform.$helpid } = $line ; }

847 if( $isolang=~ /$lang/i || $isolang=~ /all/i ) { $block{$prj.$gid.$lid.$file.$type.$platform.$helpid } = $line ; }

848 }
849 }
850 }
851 return (\%block);
852}
853
854#########################################################
855sub read_fallbacks_from_particles{

--- 8 unchanged lines hidden (view full) ---

864 if( /$sdf_regex/ ){
865 my $line = defined $_ ? $_ : '';
866 my $prj = defined $3 ? $3 : '';
867 my $file = defined $4 ? $4 : '';
868 my $type = defined $6 ? $6 : '';
869 my $gid = defined $7 ? $7 : '';
870 my $lid = defined $8 ? $8 : '';
871 my $lang = defined $12 ? $12 : '';

872 my $plattform = defined $10 ? $10 : '';

872 my $platform = defined $10 ? $10 : '';

873 my $helpid = defined $9 ? $9 : '';
874
875 chomp( $line );
876
877 foreach my $isolang ( @{$isolanglist_ref} ){
878 if( $isolang=~ /$lang/i ) {

879 $fallbackhashhash_ref->{ $isolang }{ $prj.$gid.$lid.$file.$type.$plattform.$helpid } = $line ;

879 $fallbackhashhash_ref->{ $isolang }{ $prj.$gid.$lid.$file.$type.$platform.$helpid } = $line ;

880 }
881 }
882 }
883 }
884 }else { print STDERR "WARNING: Can't open file $currentfile"; }
885 }
886}
887

--- 13 unchanged lines hidden (view full) ---

901 my $line = defined $_ ? $_ : '';
902 my $prj = defined $3 ? $3 : '';
903 my $file = defined $4 ? $4 : '';
904 my $type = defined $6 ? $6 : '';
905 my $gid = defined $7 ? $7 : '';
906 my $lid = defined $8 ? $8 : '';
907 my $helpid = defined $9 ? $9 : '';
908 my $lang = defined $12 ? $12 : '';

909 my $plattform = defined $10 ? $10 : '';

909 my $platform = defined $10 ? $10 : '';

910
911 chomp( $line );

912 if( $isolang=~ /$lang/i ) { $fallbackhashhash_ref->{ $isolang }{ $prj.$gid.$lid.$file.$type.$plattform.$helpid } = $line ;

912 if( $isolang=~ /$lang/i ) { $fallbackhashhash_ref->{ $isolang }{ $prj.$gid.$lid.$file.$type.$platform.$helpid } = $line ;