X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=char-db-turtle.el;h=b7f95421ca9bde44738e2f3bb13d9318d16b3641;hb=b816843f52a97e2cabcf7043bafea306c84f0a9e;hp=f6ad2d66ecfaff0ca1265d1a9dfba7f1e503a353;hpb=55d4f11322d542144a6bb17a06b96cbc2f82a605;p=chise%2Fchiset.git

diff --git a/char-db-turtle.el b/char-db-turtle.el
index f6ad2d6..b7f9542 100644
--- a/char-db-turtle.el
+++ b/char-db-turtle.el
@@ -54,12 +54,20 @@
     =ucs-itaiji-004
     =ucs-itaiji-005
     =ucs-itaiji-006
+    =ucs-itaiji-007
+    =ucs-itaiji-008
     =ucs-itaiji-009
+    =ucs-itaiji-010
+    =ucs-itaiji-011
     =ucs-itaiji-084
     =ucs-var-001
     =ucs-var-002
     =ucs-var-003
     =ucs-var-004
+    =ucs-var-005
+    =ucs-var-006
+    =ucs-var-008
+    =ucs-var-010
     =cns11643-1 =cns11643-2 =cns11643-3
     =cns11643-4 =cns11643-5 =cns11643-6 =cns11643-7
     =gb2312
@@ -75,6 +83,7 @@
     =daikanwa
     =ruimoku-v6
     =cbeta =jef-china3
+    =daikanwa/+2p
     =+>ucs@iso =+>ucs@unicode
     =+>ucs@jis
     =+>ucs@cns
@@ -84,6 +93,7 @@
     =>jis-x0208 =>jis-x0213-1
     =>jis-x0208@1997
     =>ucs@iwds-1
+    =>ucs@cognate
     =>ucs@component
     =>iwds-1
     =>ucs@iso
@@ -118,8 +128,12 @@
     ==daikanwa
     ==gt-k
     ==ucs@gb
+    ==ucs-itaiji-002
     ==ucs-itaiji-003
+    ==ucs-itaiji-005
+    ==ucs-var-002
     ==ucs@JP/hanazono
+    ==daikanwa/+2p
     =>>jis-x0208 =>>jis-x0213-1 =>>jis-x0213-2
     =+>jis-x0208 =+>jis-x0213-1 =+>jis-x0213-2
     =+>hanyo-denshi/jt
@@ -130,7 +144,11 @@
     =jis-x0208@1983 =jis-x0208@1978
     =>ucs-itaiji-001
     =>ucs-itaiji-002
+    =>ucs-itaiji-003
+    =>ucs-itaiji-004
     =>ucs-itaiji-005
+    =>ucs-itaiji-006
+    =>ucs-itaiji-007
     ==>ucs@bucs
     =big5
     =>cbeta
@@ -217,6 +235,26 @@
     ":denotation-of")
    ((eq '<-formed feature-name)
     ":form-of")
+   ((eq '<-same feature-name)
+    "ideo:same-as")
+   ((eq '<-simplified feature-name)
+    "ideo:simplified-form-of")
+   ((eq '<-vulgar feature-name)
+    "ideo:vulgar-form-of")
+   ((eq '<-wrong feature-name)
+    "ideo:wrong-form-of")
+   ((eq '<-original feature-name)
+    "ideo:original-form-of")
+   ((eq '<-ancient feature-name)
+    "ideo:ancient-form-of")
+   ((eq '<-Small-Seal feature-name)
+    "ideo:Small-Seal-of")
+   ((eq '<-interchangeable feature-name)
+    "ideo:interchangeable-form-of")
+   ((eq '->interchangeable feature-name)
+    "ideo:interchangeable")
+   ((eq '->mistakable feature-name)
+    "ideo:mistakable")
    ((eq 'hanyu-dazidian feature-name)
     "ideo:hanyu-dazidian")
    (t
@@ -1117,7 +1155,7 @@
 		    ))
 	       )
 	      ((eq name 'ideographic-structure)
-	       (insert (isd-turtle-format-char nil nil value nil
+	       (insert (isd-turtle-format-char nil nil value (/ column 4)
 					       'isd 'without-head-char))
 	       (insert " ;")
 	       )