diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2006-11-01 12:52:02 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2006-11-01 12:52:02 +0000 |
| commit | 44516ebb17906b8f781a37e716f1fd6684d6104b (patch) | |
| tree | 17a86ff1429059ac65bae0181736180e4319bec9 /scp2/macros | |
| parent | 2011b8dee539a7c72ddfe2be1b6669e2ed41963a (diff) | |
INTEGRATION: CWS native69 (1.5.492); FILE MERGED
2006/10/19 12:31:56 is 1.5.492.1: #i66224# poor help files patch
Diffstat (limited to 'scp2/macros')
| -rw-r--r-- | scp2/macros/macro.pl | 24 |
1 files changed, 22 insertions, 2 deletions
diff --git a/scp2/macros/macro.pl b/scp2/macros/macro.pl index c47da47d3642..b5e79a3feceb 100644 --- a/scp2/macros/macro.pl +++ b/scp2/macros/macro.pl @@ -4,9 +4,9 @@ # # $RCSfile: macro.pl,v $ # -# $Revision: 1.5 $ +# $Revision: 1.6 $ # -# last change: $Author: rt $ $Date: 2005-09-09 01:16:18 $ +# last change: $Author: vg $ $Date: 2006-11-01 13:52:02 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -42,6 +42,12 @@ if ( !defined $completelangiso_var) { exit 1; } +my $poorhelplocalizations_var = $ENV{WITH_POOR_HELP_LOCALIZATIONS}; +my %poorhelplocalizations; +foreach $lang (split (/ /, $poorhelplocalizations_var)) { + $poorhelplocalizations{$lang}++; +} + startup_check(); if ( "$completelangiso_var" eq "$lastcompletelangiso_var" ) { print STDERR "No new languages. Keeping old file\n"; @@ -61,6 +67,7 @@ write_DIR_ISOLANGUAGE_ALL_LANG_2(); write_DIR_ISOLANGUAGE_ALL_LANG(); write_DIR_IDENT_ALL_LANG(); write_EXTRA_ALL_LANG(); +write_EXTRA_ALL_GOOD_HELP_LOCALIZATIONS_LANG(); write_EXTRA_IDENT_ALL_LANG(); write_RESFILE_ALL_LANG(); write_SHORT_RESFILE_ALL_LANG(); @@ -130,6 +137,19 @@ sub write_EXTRA_ALL_LANG print OUTFILE "\n\n"; } +sub write_EXTRA_ALL_GOOD_HELP_LOCALIZATIONS_LANG +{ + my $first = 1; + print OUTFILE "#define EXTRA_ALL_GOOD_HELP_LOCALIZATIONS_LANG(name) "; + foreach $lang (@completelangiso) { + next if ( $poorhelplocalizations{$lang} ); + print OUTFILE ";" unless $first; + $first = 0; + print OUTFILE "\\\n\tName ($lang) = EXTRAFILENAME(name,_$lang)"; + } + print OUTFILE "\n\n"; +} + sub write_EXTRA_IDENT_ALL_LANG { print OUTFILE "#define EXTRA_IDENT_ALL_LANG(name) "; |