From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 12 Aug 2024 14:00:39 +0000 (+0900)
Subject: Use `shuowen-tongxundingsheng' instead of `shuowen-tongxun-dingsheng'
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f420944dbb56abaa2cca17816898abba628bbb51;p=chise%2Fxemacs-chise.git

Use `shuowen-tongxundingsheng' instead of `shuowen-tongxun-dingsheng'
as a source ID.
(U+6597): Add `<-denotational@usage' for BUCS+6597 and BUCS+9B25;
unify DJT-04339.
(U+3AB7): Add `<-denotational@usage' for A2-DJT-04339; apply new
conventions for glyph granularity.
(U-00023081): Add `<-denotational@usage' for A2-DJT-04354; unify
DJT-04354.
(U-0002ABEF): New character.
(A2-DJT-04339): New abstract node.
(A2-DJT-04354): New abstract node.
(U-00023081): Add `<-denotational@usage' for A2-DJT-04354; unify
DJT-04354.
(U-0002ABEF): New character.
(BUCS+6597): New abstract node; unify A2-DJT-04339.
(A2-DJT-04354): New abstract node.
---

diff --git a/lisp/utf-2000/Ideograph-R068-Dipper.el b/lisp/utf-2000/Ideograph-R068-Dipper.el
index 462dcc2..c9b9a39 100644
--- a/lisp/utf-2000/Ideograph-R068-Dipper.el
+++ b/lisp/utf-2000/Ideograph-R068-Dipper.el
@@ -1,6 +1,11 @@
 ;; -*- coding: utf-8-mcs-er -*-
 (define-char
-  '((ideographic-radical . 68)	; ⽃
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x6597)	; &BUCS+6597;
+      )
+     ((==>ucs@bucs	  . #x9B25)	; &BUCS+9B25;
+      ))
+    (ideographic-radical . 68)	; ⽃
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
     (=ucs		. #x6597)	; 斗
@@ -15,6 +20,7 @@
     (=gt-k		. 00469)	; &I-GT-K00469;
     (=gt-pj-1		. #x454D)	; &I-GT-17057; [37-45]
     (=daikanwa		. 13489)	; &I-M-13489;
+    (=daijiten		. 04339)	; &I-DJT-04339;
     (=shinjigen		.  3210)	; 斗
     (->subsumptive
      ((=decomposition@cid
@@ -32,10 +38,13 @@
       (==gt		  . 17057)	; &g2-AJ1-03143;
       (==gt-k		  . 00469)	; &g2-AJ1-03143;
       (==daikanwa	  . 13489)	; &g2-AJ1-03143;
+      (==daijiten	  . 04339)	; &g2-AJ1-03143;
       (==shinjigen	  .  3210)	; &g2-AJ1-03143;
       (->subsumptive
        ((===daikanwa	    . 13489)	; &R-M-13489;
 	)
+       ((===daijiten	    . 04339)	; &R-DJT-04339;
+	)
        ((===jis-x0208	    . #x454D)	; &R-J0-454D; [37-45]
 	(===jis-x0213-1	    . #x454D)	; &R-J0-454D; [37-45]
 	)
@@ -468,7 +477,30 @@
       ))
     ))
 (define-char
-  '((ideographic-radical@ucs . 68)	; ⽃
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x6597)	; &BUCS+6597;
+      ))
+    (ideographic-radical@ucs . 68)	; ⽃
+    (ideographic-strokes@ucs . 7)
+    (ideographic-radical@cns . 151)	; ⾖
+    (ideographic-strokes@cns . 4)
+    (total-strokes	 . 11)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x8C46)	; 豆
+      )
+     ((=ucs		  . #x6597)	; 斗
+      ))
+    (sound@ja/on	"tou")
+    (=ucs		. #x3AB7)	; 㪷
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x3AB7)	; 㪷
+      ))
+    (ideographic-radical@ucs . 68)	; ⽃
     (ideographic-strokes@ucs . 7)
     (ideographic-radical@ucs*sources
      daikanwa cbeta)
@@ -483,17 +515,38 @@
       )
      ((=ucs		  . #x6597)	; 斗
       ))
