d/freebsd-skq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
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 {