From 6d301339375247168a8ebb935e6007703fe25e53 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 1 Jun 2021 09:24:03 +0900
Subject: [PATCH] Add `ideographic-structure' for some ShuoWen's characters.
 (SW-JIGUGE-01304): Add `<-formed@shuowen' for
 SW-JIGUGE-01303.

---
 lisp/utf-2000/ShuoWen-SR009.el |   45 ++++++++++++++++++++++++++++++++++------
 1 file changed, 39 insertions(+), 6 deletions(-)

diff --git a/lisp/utf-2000/ShuoWen-SR009.el b/lisp/utf-2000/ShuoWen-SR009.el
index aa6a874..882bc53 100644
--- a/lisp/utf-2000/ShuoWen-SR009.el
+++ b/lisp/utf-2000/ShuoWen-SR009.el
@@ -13,6 +13,13 @@
     ))
 (define-char
   '((shuowen-radical	. 9)	; 士
+    (ideographic-structure
+     ((=ucs-itaiji-001	  . #x2FF6)	; &U-i001+2FF6;
+      )
+     ((=shuowen-jiguge	  . 13819)	; &SW-JIGUGE-13819;
+      )
+     ((=shuowen-jiguge	  . 01302)	; &SW-JIGUGE-01302;
+      ))
     (=shuowen-jiguge	. 01303)	; &SW-JIGUGE-01303;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x58FB)	; 壻
@@ -25,10 +32,23 @@
     ))
 (define-char
   '((shuowen-radical	. 9)	; 士
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=shuowen-jiguge	  . 42800)	; &SW-JIGUGE-42800;
+      )
+     ((=shuowen-jiguge	  . 13819)	; &SW-JIGUGE-13819;
+      ))
     (=shuowen-jiguge	. 01304)	; &SW-JIGUGE-01304;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x5A7F)	; å©¿
       ))
+    (<-formed@shuowen
+     ((=shuowen-jiguge	  . 01303)	; &SW-JIGUGE-01303;
+      )
+     ((=ucs		  . #x58FB)	; 壻
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 01304)	; &SW-JIGUGE5-01304;
       )
@@ -37,6 +57,14 @@
     ))
 (define-char
   '((shuowen-radical	. 9)	; 士
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=zinbun-oracle	  . 01968)	; &ZOB-1968;
+      )
+     ((=shuowen-jiguge	  . 01302)	; &SW-JIGUGE-01302;
+      ))
     (=shuowen-jiguge	. 01305)	; &SW-JIGUGE-01305;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x58EF)	; 壯
@@ -51,19 +79,24 @@
     ))
 (define-char
   '((shuowen-radical	. 9)	; 士
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=shuowen-jiguge	  . 01302)	; &SW-JIGUGE-01302;
+      )
+     ((=shuowen-jiguge	  . 52017)	; &SW-JIGUGE-52017;
+      ))
     (=shuowen-jiguge	. 01306)	; &SW-JIGUGE-01306;
     (<-Small-Seal@shuowen
      ((=ucs		  . #x58FF)	; 壿
       ))
+    (<-Small-Seal@shuowen/mpsuzuki
+     ((=ucs		  . #x58AB)	; 墫
+      ))
     (->subsumptive
      ((===shuowen-jiguge5 . 01306)	; &SW-JIGUGE5-01306;
-      (<-Small-Seal@shuowen/mpsuzuki
-       ((=ucs		    . #x58AB)	; 墫
-	))
       )
      ((===shuowen-jiguge4 . 01306)	; &SW-JIGUGE4-01306;
-      (<-Small-Seal@shuowen/mpsuzuki
-       ((=ucs		    . #x58AB)	; 墫
-	))
       ))
     ))
-- 
1.7.10.4