-    (=ucs		. #x3AB7)	; 㪷
+    (=ucs@unicode	. #x3AB7)	; &C3-392B;
+    (=cns11643-3	. #x392B)	; &C3-392B; [25-11]
+    (=daikanwa		. 13507)	; &I-M-13507;
+    (=daijiten		. 04348)	; &I-DJT-04348;
+    (=cbeta		. 00356)	; &I-CB00356;
+    (<-vulgar
+     ((=ucs		  . #x6597)	; 斗
+      (=daikanwa	  . 13489)	; &I-M-13489;
+      ))
+    (<-vulgar*sources
+     yupian daikanwa)
     (->subsumptive
      ((ideographic-radical . 68)	; ⽃
       (ideographic-strokes . 7)
-      (=ucs@unicode	  . #x3AB7)	; &M-13507;
-      (=daikanwa	  . 13507)	; &M-13507;
-      (=cbeta		  . 00356)	; &I-CB00356;
+      (==ucs@unicode	  . #x3AB7)	; &g2-M-13507;
+      (==daikanwa	  . 13507)	; &g2-M-13507;
+      (==daijiten	  . 04348)	; &g2-M-13507;
+      (==cbeta		  . 00356)	; &g2-M-13507;
+      (->subsumptive
+       ((===daikanwa	    . 13507)	; &R-M-13507;
+	)
+       ((===daijiten	    . 04348)	; &R-DJT-04348;
+	)
+       ((===ucs@unicode	    . #x3AB7)	; &R-UU+3AB7;
+	)
+       ((===cbeta	    . 00356)	; &R-CB00356;
+	))
       )
      ((ideographic-radical . 151)	; ⾖
       (ideographic-strokes . 4)
-      (=cns11643-3	  . #x392B)	; &C3-392B; [25-11]
+      (==ucs@cns	  . #x3AB7)	; &g2-CU+3AB7;
+      (==cns11643-3	  . #x392B)	; &g2-CU+3AB7; [25-11]
       ))
     ))
 (define-char
@@ -1046,7 +1099,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 68)	; ⽃
+  '((<-denotational@usage
+     ((==>daijiten	  . 04354)	; &A2-DJT-04354;
+      ))
+    (ideographic-radical . 68)	; ⽃
     (ideographic-strokes . 9)
     (total-strokes	 . 13)
     (ideographic-structure
@@ -1063,6 +1119,7 @@
     (=cns11643-4	. #x3D61)	; &I-C4-3D61; [29-65]
     (=koseki		. 151560)	; 𣂁
     (=daikanwa		. 13518)	; &I-M-13518;
+    (=daijiten		. 04354)	; &I-DJT-04354;
     (<-interchangeable
      ((=ucs@unicode	  . #x8D92)	; &GT-49697;
       (=cns11643-2	  . #x476C)	; &GT-49697; [39-76]
@@ -1073,18 +1130,21 @@
       (=daikanwa	  . 40387)	; &I-M-40387;
       ))
     (<-interchangeable$_1*sources
-     shuowen-tongxun-dingsheng daikanwa)
+     shuowen-tongxundingsheng daikanwa)
     (<-interchangeable$_2*sources
-     shuowen-zhu shuowen-tongxun-dingsheng daikanwa)
+     shuowen-zhu shuowen-tongxundingsheng daikanwa)
     (<-interchangeable*sources
-     shuowen-tongxun-dingsheng daikanwa)
+     shuowen-tongxundingsheng daikanwa)
     (->subsumptive
      ((==mj		  . 037477)	; &g2-MJ037477;
       (==koseki		  . 151560)	; &g2-MJ037477;
       (==daikanwa	  . 13518)	; &g2-MJ037477;
+      (==daijiten	  . 04354)	; &g2-MJ037477;
       (->subsumptive
        ((===daikanwa	    . 13518)	; &R-M-13518;
 	)
+       ((===daijiten	    . 04354)	; &R-DJT-04354;
+	)
        ((===mj		    . 037477)	; &R-MJ037477;
 	))
       )
@@ -1656,6 +1716,38 @@
     ))
 (define-char
   '((ideographic-radical . 68)	; ⽃
+    (ideographic-strokes . 13)
+    (total-strokes	 . 17)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x3193D)	; 𱤽
+      )
+     ((=ucs		  . #x659C)	; 斜
+      ))
+    (=ucs		. #x2ABEF)	; 𪯯
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2ABEF)	; 𪯯
+      ))
+    (ideographic-radical . 68)	; ⽃
+    (ideographic-strokes . 13)
+    (total-strokes	 . 17)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs@JP/hanazono	  . #x3193D)	; &hanaJU+3193D;
+      )
+     ((=ucs@unicode	  . #x659C)	; &AJ1-02300;
+      (=adobe-japan1-0	  . 02300)	; &AJ1-02300;
+      ))
+    (=ucs@JP/hanazono	. #x2ABEF)	; &hanaJU+2ABEF;
+    ))
+(define-char
+  '((ideographic-radical . 68)	; ⽃
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
@@ -1769,3 +1861,12 @@
 	))
       ))
     ))
+(define-char
+  '((ideographic-radical . 68)	; ⽃
+    (==>ucs@bucs	. #x6597)	; &BUCS+6597;
+    (==>daijiten	. 04339)	; &BUCS+6597;
+    ))
+(define-char
+  '((ideographic-radical . 68)	; ⽃
+    (==>daijiten	. 04354)	; &A2-DJT-04354;
+    ))