d/freebsd-skq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add a hack to readd the day of weeks in default date formats

Browse Source
This commit is contained in:
bapt 2016-05-28 21:25:24 +00:00
parent d9b0c1c4d2
commit 26fece6d51
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -196,19 +196,23 @@ if ($TYPE eq "timedef") {
}
sub callback_cformat {
my $s = shift;
$s =~ s/ %Z//;
$s =~ s/ %z//;
return $s;
my $s = shift;
$s =~ s/ %Z//;
$s =~ s/ %z//;
$s =~ s/^"(%B %e, )/"%a, $1/;
$s =~ s/^"(%e %B )/"%a $1/;
return $s;
};
sub callback_dtformat {
my $s = shift;
my $s = shift;
my $nl = $callback{data}{l} . "_" . $callback{data}{c};
if ($nl eq 'ja_JP') {
$s =~ s/(> )(%H)/$1%A $2/;
$s =~ s/(> )(%H)/$1%A $2/;
}
$s =~ s/^"(%B %e, )/"%a, $1/;
$s =~ s/^"(%e %B )/"%a $1/;
return $s;
};