From f93c03006c17a74cba9e10388b117e3af194a600 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sun, 5 Apr 2020 21:38:36 +0900 Subject: [PATCH] (U+54A2): Omit `{ideographic|total}-strokes'; add `ideographic-structure'. (A-GT-K07485): New abstract node; unify A-U+54A2-itaiji-001. (U+54A2-itaiji-001): New character; use `<-denotational' for A-GT-K07485. (GT-K07485): Ditto. (U-0002BA99): New character. (U-0002A859): New character. (U-0002D2B2): New character. --- lisp/utf-2000/Ideograph-R030-Mouth.el | 161 ++++++++++++++++++++++++++++++--- 1 file changed, 146 insertions(+), 15 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el index 5362bab..8f006b1 100644 --- a/lisp/utf-2000/Ideograph-R030-Mouth.el +++ b/lisp/utf-2000/Ideograph-R030-Mouth.el @@ -16768,8 +16768,16 @@ )) (define-char '((ideographic-radical . 30) ; ⼝ - (ideographic-strokes . 6) - (total-strokes . 9) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((=>ucs@component . #x5405) ; &A-compU+5405; + (=>iwds-1 . 0398) ; &A-compU+5405; + ) + ((=>ucs@iwds-1 . #x4E8F) ; &A-IWDSU+4E8F; + (=>iwds-1 . 0093) ; &A-IWDSU+4E8F; + )) (=ucs . #x54A2) ; 咢 )) (define-char @@ -21649,6 +21657,41 @@ )) (define-char '((ideographic-radical . 30) ; ⼝ + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((=>ucs@component . #x5405) ; &A-compU+5405; + (=>iwds-1 . 0398) ; &A-compU+5405; + ) + ((=ucs . #x21552) ; 𡕒 + )) + (=>gt-k . 07485) ; &A-GT-K07485; + (=>ucs-itaiji-001 . #x54A2) ; &A-GT-K07485; + )) +(define-char + '((<-denotational + ((=>gt-k . 07485) ; &A-GT-K07485; + )) + (ideographic-radical . 30) ; ⼝ + (ideographic-strokes . 6) + (total-strokes . 9) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((=ucs . #x5405) ; 吅 + ) + ((=ucs@iso . #x21552) ; &CDP-8874; + (=big5-cdp . #x8874) ; &CDP-8874; + )) + (=ucs-itaiji-001 . #x54A2) ; &U-i001+54A2; + (->subsumptive + ((==ucs-itaiji-001 . #x54A2) ; &g2-U-i001+54A2; + )) + )) +(define-char + '((ideographic-radical . 30) ; ⼝ (ideographic-strokes . 6) (total-strokes . 9) (ideographic-structure @@ -26624,7 +26667,6 @@ ((=ucs . #x53E3) ; 口 ) ((=>ucs@iwds-1 . #x7680) ; &A-IWDSU+7680; - (=>ucs@iwds-1/normalized . #x7680) ; &A-IWDSU+7680; (=>iwds-1 . 0355) ; &A-IWDSU+7680; )) (=ucs . #x5523) ; 唣 @@ -27578,6 +27620,28 @@ )) )) (define-char + '((<-denotational + ((=>gt-k . 07485) ; &A-GT-K07485; + )) + (ideographic-radical . 30) ; ⼝ + (ideographic-strokes . 7) + (total-strokes . 10) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((=ucs . #x5405) ; 吅 + ) + ((=ucs-var-002 . #x21552) ; &U-v002+21552; + )) + (=gt-k . 07485) ; >-K07485; + (=gt-pj-k1 . #x726B) ; >-K07485; [82-75] + (->subsumptive + ((==gt-k . 07485) ; &g2-GT-K07485; + (==gt-pj-k1 . #x726B) ; &g2-GT-K07485; [82-75] + )) + )) +(define-char '((ideographic-radical . 30) ; ⼝ (ideographic-strokes . 8) (total-strokes . 11) @@ -34859,6 +34923,37 @@ (ideographic-strokes . 8) (total-strokes . 11) (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((=>ucs-itaiji-002 . #x4E30) ; &A-U-i002+4E30; + ) + ((=ucs . #x53E3) ; 口 + )) + (=ucs . #x2BA99) ; 𫪙 + )) +(define-char + '((<-denotational + ((=ucs . #x2BA99) ; 𫪙 + )) + (ideographic-radical . 30) ; ⼝ + (ideographic-strokes . 8) + (total-strokes . 11) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((=ucs-itaiji-002 . #x4E30) ; &U-i002+4E30; + ) + ((=ucs . #x53E3) ; 口 + )) + (=ucs@JP/hanazono . #x2BA99) ; &hanaJU+2BA99; + )) +(define-char + '((ideographic-radical . 30) ; ⼝ + (ideographic-strokes . 8) + (total-strokes . 11) + (ideographic-structure ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT") (=ucs . #x2FF0) ; ⿰ ) @@ -35538,17 +35633,7 @@ )) (=cbeta . 00087) ; &CB00087; (->subsumptive - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT") - (=ucs . #x2FF0) ; ⿰ - ) - ((==ucs@unicode . #x53E3) ; &g2-AJ1-01969; - (==adobe-japan1-0 . 01969) ; &g2-AJ1-01969; - ) - ((==ucs@unicode . #x5470) ; &g2-AJ1-04356; - (==adobe-japan1-0 . 04356) ; &g2-AJ1-04356; - )) - (==cbeta . 00087) ; &g2-CB00087; + ((==cbeta . 00087) ; &g2-CB00087; )) )) (define-char @@ -43592,6 +43677,35 @@ )) (define-char '((ideographic-radical . 30) ; ⼝ + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT") + (=ucs . #x2FF0) ; ⿰ + ) + ((=ucs . #x53E3) ; 口 + ) + ((=ucs . #x2D17A) ; 𭅺 + )) + (=ucs . #x2A859) ; 𪡙 + )) +(define-char + '((<-denotational + ((=ucs . #x2A859) ; 𪡙 + )) + (ideographic-radical . 30) ; ⼝ + (ideographic-strokes . 9) + (total-strokes . 12) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT") + (=ucs . #x2FF0) ; ⿰ + ) + ((=ucs . #x53E3) ; 口 + ) + ((=ucs-var-001 . #x2D17A) ; &U-v001+2D17A; + )) + (=ucs@JP/hanazono . #x2A859) ; &hanaJU+2A859; + )) +(define-char + '((ideographic-radical . 30) ; ⼝ (ideographic-strokes . 9) (total-strokes . 12) (ideographic-structure @@ -53773,7 +53887,9 @@ ) ((=ucs . #x53E3) ; 口 ) - ((=ucs@jis . #x5F57) ; &MJ011236; + ((=ucs@cns . #x5F57) ; &MJ011236; + (=ucs@jis . #x5F57) ; &MJ011236; + (=ucs@ks . #x5F57) ; &MJ011236; (=mj . 011236) ; &MJ011236; )) (=ucs@cns . #x5612) ; &AJ1-19258; @@ -62631,6 +62747,21 @@ '((ideographic-radical . 30) ; ⼝ (ideographic-strokes . 12) (total-strokes . 15) + (=ucs . #x2D2B2) ; 𭊲 + )) +(define-char + '((<-denotational + ((=ucs . #x2D2B2) ; 𭊲 + )) + (ideographic-radical . 30) ; ⼝ + (ideographic-strokes . 12) + (total-strokes . 15) + (=ucs@JP/hanazono . #x2D2B2) ; &hanaJU+2D2B2; + )) +(define-char + '((ideographic-radical . 30) ; ⼝ + (ideographic-strokes . 12) + (total-strokes . 15) (ideographic-structure ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT") (=ucs . #x2FF0) ; ⿰ -- 1.7.10.4