X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02150-Number-Forms.el;h=a8517f2febb3d6d892779cf4e85609e487dc0d23;hb=454c8d0bfccba8490af50390eb86cfb8bd42ae72;hp=143f91e97f46fb68a8070ce50283e5aab704f67f;hpb=e28621ac9a241b82bddf8fc6480a4df7ef8b8ab9;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/u02150-Number-Forms.el b/lisp/utf-2000/u02150-Number-Forms.el
index 143f91e..a8517f2 100644
--- a/lisp/utf-2000/u02150-Number-Forms.el
+++ b/lisp/utf-2000/u02150-Number-Forms.el
@@ -1,542 +1,669 @@
 (define-char
   '((name		. "VULGAR FRACTION ONE THIRD")
-    (ucs		. #x2153)
     (general-category	number other) ; Normative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 1/3)
     (->decomposition	fraction #x0031 #x2044 #x0033)
-    (korean-ksc5601	#x28 #x77)	; $(C(w(B
+    (korean-ksc5601		. #x2877)	; ø»ˆ¥´
+    (japanese-jisx0213-1	. #x2778)	; ø»¢‡
+    (ucs			. #x2153)	; ⅓
     ))
 (define-char
   '((name		. "VULGAR FRACTION TWO THIRDS")
-    (ucs		. #x2154)
     (general-category	number other) ; Normative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 2/3)
     (->decomposition	fraction #x0032 #x2044 #x0033)
-    (korean-ksc5601	#x28 #x78)	; $(C(x(B
+    (korean-ksc5601		. #x2878)	; ø»ˆ¥µ
+    (japanese-jisx0213-1	. #x2779)	; ø»¢ˆ
+    (ucs			. #x2154)	; ⅔
     ))
 (define-char
   '((name		. "VULGAR FRACTION ONE FIFTH")
-    (ucs		. #x2155)
     (general-category	number other) ; Normative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 1/5)
     (->decomposition	fraction #x0031 #x2044 #x0035)
+    (japanese-jisx0213-1	. #x277A)	; ø»¢‰
+    (ucs			. #x2155)	; ⅕
     ))
 (define-char
   '((name		. "VULGAR FRACTION TWO FIFTHS")
-    (ucs		. #x2156)
     (general-category	number other) ; Normative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 2/5)
     (->decomposition	fraction #x0032 #x2044 #x0035)
+    (ucs		. #x2156)	; ⅖
     ))
 (define-char
   '((name		. "VULGAR FRACTION THREE FIFTHS")
-    (ucs		. #x2157)
     (general-category	number other) ; Normative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 3/5)
     (->decomposition	fraction #x0033 #x2044 #x0035)
+    (ucs		. #x2157)	; ⅗
     ))
 (define-char
   '((name		. "VULGAR FRACTION FOUR FIFTHS")
-    (ucs		. #x2158)
     (general-category	number other) ; Normative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 4/5)
     (->decomposition	fraction #x0034 #x2044 #x0035)
+    (ucs		. #x2158)	; ⅘
     ))
 (define-char
   '((name		. "VULGAR FRACTION ONE SIXTH")
-    (ucs		. #x2159)
     (general-category	number other) ; Normative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 1/6)
     (->decomposition	fraction #x0031 #x2044 #x0036)
+    (ucs		. #x2159)	; ⅙
     ))
 (define-char
   '((name		. "VULGAR FRACTION FIVE SIXTHS")
-    (ucs		. #x215A)
     (general-category	number other) ; Normative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 5/6)
     (->decomposition	fraction #x0035 #x2044 #x0036)
+    (ucs		. #x215A)	; ⅚
     ))
 (define-char
   '((name		. "VULGAR FRACTION ONE EIGHTH")
-    (ucs		. #x215B)
     (general-category	number other) ; Normative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 1/8)
     (->decomposition	fraction #x0031 #x2044 #x0038)
-    (korean-ksc5601	#x28 #x7B)	; $(C({(B
+    (korean-ksc5601	. #x287B)	; ø»ˆ¥¸
+    (ucs		. #x215B)	; ⅛
     ))
 (define-char
   '((name		. "VULGAR FRACTION THREE EIGHTHS")
-    (ucs		. #x215C)
     (general-category	number other) ; Normative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 3/8)
     (->decomposition	fraction #x0033 #x2044 #x0038)
-    (korean-ksc5601	#x28 #x7C)	; $(C(|(B
+    (korean-ksc5601	. #x287C)	; ø»ˆ¥¹
+    (ucs		. #x215C)	; ⅜
     ))
 (define-char
   '((name		. "VULGAR FRACTION FIVE EIGHTHS")
-    (ucs		. #x215D)
     (general-category	number other) ; Normative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 5/8)
     (->decomposition	fraction #x0035 #x2044 #x0038)
-    (korean-ksc5601	#x28 #x7D)	; $(C(}(B
+    (korean-ksc5601	. #x287D)	; ø»ˆ¥º
+    (ucs		. #x215D)	; ⅝
     ))
 (define-char
   '((name		. "VULGAR FRACTION SEVEN EIGHTHS")
-    (ucs		. #x215E)
     (general-category	number other) ; Normative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 7/8)
     (->decomposition	fraction #x0037 #x2044 #x0038)
-    (korean-ksc5601	#x28 #x7E)	; $(C(~(B
+    (korean-ksc5601	. #x287E)	; ø»ˆ¥»
+    (ucs		. #x215E)	; ⅞
     ))
 (define-char
   '((name		. "FRACTION NUMERATOR ONE")
-    (ucs		. #x215F)
     (general-category	number other) ; Normative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 1)
     (->decomposition	fraction #x0031 #x2044)
+    (ucs		. #x215F)	; ⅟
     ))
 (define-char
   '((name		. "ROMAN NUMERAL ONE")
-    (ucs		. #x2160)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1)
     (->decomposition	compat #x0049)
-    (->lowercase	#x2170)
-    (chinese-gb2312	#x22 #x71)	; $(A"q(B
-    (korean-ksc5601	#x25 #x30)	; $(C%0(B
-    (chinese-cns11643-1 #x24 #x2B)	; $(G$+(B
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL ONE")
+      (ucs		  . #x2170)	; ⅰ
+      ))
+    (chinese-gb2312		. #x2271)	; ø»„ˆ²
+    (korean-ksc5601		. #x2530)	; ø»ˆ “
+    (chinese-cns11643-1		. #x242B)	; ø»‘‡€
+    (japanese-jisx0213-1	. #x2D35)	; ø»¢¤¸
+    (chinese-big5		. #xA2B9)	; øºŸž´
+    (ucs			. #x2160)	; Ⅰ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL TWO")
-    (ucs		. #x2161)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 2)
     (->decomposition	compat #x0049 #x0049)
-    (->lowercase	#x2171)
-    (chinese-gb2312	#x22 #x72)	; $(A"r(B
-    (korean-ksc5601	#x25 #x31)	; $(C%1(B
-    (chinese-cns11643-1 #x24 #x2C)	; $(G$,(B
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL TWO")
+      (ucs		  . #x2171)	; ⅱ
+      ))
+    (chinese-gb2312		. #x2272)	; ø»„ˆ³
+    (korean-ksc5601		. #x2531)	; ø»ˆ ”
+    (chinese-cns11643-1		. #x242C)	; ø»‘‡
+    (japanese-jisx0213-1	. #x2D36)	; ø»¢¤¹
+    (chinese-big5		. #xA2BA)	; øºŸžµ
+    (ucs			. #x2161)	; Ⅱ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL THREE")
-    (ucs		. #x2162)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 3)
     (->decomposition	compat #x0049 #x0049 #x0049)
-    (->lowercase	#x2172)
-    (chinese-gb2312	#x22 #x73)	; $(A"s(B
-    (korean-ksc5601	#x25 #x32)	; $(C%2(B
-    (chinese-cns11643-1 #x24 #x2D)	; $(G$-(B
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL THREE")
+      (ucs		  . #x2172)	; ⅲ
+      ))
+    (chinese-gb2312		. #x2273)	; ø»„ˆ´
+    (korean-ksc5601		. #x2532)	; ø»ˆ •
+    (chinese-cns11643-1		. #x242D)	; ø»‘‡‚
+    (japanese-jisx0213-1	. #x2D37)	; ø»¢¤º
+    (chinese-big5		. #xA2BB)	; øºŸž¶
+    (ucs			. #x2162)	; Ⅲ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL FOUR")
-    (ucs		. #x2163)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 4)
     (->decomposition	compat #x0049 #x0056)
-    (->lowercase	#x2173)
-    (chinese-gb2312	#x22 #x74)	; $(A"t(B
-    (korean-ksc5601	#x25 #x33)	; $(C%3(B
-    (chinese-cns11643-1 #x24 #x2E)	; $(G$.(B
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL FOUR")
+      (ucs		  . #x2173)	; ⅳ
+      ))
+    (chinese-gb2312		. #x2274)	; ø»„ˆµ
+    (korean-ksc5601		. #x2533)	; ø»ˆ –
+    (chinese-cns11643-1		. #x242E)	; ø»‘‡ƒ
+    (japanese-jisx0213-1	. #x2D38)	; ø»¢¤»
+    (chinese-big5		. #xA2BC)	; øºŸž·
+    (ucs			. #x2163)	; Ⅳ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL FIVE")
-    (ucs		. #x2164)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 5)
     (->decomposition	compat #x0056)
-    (->lowercase	#x2174)
-    (chinese-gb2312	#x22 #x75)	; $(A"u(B
-    (korean-ksc5601	#x25 #x34)	; $(C%4(B
-    (chinese-cns11643-1 #x24 #x2F)	; $(G$/(B
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL FIVE")
+      (ucs		  . #x2174)	; ⅴ
+      ))
+    (chinese-gb2312		. #x2275)	; ø»„ˆ¶
+    (korean-ksc5601		. #x2534)	; ø»ˆ —
+    (chinese-cns11643-1		. #x242F)	; ø»‘‡„
+    (japanese-jisx0213-1	. #x2D39)	; ø»¢¤¼
+    (chinese-big5		. #xA2BD)	; øºŸž¸
+    (ucs			. #x2164)	; Ⅴ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL SIX")
-    (ucs		. #x2165)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 6)
     (->decomposition	compat #x0056 #x0049)
-    (->lowercase	#x2175)
-    (chinese-gb2312	#x22 #x76)	; $(A"v(B
-    (korean-ksc5601	#x25 #x35)	; $(C%5(B
-    (chinese-cns11643-1 #x24 #x30)	; $(G$0(B
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL SIX")
+      (ucs		  . #x2175)	; ⅵ
+      ))
+    (chinese-gb2312		. #x2276)	; ø»„ˆ·
+    (korean-ksc5601		. #x2535)	; ø»ˆ ˜
+    (chinese-cns11643-1		. #x2430)	; ø»‘‡…
+    (japanese-jisx0213-1	. #x2D3A)	; ø»¢¤½
+    (chinese-big5		. #xA2BE)	; øºŸž¹
+    (ucs			. #x2165)	; Ⅵ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL SEVEN")
-    (ucs		. #x2166)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 7)
     (->decomposition	compat #x0056 #x0049 #x0049)
-    (->lowercase	#x2176)
-    (chinese-gb2312	#x22 #x77)	; $(A"w(B
-    (korean-ksc5601	#x25 #x36)	; $(C%6(B
-    (chinese-cns11643-1 #x24 #x31)	; $(G$1(B
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL SEVEN")
+      (ucs		  . #x2176)	; ⅶ
+      ))
+    (chinese-gb2312		. #x2277)	; ø»„ˆ¸
+    (korean-ksc5601		. #x2536)	; ø»ˆ ™
+    (chinese-cns11643-1		. #x2431)	; ø»‘‡†
+    (japanese-jisx0213-1	. #x2D3B)	; ø»¢¤¾
+    (chinese-big5		. #xA2BF)	; øºŸžº
+    (ucs			. #x2166)	; Ⅶ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL EIGHT")
-    (ucs		. #x2167)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 8)
     (->decomposition	compat #x0056 #x0049 #x0049 #x0049)
-    (->lowercase	#x2177)
-    (chinese-gb2312	#x22 #x78)	; $(A"x(B
-    (korean-ksc5601	#x25 #x37)	; $(C%7(B
-    (chinese-cns11643-1 #x24 #x32)	; $(G$2(B
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL EIGHT")
+      (ucs		  . #x2177)	; ⅷ
+      ))
+    (chinese-gb2312		. #x2278)	; ø»„ˆ¹
+    (korean-ksc5601		. #x2537)	; ø»ˆ š
+    (chinese-cns11643-1		. #x2432)	; ø»‘‡‡
+    (japanese-jisx0213-1	. #x2D3C)	; ø»¢¤¿
+    (chinese-big5		. #xA2C0)	; øºŸž»
+    (ucs			. #x2167)	; Ⅷ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL NINE")
-    (ucs		. #x2168)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 9)
     (->decomposition	compat #x0049 #x0058)
-    (->lowercase	#x2178)
-    (chinese-gb2312	#x22 #x79)	; $(A"y(B
-    (korean-ksc5601	#x25 #x38)	; $(C%8(B
-    (chinese-cns11643-1 #x24 #x33)	; $(G$3(B
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL NINE")
+      (ucs		  . #x2178)	; ⅸ
+      ))
+    (chinese-gb2312		. #x2279)	; ø»„ˆº
+    (korean-ksc5601		. #x2538)	; ø»ˆ ›
+    (chinese-cns11643-1		. #x2433)	; ø»‘‡ˆ
+    (japanese-jisx0213-1	. #x2D3D)	; ø»¢¥€
+    (chinese-big5		. #xA2C1)	; øºŸž¼
+    (ucs			. #x2168)	; Ⅸ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL TEN")
-    (ucs		. #x2169)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 10)
     (->decomposition	compat #x0058)
-    (->lowercase	#x2179)
-    (chinese-gb2312	#x22 #x7A)	; $(A"z(B
-    (korean-ksc5601	#x25 #x39)	; $(C%9(B
-    (chinese-cns11643-1 #x24 #x34)	; $(G$4(B
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL TEN")
+      (ucs		  . #x2179)	; ⅹ
+      ))
+    (chinese-gb2312		. #x227A)	; ø»„ˆ»
+    (korean-ksc5601		. #x2539)	; ø»ˆ œ
+    (chinese-cns11643-1		. #x2434)	; ø»‘‡‰
+    (japanese-jisx0213-1	. #x2D3E)	; ø»¢¥
+    (chinese-big5		. #xA2C2)	; øºŸž½
+    (ucs			. #x2169)	; Ⅹ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL ELEVEN")
-    (ucs		. #x216A)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 11)
     (->decomposition	compat #x0058 #x0049)
-    (->lowercase	#x217A)
-    (chinese-gb2312	#x22 #x7B)	; $(A"{(B
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL ELEVEN")
+      (ucs		  . #x217A)	; ⅺ
+      ))
+    (chinese-gb2312		. #x227B)	; ø»„ˆ¼
+    (japanese-jisx0213-1	. #x2D3F)	; ø»¢¥‚
+    (ucs			. #x216A)	; Ⅺ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL TWELVE")
-    (ucs		. #x216B)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 12)
     (->decomposition	compat #x0058 #x0049 #x0049)
-    (->lowercase	#x217B)
-    (chinese-gb2312	#x22 #x7C)	; $(A"|(B
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL TWELVE")
+      (ucs		  . #x217B)	; ⅻ
+      ))
+    (chinese-gb2312		. #x227C)	; ø»„ˆ½
+    (japanese-jisx0213-1	. #x2D57)	; ø»¢¥š
+    (ucs			. #x216B)	; Ⅻ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL FIFTY")
-    (ucs		. #x216C)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 50)
     (->decomposition	compat #x004C)
-    (->lowercase	#x217C)
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL FIFTY")
+      (ucs		  . #x217C)	; ⅼ
+      ))
+    (ucs		. #x216C)	; Ⅼ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL ONE HUNDRED")
-    (ucs		. #x216D)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 100)
     (->decomposition	compat #x0043)
-    (->lowercase	#x217D)
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL ONE HUNDRED")
+      (ucs		  . #x217D)	; ⅽ
+      ))
+    (ucs		. #x216D)	; Ⅽ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL FIVE HUNDRED")
-    (ucs		. #x216E)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 500)
     (->decomposition	compat #x0044)
-    (->lowercase	#x217E)
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL FIVE HUNDRED")
+      (ucs		  . #x217E)	; ⅾ
+      ))
+    (ucs		. #x216E)	; Ⅾ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL ONE THOUSAND")
-    (ucs		. #x216F)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1000)
     (->decomposition	compat #x004D)
-    (->lowercase	#x217F)
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL ONE THOUSAND")
+      (ucs		  . #x217F)	; ⅿ
+      ))
+    (ucs		. #x216F)	; Ⅿ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL ONE")
-    (ucs		. #x2170)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1)
     (->decomposition	compat #x0069)
-    (->uppercase	#x2160)
-    (->titlecase	#x2160)
-    (korean-ksc5601	#x25 #x21)	; $(C%!(B
-    (chinese-cns11643-1 #x26 #x35)	; $(G&5(B
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL ONE")
+      (ucs		  . #x2160)	; Ⅰ
+      ))
+    (korean-ksc5601		. #x2521)	; ø»ˆ „
+    (chinese-cns11643-1		. #x2635)	; ø»‘Š†
+    (japanese-jisx0213-1	. #x2C35)	; ø»¢£š
+    (chinese-big5		. #xC6B5)	; øº ·„
+    (ucs			. #x2170)	; ⅰ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL TWO")
-    (ucs		. #x2171)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 2)
     (->decomposition	compat #x0069 #x0069)
-    (->uppercase	#x2161)
-    (->titlecase	#x2161)
-    (korean-ksc5601	#x25 #x22)	; $(C%"(B
-    (chinese-cns11643-1 #x26 #x36)	; $(G&6(B
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL TWO")
+      (ucs		  . #x2161)	; Ⅱ
+      ))
+    (korean-ksc5601		. #x2522)	; ø»ˆ …
+    (chinese-cns11643-1		. #x2636)	; ø»‘Š‡
+    (japanese-jisx0213-1	. #x2C36)	; ø»¢£›
+    (chinese-big5		. #xC6B6)	; øº ·…
+    (ucs			. #x2171)	; ⅱ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL THREE")
-    (ucs		. #x2172)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 3)
     (->decomposition	compat #x0069 #x0069 #x0069)
-    (->uppercase	#x2162)
-    (->titlecase	#x2162)
-    (korean-ksc5601	#x25 #x23)	; $(C%#(B
-    (chinese-cns11643-1 #x26 #x37)	; $(G&7(B
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL THREE")
+      (ucs		  . #x2162)	; Ⅲ
+      ))
+    (korean-ksc5601		. #x2523)	; ø»ˆ †
+    (chinese-cns11643-1		. #x2637)	; ø»‘Šˆ
+    (japanese-jisx0213-1	. #x2C37)	; ø»¢£œ
+    (chinese-big5		. #xC6B7)	; øº ·†
+    (ucs			. #x2172)	; ⅲ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL FOUR")
-    (ucs		. #x2173)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 4)
     (->decomposition	compat #x0069 #x0076)
-    (->uppercase	#x2163)
-    (->titlecase	#x2163)
-    (korean-ksc5601	#x25 #x24)	; $(C%$(B
-    (chinese-cns11643-1 #x26 #x38)	; $(G&8(B
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL FOUR")
+      (ucs		  . #x2163)	; Ⅳ
+      ))
+    (korean-ksc5601		. #x2524)	; ø»ˆ ‡
+    (chinese-cns11643-1		. #x2638)	; ø»‘Š‰
+    (japanese-jisx0213-1	. #x2C38)	; ø»¢£
+    (chinese-big5		. #xC6B8)	; øº ·‡
+    (ucs			. #x2173)	; ⅳ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL FIVE")
-    (ucs		. #x2174)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 5)
     (->decomposition	compat #x0076)
-    (->uppercase	#x2164)
-    (->titlecase	#x2164)
-    (korean-ksc5601	#x25 #x25)	; $(C%%(B
-    (chinese-cns11643-1 #x26 #x39)	; $(G&9(B
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL FIVE")
+      (ucs		  . #x2164)	; Ⅴ
+      ))
+    (korean-ksc5601		. #x2525)	; ø»ˆ ˆ
+    (chinese-cns11643-1		. #x2639)	; ø»‘ŠŠ
+    (japanese-jisx0213-1	. #x2C39)	; ø»¢£ž
+    (chinese-big5		. #xC6B9)	; øº ·ˆ
+    (ucs			. #x2174)	; ⅴ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL SIX")
-    (ucs		. #x2175)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 6)
     (->decomposition	compat #x0076 #x0069)
-    (->uppercase	#x2165)
-    (->titlecase	#x2165)
-    (korean-ksc5601	#x25 #x26)	; $(C%&(B
-    (chinese-cns11643-1 #x26 #x3A)	; $(G&:(B
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL SIX")
+      (ucs		  . #x2165)	; Ⅵ
+      ))
+    (korean-ksc5601		. #x2526)	; ø»ˆ ‰
+    (chinese-cns11643-1		. #x263A)	; ø»‘Š‹
+    (japanese-jisx0213-1	. #x2C3A)	; ø»¢£Ÿ
+    (chinese-big5		. #xC6BA)	; øº ·‰
+    (ucs			. #x2175)	; ⅵ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL SEVEN")
-    (ucs		. #x2176)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 7)
     (->decomposition	compat #x0076 #x0069 #x0069)
-    (->uppercase	#x2166)
-    (->titlecase	#x2166)
-    (korean-ksc5601	#x25 #x27)	; $(C%'(B
-    (chinese-cns11643-1 #x26 #x3B)	; $(G&;(B
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL SEVEN")
+      (ucs		  . #x2166)	; Ⅶ
+      ))
+    (korean-ksc5601		. #x2527)	; ø»ˆ Š
+    (chinese-cns11643-1		. #x263B)	; ø»‘ŠŒ
+    (japanese-jisx0213-1	. #x2C3B)	; ø»¢£ 
+    (chinese-big5		. #xC6BB)	; øº ·Š
+    (ucs			. #x2176)	; ⅶ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL EIGHT")
-    (ucs		. #x2177)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 8)
     (->decomposition	compat #x0076 #x0069 #x0069 #x0069)
-    (->uppercase	#x2167)
-    (->titlecase	#x2167)
-    (korean-ksc5601	#x25 #x28)	; $(C%((B
-    (chinese-cns11643-1 #x26 #x3C)	; $(G&<(B
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL EIGHT")
+      (ucs		  . #x2167)	; Ⅷ
+      ))
+    (korean-ksc5601		. #x2528)	; ø»ˆ ‹
+    (chinese-cns11643-1		. #x263C)	; ø»‘Š
+    (japanese-jisx0213-1	. #x2C3C)	; ø»¢£¡
+    (chinese-big5		. #xC6BC)	; øº ·‹
+    (ucs			. #x2177)	; ⅷ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL NINE")
-    (ucs		. #x2178)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 9)
     (->decomposition	compat #x0069 #x0078)
-    (->uppercase	#x2168)
-    (->titlecase	#x2168)
-    (korean-ksc5601	#x25 #x29)	; $(C%)(B
-    (chinese-cns11643-1 #x26 #x3D)	; $(G&=(B
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL NINE")
+      (ucs		  . #x2168)	; Ⅸ
+      ))
+    (korean-ksc5601		. #x2529)	; ø»ˆ Œ
+    (chinese-cns11643-1		. #x263D)	; ø»‘ŠŽ
+    (japanese-jisx0213-1	. #x2C3D)	; ø»¢£¢
+    (chinese-big5		. #xC6BD)	; øº ·Œ
+    (ucs			. #x2178)	; ⅸ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL TEN")
-    (ucs		. #x2179)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 10)
     (->decomposition	compat #x0078)
-    (->uppercase	#x2169)
-    (->titlecase	#x2169)
-    (korean-ksc5601	#x25 #x2A)	; $(C%*(B
-    (chinese-cns11643-1 #x26 #x3E)	; $(G&>(B
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL TEN")
+      (ucs		  . #x2169)	; Ⅹ
+      ))
+    (korean-ksc5601		. #x252A)	; ø»ˆ 
+    (chinese-cns11643-1		. #x263E)	; ø»‘Š
+    (japanese-jisx0213-1	. #x2C3E)	; ø»¢££
+    (chinese-big5		. #xC6BE)	; øº ·
+    (ucs			. #x2179)	; ⅹ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL ELEVEN")
-    (ucs		. #x217A)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 11)
     (->decomposition	compat #x0078 #x0069)
-    (->uppercase	#x216A)
-    (->titlecase	#x216A)
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL ELEVEN")
+      (ucs		  . #x216A)	; Ⅺ
+      ))
+    (japanese-jisx0213-1	. #x2C3F)	; ø»¢£¤
+    (ucs			. #x217A)	; ⅺ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL TWELVE")
-    (ucs		. #x217B)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 12)
     (->decomposition	compat #x0078 #x0069 #x0069)
-    (->uppercase	#x216B)
-    (->titlecase	#x216B)
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL TWELVE")
+      (ucs		  . #x216B)	; Ⅻ
+      ))
+    (japanese-jisx0213-1	. #x2C40)	; ø»¢£¥
+    (ucs			. #x217B)	; ⅻ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL FIFTY")
-    (ucs		. #x217C)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 50)
     (->decomposition	compat #x006C)
-    (->uppercase	#x216C)
-    (->titlecase	#x216C)
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL FIFTY")
+      (ucs		  . #x216C)	; Ⅼ
+      ))
+    (ucs		. #x217C)	; ⅼ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL ONE HUNDRED")
-    (ucs		. #x217D)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 100)
     (->decomposition	compat #x0063)
-    (->uppercase	#x216D)
-    (->titlecase	#x216D)
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL ONE HUNDRED")
+      (ucs		  . #x216D)	; Ⅽ
+      ))
+    (ucs		. #x217D)	; ⅽ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL FIVE HUNDRED")
-    (ucs		. #x217E)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 500)
     (->decomposition	compat #x0064)
-    (->uppercase	#x216E)
-    (->titlecase	#x216E)
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL FIVE HUNDRED")
+      (ucs		  . #x216E)	; Ⅾ
+      ))
+    (ucs		. #x217E)	; ⅾ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL ONE THOUSAND")
-    (ucs		. #x217F)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1000)
     (->decomposition	compat #x006D)
-    (->uppercase	#x216F)
-    (->titlecase	#x216F)
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL ONE THOUSAND")
+      (ucs		  . #x216F)	; Ⅿ
+      ))
+    (ucs		. #x217F)	; ⅿ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL ONE THOUSAND C D")
-    (ucs		. #x2180)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1000)
+    (ucs		. #x2180)	; ↀ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL FIVE THOUSAND")
-    (ucs		. #x2181)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 5000)
+    (ucs		. #x2181)	; ↁ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL TEN THOUSAND")
-    (ucs		. #x2182)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 10000)
+    (ucs		. #x2182)	; ↂ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL REVERSED ONE HUNDRED")
-    (ucs		. #x2183)
     (general-category	number letter) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (ucs		. #x2183)	; Ↄ
     ))