summaryrefslogtreecommitdiffstats
path: root/doc/translator.pl
diff options
context:
space:
mode:
authordimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7>2002-06-09 16:56:34 (GMT)
committerdimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7>2002-06-09 16:56:34 (GMT)
commit784e2b65dc675f89c8f21b3c7b306f5fb1bfa4ca (patch)
tree84818288910d8f77f48ecf8e6b5fe3f4291d7a18 /doc/translator.pl
parent4c054d8406f9e4ceb582001c48cf659262774d0c (diff)
downloadDoxygen-784e2b65dc675f89c8f21b3c7b306f5fb1bfa4ca.zip
Doxygen-784e2b65dc675f89c8f21b3c7b306f5fb1bfa4ca.tar.gz
Doxygen-784e2b65dc675f89c8f21b3c7b306f5fb1bfa4ca.tar.bz2
Release-1.2.16-20020609
Diffstat (limited to 'doc/translator.pl')
-rw-r--r--doc/translator.pl20
1 files changed, 18 insertions, 2 deletions
diff --git a/doc/translator.pl b/doc/translator.pl
index 170c7c5..d6204c9 100644
--- a/doc/translator.pl
+++ b/doc/translator.pl
@@ -118,6 +118,11 @@
# - Some defined() operators used on hash elements were replaced
# by exists() operators where appropriate.
#
+# 2002/05/21
+# - Changes to display languages with two words more naturally
+# (like "Chinese Traditional" instead of "Chinesetraditional"
+# or "Brazilian Portuguese" instead of "Brazilian").
+#
################################################################
use 5.005;
@@ -607,6 +612,7 @@ xxxTABLE_FOOTxxx
my $languages = join(", ", @languages);
$languages =~ s{((\w+,\s){5})}{$1\n}g;
$languages =~ s{Brazilian}{Brazilian Portuguese};
+ $languages =~ s{Chinesetraditional}{Chinese Traditional};
$languages =~ s{(,\s+)(\w+)$}{$1and $2}s;
$output =~ s{\$languages}{$languages};
@@ -692,6 +698,15 @@ xxxTABLE_FOOTxxx
# information, and add it to the tables. #{{{
#
foreach my $lang (sort keys %language) {
+
+ # Transform the key for the language into more human readable
+ # form. Basically, only languages with two words are going to be
+ # corrected. #{{{
+ #
+ my $lang_readable = $lang;
+ $lang_readable =~ s{Brazilian}{Brazilian Portuguese};
+ $lang_readable =~ s{Chinesetraditional}{Chinese Traditional};
+ ##}}}
# Read the line with info for the language and separate
# the status. #{{{
@@ -748,7 +763,7 @@ xxxTABLE_FOOTxxx
#
my $item = $htmlTableRow;
- $item =~ s{\$lang}{$lang};
+ $item =~ s{\$lang}{$lang_readable};
$item =~ s{\$maintainer}{$name};
$item =~ s{\$email}{$email};
$item =~ s{\$status}{$status};
@@ -774,7 +789,7 @@ xxxTABLE_FOOTxxx
$name = $1;
$email = $2;
- $item =~ s{\$lang}{$lang};
+ $item =~ s{\$lang}{$lang_readable};
$item =~ s{\$maintainer}{$name};
$item =~ s{\$email}{$email};
$item =~ s{\$status}{$status};
@@ -1187,6 +1202,7 @@ print STDERR "\n\n";
my $languages = join(", ", @languages);
$languages =~ s{((\w+,\s){5})}{$1\n}g;
$languages =~ s{Brazilian}{Brazilian Portuguese};
+ $languages =~ s{Chinesetraditional}{Chinese Traditional};
$languages =~ s{(,\s+)(\w+)$}{$1and $2.}s;
print FOUT "$languages\n";