;;; dump-tables.el --- Dump utility of mapping tables
-;; Copyright (C) 2002,2003 MORIOKA Tomohiko
+;; Copyright (C) 2002,2003,2004,2005 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: Ideographs, Character Database, CHISE, UCS, Unicode
(while (< cell 127)
(when (and (setq chr (make-char ccs row cell))
(setq ucs (or (encode-char chr 'ucs 'defined-only)
- (get-char-attribute chr '=>ucs))))
+ (char-feature chr '=>ucs))))
(setq ucs-l (or (encode-char chr ucs-ccs 'defined-only)
- (get-char-attribute chr ucs-ccs-map)))
+ (char-feature chr ucs-ccs-map)))
(insert (format ccs-format row cell))
(if (and ucs-l (/= ucs-l ucs))
(insert (format ucs-ccs-format ucs-l))
'japanese-jisx0213-2 "JX2-" 'jis "JU+"))
;;;###autoload
+(defun dump-ks-x1001-to-ucs-table (filename)
+ (interactive "Fdump K0-to-UCS : ")
+ (dump-94x94-ccs-to-ucs-table
+ filename "K0-to-UCS.txt"
+ '=ks-x1001 "K0-" 'ks "KU+"))
+
+;;;###autoload
+(defun dump-cns-11643-1-to-ucs-table (filename)
+ (interactive "Fdump C1-to-UCS : ")
+ (dump-94x94-ccs-to-ucs-table
+ filename "C1-to-UCS.txt"
+ 'chinese-cns11643-1 "C1-" 'cns "CU+"))
+
+;;;###autoload
+(defun dump-cns-11643-2-to-ucs-table (filename)
+ (interactive "Fdump C2-to-UCS : ")
+ (dump-94x94-ccs-to-ucs-table
+ filename "C2-to-UCS.txt"
+ 'chinese-cns11643-2 "C2-" 'cns "CU+"))
+
+;;;###autoload
(defun dump-cns-11643-3-to-ucs-table (filename)
(interactive "Fdump C3-to-UCS : ")
(dump-94x94-ccs-to-ucs-table
(cond ((integerp md)
(insert (format " D%05d.0\n" md)))
((eq (car md) 'ho)
- (insert (format " DHO%03d\n" (nth 1 md))))
+ (insert (format " DHo%03d\n" (nth 1 md))))
(md
(insert (format " D%05d.%d\n" (car md)(nth 1 md))))
(t
(cond ((integerp md)
(insert (format " D%05d.0\n" md)))
((eq (car md) 'ho)
- (insert (format " DHO%03d\n" (nth 1 md))))
+ (insert (format " DHo%03d\n" (nth 1 md))))
(md
(insert (format " D%05d.%d\n" (car md)(nth 1 md))))
(t