From 5d61069643911362c178c810a5dc73d85ae5db71 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sat, 24 Feb 2018 21:25:43 +0900 Subject: [PATCH] (GT-00129): Unify U+303B, MJ000003, JX1-2236 and KOSEKI-001070. (U-0002A70A): Add `<-denotational' for A-compU+2A70A; unify A-IWDSU+2A70A and o-IU+2A70A; omit `=>ucs@iwds-1' and `=+>ucs@iso'. (GT-K00151): New character; use `<-subsumptive' for U-0002A70A. (A-compU+2A70A): New abstract node. (U+2A70A-var-004): Use A-compU+2A70A instead of U-0002A70A as its mother. --- lisp/utf-2000/Ideograph-R003-Dot.el | 53 +++++++++++++++++++++++++++-------- 1 file changed, 41 insertions(+), 12 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R003-Dot.el b/lisp/utf-2000/Ideograph-R003-Dot.el index f3b83b2..fb9abbc 100644 --- a/lisp/utf-2000/Ideograph-R003-Dot.el +++ b/lisp/utf-2000/Ideograph-R003-Dot.el @@ -48,12 +48,34 @@ )) )) (define-char - '((ideographic-radical . 3) ; ⼂ + '((name . "VERTICAL IDEOGRAPHIC ITERATION MARK") + (ideographic-radical . 3) ; ⼂ (ideographic-strokes . 1) (total-strokes . 2) - (=gt . 00129) ; >-00129; - (=gt-pj-2 . #x3068) ; >-00129; [16-72] + (=ucs . #x303B) ; 〻 + (=mj . 000003) ; &I-MJ000003; + (=jis-x0213-1 . #x2236) ; &I-JX1-2236; [02-22] + (=koseki . 001070) ; 〻 + (=gt . 00129) ; &I-GT-00129; + (=gt-pj-2 . #x3068) ; &I-GT-00129; [16-72] (=daikanwa . 00092) ; &I-M-00092; + (->subsumptive + ((==daikanwa . 00092) ; &g2-M-00092; + ) + ((==ucs@unicode . #x303B) ; &g2-GT-00129; + (==jis-x0213-1 . #x2236) ; &g2-GT-00129; [02-22] + (==koseki . 001070) ; &g2-GT-00129; + (==gt . 00129) ; &g2-GT-00129; + (->subsumptive + ((===jis-x0213-1 . #x2236) ; &R-JX1-2236; [02-22] + ) + ((===gt . 00129) ; &R-GT-00129; + ) + ((===ucs@unicode . #x303B) ; &R-UU+303B; + )) + ) + ((==mj . 000003) ; &g2-MJ000003; + )) )) (define-char '((<-denotational@component @@ -94,18 +116,13 @@ )) )) (define-char - '((ideographic-radical . 3) ; ⼂ - (=ucs . #x2A70A) ; 𪜊 - )) -(define-char '((<-denotational - ((=ucs . #x2A70A) ; 𪜊 + ((=>ucs@component . #x2A70A) ; &A-compU+2A70A; )) (ideographic-radical . 3) ; ⼂ (ideographic-strokes . 1) (total-strokes . 2) - (=>ucs@iwds-1 . #x2A70A) ; &A-IWDSU+2A70A; - (=+>ucs@iso . #x2A70A) ; &A-IWDSU+2A70A; + (=ucs . #x2A70A) ; 𪜊 (->subsumptive ((ideographic-structure ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") @@ -113,13 +130,21 @@ ) ((=ucs . #x4E36) ; 丶 ) - ((=big5-cdp . #x8BA2) ; &CDP-8BA2; + ((name . "CJK STROKE HP") + (=ucs . #x31C7) ; ㇇ )) (=ucs@iso . #x2A70A) ; &U-0002A70A; (->subsumptive ((==ucs@iso . #x2A70A) ; &g2-IU-0002A70A; )) ) + ((=gt-k . 00151) ; >-K00151; + (=gt-pj-k1 . #x4229) ; >-K00151; [34-09] + (->subsumptive + ((==gt-k . 00151) ; &g2-GT-K00151; + (==gt-pj-k1 . #x4229) ; &g2-GT-K00151; [34-09] + )) + ) ((ideographic-structure ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") (=ucs . #x2FF1) ; ⿱ @@ -140,6 +165,10 @@ )) (define-char '((ideographic-radical . 3) ; ⼂ + (=>ucs@component . #x2A70A) ; &A-compU+2A70A; + )) +(define-char + '((ideographic-radical . 3) ; ⼂ (ideographic-strokes . 2) (total-strokes . 3) (hanyu-dazidian 1 42 12) @@ -427,7 +456,7 @@ )) (define-char '((<-denotational - ((=ucs . #x2A70A) ; 𪜊 + ((=>ucs@component . #x2A70A) ; &A-compU+2A70A; )) (ideographic-radical . 3) ; ⼂ (ideographic-strokes . 2) -- 1.7.10.4