;;; char-db-util.el --- Character Database utility -*- coding: utf-8-er; -*-
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
-;; 2007, 2008, 2009, 2010 MORIOKA Tomohiko.
+;; 2007, 2008, 2009, 2010, 2011 MORIOKA Tomohiko.
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: CHISE, Character Database, ISO/IEC 10646, UCS, Unicode, MULE.
ethiopic-ucs
=big5-cdp
=gt
+ =adobe-japan1-0
+ =adobe-japan1-1
+ =adobe-japan1-2
+ =adobe-japan1-3
+ =adobe-japan1-4
+ =adobe-japan1-5
+ =adobe-japan1-6
+ =hanyo-denshi/ja
+ =hanyo-denshi/jb
+ =hanyo-denshi/jc
+ =hanyo-denshi/jd
+ =hanyo-denshi/ft
+ =hanyo-denshi/ia
+ =hanyo-denshi/ib
+ =hanyo-denshi/hg
ideograph-daikanwa-2
ideograph-daikanwa
=cbeta
=>>jis-x0213-1@2004
=>>jis-x0213-2
=>>jis-x0208@1978
+ =>>hanyo-denshi/ft
=>>gt
=>jis-x0208@usual
=>jis-x0208
=>ucs@jis
=>ucs@JP
=>ucs@cns
+ =>ucs@ks
=>>ucs@unicode
=>>ucs@jis
=>>ucs@cns
=zinbun-oracle
=>zinbun-oracle
=ruimoku-v6
+ =>>ruimoku-v6
=jef-china3
=shinjigen))
(format
(cond ((memq name '(=shinjigen
=shinjigen@1ed
- =shinjigen@rev =shinjigen/+p@rev))
+ =shinjigen@rev =shinjigen/+p@rev
+ =daikanwa/ho))
"(%-18s . %04d)\t; %c")
((eq name '=shinjigen@1ed/24pr)
"(%-18s . %04d)\t; %c")
((or (memq name '(=daikanwa
=daikanwa@rev1 =daikanwa@rev2
+ =daikanwa/+p =daikanwa/+2p
=>>daikanwa =>daikanwa
=gt =>>gt =>gt =gt-k =>>gt-k =cbeta
=zinbun-oracle =>zinbun-oracle))
name value (decode-char '=ucs value)
line-breaking))
(setq attributes (delq name attributes))))
- (dolist (name '(=>ucs@gb =>ucs@ks =>ucs@big5))
+ (dolist (name '(=>ucs@gb =>ucs@big5))
(when (and (memq name attributes)
(setq value (get-char-attribute char name)))
(insert (format "(%-18s . #x%04X)\t; %c%s"