(A-compU+37B7): New abstract node.

(U+37B7): Add `<-denotational@component' for A-compU+37B7; apply new
conventions for glyph granularity.
(MJ000836): Unify CB08147.

diff --git a/lisp/utf-2000/Ideograph-R045-Sprout.el b/lisp/utf-2000/Ideograph-R045-Sprout.el
index 9e0329c..71af728 100644 (file)
--- a/lisp/utf-2000/Ideograph-R045-Sprout.el
+++ b/lisp/utf-2000/Ideograph-R045-Sprout.el
@@ -499,6 +499,26 @@
   '((ideographic-radical . 45) ; ⼬
     (ideographic-strokes . 4)
     (total-strokes      . 7)
+    (=>ucs@component   . #x37B7)       ; &A-compU+37B7;
+    ))
+(define-char
+  '((<-denotational@component
+     ((=>ucs@component   . #x37B7)     ; &A-compU+37B7;
+      ))
+    (ideographic-radical . 45) ; ⼬
+    (ideographic-strokes . 4)
+    (total-strokes      . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=>ucs@component   . #x5C6E)     ; &A-compU+5C6E;
+      (=>iwds-1                  .  0096)      ; &A-compU+5C6E;
+      )
+     ((=ucs              . #x738B)     ; 王
+      ))
+    (sound@ja/on/go    "WAu")
+    (sound@ja/on/kan   "kWAu")
     (=ucs              . #x37B7)       ; 㞷
     ))
 (define-char
@@ -516,12 +536,8 @@
       )
      ((=ucs              . #x738B)     ; 王
       ))
-    (=ucs@unicode      . #x37B7)       ; &MJ000835;
-    (=ucs@JP/hanazono  . nil)
-    (=mj               . 000835)       ; &MJ000835;
-    (=cns11643-4       . #x2376)       ; &I-C4-2376; [03-86]
-    (=hanyo-denshi/ks  . 088980)       ; &MJ000835;
-    (=daikanwa         . 07840)        ; &I-M-07840;
+    (=+>ucs@unicode    . #x37B7)       ; &A-MJ000835;
+    (=>mj              . 000835)       ; &A-MJ000835;
     (->subsumptive
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -529,26 +545,51 @@
        )
        ((=ucs              . #x2F878)  ; 屮
        )
-       ((==ucs@unicode     . #x738B)   ; &g2-AJ1-01318;
-       (==adobe-japan1-0   . 01318)    ; &g2-AJ1-01318;
+       ((=ucs              . #x738B)   ; 王
+       ))
+      (=ucs@unicode      . #x37B7)     ; &MJ000835;
+      (=ucs@JP/hanazono          . nil)
+      (=mj               . 000835)     ; &MJ000835;
+      (=cns11643-4       . #x2376)     ; &I-C4-2376; [03-86]
+      (=hanyo-denshi/ks          . 088980)     ; &MJ000835;
+      (=daikanwa         . 07840)      ; &I-M-07840;
+      (->ancient
+       ((=ucs@iso          . #x21D0D)  ; &C6-2A70;
+       (=cns11643-6        . #x2A70)   ; &C6-2A70; [10-80]
+       (=daikanwa          . 07844)    ; &I-M-07844;
        ))
-      (==ucs@unicode     . #x37B7)     ; &g2-MJ000835;
-      (==ucs@JP/hanazono  . nil)
-      (==mj              . 000835)     ; &g2-MJ000835;
-      (==cns11643-4      . #x2376)     ; &g2-MJ000835; [03-86]
-      (==hanyo-denshi/ks  . 088980)    ; &g2-MJ000835;
-      (==daikanwa        . 07840)      ; &g2-MJ000835;
+      (->ancient*sources
+       jiyun daikanwa)
       (->subsumptive
-       ((===daikanwa       . 07840)    ; &R-M-07840;
-       )
-       ((===hanyo-denshi/ks . 088980)  ; &R-HD-KS-088980;
-       (=hanyo-denshi/ks/mf . #x22C2)  ; &R-HD-KS-088980;
-       )
-       ((===mj             . 000835)   ; &R-MJ000835;
-       )
-       ((===cns11643-4     . #x2376)   ; &R-C4-2376; [03-86]
-       )
-       ((===ucs@unicode            . #x37B7)   ; &R-UU+37B7;
+       ((ideographic-structure
+        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+         (=ucs               . #x2FF1) ; ⿱
+         )
+        ((==ucs@iso          . #x2F878)        ; &g2-AJ1-04658;
+         (==ucs@jis          . #x5C6E) ; &g2-AJ1-04658;
+         (==adobe-japan1-0   . 04658)  ; &g2-AJ1-04658;
+         )
+        ((==ucs@unicode      . #x738B) ; &g2-AJ1-01318;
+         (==adobe-japan1-0   . 01318)  ; &g2-AJ1-01318;
+         ))
+       (==ucs@unicode      . #x37B7)   ; &g2-MJ000835;
+       (==ucs@JP/hanazono  . nil)
+       (==mj               . 000835)   ; &g2-MJ000835;
+       (==cns11643-4       . #x2376)   ; &g2-MJ000835; [03-86]
+       (==hanyo-denshi/ks  . 088980)   ; &g2-MJ000835;
+       (==daikanwa         . 07840)    ; &g2-MJ000835;
+       (->subsumptive
+        ((===daikanwa        . 07840)  ; &R-M-07840;
+         )
+        ((===hanyo-denshi/ks . 088980) ; &R-HD-KS-088980;
+         (=hanyo-denshi/ks/mf . #x22C2)        ; &R-HD-KS-088980;
+         )
+        ((===mj              . 000835) ; &R-MJ000835;
+         )
+        ((===cns11643-4      . #x2376) ; &R-C4-2376; [03-86]
+         )
+        ((===ucs@unicode     . #x37B7) ; &R-UU+37B7;
+         ))
        ))
       )
      ((ideographic-structure
@@ -557,11 +598,14 @@
        )
        ((=ucs              . #xFA3C)   ; 屮
        )
-       ((==ucs@unicode     . #x738B)   ; &g2-AJ1-01318;
-       (==adobe-japan1-0   . 01318)    ; &g2-AJ1-01318;
+       ((=ucs              . #x738B)   ; 王
+       ))
+      (=ucs@gb           . #x37B7)     ; &GU+37B7;
+      (=ucs@JP/hanazono          . nil)
+      (->subsumptive
+       ((==ucs@gb          . #x37B7)   ; &g2-GU+37B7;
+       (==ucs@JP/hanazono  . nil)
        ))
-      (==ucs@gb                  . #x37B7)     ; &g2-GU+37B7;
-      (==ucs@JP/hanazono  . nil)
       ))
     ))
 (define-char
@@ -581,11 +625,15 @@
       ))
     (=ucs@JP/hanazono  . #x37B7)       ; &MJ000836;
     (=mj               . 000836)       ; &MJ000836;
+    (=cbeta            . 08147)        ; &I-CB08147;
     (->subsumptive
      ((==ucs@JP/hanazono  . #x37B7)    ; &g2-MJ000836;
       (==mj              . 000836)     ; &g2-MJ000836;
+      (==cbeta           . 08147)      ; &g2-MJ000836;
       (->subsumptive
        ((===mj             . 000836)   ; &R-MJ000836;
+       )
+       ((===cbeta          . 08147)    ; &R-CB08147;
        ))
       ))
     ))