X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=dump-tables.el;h=0d4f798fa8b1f09d68d7b33bc8ae4393ea85c4b9;hb=f49d54a21983d9b61ebd043a8ab305dc7a477d62;hp=eed1f81e71bb0a1d765d843cbb6b770c64e2bde7;hpb=d48e992943356fbf16ddf97475eedbd3ab29eeb0;p=chise%2Ftomoyo-tools.git

diff --git a/dump-tables.el b/dump-tables.el
index eed1f81..0d4f798 100644
--- a/dump-tables.el
+++ b/dump-tables.el
@@ -1,6 +1,6 @@
 ;;; 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
@@ -41,9 +41,9 @@
 	(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))
@@ -111,6 +111,27 @@
    '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
@@ -223,7 +244,7 @@
 	    (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
@@ -249,7 +270,7 @@
 	    (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