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

1 files changed, 10 insertions, 6 deletions

diff --git a/tools/tools/locale/tools/cldr2def.pl b/tools/tools/locale/tools/cldr2def.pl
index da94036..a9ef11d 100755
--- a/tools/tools/locale/tools/cldr2def.pl
+++ b/tools/tools/locale/tools/cldr2def.pl
@@ -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;
 };