From 3b4a2d10f69f20f45d545791578d150b45aeac2d Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 1 Jun 2021 16:18:10 +0900
Subject: [PATCH] Add `ideographic-structure' for some ShuoWen's characters.
 (SW-JIGUGE-01502): Add U-00021D1B and U-00021E46 as
 corresponding modern characters. (SW-JIGUGE-01503): Add
 U-00026E15 as a corresponding modern character; add
 `<-ancient@shuowen' for SW-JIGUGE-01502. (SW-JIGUGE-01507):
 Add U-00021D2A and U-000204B6 as corresponding modern
 characters; add `<-Zhouwen@shuowen' for SW-JIGUGE-01506.

---
 lisp/utf-2000/ShuoWen-SR011.el |   93 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 93 insertions(+)

diff --git a/lisp/utf-2000/ShuoWen-SR011.el b/lisp/utf-2000/ShuoWen-SR011.el
index e10c3df..526e7cc 100644
--- a/lisp/utf-2000/ShuoWen-SR011.el
+++ b/lisp/utf-2000/ShuoWen-SR011.el
@@ -25,6 +25,14 @@
     ))
 (define-char
   '((shuowen-radical	. 11)	; å±®
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=shuowen-jiguge	  . 01400)	; &SW-JIGUGE-01400;
+      )
+     ((=shuowen-jiguge	  . 43002)	; &SW-JIGUGE-43002;
+      ))
     (=shuowen-jiguge	. 01501)	; &SW-JIGUGE-01501;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x6BCF)	; 每
@@ -39,8 +47,20 @@
     ))
 (define-char
   '((shuowen-radical	. 11)	; å±®
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=shuowen-jiguge	  . 01400)	; &SW-JIGUGE-01400;
+      )
+     ((=shuowen-jiguge	  . 43723)	; &SW-JIGUGE-43723;
+      ))
     (=shuowen-jiguge	. 01502)	; &SW-JIGUGE-01502;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x21D1B)	; 𡴛
+      )
+     ((=ucs		  . #x21E46)	; 𡹆
+      )
      ((=ucs		  . #x6BD2)	; 毒
       ))
     (->subsumptive
@@ -51,10 +71,25 @@
     ))
 (define-char
   '((shuowen-radical	. 11)	; å±®
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs		  . #x2FF8)	; ⿸
+      )
+     ((=shuowen-jiguge	  . 01928)	; &SW-JIGUGE-01928;
+      )
+     ((=shuowen-jiguge	  . 14010)	; &SW-JIGUGE-14010;
+      ))
     (=shuowen-jiguge	. 01503)	; &SW-JIGUGE-01503;
     (<-Small-Seal@shuowen
+     ((=ucs		  . #x26E15)	; 𦸕
+      )
      ((=ucs		  . #x25CAE)	; 𥲮
       ))
+    (<-ancient@shuowen
+     ((=shuowen-jiguge	  . 01502)	; &SW-JIGUGE-01502;
+      )
+     ((=ucs		  . #x6BD2)	; 毒
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 01503)	; &SW-JIGUGE5-01503;
       )
@@ -63,6 +98,14 @@
     ))
 (define-char
   '((shuowen-radical	. 11)	; å±®
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=shuowen-jiguge	  . 01400)	; &SW-JIGUGE-01400;
+      )
+     ((=shuowen-jiguge	  . 03303)	; &SW-JIGUGE-03303;
+      ))
     (=shuowen-jiguge	. 01504)	; &SW-JIGUGE-01504;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x37A3)	; 㞣
@@ -75,6 +118,14 @@
     ))
 (define-char
   '((shuowen-radical	. 11)	; å±®
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=shuowen-jiguge	  . 01509)	; &SW-JIGUGE-01509;
+      )
+     ((=shuowen-jiguge	  . 03303)	; &SW-JIGUGE-03303;
+      ))
     (=shuowen-jiguge	. 01505)	; &SW-JIGUGE-01505;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x82AC)	; 芬
@@ -89,6 +140,14 @@
     ))
 (define-char
   '((shuowen-radical	. 11)	; å±®
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=shuowen-jiguge	  . 01400)	; &SW-JIGUGE-01400;
+      )
+     ((=shuowen-jiguge	  . 15300)	; &SW-JIGUGE-15300;
+      ))
     (=shuowen-jiguge	. 01506)	; &SW-JIGUGE-01506;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x21D06)	; 𡴆
@@ -103,9 +162,35 @@
     ))
 (define-char
   '((shuowen-radical	. 11)	; å±®
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=shuowen-jiguge	  . 01506)	; &SW-JIGUGE-01506;
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=shuowen-jiguge    . 01506)	; &SW-JIGUGE-01506;
+	)
+       ((=shuowen-jiguge    . 01506)	; &SW-JIGUGE-01506;
+	))
+      ))
     (=shuowen-jiguge	. 01507)	; &SW-JIGUGE-01507;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x21D2B)	; ð¡´«
+      )
+     ((=ucs		  . #x21D2A)	; ð¡´ª
+      )
+     ((=ucs		  . #x204B6)	; 𠒶
+      ))
+    (<-Zhouwen@shuowen
+     ((=shuowen-jiguge	  . 01506)	; &SW-JIGUGE-01506;
+      )
+     ((=ucs		  . #x21D06)	; 𡴆
+      )
+     ((=ucs		  . #x5725)	; 圥
       ))
     (->subsumptive
      ((===shuowen-jiguge5 . 01507)	; &SW-JIGUGE5-01507;
@@ -115,6 +200,14 @@
     ))
 (define-char
   '((shuowen-radical	. 11)	; å±®
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=shuowen-jiguge	  . 01400)	; &SW-JIGUGE-01400;
+      )
+     ((=shuowen-jiguge	  . 35015)	; &SW-JIGUGE-35015;
+      ))
     (=shuowen-jiguge	. 01508)	; &SW-JIGUGE-01508;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x21D26)	; ð¡´¦
-- 
1.7.10.4