+;;; dump-tables.el --- Dump utility of mapping tables
+
+;; Copyright (C) 2002 MORIOKA Tomohiko
+
+;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+;; Keywords: Ideographs, Character Database, UTF-2000, UCS, Unicode
+
+;; This file is a part of tomoyo-tools.
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING. If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Code:
+
+;;;###autoload
(defun dump-jis-x0208-1990-to-ucs-table (filename)
(interactive "Fdump J90-to-UCS : ")
(if (file-directory-p filename)
(setq ucs-j (or (get-char-attribute chr 'ucs-jis)
(get-char-attribute chr '=>ucs-jis)))
(insert (format "J90-%02X%02X" row cell))
- (if ucs-j
+ (if (and ucs-j (/= ucs-j ucs))
(insert (format "\tJU+%04X\t" ucs-j))
(insert "\t "))
(insert (format (if (<= ucs #xFFFF)
(setq row (1+ row))))
(write-region (point-min)(point-max) filename)))
+;;;###autoload
(defun dump-jis-x0212-to-ucs-table (filename)
(interactive "Fdump JSP-to-UCS : ")
(if (file-directory-p filename)
(setq ucs-j (or (get-char-attribute chr 'ucs-jis)
(get-char-attribute chr '=>ucs-jis)))
(insert (format "JSP-%02X%02X" row cell))
- (if ucs-j
+ (if (and ucs-j (/= ucs-j ucs))
(insert (format "\tJU+%04X\t" ucs-j))
(insert "\t "))
(insert (format (if (<= ucs #xFFFF)
(setq row (1+ row))))
(write-region (point-min)(point-max) filename)))
+;;;###autoload
(defun dump-jis-x0213-1-to-ucs-table (filename)
(interactive "Fdump JX1-to-UCS : ")
(if (file-directory-p filename)
(setq cell 33)
(while (< cell 127)
(when (and (setq chr (make-char 'japanese-jisx0213-1 row cell))
+ (not (encode-char chr 'japanese-jisx0208-1990 t))
(setq ucs (or (get-char-attribute chr 'ucs)
(get-char-attribute chr '=>ucs)
(get-char-attribute chr '->ucs))))
(setq row (1+ row))))
(write-region (point-min)(point-max) filename)))
+;;;###autoload
(defun dump-jis-x0213-2-to-ucs-table (filename)
(interactive "Fdump JX2-to-UCS : ")
(if (file-directory-p filename)
(setq row (1+ row))))
(write-region (point-min)(point-max) filename)))
+;;;###autoload
(defun dump-cns-11643-3-to-ucs-table (filename)
(interactive "Fdump C3-to-UCS : ")
(if (file-directory-p filename)
(setq ucs-cns (or (get-char-attribute chr 'ucs-cns)
(get-char-attribute chr '=>ucs-cns)))
(insert (format "C3-%02X%02X" row cell))
- (if ucs-cns
+ (if (and ucs-cns (/= ucs-cns ucs))
(insert (format "\tCU+%04X\t" ucs-cns))
(insert "\t "))
(insert (format (if (<= ucs #xFFFF)
(setq row (1+ row))))
(write-region (point-min)(point-max) filename)))
+;;;###autoload
(defun dump-cns-11643-4-to-ucs-table (filename)
(interactive "Fdump C4-to-UCS : ")
(if (file-directory-p filename)
(setq row (1+ row))))
(write-region (point-min)(point-max) filename)))
+;;;###autoload
(defun dump-big5-to-ucs-table (filename)
(interactive "Fdump B-to-UCS : ")
(if (file-directory-p filename)
(setq row (1+ row))))
(write-region (point-min)(point-max) filename)))
+;;;###autoload
(defun dump-jef-china3-to-ucs-table (filename)
(interactive "Fdump JC3-to-UCS : ")
(if (file-directory-p filename)
cell chr ucs)
(while (<= row #x9F)
(setq cell #xA1)
- (while (< cell #xFE)
+ (while (<= cell #xFE)
(when (and (setq chr (make-char 'china3-jef row cell))
(setq ucs (or (get-char-attribute chr 'ucs)
(get-char-attribute chr '=>ucs))))
(setq cell (1+ cell)))
(setq row (1+ row))))
(write-region (point-min)(point-max) filename)))
+
+;;;###autoload
+(defun dump-cbeta-to-ucs-table (filename)
+ (interactive "Fdump CBETA-to-UCS : ")
+ (if (file-directory-p filename)
+ (setq filename (expand-file-name "CBETA-to-UCS.txt" filename)))
+ (with-temp-buffer
+ (let ((i 1)
+ chr ucs)
+ (while (<= i 20000)
+ (when (and (setq chr (decode-char 'ideograph-cbeta i))
+ (setq ucs (or (get-char-attribute chr 'ucs)
+ (get-char-attribute chr '=>ucs))))
+ (insert (format "CB%05d\t" i))
+ (insert (format (if (<= ucs #xFFFF)
+ "U+%04X\n"
+ "U-%08X\n")
+ ucs)))
+ (setq i (1+ i))))
+ (write-region (point-min)(point-max) filename)))
+
+
+;;; @ End.
+;;;
+
+(provide 'dump-tables)
+
+;;; dump-tables.el ends here