mirror/freebsd
1
0
Fork 0
mirror of https://git.FreeBSD.org/src.git synced 2024-12-18 10:35:55 +00:00
Code Issues Releases Activity

Modify the tool that generates the locales so that the generated CJK locales

Browse Source 
are padded as expected by the users

Submitted by:	marino
Obtained from:	DragonflyBSD
This commit is contained in:
Baptiste Daroussin 2015-11-08 19:08:38 +00:00
parent 72683266d0
commit 7b71bb4224
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=290554
1 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tools/tools/locale/tools/cldr2def.pl
View File

@ -1,4 +1,5 @@
#!/usr/local/bin/perl -wC
# $FreeBSD$
use strict;
use File::Copy;
@ -66,6 +67,7 @@ my %callback = (
mdorder => \&callback_mdorder,
altmon => \&callback_altmon,
cformat => \&callback_cformat,
cbabmon => \&callback_abmon,
data => undef,
);
@ -173,7 +175,7 @@ if ($TYPE eq "msgdef") {
if ($TYPE eq "timedef") {
%keys = (
"abmon" => "as",
"abmon" => "<cbabmon<abmon<as",
"mon" => "as",
"abday" => "as",
"day" => "as",
@ -226,6 +228,30 @@ sub callback_altmon {
return $s;
}
sub callback_abmon {
# for specified CJK locales, pad result with a space to enable
# columns to line up (style established in FreeBSD in 2001)
my $s = shift;
my $nl = $callback{data}{l} . "_" . $callback{data}{c};
if ($nl eq 'ja_JP' || $nl eq 'ko_KR' || $nl eq 'zh_CN' ||
$nl eq 'zh_HK' || $nl eq 'zh_TW') {
my @monthnames = split(";", $s);
my @cleaned;
foreach (@monthnames)
{
if ($_ =~ /^"<(two|three|four|five|six|seven|eight|nine)>/ ||
($_ =~ /^"<one>/ && $_ !~ /^"<one>(<zero>|<one>|<two>)/))
{
$_ =~ s/^"/"<space>/;
}
push @cleaned, $_;
}
return join(";",@cleaned);
}
return $s;
}
############################
sub get_unidata {