(A-RUI6-E087): New abstract node.
[chise/xemacs-chise.git] / lisp / mule / mule-conf.el
index 76cac64..691f9f8 100644 (file)
@@ -4,7 +4,7 @@
 ;; Licensed to the Free Software Foundation.
 ;; Copyright (C) 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006, 2008,
 ;;   2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019,
-;;   2020 MORIOKA Tomohiko
+;;   2020, 2021, 2022 MORIOKA Tomohiko
 
 ;; Keywords: mule, multilingual, character set, coding system
 
               direction l2r))
 
   (make-charset
+   '=>hanyo-denshi/tk
+   "TK (TouKi) part of Han'you-Denshi abstract characters"
+   `(long-name "Han'you-Denshi/TK"
+              chars 256
+              dimension 3
+              columns 2
+              graphic 2
+              direction l2r
+              mother =hanyo-denshi/tk))
+
+  (make-charset
    '==mj
    "Moji-Jouhou-Kiban detailed glyph-images."
    '(long-name "MJ glyph-images"
               direction l2r
               registry "HanyoDenshi\\.TKMF-1$"))
   (make-charset
+   '=>hanyo-denshi/tk/mf-01
+   "font encoding for TK (TouKi) abstract characters"
+   `(long-name "Han'you-Denshi/TK font encoding"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              mother =hanyo-denshi/tk/mf-01
+              registry "HanyoDenshi\\.TKMF-1$"))
+  (make-charset
    '==hanyo-denshi/tk/mf-01
-   "font encoding for TK (TouKi) characters"
+   "font encoding for TK (TouKi) glyphs"
    `(long-name "Han'you-Denshi/TK font encoding"
               chars 256
               dimension 2
                  graphic       2
                  columns       2
                  direction     l2r))
+  (make-charset '===hng-kkd "HNG:金剛大教王經卷第二(高山寺本)"
+               '(long-name "HNG/院政大教"
+                 chars         256
+                 dimension     2
+                 registry      "hng-79$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+
+  (make-charset '===chise-hdic-tsj "HDIC-TSJ (新撰字鏡 天治本)"
+               '(long-name "CHISE-HDIC/TSJ"
+                 chars         256
+                 dimension     2
+                 registry      "chisetsj-0$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+  (make-charset '=chise-hdic-tsj "HDIC-TSJ (新撰字鏡 天治本) abstract glyph"
+               '(long-name "CHISE-HDIC/TSJ"
+                 chars         256
+                 dimension     2
+                 registry      "chisetsj-0$"
+                 graphic       2
+                 columns       2
+                 direction     l2r
+                 mother        ===chise-hdic-tsj))
 
+  (make-charset '===chise-hdic-syp "HDIC-SYP (宋本玉篇)"
+               '(long-name "CHISE-HDIC/SYP"
+                 chars         256
+                 dimension     2
+                 registry      "chisesyp-0$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+  (make-charset '=chise-hdic-syp "HDIC-SYP (宋本玉篇) abstract glyph"
+               '(long-name "CHISE-HDIC/SYP"
+                 chars         256
+                 dimension     2
+                 registry      "chisesyp-0$"
+                 graphic       2
+                 columns       2
+                 direction     l2r
+                 mother        ===chise-hdic-syp))
+
+  (make-charset '===chise-hdic-ktb "HDIC-KTB (篆隸萬象名義 高山寺本)"
+               '(long-name "CHISE-HDIC/KTB"
+                 chars         256
+                 dimension     2
+                 registry      "chisektb-0$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+  (make-charset '=chise-hdic-ktb "HDIC-KTB (篆隸萬象名義 高山寺本) abstract glyph"
+               '(long-name "CHISE-HDIC/KTB"
+                 chars         256
+                 dimension     2
+                 registry      "chisektb-0$"
+                 graphic       2
+                 columns       2
+                 direction     l2r
+                 mother        ===chise-hdic-ktb))
+  (make-charset '===chise-hdic-ktb-seal "Seal-script of HDIC-KTB (篆隸萬象名義 高山寺本)"
+               '(long-name "CHISE-HDIC/KTB-Seal"
+                 chars         256
+                 dimension     2
+                 registry      "chisektbs-0$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+  
   (make-charset '=cbeta "CBETA private characters"
                '(long-name     "CBETA PUA"
                  chars         256
                  direction     l2r
                  registry      "rui6-0"
                  mother        ==ruimoku-v6))
+  (make-charset '=>>ruimoku-v6
+               "RUIMOKU Version.6 detailed-glyphs."
+               '(long-name     "RUI6 characters."
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "rui6-0"
+                 mother        =ruimoku-v6))
   (make-charset '=>ruimoku-v6
                "RUIMOKU Version.6 abstract characters."
                '(long-name     "RUI6 characters."
                  direction     l2r
                  registry      "rui6-0"
                  mother        =ruimoku-v6))
-  (define-charset-alias '=>>ruimoku-v6 '=>ruimoku-v6)
 
   (make-charset '=shuowen-jiguge "汲古閣本説文解字"
                '(long-name "汲古閣本説文解字(抽象字体)"
                  graphic       2
                  columns       2
                  direction     l2r))
+  (make-charset '=>shuowen-jiguge "汲古閣本説文解字抽象文字"
+               '(long-name "汲古閣本説文解字(抽象文字)"
+                 chars         256
+                 dimension     2
+                 registry      "ShuowenJiguge-5$"
+                 mother        =shuowen-jiguge
+                 graphic       2
+                 columns       2
+                 direction     l2r))
 
   (make-charset '===shuowen-jiguge4 "淮南書局4次様本説文解字"
                '(long-name "京大人文研所蔵説文解字淮南書局4次様本"
                  columns       2
                  direction     l2r))
 
+  (make-charset '===shuowen-jiguge-A30 "汲古閣刊第四次修改本"
+               '(long-name "京大人文研所蔵汲古閣刊第四次修改本"
+                 chars         256
+                 dimension     2
+                 registry      "ShuowenJiguge-30$"
+                 graphic       2
+                 columns       2
+                 direction     l2r))
+
   ;; (make-charset
   ;;  '=zihai
   ;;  "ZhongHua-ZiHai glyph-images"
                  direction     l2r
                  registry      "cdp\\.itaiji-2$"
                  mother        =big5-cdp))
+  (make-charset '=>big5-cdp-itaiji-002
+               "Big5-CDP-itaiji-002 abstract characters of GlyphWiki"
+               '(long-name     "Big5-CDP-itaiji-002"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "cdp\\.itaiji-2$"
+                 mother        =big5-cdp-itaiji-002))
 
   (make-charset '=big5-cdp-itaiji-003
                "Big5-CDP-itaiji-003 glyphs of GlyphWiki"
                  registry      "cdp\\.itaiji-3$"
                  mother        =big5-cdp-itaiji-003))
 
+  (make-charset '=big5-cdp-itaiji-004
+               "Big5-CDP-itaiji-004 glyphs of GlyphWiki"
+               '(long-name     "Big5-CDP-itaiji-004"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "cdp\\.itaiji-4$"
+                 mother        =big5-cdp))
+  (make-charset '=>big5-cdp-itaiji-004
+               "Big5-CDP-itaiji-004 abstract characters of GlyphWiki"
+               '(long-name     "Big5-CDP-itaiji-004"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "cdp\\.itaiji-4$"
+                 mother        =big5-cdp-itaiji-004))
+
+  (make-charset '=big5-cdp-itaiji-005
+               "Big5-CDP-itaiji-005 glyphs of GlyphWiki"
+               '(long-name     "Big5-CDP-itaiji-005"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "cdp\\.itaiji-5$"
+                 mother        =big5-cdp))
+
   (make-charset '=big5-cdp-var-001
                "Big5-CDP-var-001 glyphs of GlyphWiki"
                '(long-name     "Big5-CDP-var-001"
                  mother        =big5-cdp))
   (define-charset-alias '=big5-cdp-var-5 '=big5-cdp-var-005)
 
+  (make-charset '=big5-cdp-var-007
+               "Big5-CDP-var-007 glyph-images of GlyphWiki"
+               '(long-name     "Big5-CDP-var-007"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "cdp\\.var-7$"
+                 mother        =big5-cdp))
+
+  (make-charset '=big5-cdp-var-008
+               "Big5-CDP-var-008 glyph-images of GlyphWiki"
+               '(long-name     "Big5-CDP-var-008"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "cdp\\.var-8$"
+                 mother        =big5-cdp))
+
   (make-charset '=big5-cdp-var-010
                "Big5-CDP-var-010 glyph-images of GlyphWiki"
                '(long-name     "Big5-CDP-var-010"
                  direction     l2r
                  =>iso-ir      177
                  mother        =ucs@unicode))
+  (make-charset
+   '=ucs-sip@cns
+   "CNS glyphs of UCS SIP"
+   '(long-name "CNS SIP glyphs"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "ucs00\\.t-2$"
+              mother =ucs@cns
+              min-code #x20000 max-code #x2FFFF
+              code-offset #x20000))
   (define-charset-alias 'ucs-cns '=ucs@cns)
   (make-charset '=ucs@cns/fw
                "ISO/IEC 10646 for CNS 11643 with fullwidth"
                   ;; =>iso-ir  177
                  mother        =ucs-var-001
                  min-code #x2E00
-                 max-code #x9FCC
+                 max-code #x9FEA
                  registry "ucs\\.var001-0"))
   (make-charset '=ucs-sip-var-001
                "uXXXX-var-001 glyph-images in SIP"
                  mother        =ucs-var-001
                  min-code #x20000 max-code #x2FFFF
                  registry "ucs00\\.var001-2"))
+  (make-charset '=ucs-tip-var-001
+               "uXXXX-var-001 glyph-images in TIP"
+               '(long-name     "UCS-TIP-var-001"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =ucs-var-001
+                 min-code #x30000 max-code #x3FFFF
+                 registry "ucs00\\.var001-3"))
+  (make-charset '==ucs-var-001
+               "Abstract glyph-forms corresponding with uXXXX-var-001 of GlyphWiki"
+               '(long-name     "UCS-var-001"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs-var-001))
+  (make-charset '==ucs-bmp-var-001
+               "uXXXX-var-001's abstract glyph-forms in BMP"
+               '(long-name     "UCS-BMP-var-001 glyph-forms"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        ==ucs-var-001
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.var001-0"))
+  (make-charset '==ucs-sip-var-001
+               "uXXXX-var-001's abstract glyph-forms in SIP"
+               '(long-name     "UCS-SIP-var-001 glyph-forms"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        ==ucs-var-001
+                 min-code #x20000 max-code #x2FFFF
+                 registry "ucs00\\.var001-2"))
 
   (make-charset '=ucs-var-002
                "uXXXX-var-002 glyph-images of GlyphWiki"
                  mother        =ucs-var-002
                  min-code #x20000 max-code #x2FFFF
                  registry "ucs00\\.var002-2"))
+  (make-charset '=ucs-tip-var-002
+               "uXXXX-var-002 glyph-images in TIP"
+               '(long-name     "UCS-TIP-var-002"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =ucs-var-002
+                 min-code #x30000 max-code #x3FFFF
+                 registry "ucs00\\.var002-3"))
   (make-charset '==ucs-var-002
                "Abstract glyph-forms corresponding with uXXXX-var-002 of GlyphWiki"
                '(long-name     "UCS-var-002"
                  mother        =ucs-var-003
                  min-code #x20000 max-code #x2FFFF
                  registry "ucs00\\.var003-2"))
+  (make-charset '=ucs-tip-var-003
+               "uXXXX-var-003 glyph-images in TIP"
+               '(long-name     "UCS-TIP-var-003"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =ucs-var-003
+                 min-code #x30000 max-code #x3FFFF
+                 registry "ucs00\\.var003-3"))
   (make-charset '=+>ucs-var-003
                "uXXXX-var-003's unified glyphs of GlyphWiki"
                '(long-name     "UCS-var-003 unified glyphs"
                  min-code #x2E00
                  max-code #x9FCC
                  registry "ucs\\.var003-0"))
+  (make-charset '=+>ucs-tip-var-003
+               "uXXXX-var-003 unified glyphs in TIP"
+               '(long-name     "UCS-TIP-var-003 unified glyphs"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =+>ucs-var-003
+                 min-code #x30000 max-code #x3FFFF
+                 registry "ucs00\\.var003-3"))
+  (make-charset '==ucs-var-003
+               "Abstract glyph-forms corresponding with uXXXX-var-003 of GlyphWiki"
+               '(long-name     "UCS-var-003"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs-var-003))
+  (make-charset '==ucs-bmp-var-003
+               "uXXXX-var-003's abstract glyph-forms in BMP"
+               '(long-name     "UCS-BMP-var-003 glyph-forms"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        ==ucs-var-003
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.var003-0"))
 
   (make-charset '=ucs-var-004
                "uXXXX-var-004 glyph-images of GlyphWiki"
                  mother        =ucs-var-004
                  min-code #x20000 max-code #x2FFFF
                  registry "ucs00\\.var004-2"))
+  (make-charset '=ucs-tip-var-004
+               "uXXXX-var-004 glyph-images in TIP"
+               '(long-name     "UCS-TIP-var-004"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =ucs-var-004
+                 min-code #x30000 max-code #x3FFFF
+                 registry "ucs00\\.var004-3"))
 
   (make-charset '=ucs-var-005
                "uXXXX-var-005 glyph-images of GlyphWiki"
                  min-code #x2E00
                  max-code #x9FCC
                  registry "ucs\\.var007-0"))
+  (make-charset '==ucs-var-007
+               "Abstract glyph-forms corresponding with uXXXX-var-007 of GlyphWiki"
+               '(long-name     "UCS-var-007"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs-var-007))
+  (make-charset '==ucs-bmp-var-007
+               "uXXXX-var-007's abstract glyph-forms in BMP"
+               '(long-name     "UCS-BMP-var-007 glyph-forms"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        ==ucs-var-007
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.var007-0"))
 
   (make-charset '=ucs-var-008
                "uXXXX-var-008 glyph-images of GlyphWiki"
                  min-code #x2E00
                  max-code #x9FCC
                  registry "ucs\\.var010-0"))
+  (make-charset '=ucs-sip-var-010
+               "uXXXX-var-010 glyph-images in SIP"
+               '(long-name     "UCS-SIP-var-010"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =ucs-var-010
+                 min-code #x20000 max-code #x2FFFF
+                 registry "ucs00\\.var010-2"))
 
   (make-charset '=ucs-itaiji-001
                "uXXXX-itaiji-001 glyphs of GlyphWiki"
                  mother        =>ucs-itaiji-001
                  min-code #x20000 max-code #x2FFFF
                  registry "ucs00\\.itaiji001-2"))
+  (make-charset '=>ucs-tip-itaiji-001
+               "uXXXX-itaiji-001 characters in TIP"
+               '(long-name     "UCS-TIP-itaiji-001"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =>ucs-itaiji-001
+                 min-code #x30000 max-code #x3FFFF
+                 registry "ucs00\\.itaiji001-3"))
   (make-charset '==ucs-itaiji-001
                "Abstract glyph-forms corresponding with uXXXX-itaiji-001 of GlyphWiki"
                '(long-name     "UCS-itaiji-001"
                  min-code #x2E00
                  max-code #x9FCC
                  registry "ucs\\.itaiji002-0"))
+  (make-charset '=>ucs-sip-itaiji-002@iwds-1
+               "IWDS-1 abstract characters of uXXXX-itaiji-002 in SIP"
+               '(long-name     "=>ucs-itaiji-002@iwds-1 in SIP"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =>ucs-itaiji-002@iwds-1
+                 min-code #x20000 max-code #x2FFFF
+                 registry "ucs00\\.itaiji002-2"))
 
   (make-charset '=ucs-itaiji-003
                "uXXXX-itaiji-003 glyphs of GlyphWiki"
                  mother        ==ucs-itaiji-003
                  min-code #x20000 max-code #x2FFFF
                  registry "ucs00\\.itaiji003-2"))
+  (make-charset '=>ucs-itaiji-003@iwds-1
+               "uXXXX-itaiji-003's abstract characters based on IWDS-1"
+               '(long-name     "IWDS-1 abstract characters of UCS-itaiji-003"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =>ucs-itaiji-003))
+  (make-charset '=>ucs-bmp-itaiji-003@iwds-1
+               "IWDS-1 abstract characters of UCS-itaiji-003 in BMP"
+               '(long-name     "=>ucs-itaiji-003@iwds-1 in BMP"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =>ucs-itaiji-003@iwds-1
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.itaiji003-0"))
+  (make-charset '=>ucs-sip-itaiji-003@iwds-1
+               "IWDS-1 abstract characters of UCS-itaiji-003 in SIP"
+               '(long-name     "=>ucs-itaiji-003@iwds-1 in SIP"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =>ucs-itaiji-003@iwds-1
+                 min-code #x20000 max-code #x2FFFF
+                 registry "ucs00\\.itaiji003-2"))
 
   (make-charset '=ucs-itaiji-004
                "uXXXX-itaiji-004 glyphs of GlyphWiki"
                  min-code #x2E00
                  max-code #x9FCC
                  registry "ucs\\.itaiji005-0"))
+  (make-charset '==ucs-sip-itaiji-005
+               "uXXXX-itaiji-005's abstract glyph-forms in SIP"
+               '(long-name     "UCS-SIP-itaiji-005"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        ==ucs-itaiji-005
+                 min-code #x20000 max-code #x2FFFF
+                 registry "ucs00\\.itaiji005-2"))
 
   (make-charset '=ucs-itaiji-006
                "uXXXX-itaiji-006 glyphs of GlyphWiki"
                  mother        =>ucs-itaiji-006
                  min-code #x20000 max-code #x2FFFF
                  registry "ucs00\\.itaiji006-2"))
+  (make-charset '=>ucs-itaiji-006@iwds-1
+               "uXXXX-itaiji-006's abstract characters based on IWDS-1"
+               '(long-name     "IWDS-1 abstract characters of UCS-itaiji-006"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =>ucs-itaiji-006))
+  (make-charset '=>ucs-bmp-itaiji-006@iwds-1
+               "IWDS-1 abstract characters of UCS-itaiji-006 in BMP"
+               '(long-name     "=>ucs-itaiji-006@iwds-1 in BMP"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =>ucs-itaiji-006@iwds-1
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.itaiji006-0"))
 
   (make-charset '=ucs-itaiji-007
                "uXXXX-itaiji-007 glyphs of GlyphWiki"
                  min-code #x2E00
                  max-code #x9FCC
                  registry "ucs\\.itaiji008-0"))
+  (make-charset '=>ucs-sip-itaiji-008
+               "uXXXX-itaiji-008's abstract characters in SIP"
+               '(long-name     "UCS-SIP-itaiji-008 characters"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =>ucs-itaiji-008
+                 min-code #x20000 max-code #x2FFFF
+                 registry "ucs00\\.itaiji008-2"))
 
   (make-charset '=ucs-itaiji-009
                "uXXXX-itaiji-009 glyphs of GlyphWiki"
                  min-code #x2E00
                  max-code #x9FCC
                  registry "ucs\\.itaiji009-0"))
+  (make-charset '=ucs-sip-itaiji-009
+               "uXXXX-itaiji-009 abstract glyphs in SIP"
+               '(long-name     "UCS-SIP-itaiji-009"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =ucs-itaiji-009
+                 min-code #x20000 max-code #x2FFFF
+                 registry "ucs00\\.itaiji009-2"))
   (make-charset '=>ucs-itaiji-009
                "Abstract characters corresponding with uXXXX-itaiji-009 of GlyphWiki"
                '(long-name     "UCS-itaiji-009"
                  min-code #x2E00
                  max-code #x9FCC
                  registry "ucs\\.itaiji012-0"))
+  (make-charset '=ucs-sip-itaiji-012
+               "uXXXX-itaiji-012 glyphs in SIP"
+               '(long-name     "UCS-SIP-itaiji-012"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =ucs-itaiji-012
+                 min-code #x20000 max-code #x2FFFF
+                 registry "ucs00\\.itaiji012-2"))
+  (make-charset '=>ucs-itaiji-012
+               "Abstract characters corresponding with uXXXX-itaiji-012 of GlyphWiki"
+               '(long-name     "UCS-itaiji-012"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs))
+  (make-charset '=>ucs-bmp-itaiji-012
+               "uXXXX-itaiji-012's abstract characters in BMP"
+               '(long-name     "UCS-BMP-itaiji-012 characters"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =>ucs-itaiji-012
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.itaiji012-0"))1
+  (make-charset '=>ucs-sip-itaiji-012
+               "uXXXX-itaiji-012's abstract characters in SIP"
+               '(long-name     "UCS-SIP-itaiji-012 characters"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 mother        =>ucs-itaiji-012
+                 min-code #x20000 max-code #x2FFFF
+                 registry "ucs00\\.itaiji012-2"))
+
+  (make-charset '=ucs-itaiji-014
+               "uXXXX-itaiji-014 glyphs of GlyphWiki"
+               '(long-name     "UCS-itaiji-014"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs))
+  (make-charset '=ucs-bmp-itaiji-014
+               "uXXXX-itaiji-014 glyph-images in BMP"
+               '(long-name     "UCS-BMP-itaiji-014"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs-itaiji-014
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.itaiji014-0"))
+  (make-charset '=>ucs-itaiji-014
+               "Abstract characters corresponding with uXXXX-itaiji-014 of GlyphWiki"
+               '(long-name     "UCS-itaiji-014"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs))
+  (make-charset '=>ucs-bmp-itaiji-014
+               "uXXXX-itaiji-014's abstract characters in BMP"
+               '(long-name     "UCS-BMP-itaiji-014 characters"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =>ucs-itaiji-014
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.itaiji014-0"))
+
+  (make-charset '=ucs-itaiji-016
+               "uXXXX-itaiji-016 glyphs of GlyphWiki"
+               '(long-name     "UCS-itaiji-016"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs))
+  (make-charset '=ucs-bmp-itaiji-016
+               "uXXXX-itaiji-016 glyph-images in BMP"
+               '(long-name     "UCS-BMP-itaiji-016"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs-itaiji-016
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.itaiji016-0"))
+  (make-charset '=>ucs-itaiji-016
+               "Abstract characters corresponding with uXXXX-itaiji-016 of GlyphWiki"
+               '(long-name     "UCS-itaiji-016"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs))
+  (make-charset '=>ucs-bmp-itaiji-016
+               "uXXXX-itaiji-016's abstract characters in BMP"
+               '(long-name     "UCS-BMP-itaiji-016 characters"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =>ucs-itaiji-016
+                 min-code #x2E00
+                 max-code #x9FCC
+                 registry "ucs\\.itaiji016-0"))
 
   (make-charset '=ucs-itaiji-084
                "uXXXX-itaiji-084 glyph-images of GlyphWiki"
               registry "-ja-.*-ucs-0"
               mother =ucs@JP/hanazono
               min-code #x2E00
-               max-code #x9FEA
+               max-code #x9FFC
               ;; max-code #xA4CF
               ))
   (make-charset
               min-code #x20000 max-code #x2FFFF
               code-offset #x20000))
   (make-charset
+   '=ucs-sip@gb
+   "UCS G-source glyphs of UCS SIP"
+   '(long-name "u2XXXX-g glyphs of UCS"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "-ucs00\\.g-2$"
+              mother =ucs@gb
+              min-code #x20000 max-code #x2FFFF
+              code-offset #x20000))
+  (make-charset
    '=ucs-tip
    "Tertiary Ideographic Plane of UCS"
    '(long-name "UCS TUP"
               direction l2r
               registry "\\(iso10646\\|ucs00\\)-3$"
               mother ucs
-              min-code #x30000 max-code #x3134A
+              min-code #x30000 max-code #x323AF
               code-offset #x30000))
   (make-charset
    '=ucs-tip@JP/hanazono
               direction l2r
               registry "ucs00-3$"
               mother =ucs@JP/hanazono
-              min-code #x30000 max-code #x3134A
+              min-code #x30000 max-code #x323AF
               code-offset #x30000))
   (make-charset
    '=>ucs-sip@iwds-1
               min-code #x20000 max-code #x2FFFF
               code-offset #x20000))
   (make-charset
+   '=>ucs-tip@iwds-1
+   "CJK Characters in TIP based on IWDS-1."
+   '(long-name "CJK in TIP@IWDS-1"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "ucs00-3$"
+              mother =>ucs@iwds-1
+              min-code #x30000 max-code #x323AF
+              code-offset #x30000))
+  (make-charset
    '=>ucs-sip@cognate
    "CJK Characters in SIP for abstract characters based on cognate."
    '(long-name "CJK in SIP@cognate"
               min-code #x20000 max-code #x2FFFF
               code-offset #x20000))
   (make-charset
+   '=>ucs-tip@cognate
+   "CJK Characters in TIP for abstract characters based on cognate."
+   '(long-name "CJK in TIP@cognate"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "ucs00-3$"
+              mother =>ucs@cognate
+              min-code #x30000 max-code #x3FFFF
+              code-offset #x30000))
+  (make-charset
    '=>ucs-sip@component
    "CJK Characters in SIP for IWDS-1 abstract components."
    '(long-name "CJK in SIP@component"
               direction l2r
               registry "ucs00-3$"
               mother =>ucs@component
-              min-code #x30000 max-code #x3134A
+              min-code #x30000 max-code #x323AF
               code-offset #x30000))
   (make-charset
    '==>ucs-sip@esu
               direction l2r
               registry "ucs00-3$"
               mother ==ucs@JP/hanazono
-              min-code #x30000 max-code #x3134A
+              min-code #x30000 max-code #x323AF
               code-offset #x30000))
   (make-charset
    '===ucs-sip@iso