svn commit: r303404 - in head: share/timedef tools/tools/locale/tools

[Jung-uk Kim]

Author: jkim
Date: Wed Jul 27 18:12:36 2016
New Revision: 303404
URL: https://svnweb.freebsd.org/changeset/base/303404

Log:
  Add a hack to add weekday to date format for ko_KR locale.

Modified:
  head/share/timedef/ko_KR.UTF-8.src
  head/share/timedef/ko_KR.eucKR.src
  head/tools/tools/locale/tools/cldr2def.pl

Modified: head/share/timedef/ko_KR.UTF-8.src
==============================================================================
--- head/share/timedef/ko_KR.UTF-8.src	Wed Jul 27 17:55:40 2016	(r303403)
+++ head/share/timedef/ko_KR.UTF-8.src	Wed Jul 27 18:12:36 2016	(r303404)
@@ -56,14 +56,14 @@
 %y. %m. %e.
 #
 # c_fmt
-%Y년 %m월 %e일 %p %I시 %M분 %S초
+%Y년 %m월 %e일 %A %p %I시 %M분 %S초
 #
 # AM/PM
 ì˜¤ì „
 오후
 #
 # date_fmt
-%Y년 %m월 %e일 %p %I시 %M분 %S초 %Z
+%Y년 %m월 %e일 %A %p %I시 %M분 %S초 %Z
 #
 # Long month names (without case ending)
 1ì›”

Modified: head/share/timedef/ko_KR.eucKR.src
==============================================================================
--- head/share/timedef/ko_KR.eucKR.src	Wed Jul 27 17:55:40 2016	(r303403)
+++ head/share/timedef/ko_KR.eucKR.src	Wed Jul 27 18:12:36 2016	(r303404)
@@ -56,14 +56,14 @@
 %y. %m. %e.
 #
 # c_fmt
-%Y³â %m¿ù %eÀÏ %p %I½Ã %MºÐ %SÃÊ
+%Y³â %m¿ù %eÀÏ %A %p %I½Ã %MºÐ %SÃÊ
 #
 # AM/PM
 ¿ÀÀü
 ¿ÀÈÄ
 #
 # date_fmt
-%Y³â %m¿ù %eÀÏ %p %I½Ã %MºÐ %SÃÊ %Z
+%Y³â %m¿ù %eÀÏ %A %p %I½Ã %MºÐ %SÃÊ %Z
 #
 # Long month names (without case ending)
 1¿ù

Modified: head/tools/tools/locale/tools/cldr2def.pl
==============================================================================
--- head/tools/tools/locale/tools/cldr2def.pl	Wed Jul 27 17:55:40 2016	(r303403)
+++ head/tools/tools/locale/tools/cldr2def.pl	Wed Jul 27 18:12:36 2016	(r303404)
@@ -217,6 +217,9 @@ sub callback_cformat {
 	my $s = shift;
 	my $nl = $callback{data}{l} . "_" . $callback{data}{c};
 
+	if ($nl eq 'ko_KR') {
+		$s =~ s/(> )(%p)/$1%A $2/;
+	}
 	$s =~ s/\.,/\./;
 	$s =~ s/ %Z//;
 	$s =~ s/ %z//;
@@ -240,7 +243,7 @@ sub callback_dtformat {
 
 	if ($nl eq 'ja_JP') {
 		$s =~ s/(> )(%H)/$1%A $2/;
-	} elsif ($nl eq 'zh_TW') {
+	} elsif ($nl eq 'ko_KR' || $nl eq 'zh_TW') {
 		$s =~ s/(> )(%p)/$1%A $2/;
 	}
 	$s =~ s/\.,/\./;